求任意多边形的填充算法及代码(200分)(200分)

  • 主题发起人 主题发起人 notgirl
  • 开始时间 开始时间
N

notgirl

Unregistered / Unconfirmed
GUEST, unregistred user!
给出多边形的顶点数组,可以得到用颜色填充的多边形。
 
一.設置Canvas.Brush.Color.
二.利用Canvas.Polygon繪制多邊形.示例:
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Brush.Color:=clRed;
Canvas.Polygon([Point(0,0),Point(100,0),Point(100,100),Point(0,100)]);
end;
 
to smokingroom:
不是这样解决。不使用canvas属性的这些功能。调用opengl或者其他,采用一些剖分
等类似的方法解决。
 
可以用 polygon 他的用法是这样的
Canvas.Brush.Color := clRed;
Canvas.Polygon([Point(10, 10), Point(30, 10),
Point(130, 30), Point(240, 120)]);
颜色可设为你喜欢的,顶点怎么设,不用我说了吧!

 
点位判断算法
很经典的
 
后退
顶部