WinAPI: PolyBezierTo - 绘制贝塞尔线(更新当前位置)

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

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

 
 
 
 
 

 

 

  

//需要给 PolyBezierTo 指定起始点
procedure TForm1.FormPaint(Sender: TObject);
var
  ps: array[0..2] of TPoint;
begin
  ps[0].X := 40;
  ps[0].Y := 110;
  ps[1].X := 80;
  ps[1].Y := 30;
  ps[2].X := 110;
  ps[2].Y := 70;
 
  MoveToEx(Canvas.Handle, 10,70, nil);
  PolyBezierTo(Canvas.Handle, ps, 3);
end;

 
 
 
 
 

 

 

  
 
//效果图:

---

//PolyBezierTo 会更新当前位置
procedure TForm1.FormPaint(Sender: TObject);
var
  ps: array[0..2] of TPoint;
begin
  ps[0].X := 40;
  ps[0].Y := 110;
  ps[1].X := 80;
  ps[1].Y := 30;
  ps[2].X := 110;
  ps[2].Y := 70;
 
  MoveToEx(Canvas.Handle, 10,70, nil);
  PolyBezierTo(Canvas.Handle, ps, 3);

  {PolyBezierTo 已更新当前位置, 继续画}
  LineTo(Canvas.Handle, 110,10);
  LineTo(Canvas.Handle, 10,10);
  LineTo(Canvas.Handle, 10,70);
end;

 
 
 
 
 

 

 

  

//效果图:

---

转载于:https://my.oschina.net/hermer/blog/319120