測試效果圖:

---

測試代碼:

---

uses GdiPlus, GdiPlusHelpers;procedure TForm1.FormPaint(Sender: TObject); constC1 = $FF000000;C2 = $FFFF0000;C3 = $FFFFFF00;C4 = $FFFF0000;C5 = $FF000000; varBrush: IGPPathGradientBrush;Rect: TGPRect;Path: IGPGraphicsPath;ColorBlend: IGPColorBlend; beginRect.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://www.cnblogs.com/del/archive/2009/12/15/1624716.html

總結

以上是生活随笔為你收集整理的GdiPlus[21]: IGPPathGradientBrush 之 InterpolationColors的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。