GdiPlus[20]: IGPPathGradientBrush 之 SetFocusScales

最新推荐文章于 2021-03-02 19:11:25 发布

weixin_30824277

最新推荐文章于 2021-03-02 19:11:25 发布

阅读量80

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2009/12/15/1624635.html

本文介绍使用GDI+在窗体上绘制带有不同焦点比例的椭圆渐变填充效果。通过调整椭圆的焦点比例，可以实现丰富的视觉效果。文中提供了一段示例代码，展示了如何创建椭圆路径、设置渐变填充属性并应用到椭圆上。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

测试效果图:

测试代码:

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Brush: IGPPathGradientBrush;
  Rect: TGPRect;
  Path: IGPGraphicsPath;
begin
  Graphics := TGPGraphics.Create(Handle);
  Rect.Initialize(10, 10, 180, 100);
  Path := TGPGraphicsPath.Create;
  Path.AddEllipse(Rect);

  Brush := TGPPathGradientBrush.Create(Path);
  Brush.CenterColor := $FF00FF00;
  Brush.SetSurroundColors([$FF000000]);

  Brush.SetFocusScales(0, 0); //这是默认设置
  Graphics.FillEllipse(Brush, Rect);

  Brush.SetFocusScales(0.5, 0);
  Graphics.TranslateTransform(0, Rect.Y + Rect.Height);
  Graphics.FillEllipse(Brush, Rect);

  Brush.SetFocusScales(0, 0.5);
  Graphics.TranslateTransform(0, Rect.Y + Rect.Height);
  Graphics.FillEllipse(Brush, Rect);
end;

转载于:https://www.cnblogs.com/del/archive/2009/12/15/1624635.html