Delphi GDI+学习记录（7）: 实心画刷 - SolidBrush

Delphi GDI+学习记录（7）: 实心画刷 - SolidBrush2012-03-20 cnblogs 万一//实心画刷

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;