WinAPI: Polyline - 绘制一组连续线段

最新推荐文章于 2024-07-03 21:44:20 发布

weixin_34293246

最新推荐文章于 2024-07-03 21:44:20 发布

阅读量257

点赞数

CC 4.0 BY-SA版权

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

本文介绍了一个使用Polyline函数绘制连续直线的例子，并展示了如何通过定义点数组来实现特定图形的绘制。此示例有助于理解Polyline与Polygon函数的区别及应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

//声明:
Polyline(
  DC: HDC;       {设备环境句柄}
  var Points;    {点数组}
  Count: Integer {数组元素个数}
): BOOL;

{Polyline 与 Polygon 的参数一模一样, 但 Polygon 能自动闭合}

 
 
 
 
 

 

 

  

//绘制连续直线 Polyline
procedure TForm1.FormPaint(Sender: TObject);
var
  ps: array[0..5] of TPoint;
begin
  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;

  Polyline(Canvas.Handle, ps, 6);
end;

 
 
 
 
 

 

 

  

//效果图: