Delphi图形图像处理.pptVIP

Delphi图形图像处理 讲解人：汤磊 2008-07-28 内容提要 在Delphi中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。 讲解要点 一.画布技术 （1）TCanvas Object(画布对象) （2）TBrush Object(画刷对象) （3）TPen Object(画笔对象) （4）TColor Object(颜色对象) 二.图形图像控件 （1）Image组件 （2）Shape组件 （3）PaintBox组件 三.图像对象概述 （1）TGraphic对象 （2）TPicture对象 （3）TImage部件 （4）TBitmap Object(位图对象) 四.案例 （1）放大图片 （2）图片倒置 （3）正弦曲线 一.画布技术1.1. TCanvas Object(画布对象) TCanvas对象是一个用于绘图的表面，在这个区域上，程序可实现各种绘图功能，很多部件(如TIMage,TMemo)的Canvas属性就是TCanvas对象。在部件上绘制图形就是在部件的画布上绘制。TCanvas的Brush,Pen,Font属性分别是TBrush,TPen,TFont对象，它们用于定义绘制图形的风格。关于TBrush,TPen对象，下节中将详细介绍。 TCanvas有对象很多方法，可完成常用的绘图功能，现将方法及功能简介如下： 画一段弧线 Arc(x1,y1,x2,y2,x3,y3,x4,y4 : Integer); 　Arc方法在椭圆上画一段弧，椭圆由(x1,y1),(x2,y2) 两点所确定的椭圆所决定。弧的起点是椭圆圆周和椭圆中心与(x3,y3)连线的交点。弧矩形终点是椭圆圆周和椭圆中心与(x4,y4)连线的交点，以逆时针方向画弧。 Chord(x1,y1,x2,yx,x3,y3,x4,y4 : Integer); 见例子 复制位图 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(x,y : Integer); LineTo从当前位置画一条线至(x,y)所指定的位置，并把笔的位置移至(x ,y)。 MoveTo(x,y : Integer); MoveTo 将笔的当前位置设置到点(x,y)处，笔的当前位置在PenPos属性中，改变笔的当前位置使用MoveTo方法 把点连成线 Polygon Polygon(Points : array of TPrint); Polygon方法在画布上绘制一系列的点，各点依次连成线，最后将首尾两点相接形成一个区域，并用当前笔刷填充此区域。 Polyline Polyline(Ports : array of TPort); Polyline方法在画布上用当前画笔绘制一系列的点，各点依次连成线。 见例子 画矩形 StretchDraw StretchDraw(Const Rect : TRcct : Graphic : TGraphic