Delphi GDI+学习记录（13）: 弧线 - Arc

Delphi GDI+学习记录（13）: 弧线 - Arc2012-03-23 cnblogs 万一//画弧线

var
 g: TGPGraphics;
 p: TGPPen;
begin
 g := TGPGraphics.Create（Canvas.Handle）;
 p := TGPPen.Create（MakeColor（255,0,0）,2）;
 g.DrawArc（p,11,32,300,200,0,90）;  {参数 2-5 是一个椭圆}
 p.SetColor（MakeColor（0,255,0））;
 g.DrawArc（p,11,32,300,200,90,90）;  {参数 6 是弧线起点度数, 从右中开始}
 p.SetColor（MakeColor（0,0,255））;
 g.DrawArc（p,11,32,300,200,180,90）; {参数 7 是弧线终点, 是从起点到终点的弧度}
 p.SetColor（MakeColor（255,255,0））;
 g.DrawArc（p,11,32,300,200,270,90）; {现在刚好绕成一个圆}
 p.SetColor（MakeColor（0,0,0））;
 g.DrawArc（p,88,88,200,100,0,360）;  {如果从 0 度开始延伸 360 度, 就是画椭圆线了}
 p.Free;
 g.Free;
end;