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;　
　
　
//效果圖: