WinAPI: PolyPolygon - 绘制一组多边形

最新推荐文章于 2022-10-27 12:45:02 发布

转载最新推荐文章于 2022-10-27 12:45:02 发布 · 208 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/319740

本文介绍了一个使用PolyPolygon函数绘制多个多边形的具体示例。通过定义点数组和每个多边形的顶点数量，可以轻松实现复杂图形的绘制。示例中包含了两个多边形的绘制代码及效果。

为什么80%的码农都做不了架构师？>>>

//声明:
PolyPolygon(
  DC: HDC;    {设备环境句柄}
  var Points; {点数组}
  var nPoints;{数组, 数组元素是每个多边形的顶点数}
  p4: Integer {多边形数, 也就是 nPoints 的元素数}
): BOOL;

 
 
 
 
 

 

 

  

//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  ps: array[0..9] of TPoint;
  pn: array[0..1] of Integer;
begin
  {多边形1:}
  ps[0].X := 50;
  ps[0].Y := 50;
  ps[1].X := 100;
  ps[1].Y := 50;
  ps[2].X := 125;
  ps[2].Y := 75;
  ps[3].X := 100;
  ps[3].Y := 100;
  ps[4].X := 50;
  ps[4].Y := 100;
  ps[5].X := 25;
  ps[5].Y := 75;
  {多边形2:}
  ps[6].X := 200;
  ps[6].Y := 25;
  ps[7].X := 300;
  ps[7].Y := 25;
  ps[8].X := 300;
  ps[8].Y := 125;
  ps[9].X := 200;
  ps[9].Y := 125;

  pn[0] := 6; {多边形1有6个顶点}
  pn[1] := 4; {多边形2有4个顶点}

  PolyPolygon(Canvas.Handle, ps, pn, 2);
end;

 
 
 
 
 

 

 

  
 
//效果图: