|
DELPHI基础教程
第五章 Delphi图形图像编程（一）
在 Delphi 中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。 本章将介绍以下内容： 1. TCanvas,TPen,TBrush,TColor 对象的方法及属性； 2. 绘图功能的实现； 3. TImage,TPicture,TBitBtn,TBitmap 部件的方法及属性； 4. 图像观测及处理。 Graphex.dpr 是一个简单的图形图像应用程序，是对以上这些对象和组件的具体应用。本章将结合此程序进行讲述。 5.1 图形对象概述 5.1.1 TCanvas Object( 画布对象 ) TCanvas 对象是一个用于绘图的表面，在这个区域上，程序可实现各种绘图功能，很多部件 ( 如 TIMage,TMemo) 的 Canvas 属性就是 TCanvas 对象。在部件上绘制图形就是在部件的画布上绘制。 TCanvas 的 Brush,Pen,Font 属性分别是 TBrush,TPen,TFont 对象，它们用于定义绘制图形的风格。关于 TBrush,TPen 对象，下节中将详细介绍。 画布的笔的位置定义在 PenPos 属性中，可用 MoveTo 方法来移动笔。如果要在画布上输出文本，可用 Textout 方法。 TCanvas 有对象很多方法，可完成常用的绘图功能，现将方法及功能简介如表 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) 是终点。 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) 是矩形的右下角。 RomlRect RomlRect((x1,y1,x2,y2,x3,y3, : Integer); DrawFocuseRect DrawFocusRect(Const Rect : TRect) 此方法绘制一矩形以指示此矩形获得焦点。此方法是异或 (XOR) 函数，第二次调用时原有矩形将消失。DrawFocuseRect绘制的矩形不能滚动。要实现滚动功能则先调用此方法使矩形消失，待滚动过后重新绘制。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 5.1.2 Tpen Object( 画笔对象 ) 应用程序常用 TPen 对象在画布上绘制各种线段，笔的颜色在 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 白色 PmNop 不变 PmCopy 使用 Color 属性中的颜色 PmNotCopy 笔颜色的反转值 PmMergePenNot 笔的颜色与屏幕颜色反转值的结合 PmNaskNotPen 屏幕颜色与笔颜色 PmMergeNotPen 屏幕颜色与笔颜色反转值的结合 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 5.1.3 TBrush OBject( 画刷对象 ) 画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。 TBrush 拥有一个画刷句柄 (HBrush) 。 画刷的颜色定义在 Color 属性中。画刷还有一个 Bitmap 属性，该属性只能在运行时得到，画刷可使用位图填充图形以产生特殊效果。位图大小为 8 个象素点，高 8 个象素点宽。 Style 属性定义了画刷填充图形的风格。 5.1.4 TColor 类型
TColor 类型用于定义一个对象的颜色。很多部件的颜色属性就是 TColor 类型， 在 Graphics 单元中 TColor 定义如下：
TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFF;
这是一个 32 位二进制数据。 Graphic 单元中还定义了一些常用的颜色常量，这些常量或直接映射成系统调色板中最相近的颜色，或映射成 Wondows 控制面板中颜色部分的系统视频颜色。 直接映射成系统调色板中的颜色有： ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa......ClYellow 映射程序用 4 字节的二进制码来定义颜色，低 3 位字节代表 RGB 相应的颜色，如 $00FF0000 表示纯蓝， $0000FF00 表示纯绿， $000000FF 表示纯红， $00000000 表示黑色， $00FFFFFF 表示白色。如果最高位字节是 $00, 则表示用系统调色板中最相近的颜色；最高位字节是 $01 ，则表示用当前调色板中最相近的颜色匹配；最高位字节是 $02 ，则用当前设备描述表中逻辑调色板的次相近颜色匹配。 用 Windows API 的 SelectPalette 函数可创建逻辑调色板，要实现逻辑调色板到硬件调色板的映射，需用函数 RealizePalett 5.2 图形程序的开发 Graphex.dpr 是一个简单的图形图像应用程序，运行状态如图 5.2 。该程序可用鼠标绘制多种图形，可设置画笔颜色、画刷填充方式；另外还可以浏览位图、元文件、图标，改变它们的大小，并打印。本节结合例程讲述以下问题： ● 在工具条中添加加速按钮 ● 响应鼠标事件 ● 设置画笔和画刷 ● 实现绘图的“橡皮擦”功能 ● 加入状态条 5.2.1 在工具条中添加加速按钮 加速按钮是应用程序常用的部件，它是替代菜单的快捷形式，通常把多个加速按钮集中在一个工具条中以方便使用。 Graphex 中有三个工具条，它们是 TPancel 部件，面板上有几组加速按钮，用以设置绘图方式、画笔、画刷。 每个加速按钮的 glyph 属性是图像对象，位图对象用来指示该按钮是否被使用。 glyph 通常需要四幅图像，分别表示按下、不按、选择、失效四种状态。程序员可根据个人喜好来选择图像。 加速按钮使用图像来告诉用户其状态和目的，因为按钮上无标题， 因此应给用户正确的提示： ● 把 Down 属性设置成真值使加速按钮呈按下状态 ● 把 Enable 属性设置成假值使加速按钮呈失效状态。 例程中缺省的绘图工具是画线，因此应用程序开始时画线按钮呈按下状态。 在应用程序中，常把一些功能相似的按钮放在一起，用户在同一时刻只能选择其中的一个按钮。当其它按钮按下时，原来被按下的按钮自动弹起，这些选择排它的按钮称为一组加速按钮。 要使多个加速按钮成为一组，将这些按钮的 GraphIndex 属性设成相同的值。最简单的办法是在设计状态时，用鼠标选中各个加速按钮，然后设置 GraphIndex 值。 有时用户按一个已经按下的按钮，希望该按钮能够弹起，这样没有任何按钮被按下，使用 AllowAllup 属性可实现上述功能。对于一组加速按钮来讲，设置该组中任一按钮的 AllowAllup 可使这组的每一个按钮具有这种功能。 Graphex 程序中设计了三组加速按钮和两个单独的加速按钮。 第一组加速按钮用来选择绘图工具，它与两个单独的按钮处在同一面板中，这个面板是缺省可见的。另外两个按钮分别代表画笔、画刷。第二组与第三组加速按钮处在两个缺省不可见的面板中，它们分别代表不同风格的画笔和画刷，只有按下第一个面板中的画笔 ( 或画刷 ) 按钮，第二 ( 或第三 ) 个面板才会显示，这样用户就可以选择画笔、画刷了。 5.2.2 响应鼠标事件 鼠标常被用作绘图的工具，应用程序利用鼠标位置的变化来绘制各种不同的图形。鼠标有三个动作：鼠标按钮按下、鼠标移动、鼠标按钮弹起。在 Delphi 中， 对应三个动作有三个不同的事件： OnMouseDown,OnMouseMove,OnMouseUp 。 当 Dlephi 应用程序探测到一个鼠标动作时，它传递五个参数，并调用相应的事件响应。 程序员可利用这些参数来定义事件程序。五个参数如下表 5.4 ： 表 5.4 鼠标事件的五个参数 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 参数 含义 ────────────────────────── Sender 探测鼠标动作的对象 Button 涉及的鼠标按钮：左键，中键，右键 Shift 鼠标动作时， Alt,Ctrl,Shift 按钮的状态 X,Y 事件发生时鼠标的坐标 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 当鼠标按下时发生 OnMouseDown 事件。举一个简单例子来说明程序如何对该事件进 行响应。假如我们想在鼠标按下的地方出现 "Here" 。 响应鼠标的 OnMouseDown 事件 可在该事件中调用 TextOut 方法： procedure TForm1.FormMouseDown(Sender: TObject,Button: TMouseButton; Shift : TShifState; X,Y : Integer); begin Canvas.TextOut(X, Y, 'Here!'); end; 用户放松鼠标键时发生 OnMouseUp 事件。该事件发生时，鼠标到达的对象并不一定是鼠标键按下时鼠标所在的对象。例如，用户可在窗体之外画一条线段， ( 鼠标在窗体外，线段在窗体内 ) 。下面的代码可用鼠标绘制直线： procedure TForm1.FormMouseDown(Sender:TObject) begin Moveto(x,y); end;
procedure TForm1.FormMouse Up(Sender:Tobject) begin Lineto(X, Y); end; |