RxLib中有,很多地方都有下。
解决方案 »
- 请教一个 三层开发的问题
- dbgird的总是
- 如何检测电脑的网卡型号及已安装网卡的数量,并能对指定的网卡实行禁用
- 在win2k/9x怎样获得Bios信息、Cpu、硬盘。
- 用Oracle,MTS/COM+ ,ADO开发N-Tier应用存在的BUG?(ZD.Wang)
- 求教:用delphi的在WIN98/2000下ADO编写的程序为什么在XP下会出错?
- 来者有分
- 追女生失败了
- dbgrid中我想在添加记录时只能选择几个固定的值。听说sql语句可以实现,我不知道怎么写!
- delphi7 用 idhttp.get 抓取网页显示乱码如何解决?
- TDataSet.OnPostError 事件。
- 我发现本论坛上有人转播病毒!!!
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;
procedure TMyMemo.WMPaint(var Message: TWMPaint);
var
MCanvas: TControlCanvas;
DrawBounds : TRect;
Begin
inherited;
MCanvas:=TControlCanvas.Create;
DrawBounds := ClientRect; // Work with temporary TRect record.
Try
MCanvas.Control:=Self;
With MCanvas do
Begin
Brush.Color := clBtnFace;
FrameRect( DrawBounds );
InflateRect( DrawBounds, -1, -1);
FrameRect( DrawBounds );
FillRect ( DrawBounds );
MoveTo ( 33, 0 );
Brush.Color := clWhite;
LineTo ( 33, ClientHeight );
PaintImages;//定义的画图片过程
end;
finally
MCanvas.Free;
End;
end; procedure TMyMemo.PaintImages;
var
MCanvas: TControlCanvas;
DrawBounds : TRect;
i, j : Integer;
OriginalRegion : HRGN;
ControlDC : HDC;
begin
MCanvas:=TControlCanvas.Create;
DrawBounds := ClientRect; // Work with temporary TRect record.
try
MCanvas.Control:=Self;
ControlDC := GetDC ( Handle );
MCanvas.Draw(0, 1, Application.Icon);
finally
MCanvas.Free;
end;
end;
最好是有一个使用riched20.dll(Version 3.0)带源码的Rtf控件来看看了,能够打开含有图片甚至表格的Rtf文件。