Delphi 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;