Delphi下的GDI+编程[10] 绘制饼形-DrawPie

procedure TForm1.FormPaint(Sender: TObject);//编程form1的onPaint事件代码如下
var
  g:TGPGraphics; //定义绘图表面类变量
  p:TGPPen; //定义画笔类变量
begin
  g:=TGPGraphics.Create(Canvas.Handle); //创建绘图表面对象
  p:=TGPPen.Create(aclRed,2); //创建画笔对象
  g.Clear(aclWhite); //清除整个绘图面并以白色填充

  g.DrawPie(p,10,10,200,100,0,350); //在绘图表面画一个饼形

  p.Free; //用完成对象记得释放
  g.Free; //用完成对象记得释放
end;