精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>Re:TCustomPanel没有Canvas属性吧?

主题:Re:TCustomPanel没有Canvas属性吧?
发信人: delphilxh(先锋)
整理人: teleme(2001-05-31 20:32:58), 站内信件
【 在 joy_judy 的大作中提到:】
:同题
:......
可以参考以下的代码:
 通过该方法你可以随心所欲地在memo或richedit里作图了!呵呵!  
function Tform1.memopain:boolean;   
var   
  MyCanvas: TControlCanvas;   
Begin   
  MyCanvas:=TControlCanvas.Create;   
  Mycanvas.control:=memo1;//想在memo1上作画   
  With Mycanvas do   
  Begin   
//这里可以更改为你的作图程序  
    Brush.Color := clBtnFace;   
    MoveTo ( 33, 0 );   
    Brush.Color := clWhite;   
    LineTo ( 33, ClientHeight );   
  end;   
End;  



----
██████ 
█┏━━┓█ Delphi先锋网欢迎您!!!!
█┃之先┃█  北京网易Delphi论坛 
█┃印锋┃█ 
█┗━━┛█ 
██████ 

              

[关闭][返回]