Delphi TCanvas，TPen，TBrush，TColor 绘图对象
在Delphi中，专门定义了一组用于绘制图形的对象和组件，完成一些简单的图像功能。利用这些对象、组件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便设计图形绘制程序。
（1）TCanvas，TPen，TBrush，TColor对象的方法及属性；
（2）绘图功能的实现；
（3）TImage，TPicture，TBitBtn，TBitmap组件的方法及属性；
（4）图像观测及处理。4.4.1 TCanvas——画布对象
TCanvas对象是一个用于绘图的组件，Delphi利用这个组件为用户提供了一个绘制图形的区域，在这个区域上，程序可实现各种绘图功能，很多组件（如TImage、TMemo）的Canvas属性就是TCanvas对象。在组件上绘制图形就是在组件的画布上绘制。
TCanvas的Brush、Pen、Font属性分别是TBrush、TPen、TFont对象，它们用于定义绘制图形的风格。关于TBrush、TPen对象，后面将详细介绍。
需要说明的是，Delphi中利用前缀T来标志内部定义的对象，例如TPen代表画笔对象，TForm则代表窗体对象等。
画布的笔的位置定义在PenPos属性中，可用MoveTo方法来移动笔。如果要在画布上输出文本，可用Textout方法。
TCanvas对象有很多方法，可完成常用的绘图功能。方法及功能简介见表4.2。
表4.2 TCanvas对象的方法
|
方法 |
说明 |
|
Arc |
Arc(x1,y1,x2,y2,x3,y3,x4,y4 : Integer); Arc方法在椭圆上画一段弧，椭圆由(x1,y1)、(x2,y2) 两点所确定的椭圆决定。弧的起点是椭圆圆周和椭圆中心与(x3,y3)连线的交点。弧矩形终点是椭圆圆周和椭圆中心与(x4,y4)连线的交点以逆时针方向画弧 |
|
Chord |
Chord(x1,y1,x2,yx,x3,y3,x4,y4 : Integer); Chord方法连接椭圆上两点，椭圆由(x1,y1)、(x2,y3) 两点所确定的矩形决定，(x3,y3)是始点，(x4,y4)是终点 |
|
Brushcopy |
Brushcopy(const Dest : TRect;Bitmap : TBitmap; const Source TRect;Color : TColor); |
|
Brushcopy方法把位图的一部分复制到画布的某个矩形区域，并用画笔的当前颜色替换位图的颜色。参数Dest定义画布的一个矩形区域，该矩形用以填充位图，Bitmap定义位图；Source定义位图中的矩形区域，该区域上的位图将被复制；Color定义画笔中用以替换位图的颜色 |
|
|
CopyRect |
CopyRect(Dest:TRect;Canvas:TCanvas; Source TRect); 此方法从另一个画布对象上复制部分图像到该画布。Canvas表示源画布，Source是源画布上要复制的图像区域。Dest表示目标画布上将接受复制图像的矩形区域 |
（续表）
|
方法 |
说明 |
|
Draw |
Draw(x,y : Integer;Graphic : TGraphic); 此方法在画布给定的像素点坐标(x,y)处画Graphic所给的图像，该图像可以是位图、图标或元位图 |
|
Ellips |
Ellips(x1,y1,x2,y2 : Integer); Ellips方法在画布指定的矩形边界上画一个椭圆，(x1,y1)是矩形左上角的像素坐标，(x2,y2)是矩形右下角的像素坐标。如果矩形形成一个区域，则将出现一个椭圆 |
|
LineTo |
LineTo(x,y : Integer); |
|
LineTo从当前位置画一条线至(x,y)所指定的位置，并把笔的位置移至(x ,y) |
|
|
MoveTo |
MoveTo(x,y : Integer); MoveTo将笔的当前位置设置到点(x,y)处，笔的当前位置在PenPos属性中，改变笔的当前位置使用MoveTo方法，不要设法改变PenPos的值 |
|
Die |
Die(x1,y1,x2,y2,x3,y3,x4,y4 : Longint); Die方法绘制椭圆的一部分，椭圆由点(x1,y1),(x2,y2)所确定的矩形所决定，绘制的那部分由椭圆中心到(x3,y3)、(x4,y4)两点的两条辐射线所决定 |
|
Polygon |
Polygon(Points : array of TPrint); Polygon方法在画布上绘制一系列的点，各点依次连成线，最后将首尾两点相接形成一个区域，并用当前笔刷填充此区域 |
|
Polyline |
Polyline(Ports : array of TPort); Polyline方法在画布上用当前画笔绘制一系列的点，各点依次连成线 |
|
StretchDraw |
StretchDraw(Const Rect : TRcct : Graphic : TGraphic); 此方法在Rect参数指定的矩形内画一图像。图像延伸，改变大小以适应矩形 |
|
Rectangle |
Rectangle(X1,y1,x2,y2 : Integer); Rectangle方法在画布上用当前画刷绘制矩形，(x1,y1)是矩形的左上角，(x2,y2)是矩形的右下角 |
|
DrawFocusRect |
DrawFocusRect(Const Rect : TRect); 此方法绘制一矩形以指示此矩形获得焦点。此方法是XOR（异或）函数，第二次调用时原有矩形将消失。DrawFocusRect绘制的矩形不能滚动。要实现滚动功能则先调用此方法使矩形消失，待滚动过后重新绘制 |
4.4.2 TPen——画笔对象
应用程序常用TPen对象在画布上绘制各种线段，笔的颜色在Color属性中定义。线段宽度在Width属性中定义。
1. Style属性
Style属性定义了线段的各种类型，见表4.3。
表4.3 Style属性的取值及含义
|
Style属性 |
含义 |
|
PsSolid |
画固定线段 |
|
PsDash |
画由虚线组成的线段 |
|
PsDot |
画由点组成的线段 |
|
PsDashDot |
画点划线 |
|
PsDashDotDot |
画双点划线 |
|
PsClear |
画看不见的线段 |
|
PsInsideFrame |
画边界的矩形线框 |
2. Mode属性
Mode属性定义线段的颜色。可结合当前的颜色、屏幕颜色或它们的反转值，对线段的颜色重新定义，但不改变Color属性，详见表4.4。
表4.4 Mode属性的取值及含义
|
Mode属性 |
像素颜色 |
|
PmBlack |
黑色 |
|
PmWhite |
白色 |
|
PmNop |
不变 |
|
PmCopy |
使用Color属性中的颜色 |
|
PmNotCopy |
笔颜色的反转值 |
|
PmMergePenNot |
笔颜色与屏幕颜色反转值的结合 |
|
PmNaskNotPen |
屏幕颜色与笔颜色的结合 |
|
PmMergeNotPen |
屏幕颜色与笔颜色反转值的结合 |
4.4.3 TBrush——画刷对象
画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。TBrush拥有一个HBrush（画刷句柄）。
画刷的颜色定义在Color属性中。画刷还有一个Bitmap属性，该属性只能在运行时得到，画刷可使用位图填充图形以产生特殊效果。位图大小为8个像素点高，8个像素点宽。
Style属性定义了画刷填充图形的图案，如图4.8所示为Style的取值。
取值 图案 取值 图案
图4.8 画刷的类型
4.4.4 TColor——颜色对象
TColor类型用于定义对象的颜色。很多组件的颜色属性就是TColor 类型， 在Graphics单元中TColor定义如下：
TColor = -$7FFFFFFF-1..$7FFFFFFF;
这是一个32位二进制数据。Graphic单元中还定义了一些常用的颜色常量，这些常量或直接映射成系统调色板中最相近的颜色，或映射成Windows控制面板中颜色部分的系统视频颜色。
直接映射成系统调色板中的颜色有：
ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa,...,ClYellow
映射程序用4字节的二进制码来定义颜色，低3位字节代表RGB相应的颜色，如$00FF0000表示纯蓝，$0000FF00表示纯绿，$000000FF表示纯红，$00000000表示黑色，$00FFFFFF表示白色。如果最高位字节是$00，则表示用系统调色板中最相近的颜色；最高位字节是$01，则表示用当前调色板中最相近的颜色匹配；最高位字节是$02，则表示用当前设备描述表中逻辑调色板的次相近颜色匹配。
此外，还有一类颜色，比如：
ClBackground,CLActiveCaption,clInactiveCaption,clMenu…
它们分别表示当前Windows桌面的背景色、当前活动窗体的标题栏的颜色、当前非活动窗体的标题栏颜色以及当前菜单的背景色等。用这些颜色属性，可以方便地写出与当前Windows相容的应用程序，而不会出现程序在某个Windows风格中显得特别扎眼的情况。
用Windows API的SelectPalette函数可创建逻辑调色板，要实现逻辑调色板到硬件调色板的映射，需用RealizePalette函数。