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

//实心画刷
var
  g: TGPGraphics;
  sb: TGPSolidBrush;
begin
  g := TGPGraphics.Create(Canvas.Handle);

  sb := TGPSolidBrush.Create(aclGreen); {参数是颜色}

  g.FillEllipse(sb, 11, 11, 222, 111);

  sb.Free;
  g.Free;
end;

//设置画刷颜色 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,0,0)); g.FillRectangle(sb,10,10,100,100); sb.SetColor(MakeColor(255,0,255)); {设置画刷颜色} g.FillEllipse(sb,111,10,222,88); sb.Free; g.Free; end;
posted on 2007-12-27 16:29 万一 阅读(...) 评论(...) 编辑 收藏