Delphi GDI+學習記錄(14): 餅圖 - Pie

//餅圖描邊與填充

var
　g: TGPGraphics;
　p: TGPPen;
　sb: TGPSolidBrush;
begin
　g := TGPGraphics.Create(Canvas.Handle);
　sb := TGPSolidBrush.Create(MakeColor(255,255,255));
　p := TGPPen.Create(MakeColor(255,0,0),8);
　g.DrawPie(p, 11, 11, 222, 222, 0, -45);
　g.FillPie(sb, 11, 11, 222, 222, 315, 45); {和上面是一個角度位置}
　p.Free;
　sb.Free;
　g.Free;
end;