Delphi第三方组件高级编程之在Canvas上写字 drawtext.doc

在Canvas上写字 drawtext()作者：金海龙()Win32 API 用于在Canvas上写字的函数“DrawText()”，理解难度大，不易掌握，软件工程师金海龙先生重写了一个“在Canvas上写字的函数”，这就是：DrawLabelFaceText();procedure DrawLabelFaceText(Canvas:TCanvas;R1:TRect;S:TStrings;VertAlign:integer=1;HorzAlign:integer=1;Enabled:boolean=true;DisabledColor:TColor=$00FEFEFE;ShowAccelChar:Boolean=true);功能：把文字S写到Canvas的R1区域。参数详解：参数含义VertAlign垂直方向对齐方式HorzAlign水平方向对齐方式Enabled文字是否不带阴影DisabledColor阴影的颜色（当Enabled=false时，这个参数有效）ShowAccelChar是否显示“&”下面Form2中的文字就是用这个函数写的（注意看：上中下对齐，左中右对齐）：drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=1strtoint(edit2.text),/edit2.text=1false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=1strtoint(edit2.text),/edit2.text=2false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=1strtoint(edit2.text),/edit2.text=3false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=2strtoint(edit2.text),/edit2.text=3false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=3strtoint(edit2.text),/edit2.text=3false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=3strtoint(edit2.text),/edit2.text=2false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=3strtoint(edit2.text),/edit2.text=1false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),/edit1.text=2strtoint(edit2.text),/edit2.text=2false,clwhite,false);drawlabelfacetext(form2.canvas,clientrect,form1.Memo1.Lines,strtoint(edit1.text),edit1.text=2strtoint(edit2.text),/edit2.text=1false,clwhite,false);在Form2中点击按钮就会自动在Canvas上写多行字，其中的两个文本框控制对齐方式。左边第一个文本框是Edit1，第二个文本框是Edit2。Edit1控制垂直方向的对齐，Edit2控制水平方向的对齐。取值含义1水平左对齐、垂直上对齐2水平居中对齐、垂直居中对齐3水平右对齐、垂直下对齐在delphi