WinAPI: Arc - 繪制弧線

//聲明:　
Arc(　
　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,　'1');　
　Canvas.TextOut(x2,y2,　'2');　
　Canvas.TextOut(x3,y3,　'3');　
　Canvas.TextOut(x4,y4,　'4');　
　　
　Arc(Canvas.Handle,　x1,y1,　x2,y2,　x3,y3,　x4,y4);　
end;　
　
　
//效果圖:　

//書上的一個例子:　
procedure　TForm1.FormPaint(Sender:　TObject);　
var　
　i:　Integer;　
　r:　TRect;　
begin　
　r　:=　Self.ClIEntRect;　
　Canvas.Pen.Width　:=　2;　
　
　for　i　:=　1　to　5　do　
　begin　
　　Arc(Canvas.Handle,　
　　　　r.Left,　r.Top,　
　　　　r.Right,　r.Bottom,　
　　　　r.Right,　(r.Bottom　-　r.Top)　div　2,　
　　　　r.Left,　(r.Bottom　-　r.Top)　div　2　
　　);　
　
　　InflateRect(r,　-2,　-2);　　　　　　　　　{縮小矩形}　
　　Canvas.Pen.Color　:=　PaletteIndex(i+10);　{改變顏色}　
　end;　
end;　
　
　
//效果圖: