delphi画笔类(TPen)使用方法|实例
画笔类(TPen)
画家在绘制作品时,要用到很多的笔,Delphi 中的TPen 类就可以描述Windows 的画图的笔,应用程序常用TPen 对象在画布上绘制各种线段。所有和线条有关的绘图函数都会受TPen 影响,如LineTo,Ellipse,Polygon,PolyLine,Rectangle 等函数都使用画笔来画线,基本上可以将这些绘图工具归类为向量式的绘图工具,所有的向量式绘图工具都使用Pen 来进行画线的动作。在Delphi 中,可以利用Canvas.Pen 来修改Pen 的性质,画笔的颜色在Color 属性中定义,线段宽度在Width 属性中定义,类型和模式则分别在Style 和Mode 属性中定义。
(1)Color 属性
Color 属性控制线的颜色,可以采用颜色向量描述颜色,如clBlack(黑色)、clBlue(蓝色)和clGreen(绿色)等。
(2)Style 属性
Style 属性确定线的式样,可以采用式样常量描述式样,如psSolid(实线)和psDash(短线)等。
·Pslold 画固定线段
·PsDash 画下划线组成的线段
·PsDot 画由点组成的线段
·PsDashDot 画点划线
·PsDashDotDot 画双点划线
·PsClear 画看不见的线段
·PsInsideFrame 画边界的矩形线框
下面将以一个小程序为例,向读者详细介绍如何使用TPen 类。
新建一个工程,设置Form1 的Color 属性为clWhite,将下面的代码加入窗体的onClick 事件过程
中,运行程序,单击窗体便可画出如图11-4 所示的各种线型。
procedure TForm1.FormClick(Sender: TObject);
var
I:Integer;
begin
for I := 0 to 6 do
begin
Canvas.Pen.Style := TPenStyle(I);
Canvas.MoveTo(50,20 + I * 20);
Canvas.LineTo(200,20 + I * 20);
end;
end;
,从上到下对应的样式变量名为psSolid、psDash、psDot、psDashDot、psDashDotDot、psClear 和psInsideFrame。注意,psClear 用于清除线样式,而不在窗体上显示任何线条。