3. 画圆或椭圆的方法
4. 画弧形曲线的方法 5. 圆角矩形
【例12-3】使用Canvas属性基本作图方法,画出如图12-4所 示的图形。
对窗体1的paint事件编码如下,即可实现。
procedure TForm1.FormPaint(Sender: TObject);
begin canvas.pen.color:=clred; with canvas do
begin moveto(10,10); lineto(100,100); pen.color:=clblue; rectangle(110,10,200,100); pen.color:=clolive; ellipse(210,10,400,100); pen.color:=clteal; roundrect(410,10,500,100,50,50); pen.color:=clblack; arc(120,200,320,300,120,200,320,200); pen.color:=clgreen; polyline([Point(420,200),Point(380,300),Point(480,240),Point(360 ,240),Point(460,300),Point(420,200)]); end; end;
12.3.3 画刷操作
画布的画刷(Brush)属性决定图形内部区域的填充方式。 1. 画刷的属性
(1) 颜色属性(Color)。
Canvas.Brash.Color: =〈属性值〉 (2) 风格属性(Style)。 (3) 位图属性。 2. 作图区域 作图区域 Rect是Trect属性的对象,同时也是一个函数。 Rect 对象的作用就是定义一个矩形区域对象。 Rect 对象用两个 Tpoint类型或用四个整形变量指明区域范围。