Delphi绘图TCanvas类[1]的成员及参数介绍

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

Delphi 绘图TCanvas类[1] 的成员及参数介绍

1、过程:

Arc　　　　　 //绘制弧线　　例如：Canvas.Arc(左边，上边，宽度，高度，宽度，开始坐标点，宽度，终止坐标点 );
BrushCopy　　//画刷复制　　原型：Canvas.BrushCopy(目标区域，Bitmap图，原资源区域; 画刷颜色);
Chord　　　　 //绘制弦　　例如：Canvas.Chord(左边，上边，宽度，高度，宽度，开始坐标点，宽度，终止坐标点 );
CopyRect　　 //复制区域　　例如：Canvas.CopyRect(目标区域，画布，原区域) 即例如：A.Canvas.CopyRect(A目标区域，B画布，B原区域) 即A区域复制B区域的图像
Draw　　　　 //绘制　　原型：TCanvas.Draw(X, Y: Integer; Graphic: TGraphic);
DrawFocusRect　　//绘制焦点矩形（周边虚线）　　例如：Canvas.DrawFocusRect(左边, 上边, 宽度, 高度);
Ellipse　　　　　　//绘制椭圆　　例如：Canvas.Ellipse(左边, 上边, 宽度, 高度);
FillRect　　　　　 //填充指定区域　　原型：TCanvas.FillRect(const Rect: TRect);
FloodFill　　　　 //洪水填充、批量填充　　原型：TCanvas.FloodFill(X, Y: Integer; Color: TColor;FillStyle: TFillStyle);
FrameRect　　//绘制矩形描边（白色）　　例如：Canvas.FrameRect(左边, 上边, 宽度, 高度);
LineTo　　　　//在画布上从PenPos到X和Y指定的点绘制一条线，并将笔位置设置为（X，Y），相当于设置终点坐标.　　原型：TCanvas.LineTo(X, Y: Integer);
Lock
MoveTo　　　//将当前图形位置更改为点（X，Y），相当于设置起点坐标. 　　原型：TCanvas.MoveTo(X, Y: Integer);
Pie　　　　　//绘制扇形　　例如：Canvas.Pie(左边，上边，宽度，高度，宽度，开始坐标点，宽度，终止坐标点 );
Polygon　　//绘制多边形（含内部）参数是一个点数组例如：const Pst: array[0..3] of TPoint = ( (x:10; y:10), (x:20; y:100), (x:80; y:40),(x:40; y:10) ); Canvas.Polygon(Pst);
Polyline　　//绘制多边形（线）参数是一个点数组，同上
PolyBezier　　//绘制多点线
PolyBezierTo　//绘制多点线
Rectangle　　//绘制矩形例如： Canvas.Rectangle(左边, 上边, 宽度, 高度);
Refresh
RoundRect　　//绘制圆角矩形例如：Canvas.RoundRect(左边, 上边, 宽度, 高度, 20,20); //参数20 是圆角值
StretchDraw　　//拉申 + 绘制原型：TCanvas.StretchDraw(const Rect: TRect; Graphic: TGraphic);
TextOut　　 //文本输出　　例如：Canvas.TextOut(x, y, 文本内容); //x y 为坐标
TextRect　　//以画布形式在指定区域输出文本　　例如:var R:TRect= (Left:0;Top:0;Right:50;Bottom:50); Canvas.TextRect(R, 10, 10, 文本);
Unlock

示例1：（绘制一条红色的直线）

//绘制一条直线
Canvas.Pen.Color := clRed; {设置画笔颜色}
Canvas.Pen.Width := 3;     {设置画笔宽度} 
Canvas.MoveTo(5,10);      {设置起点坐标}
Canvas.LineTo(5,100); 　　 {设置终点坐标}

示例2：（在移动鼠标时从窗体的左上角到鼠标位置绘制一条线，“橡皮筋”效果）

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 //调用FillRect来绘制窗体的表面，相当于删除之前绘制的任何线条
  Canvas.FillRect(ClientRect);
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(X, Y);
end;

2、函数: