再学 GDI+[64]: 路径画刷(4) - 还是 SetCenterColor、SetSurroundColors 转

涂孟超

SurroundColors 原来是对应路径中的点(但按下面的做法在椭圆里不灵).

``````unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{\$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormPaint(Sender: TObject);
const
ColorArr: array[0..3] of TGPColor = (\$FFFF0000, \$FF00FF00, \$FF0000FF, \$FFFFFF00);
var
rt: TRect;
pts: array of TGPPoint;
g: TGPGraphics;
path1, path2: TGPGraphicsPath;
pb1,pb2: TGPPathGradientBrush;
num: Integer;
begin
rt := Bounds(10, 10, 150, 150);
g := TGPGraphics.Create(Canvas.Handle);

{矩形路径}
path1 := TGPGraphicsPath.Create;
path1.AddRectangle(MakeRect(rt));
pb1 := TGPPathGradientBrush.Create(path1);
num := 4;
pb1.SetSurroundColors(PARGB(@ColorArr), num);
g.FillPath(pb1, path1);

{三角形路径}
OffsetRect(rt, 160, 0);
SetLength(pts, 3);
pts[0] := MakePoint(rt.Left + (rt.Right-rt.Left) div 2, rt.Top);
pts[1] := MakePoint(rt.Left, rt.Bottom);
pts[2] := TGPPoint(rt.BottomRight);
path2 := TGPGraphicsPath.Create;
path2.AddPolygon(PGPPoint(pts), Length(pts));
pb2 := TGPPathGradientBrush.Create(path2);
num := 3;
pb2.SetSurroundColors(PARGB(@ColorArr), num);
g.FillPath(pb2, path2);

pb1.Free;
pb2.Free;
path1.Free;
path2.Free;
g.Free;
end;

end.

``````

``````object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 172
ClientWidth = 327
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
end

``````

涂孟超

-------------------------------------------------------------------------------- 引用或转载时请保留以下信息： 大可山 [MSN:a3news(AT)hotmail.com] http://www.zpxp.com http://www.b......

Andrewniu
09/30
0
0
【Visual C++】游戏开发笔记之四——游戏画面绘图（一）基本图形绘制

2012/11/12
135
0
CDC绘图总结

GDI总结：http://dingchaoqun12.blog.163.com/blog/static/11606250420112213396361/ 对话框 控件 视图类 应用程序框架都会调用该CWnd的消息响应成员函数（的覆盖）来绘制窗口客户区。 在Win...

2012/10/08
2.4K
0

2017/11/08
0
0
Direct2D教程（十）绘制文本

2017/10/17
0
0

OSChina 周二乱弹 —— 其实我在地板也睡不着

Osc乱弹歌单（2018）请戳（这里） 【今日歌曲】 @witt-z ：分享歌词： 阴天 在不开灯的房间，当所有思绪都一点一点沉淀。 分享莫文蔚的单曲《阴天》: 《阴天》- 莫文蔚 手机党少年们想听歌，...

19分钟前
14
3

https://www.processon.com/view/link/5b2144d7e4b001a14d3d2d30

WALK_MAN

3
0
《大漠烟尘》读书笔记及读后感文章3700字

《大漠烟尘》读书笔记及读后感文章3700字： 在这个浮躁的社会里，你有多久没有好好读完一本书了？ 我们总觉得自己和别人不一样，所以当看到别人身上的问题时，很少有“反求诸己”，反思自己。...

4
0

em_aaron

3
0

3
0