Delphi图形图像编程.docx
《Delphi图形图像编程.docx》由会员分享,可在线阅读,更多相关《Delphi图形图像编程.docx(18页珍藏版)》请在冰豆网上搜索。
![Delphi图形图像编程.docx](https://file1.bdocx.com/fileroot1/2023-8/4/142e67f6-146c-4a48-a2d7-329b1f4136d8/142e67f6-146c-4a48-a2d7-329b1f4136d81.gif)
Delphi图形图像编程
在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定义画布的一个矩形区域,该矩形用以填充位图,Bitmap定义位图;Source定义位图中的矩形区域,该区域上的位图
将被复制;Color定义画笔中,用以替换位图的颜色。
CopyRectCopyRect(Dest:
TRect;Canvas:
TCanvas;SourceTRect);
此方法从另一个画布对象上复制部分图像到该画布。
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:
arrayofTPrint);
Polygon方法在画布上绘制一系列的点,各点依次连成线,最后将首尾两点相接形成一个区域,并用当前笔刷填充此区域。
PolylinePolyline(Ports:
arrayofTPort);
Polyline方法在画布上用当前画笔绘制一系列的点,各点依次连成线。
StretchDrawStretchDraw(ConstRect:
TRcct:
Graphic:
TGraphic);
此方法在Rect参数指定的矩形内画一图像。
图像延伸改变大小以适应矩形。
RectangleRectangle(X1,y1,x2,y2:
Integer);
Rectangle方法在画布上用当前画刷绘制矩形,(x1,y1)是矩形的左上角,(x2,y2)是矩形的右下角。
RomlRectRomlRect((x1,y1,x2,y2,x3,y3,:
Integer);
DrawFocuseRect
DrawFocusRect(ConstRect:
TRect)
此方法绘制一矩形以指示此矩形获得焦点。
此方法是异或(XOR)函数,第二次调用时原有矩形将消失。
DrawFocuseRect绘制的矩形不能滚动。
要实现滚动功能则先调用此方法使矩形消失,待滚动过后重新绘制。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
5.1.2TpenObject(画笔对象)
应用程序常用TPen对象在画布上绘制各种线段,笔的颜色在Color属性中定义。
线段宽度在Width属性中定义。
Style属性定义了线段的各种类型,如表5.2:
表5.2Styled的取值及含义
━━━━━━━━━━━━━━━━━━━━━━
Style 含义
──────────────────────
PSolod画固定线段
PSDash画由下划线组成的线段
PSDot画由点组成的线段
PsDashDot画点划线
PsClear画双点划线
PsClear画看不见的线段
PsInsideFrame画边界的矩形线框
━━━━━━━━━━━━━━━━━━━━━━━
Mode属性定义线段的颜色。
可结合当前的颜色、屏幕颜色或它们反转值,对线段的颜色重新定义,但不改变Color属性。
详见表5.3。
表5.3Mode的取值及含义
━━━━━━━━━━━━━━━━━━━━━━━━━━━
Mode象素颜色
──────────────────────────
PmBlack黑色
PmWhite白色
PmNop不变
PmCopy使用Color属性中的颜色
PmNotCopy笔颜色的反转值
PmMergePenNot笔的颜色与屏幕颜色反转值的结合
PmNaskNotPen屏幕颜色与笔颜色
PmMergeNotPen屏幕颜色与笔颜色反转值的结合
━━━━━━━━━━━━━━━━━━━━━━━━━━━
5.1.3TBrushOBject(画刷对象)
画刷对象用以填充图形,如用画刷颜色或图案对矩形或椭圆进行填充。
TBrush拥有一个画刷句柄(HBrush)。
画刷的颜色定义在Color属性中。
画刷还有一个Bitmap属性,该属性只能在运行时得到,画刷可使用位图填充图形以产生特殊效果。
位图大小为8个象素点,高8个象素点宽。
Style属性定义了画刷填充图形的风格。
5.1.4TColor类型
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,则用当前设备描述表中逻辑调色板的次相近颜色匹配。
用WindowsAPI的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方法:
procedureTForm1.FormMouseDown(Sender:
TObject,Button:
TMouseButton;
Shift:
TShifState;X,Y:
Integer);
begin
Canvas.TextOut(X,Y,'Here!
');
end;
用户放松鼠标键时发生OnMouseUp事件。
该事件发生时,鼠标到达的对象并不一定是鼠标键按下时鼠标所在的对象。
例如,用户可在窗体之外画一条线段,(鼠标在窗体外,线段在窗体内)。
下面的代码可用鼠标绘制直线:
procedureTForm1.FormMouseDown(Sender:
TObject)
begin
Moveto(x,y);
end;
procedureTForm1.FormMouseUp(Sender:
Tobject)
begin
Lineto(X,Y);
end;
画直线时,用户只有在松开鼠标才能看见直线,对直线的变化不能进行实时观测。
这是因为鼠标移动时程序没有进行某种应。
Delphi定义了OnMouseMove事件来响应鼠标移动。
以下代码可使用户随时观测直线的变化:
procedureTForm1.FormMouseMove(Sender:
Tobject)
begin
Drowto(X,Y);
Moveto(origin);
end.
origin是起始点。
5.2.3绘图功能的实现
绘图软件常根据用户的要求改变绘图工具。
Graphex.dpr例程中,当用户按下某个按钮时,可选择绘图工具中的画笔或画刷,在程序类型说明部分定义了五种绘图工具。
type
TDrawingTool=(dtLine,dtRectangle,dtEllips,dtRoundRect,dtPolygon);
当选中某种按钮,则选中了相应的绘图工具,如:
procedureTForm1.LineButtonClick(Sender:
TObject);
begin
DrawingTool:
=dtLine;
end;
procedureTForm1.RectangleButtonClick(Sender:
TObject);
begin
DrawingTool:
=dtRectangle;
end;
procedureTForm1.EllipseButtonClick(Sender:
TObject);
begin
DrawingTool:
=dtEllipse;
end;
procedureTForm1.RoundRectButtonClick(Sender:
TObject);
begin
DrawingTool:
=dtRoundRect;
end;
procedureTForm1.PolygonButtonClick(Sender:
TObject);
begin
DrawingTool:
=dtPolygon;
end;
DrawShape过程定义了每种绘图工具的动作:
procedureTForm1.DrawShape(TopLeft,BottomRight:
TPoint;AMode:
TPenMode);
begin
withImage.Canvasdo
begin
Pen.Mode:
=AMode;
caseDrawingToolof
dtLine:
begin
MoveTo(TopLeft.X,TopLeft.Y);
LineTo(BottomRight.X,BottomRight.Y);
end;
dtRectangle:
Rectangle(TopLeft.X,TopLeft.Y,BottomRight.X,BottomRight.Y);
dtEllipse:
Ellipse(TopLeft.X,TopLeft.Y,BottomRight.X,BottomRight.Y);
dtRoundRect:
RoundRect(TopLeft.X,TopLeft.Y,BottomRight.X,BottomRight.Y,
(TopLeft.X-BottomRight.X)div2,(TopLeft.Y-BottomRight.Y)div2);
dtPolygon:
Polygon([Point(0,0),TopLeft,BottomRight]);end;
end;
end;
程序刚运行时,只有一个工具栏。
当用户单击画笔和画刷时,则出现相应的工具栏,如图5.4。
其代码如下:
procedureTForm1.PenButtonClick(Sender:
TObject);
begin
PenBar.Visible:
=PenButton.Down;
end;
procedureTForm1.BrushButtonClick(Sender:
TObject);
begin
BrushBar.Visible:
=BrushButton.Down;
end;
在设计绘图程序时,还要解决一些问题。
如为了在鼠标移动时能观测图形的变化,我们定义了OnMouseMove事件。
但会出现这样的现象,当鼠标进入绘图区时,用户未按下鼠标键,画布上却出现绘制的图形,这是我们不希望看到的。
其原因是没有对鼠标按钮是否按下进行判断。
因此在窗体对象中定义了drawing的域,当鼠标按钮按下时,drawing设置成真值。
只有drawing为真,鼠标移动才执行绘图功能;当鼠标键松开时,drawing设置成假,鼠标移动将不执行绘图动作。
另外一个问题是,我们希望得到的是鼠标按钮按下和松开这两点所形成的图形,但OnMouseMove却把鼠标轨迹上各点与起始点所形成的所有图形画在屏幕上,这同样是我们不希望看到的,为了解决这些问题,程序定义了鼠标的三个事件:
procedureTForm1.FormMouseDown(Sender:
TObject;Button:
TMouseButton;
Shift:
TShiftState;X,Y:
Integer);
begin
Drawing:
=True;
Image.Canvas.MoveTo(X,Y);
Origin:
=Point(X,Y);
MovePt:
=Origin;
OriginPanel.Caption:
=Format('Origin:
(%d,%d)',[X,Y]);
end;
procedureTForm1.FormMouseUp(Sender:
TObject;Button:
TMouseButton;
Shift:
TShiftState;X,Y:
Integer);
begin
ifDrawingthen
DrawShape(Origin,Point(X,Y),pmCopy);
Drawing:
=False;
end;
procedureTForm1.FormMouseMove(Sender:
TObject;Shift:
TShiftState;X,
Y:
Integer);
begin
ifDrawingthen
begin
DrawShape(Origin,MovePt,pmNotXor);
MovePt:
=Point(X,Y);
DrawShape(Origin,MovePt,pmNotXor);
end;
MovePt用来记录鼠标当前位置。
当下次鼠标移动时,就能在上次鼠标绘制的图形上画一个形状、大小一样的图形,并把画笔颜色设置成PmNotXor,使上次绘制的图形颜色变成了屏幕颜色,从而达到“橡皮擦”的效果。
将画笔、画刷的Style属性设置成用户希望的值,可实现对画笔和画刷风格的选择。
procedureTForm1.SetBrushStyle(Sender:
TObject);
begin
withImage.Canvas.Brushdo
begin
ifSender=SolidBrushthenStyle:
=bsSolid
elseifSender=ClearBrushthenStyle:
=bsClear
elseifSender=HorizontalBrushthenStyle:
=bsHorizontal
elseifSender=VerticalBrushthenStyle:
=bsVertical
elseifSender=FDiagonalBrushthenStyle:
=bsFDiagonal
elseifSender=BDiagonalBrushthenStyle:
=bsBDiagonal
elseifSender=CrossBrushthenStyle:
=bsCross
elseifSender=DiagCrossBrushthenStyle:
=bsDiagCross;
end;
procedureTForm1.SetPenStyle(Sender:
TObject);
begin
withImage.Canvas.Pendo
begin
ifSender=SolidPenthenStyle:
=psSolid
elseifSender=DashPenthenStyle:
=psDash
elseifSender=DotPenthenStyle:
=psDot
elseifSender=DashDotPenthenStyle:
=psDashDot
elseifSender=DashDot