《第五章 Delphi图形图像编程(一).doc》由会员分享，可在线阅读，更多相关《第五章 Delphi图形图像编程(一).doc（8页珍藏版）》请在金锄头文库上搜索。
1、在Delphi中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。本章将介绍以下内容：1. TCanvas,TPen,TBrush,TColor对象的方法及属性；2. 绘图功能的实现；3. TImage,TPicture,TBitBtn,TBitmap部件的方法及属性；4. 图像观测及处理。Graphex.dpr是一个简单的图形图像应用程序，是对以上这些对象和组件的具体应用。本章将结合此程序进行讲述。5.1 图形对象概述5.1.1
2、 TCanvas Object(画布对象)TCanvas对象是一个用于绘图的表面，在这个区域上，程序可实现各种绘图功能，很多部件(如TIMage,TMemo)的Canvas属性就是TCanvas对象。在部件上绘制图形就是在部件的画布上绘制。TCanvas的Brush,Pen,Font属性分别是TBrush,TPen,TFont对象，它们用于定义绘制图形的风格。关于TBrush,TPen对象，下节中将详细介绍。画布的笔的位置定义在PenPos属性中，可用MoveTo方法来移动笔。如果要在画布上输出文本，可用Textout方法。TCanvas有对象很多方法，可完成常用的绘图功能，现将方法及功能简介
3、如表5.1：表5.1 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)是终点
4、。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);此方法从另一个
5、画布对象上复制部分图像到该画布。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
6、 : 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(
7、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 : Intege
8、r);Rectangle方法在画布上用当前画刷绘制矩形，(x1,y1)是矩形的左上角，(x2,y2)是矩形的右下角。RomlRect RomlRect(x1,y1,x2,y2,x3,y3, : Integer);DrawFocuseRectDrawFocusRect(Const Rect : TRect)此方法绘制一矩形以指示此矩形获得焦点。此方法是异或(XOR)函数，第二次调用时原有矩形将消失。DrawFocuseRect绘制的矩形不能滚动。要实现滚动功能则先调用此方法使矩形消失，待滚动过后重新绘制。5.1.2 Tpen Object(画笔对象) 应用程序常用TPen对象在画布上绘制各种线段
9、，笔的颜色在Color属性中定义。线段宽度在Width属性中定义。Style属性定义了线段的各种类型，如表5.2：表5.2 Styled的取值及含义Style含义PSolod 画固定线段PSDash 画由下划线组成的线段PSDot 画由点组成的线段PsDashDot 画点划线PsClear 画双点划线PsClear 画看不见的线段PsInsideFrame 画边界的矩形线框Mode属性定义线段的颜色。可结合当前的颜色、屏幕颜色或它们反转值，对线段的颜色重新定义，但不改变Color属性。详见表5.3。表5.3 Mode的取值及含义Mode 象素颜色 PmBlack 黑色PmWhite 白色PmN
10、op 不变PmCopy 使用Color属性中的颜色PmNotCopy 笔颜色的反转值PmMergePenNot 笔的颜色与屏幕颜色反转值的结合PmNaskNotPen 屏幕颜色与笔颜色PmMergeNotPen 屏幕颜色与笔颜色反转值的结合5.1.3 TBrush OBject(画刷对象)画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。TBrush拥有一个画刷句柄(HBrush)。画刷的颜色定义在Color属性中。画刷还有一个Bitmap属性，该属性只能在运行时得到，画刷可使用位图填充图形以产生特殊效果。位图大小为8个象素点，高8个象素点宽。Style属性定义了画刷填充图形的风格
11、。5.1.4 TColor类型TColor类型用于定义一个对象的颜色。很多部件的颜色属性就是TColor 类型， 在Graphics单元中TColor定义如下：TColor = -(COLOR_ENDCOLORS + 1).$02FFFFF;这是一个32位二进制数据。Graphic单元中还定义了一些常用的颜色常量，这些常量或直接映射成系统调色板中最相近的颜色，或映射成Wondows 控制面板中颜色部分的系统视频颜色。直接映射成系统调色板中的颜色有：ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa.ClYellow映射程序用4字节的二进制码来定义颜色，低3 位字
12、节代表RGB 相应的颜色，如$00FF0000表示纯蓝，$0000FF00表示纯绿，$000000FF表示纯红，$00000000表示黑色，$00FFFFFF表示白色。如果最高位字节是$00,则表示用系统调色板中最相近的颜色；最高位字节是$01，则表示用当前调色板中最相近的颜色匹配；最高位字节是$02，则用当前设备描述表中逻辑调色板的次相近颜色匹配。用Windows API的SelectPalette函数可创建逻辑调色板，要实现逻辑调色板到硬件调色板的映射，需用函数RealizePalett5.2 图形程序的开发Graphex.dpr是一个简单的图形图像应用程序，运行状态如图5.2。该程序可用
13、鼠标绘制多种图形，可设置画笔颜色、画刷填充方式；另外还可以浏览位图、元文件、图标，改变它们的大小，并打印。本节结合例程讲述以下问题： 在工具条中添加加速按钮 响应鼠标事件 设置画笔和画刷 实现绘图的“橡皮擦”功能 加入状态条5.2.1 在工具条中添加加速按钮加速按钮是应用程序常用的部件，它是替代菜单的快捷形式，通常把多个加速按钮集中在一个工具条中以方便使用。Graphex中有三个工具条，它们是TPancel部件，面板上有几组加速按钮，用以设置绘图方式、画笔、画刷。每个加速按钮的glyph属性是图像对象，位图对象用来指示该按钮是否被使用。glyph 通常需要四幅图像，分别表示按下、不按、选择、失
14、效四种状态。程序员可根据个人喜好来选择图像。加速按钮使用图像来告诉用户其状态和目的，因为按钮上无标题， 因此应给用户正确的提示： 把Down属性设置成真值使加速按钮呈按下状态 把Enable属性设置成假值使加速按钮呈失效状态。例程中缺省的绘图工具是画线，因此应用程序开始时画线按钮呈按下状态。在应用程序中，常把一些功能相似的按钮放在一起，用户在同一时刻只能选择其中的一个按钮。当其它按钮按下时，原来被按下的按钮自动弹起，这些选择排它的按钮称为一组加速按钮。要使多个加速按钮成为一组，将这些按钮的GraphIndex属性设成相同的值。最简单的办法是在设计状态时，用鼠标选中各个加速按钮，然后设置GraphIndex值。有时用户按一个已经按下的按钮，希望该按钮能够弹起，这样没有任何按钮被按下，使用AllowAllup 属性可实现上述功能。对于一组加速按钮来讲，设置该组中任一按钮的AllowAllup可使这组的每一个按钮具有这种功能。Graphex程序中
