WinAPI: Pie - 绘制饼图

//声明:

Pie(

  DC: HDC;                                {设备环境句柄}

  X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点}

): BOOL;


 
   




//举例:

procedure TForm1.FormPaint(Sender: TObject);

const

  x1 = 10;

  y1 = 10;

  x2 = 200;

  y2 = 200;

  x3 = 130;

  y3 = 200;

  x4 = 160;

  y4 = 10;

begin

  Canvas.TextOut(x1,y1, '第一点');

  Canvas.TextOut(x2,y2, '第二点');

  Canvas.TextOut(x3,y3, '第三点');

  Canvas.TextOut(x4,y4, '第四点');

  

  Pie(Canvas.Handle, x1,y1, x2,y2, x3,y3, x4,y4);

end;


 
   




//效果图:

---