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

//声明:

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;


 
   




//效果图:

---