有关memo的问提 为什么不用Timage,Memo可以放Image吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TMEMO 不能加 IMAGE水平滚动条可以设置属性 直接用TScrollBox来加上滚动条不行吗? 虽然memo不能放image但是memo中可以绘制图形protected procedure wmpaint(var message:twmpaint);message wm_paint;procedure TMyMemo.wmpaint(var message:twmpaint);var mcanvas:tcontrolcanvas; drawbounds:trect; begin inherited; mcanvas:=tcontrolcanvas.create; drawbounds:=clientrect; 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;procedure TMyMemo.paintimages;var mcanvas:tcontrolcanvas; drawbounds:trect; i,j:integer; orignalregion:hrgn; controldc:hdc; begin mcanvas:=tcontrolcanvas.create; drawbounds:=clientrect; try mcanvas.control:=self; controldc:=getdc(handle); mcanvas.draw(0,1,application.icon); finally mcanvas.free;end;end;end; 求delphi如何知道word执行了一次保存 socket编程 多线程问题(请高手指点一下) 在DELPHI 7中如何引用和使用报表,有做过的高手,请指点一下,不胜感激!!谢谢 ComboBox的简单问题 DBGrid1如何获得2个表里的数据 为什么我用delphi不能向sql数据库中存储2MB的图片 怎么知道第三方软件里列表框的内容? 大家都说说自己公司春节的放假时间吧 请问如何在状态条toolbar上显示提示文字? 有漂亮MM........ 关于ADO连接Access的密码验证问题??? 强烈要求结贴,来者有分
水平滚动条可以设置属性
但是memo中可以绘制图形
protected
procedure wmpaint(var message:twmpaint);message wm_paint;procedure TMyMemo.wmpaint(var message:twmpaint);
var
mcanvas:tcontrolcanvas;
drawbounds:trect;
begin
inherited;
mcanvas:=tcontrolcanvas.create;
drawbounds:=clientrect;
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;procedure TMyMemo.paintimages;
var
mcanvas:tcontrolcanvas;
drawbounds:trect;
i,j:integer;
orignalregion:hrgn;
controldc:hdc;
begin
mcanvas:=tcontrolcanvas.create;
drawbounds:=clientrect;
try
mcanvas.control:=self;
controldc:=getdc(handle);
mcanvas.draw(0,1,application.icon);
finally
mcanvas.free;
end;
end;
end;