随心所欲地在memo或richedit里作图
【打印文章】
通过该方法你可以随心所欲地在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;
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;
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】