第10其他编程ppt课件.ppt

第10章 其他编程 第10章 其他编程 10.1 图形图像处理10.1.1画布的通用属性和方法 TCanvas Object（画布对象） 常用方法及功能 : （1）Arc方法 ▲语法： Arc(x1,y1,x2,y2,x3,y3,x4,y4:Integer) Arc方法在椭圆上画一段弧，椭圆由（x1,y1）、(x2,y2)两点所 确定的椭圆所决定。弧的起点是椭圆圆周和椭圆中心与(x3,y3) 连线的交点。弧矩形终点是椭圆周和椭圆中心与(x4,y4)连线的 交点，以逆时针方向画弧。 例如，以下的程序将在窗口中将在窗口中绘制一个圆弧： procedure TForm1.FormPaint(Sender:TObject); var R:TRect; begin R:=GetClientRect; Canvas.Arc(R.Left,R.Top,R.Right,R.Bottom,R.Right,R.Top, R.Left,R.Top); end; 10.1.1画布的通用属性和方法 （2）Chord方法 ▲语法： Chord(x1,y1,x2,y2,x3,y3,x4,y4:Integer) Chord方法连接椭圆上的两点，椭圆由（x1，y1）、 （x2，y2）两点所确定的矩形决定，（x3，y3）是始点， （x4，y4）是终点。 例如，在Form1窗体上放置一个按钮“连接椭圆上的两点”， 双击该按钮，输入下面的代码： procedure Tform1.Button1Click(Sender:TObject); var R:TRect; begin R:=GetClientRect; {Get coordinates of the current window.} Canvas.Chord(R.Left,R.Top,R.Right,R.Bottom,R.Right, R.Top,R.Left,R.Top); end; 10.1.1画布的通用属性和方法 Canvas类的Chord方法示例 10.1.1画布的通用属性和方法 （3）Brushcopy方法 ▲语法： Brushcopy(const Dest: TRect;Bitmap: Tbitmap; const Source TRect;Color:Tcolor) Brushcopy方法把位图的一部分复制到画布的某个矩形区域， 并用画笔的当前颜色替换位图的颜色。 ●Dest定义画布的一个矩形区域，该矩形用以填充位图， ●Bitmap定义位图； ●Source定义位图中的矩形区域，该区域上的位图将被复制； ●Color定义画笔中，用以替换位图的颜色。 10.1.1画布的通用属性和方法 （4）CopyRect方法 ▲语法： CopyRect(Dest:TRect;Canvas:TCanvas;SourceTRect) 此方法从另一个画布对象上复制部分图像到该画布。 ●Canvas表示复制画布， ●Source是源画布上要复制的图像区域， ●Dest表示目标画布上将接受复制图像的矩形区域。 10.1.1画布的通用属性和方法 （5）Draw方法 ▲语法： Draw(x,y:Integer;Graphic:Tgraphic) 此方法在画布给定的像素点坐标（x，y）处画由参数 Graphic所给的图像，该图像可以是位图、图标或元位图。 Tcanvas的其他方法列于表中。 10.1.1画布的通用属性和方法 2. Tpen Object（画笔对象） 用于在画布上绘制各种线段，该对象常用的属性有： l?????? Color：定义笔的颜色； l?????? Width：定义线段宽度； l Style：定义线段的各种类型，如表所示； 10.1.1画布的通用属性和方法 ● Mode：定义线段的颜色，取值如表所示。 10.1.1画布的通用属性和方法 3. Tbrush Object（画刷对象） 画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。Tbrush拥有一个画刷句柄(Hbrush)。画刷的颜色定义在Color属性中，画刷还有一个Bitmap属性，该属性只能在运行时得到，画刷可