• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi绘图对象

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

来自:http://blog.csdn.net/lailai186/article/details/8755430

================================================

Delphi  TCanvas,TPen,TBrush,TColor  绘图对象

在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对象的方法

方法

说明

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)是矩形的右下角

DrawFocusRect

DrawFocusRect(Const Rect : TRect);

此方法绘制一矩形以指示此矩形获得焦点。此方法是XOR(异或)函数,第二次调用时原有矩形将消失。DrawFocusRect绘制的矩形不能滚动。要实现滚动功能则先调用此方法使矩形消失,待滚动过后重新绘制

 

4.4.2 TPen——画笔对象

应用程序常用TPen对象在画布上绘制各种线段,笔的颜色在Color属性中定义。线段宽度在Width属性中定义。

1. Style属性

Style属性定义了线段的各种类型,见表4.3。

表4.3 Style属性的取值及含义

Style属性

含义

PsSolid

画固定线段

PsDash

画由虚线组成的线段

PsDot

画由点组成的线段

PsDashDot

画点划线

PsDashDotDot

画双点划线

PsClear

画看不见的线段

PsInsideFrame

画边界的矩形线框

 

2. Mode属性

Mode属性定义线段的颜色。可结合当前的颜色、屏幕颜色或它们的反转值,对线段的颜色重新定义,但不改变Color属性,详见表4.4。

表4.4 Mode属性的取值及含义

 

Mode属性

像素颜色

PmBlack

黑色

PmWhite

白色

PmNop

不变

PmCopy

使用Color属性中的颜色

PmNotCopy

笔颜色的反转值

PmMergePenNot

笔颜色与屏幕颜色反转值的结合

PmNaskNotPen

屏幕颜色与笔颜色的结合

PmMergeNotPen

屏幕颜色与笔颜色反转值的结合

 

4.4.3 TBrush——画刷对象

画刷对象用以填充图形,如用画刷颜色或图案对矩形或椭圆进行填充。TBrush拥有一个HBrush(画刷句柄)。

画刷的颜色定义在Color属性中。画刷还有一个Bitmap属性,该属性只能在运行时得到,画刷可使用位图填充图形以产生特殊效果。位图大小为8个像素点高,8个像素点宽。

Style属性定义了画刷填充图形的图案,如图4.8所示为Style的取值。

取值 图案 取值 图案

图4.8 画刷的类型

4.4.4 TColor——颜色对象

TColor类型用于定义对象的颜色。很多组件的颜色属性就是TColor 类型, 在Graphics单元中TColor定义如下:

TColor = -$7FFFFFFF-1..$7FFFFFFF;

这是一个32位二进制数据。Graphic单元中还定义了一些常用的颜色常量,这些常量或直接映射成系统调色板中最相近的颜色,或映射成Windows控制面板中颜色部分的系统视频颜色。

直接映射成系统调色板中的颜色有:

ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa,...,ClYellow

映射程序用4字节的二进制码来定义颜色,低3位字节代表RGB相应的颜色,如$00FF0000表示纯蓝,$0000FF00表示纯绿,$000000FF表示纯红,$00000000表示黑色,$00FFFFFF表示白色。如果最高位字节是$00,则表示用系统调色板中最相近的颜色;最高位字节是$01,则表示用当前调色板中最相近的颜色匹配;最高位字节是$02,则表示用当前设备描述表中逻辑调色板的次相近颜色匹配。

此外,还有一类颜色,比如:

ClBackground,CLActiveCaption,clInactiveCaption,clMenu…

它们分别表示当前Windows桌面的背景色、当前活动窗体的标题栏的颜色、当前非活动窗体的标题栏颜色以及当前菜单的背景色等。用这些颜色属性,可以方便地写出与当前Windows相容的应用程序,而不会出现程序在某个Windows风格中显得特别扎眼的情况。

用Windows API的SelectPalette函数可创建逻辑调色板,要实现逻辑调色板到硬件调色板的映射,需用RealizePalette函数。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
DELPHI判断文件夹是否存在,并创建发布时间:2022-07-18
下一篇:
zw版【转发· 台@@湾 nvp系列Delphi例程】HALCONZoomImageFactor发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap