//实心画刷
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 2015-09-18 13:21  小光zfg  阅读(238)  评论(0)    收藏  举报