随笔 - 2146  文章 - 97 评论 - 11765 trackbacks - 253

//饼图描边与填充
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;

posted on 2007-12-27 19:00 万一 阅读(...) 评论(...) 编辑 收藏