WinAPI: Polyline - 绘制一组连续线段
WinAPI: Polyline - 绘制一组连续线段
涂孟超 发表于3年前
WinAPI: Polyline - 绘制一组连续线段
  • 发表于 3年前
  • 阅读 2
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 新注册用户 域名抢购1元起>>>   

//声明:
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;
//效果图:

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: