Delphi绘图相关对象.docxVIP

一在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对象的方法方法说明ArcArc(x1,y1,x2,y2,x3,y3,x4,y4 : Integer);Arc方法在椭圆上画一段弧，椭圆由(x1,y1)、(x2,y2) 两点所确定的椭圆决定。弧的起点是椭圆圆周和椭圆中心与(x3,y3)连线的交点。弧矩形终点是椭圆圆周和椭圆中心与(x4,y4)连线的交点以逆时针方向画弧ChordChord(x1,y1,x2,yx,x3,y3,x4,y4 : Integer);Chord方法连接椭圆上两点，椭圆由(x1,y1)、(x2,y3) 两点所确定的矩形决定，(x3,y3)是始点，(x4,y4)是终点BrushcopyBrushcopy(const Dest : TRect;Bitmap : TBitmap;const Source TRect;Color : TColor);Brushcopy方法把位图的一部分复制到画布的某个矩形区域，并用画笔的当前颜色替换位图的颜色。参数Dest定义画布的一个矩形区域，该矩形用以填充位图，Bitmap定义位图；Source定义位图中的矩形区域，该区域上的位图将被复制；Color定义画笔中用以替换位图的颜色CopyRectCopyRect(Dest:TRect;Canvas:TCanvas; Source TRect);此方法从另一个画布对象上复制部分图像到该画布。Canvas表示源画布，Source是源画布上要复制的图像区域。Dest表示目标画布上将接受复制图像的矩形区域（续表）方法说明DrawDraw(x,y : Integer;Graphic : TGraphic);此方法在画布给定的像素点坐标(x,y)处画Graphic所给的图像，该图像可以是位图、图标或元位图EllipsEllips(x1,y1,x2,y2 : Integer);Ellips方法在画布指定的矩形边界上画一个椭圆，(x1,y1)是矩形左上角的像素坐标，(x2,y2)是矩形右下角的像素坐标。如果矩形形成一个区域，则将出现一个椭圆LineToLineTo(x,y : Integer);LineTo从当前位置画一条线至(x,y)所指定的位置，并把笔的位置移至(x ,y)MoveToMoveTo(x,y : Integer);MoveTo将笔的当前位置设置到点(x,y)处，笔的当前位置在PenPos属性中，改变笔的当前位置使用MoveTo方法，不要设法改变PenPos的值DieDie(x1,y1,x2,y2,x3,y3,x4,y4 : Longint);Die方法绘制椭圆的一部分，椭圆由点(x1,y1),(x2,y2)所确定的矩形所决定，绘制的那部分由椭圆中心到(x3,y3)、(x4,y4)两点的两条辐射线所决定PolygonPolygon(Points : array of TPrint);Polygon方法在画布上绘制一系列的点，各点依次连成线，最后将首尾两点相接形成一个区域，并用当前笔刷填充此区域PolylinePolyline(Ports : array of TPort);Polyline方法在画布上用当前画笔绘制一系列的点，各点依次连成线StretchDrawStretchDraw(Const Rect : TRcct : Graphic : TGraphic