GdiPlus[21]: IGPPathGradientBrush 之 InterpolationColors

最新推荐文章于 2018-03-23 16:49:30 发布

weixin_33802505

最新推荐文章于 2018-03-23 16:49:30 发布

阅读量195

点赞数

原文链接：https://my.oschina.net/hermer/blog/320845

版权

为什么80%的码农都做不了架构师？>>>

测试效果图:

测试代码:

uses GdiPlus, GdiPlusHelpers;

procedure TForm1.FormPaint(Sender: TObject);
const
  C1 = $FF000000;
  C2 = $FFFF0000;
  C3 = $FFFFFF00;
  C4 = $FFFF0000;
  C5 = $FF000000;
var
  Brush: IGPPathGradientBrush;
  Rect: TGPRect;
  Path: IGPGraphicsPath;
  ColorBlend: IGPColorBlend;
begin
  Rect.Initialize(10, 10, 180, 100);
  Path := TGPGraphicsPath.Create;
  Path.AddEllipse(Rect);

  Brush := TGPPathGradientBrush.Create(Path);
  ColorBlend := TGPColorBlend.Create([C1, C2, C3, C4, C5], [0, 0.25, 0.5, 0.75, 1]);
  Brush.InterpolationColors := ColorBlend;

  Canvas.ToGPGraphics.FillEllipse(Brush, Rect);
end;

转载于:https://my.oschina.net/hermer/blog/320845