Delphi 图像 Canvas ...绘制一个区域(三角形、矩形、多边形)

Question

我在 Canvas 上有可变数量的点。有时是四次，有时是 3 分，或者 6 分。有没有一个函数可以绘制里面的区域？

感谢您的帮助。

Answer 1

使用TCanvas.Polygon功能。声明一个 TPoint 的数组，将其长度设置为点的数量，指定每个点的坐标(可以选择修改 Canvas 笔和/或画笔)并将此数组传递给 TCanvas.Polygon功能。就像这个无聊的例子一样:

procedure TForm1.Button1Click(Sender: TObject);
var
  Points: array of TPoint;
begin
  SetLength(Points, 3);
  Points[0] := Point(5, 5);
  Points[1] := Point(55, 5);
  Points[2] := Point(30, 30);
  Canvas.Pen.Width := 2;
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Color := clYellow;
  Canvas.Polygon(Points);
end;

它的样子是这样的: