Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:12:12
delphi画笔类（TPen）使用方法

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 用于清除线样式，而不在窗体上显示任何线条。

赞