再学 GDI+[65]: 路径画刷(5)

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

本例效果图:

代码文件:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormPaint(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses GDIPOBJ, GDIPAPI;procedure TForm1.FormPaint(Sender: TObject);
constColorArr: array[0..2] of TGPColor = (aclRed, aclGreen, aclBlue);
varpts: array[0..2] of TGPPoint;g: TGPGraphics;path: TGPGraphicsPath;pb: TGPPathGradientBrush;num: Integer;
beginpts[0] := MakePoint(80, 10);pts[1] := MakePoint(10, 150);pts[2] := MakePoint(150, 150);g := TGPGraphics.Create(Canvas.Handle);path := TGPGraphicsPath.Create;path.AddPolygon(PGPPoint(@pts), Length(pts));//pb := TGPPathGradientBrush.Create(path); {这样建立中心默认白色; 按下一句中心默认黑色}pb := TGPPathGradientBrush.Create(PGPPoint(@pts), Length(pts)); {根据点数组建立路径画刷}pb.SetCenterColor(aclWhite);num := Length(pts);pb.SetSurroundColors(PARGB(@ColorArr), num);g.FillPath(pb, path);{使用灰度校正模式换个地方再画一次}pb.SetGammaCorrection(True);g.TranslateTransform(150, 0);g.FillPath(pb, path);pb.Free;path.Free;g.Free;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 163ClientWidth = 311Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesktopCenterOnPaint = FormPaintPixelsPerInch = 96TextHeight = 13
end

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

再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection相关推荐

再学 GDI+[68]: 路径画刷(8) - SetBlendTriangularShaped、SetBlendBellShape
本例效果图(颜色失真严重, 因为 GIF 最多只能接受 256 中颜色): 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Var ...
再学 GDI+[62]: 路径画刷(2) - SetCenterPoint、GetCenterPoint
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
再学 GDI+[67]: 路径画刷(7) - 画个五角星
本例效果图: 代码1: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contro ...
再学 GDI+[63]: 路径画刷(3) - SetFocusScales、GetFocusScales
为什么80%的码农都做不了架构师?>>> 本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, V ...
再学 GDI+[57]: 路径 - Widen
为什么80%的码农都做不了架构师?>>> 路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 ...
再学 GDI+[56]: 路径 - Warp
为什么80%的码农都做不了架构师?>>> 通过路径的 Warp 方法可以让路径在一个范围内(四个点决定的范围)变换; 第一个参数可以是 3 个点或 4 个点的数组, 如果是 3 ...
VS2010-MFC（图形图像：GDI对象之画刷CBrush）
转自:http://www.jizhuomi.com/software/248.html 上一节讲的是画笔CPen的用法,前面也说了,GDI对象中最常用的就是画笔和画刷,本节就讲讲画刷CBrush. ...
再学 GDI+[20]: TGPTextureBrush 与 TWrapMode
为什么80%的码农都做不了架构师?>>> TGPTextureBrush.Create(image: TGPImage; {用于画刷的图像}wrapMode: TWrapMod ...
再学 GDI+[81]: TGPImage(1) - 显示图像
已知 GDI+ 可以支持的图像格式: BMP.JPEG.GIF.TIFF.PNG.ICO.WMF.EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧: functio ...
再学 GDI+[11]: DrawCurve - 绘制曲线
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection

再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection相关推荐

最新文章

热门文章