Delphi程序设计教程-第10章-画布.ppt

第10章画布;10.1画布(Tcanvas); 10.1.2根本的绘图功能

在画布上作画，可以利用Delphi提供的绘图工具进行。对画笔、笔刷都可以视为一个个的对象，修改属性就可以完成这些操作。利用这些工具就取代编程的繁琐工作，轻松容易地画出所需要的图像。当然，也需要有一些编程工作，但Delphi已完成了所有的方法，直接调用即可。因此在使用时，只要熟悉这些对象的定义方法就可以了，如LineTo、MoveTo、……、等。;10.2常用的绘图指令; 10.2.2画点

画点使用Pixels属性，设置点的颜色，就可以在指定的位置画一个点。

10.2.3画直线

1.画一条直线

调用LineTo方法，从当前位置到指定的(x,y)位置画直线，其语法格式为：

Canvas.LineTo(x,y);; 2.画多直线

调用PolyLine方法，把提供的点一点一点地连接起来，画一系列的直线，其语法格式为： Canvas.PolyLine([Point(x1,y1),Point(x2,y2),Point(x3,y3),…]);;10.2.4画曲线

1.画圆弧

调用Arc方法，可画圆弧，其语法格式为：

Canvas.Arc(X1,Y1,X2,Y2,X3,Y3,X4,Y4);

Arc方法用指定矩形的椭圆周画圆弧，其中(X1,Y1)、(X2,Y2)定义矩形，圆弧以(X3,Y3)为起点，逆时针到(X4,Y4)点结束。; 2.画弦

调用Chord方法，可画弦，其语法格式为：

Canvas.Chord(X1,Y1,X2,Y2,X3,Y3,X4,Y4);

Chord方法用指定矩形的画弦，其中(X1,Y1)、(X2,Y2)定义矩形，弦以(X3,Y3)为起点，逆时针到(X4,Y4)点结束。

3.画椭圆

调用Ellipse，可画椭圆，其语法格式为：

Canvas.Ellipse(X1,Y1,X2,Y2);

Ellipse方法以(X1,Y1)和(X2,Y2)所确定的矩形画椭圆。假设(X1,Y1)和(X2,Y2)所确定的为正方形，那么画出的就是圆。; 10.2.5画多边形

1.画矩形

调用Rectangle方法，画矩形，其语法格式为：

Canvas.Rectangle(X1,Y1,X2,Y2);

其中(X1,Y1)为矩形的左上角，(X2,Y2)为右下角。在画矩形时，使用当前的笔刷(Brush)与画笔(Pen)属性。

2.画圆角矩形

调用RoundRect方法，画圆角矩形，其语法格式为：

Canvas.RoundRect(X1,Y1,X2,Y2,X3,Y3);

其中(X1,Y1)为矩形的左上角，(X2,Y2)为右下角。矩形圆角为宽为X3,高为Y3的椭圆的1/4。

; 3.画多边形

调用Polygon方法，画由一系列点定义的多边形，其语法格式为： Canvas.Polygon([Point(x1,y1),Point(x2,y2),Point(x3,y3),…]);

其中(Xi,Yi)为多边形的顶点。; 10.2.6画饼图

调用Pie方法，画饼图，其语法格式为：

Canvas.Pie(X1,Y1,X2,Y2,X3,Y3,X4,Y4);

Pie方法画由(X1,Y1)及(X2,Y2)确定的椭圆，从椭圆的中心经(X3,Y3)到椭圆的中心经(X4,Y4)的饼图。

10.2.7输出文本

调用TextOut方法输出文本，其语法格式为：

Canvas.TextOut(X,Y,Text);

其中(X,Y)文本输出的左上角坐标，Text为输出的文本。输出时使用当前的字体。