第五节Delphi图形图像编程.pdf

在Delphi中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用

这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同

风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。

本章将介绍以下内容：

1.TCanvas,TPen,TBrush,TColor对象的方法及属性；

2.绘图功能的实现；

3.TImage,TPicture,TBitBtn,TBitmap部件的方法及属性；

4.图像观测及处理。

Graphex.dpr是一个简单的图形图像应用程序，是对以上这些对象和组件的具体应用。

本章将结合此程序进行讲述。

5.1图形对象概述

5.1.1TCanvasObject(画布对象)

TCanvas对象是一个用于绘图的表面，在这个区域上，程序可实现各种绘图功能，很多

部件(如TIMage,TMemo)的Canvas属性就是TCanvas对象。在部件上绘制图形就是在部件的

画布上绘制。TCanvas的Brush,Pen,Font属性分别是TBrush,TPen,TFont对象，它们用于

定义绘制图形的风格。关于TBrush,TPen对象，下节中将详细介绍。

画布的笔的位置定义在PenPos属性中，可用MoveTo方法来移动笔。如果要在画布上输

出文本，可用Textout方法。

TCanvas有对象很多方法，可完成常用的绘图功能，现将方法及功能简介如表5.1：

表5.1TCanvas对象的方法

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

方法名称形式及说明

───────────────────────────────────────

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(constDest:TRect;Bitmap:TBitmap;constSourceTRect;

Color:TColor);

Brushcopy方法把位图的一部分复制到画布的某个矩形区域，并用画笔

的当前颜色替换位图的颜色。参数Dest定义画布的一个矩形区域，该矩形用以填充位图，B

itmap定义位图；Source定义位图中的矩形区域，该区域上的位图

将被复制；Color定义画笔中，用以替换位图的颜色。

CopyRectCopyRect(Dest:TRect;Canvas:TCanvas;SourceTRect);

此方法从另一个画布对象上复制部分图像到该画布。Canvas表示源画布，Source是源画布

上要复制的图像区域。Dest表示目标画布上将接受复制

图像的矩形区域。

DrawDraw(x,y:Integer;Graphic:TGraphic)；

此方法在画布给定的象素点坐标(x,y)处画Graphic所给的图像，该图像可以

是位图,图标或元位图。

EipsEips(x1,y1,x2,y2:Integer);

Eips方法在画布指定的矩形边界上画一个椭圆，(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