GDI+ 学习记录(7) 实心画刷 - SolidBrush

//实心画刷
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;