procedure TForm1.Button1Click(Sender: TObject);
begin PaintBox1.Canvas.brush.Color := clRed;
PaintBox1.Canvas.FillRect(PaintBox1.Canvas.ClipRect);
PaintBox1.Canvas.Ellipse(0,0,200,200);end;
PaintBox1.Canvas.Ellipse(0,0,200,200);里面(0,0,200,200)是干什么意思?
谢谢!~
begin PaintBox1.Canvas.brush.Color := clRed;
PaintBox1.Canvas.FillRect(PaintBox1.Canvas.ClipRect);
PaintBox1.Canvas.Ellipse(0,0,200,200);end;
PaintBox1.Canvas.Ellipse(0,0,200,200);里面(0,0,200,200)是干什么意思?
谢谢!~
原型如下:
procedure Ellipse(X1, Y1, X2, Y2: Integer); overload;即在画布上画个以左上角象素点坐标(x1,y1)和右下角点为(x2,y2)的椭圆.