WinAPI: PolyBezier - 绘制贝塞尔线

最新推荐文章于 2021-02-15 21:55:59 发布

weixin_33805992

最新推荐文章于 2021-02-15 21:55:59 发布

阅读量125

点赞数

CC 4.0 BY-SA版权

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

本文介绍了一个使用PolyBezier函数绘制贝塞尔曲线的例子，并展示了如何通过指定点数组来创建平滑的曲线。通过两个实例演示了如何在Delphi中利用PolyBezier函数绘制不同形态的贝塞尔曲线。

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

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

 
 
 
 
 

 

 

  

//一条贝塞尔线最少要有 4 个点
procedure TForm1.FormPaint(Sender: TObject);
var
  ps: array[0..3] of TPoint;
begin
  ps[0].X := 10;
  ps[0].Y := 50;
  ps[1].X := 40;
  ps[1].Y := 90;
  ps[2].X := 80;
  ps[2].Y := 10;
  ps[3].X := 110;
  ps[3].Y := 50;
 
  PolyBezier(Canvas.Handle, ps, 4);

  Ellipse(Canvas.Handle, ps[0].X, ps[0].Y, ps[0].X+4, ps[0].Y+4);
  Ellipse(Canvas.Handle, ps[1].X, ps[1].Y, ps[1].X+4, ps[1].Y+4);
  Ellipse(Canvas.Handle, ps[2].X, ps[2].Y, ps[2].X+4, ps[2].Y+4);
  Ellipse(Canvas.Handle, ps[3].X, ps[3].Y, ps[3].X+4, ps[3].Y+4);
end;

 
 
 
 
 

 

 

  
 
//效果图:

//连续的贝塞尔线会把前一个终止点当作起始点
procedure TForm1.FormPaint(Sender: TObject);
var
  ps: array[0..6] of TPoint;
begin
  ps[0].X := 10;
  ps[0].Y := 50;
  ps[1].X := 40;
  ps[1].Y := 90;
  ps[2].X := 80;
  ps[2].Y := 10;
  ps[3].X := 110;
  ps[3].Y := 50;
  
  ps[4].X := 140;
  ps[4].Y := 10;
  ps[5].X := 180;
  ps[5].Y := 90;
  ps[6].X := 210;
  ps[6].Y := 50;
  
  PolyBezier(Canvas.Handle, ps, 7);
end; 
//效果图: