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

最新推荐文章于 2024-09-13 10:22:31 发布

weixin_30896825

最新推荐文章于 2024-09-13 10:22:31 发布

阅读量58

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2007/12/27/1017154.html

本文提供两个Delphi代码示例，展示如何使用实心画刷（Solid Brush）绘制椭圆和矩形，并介绍如何更改画刷的颜色。

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

转载于:https://www.cnblogs.com/del/archive/2007/12/27/1017154.html