Delphi GDI+学习记录(11): 路径渐变画刷

//路径渐变画刷

var
　 g: TGPGraphics;
　 path: TGPGraphicsPath;
　 pb: TGPPathGradientBrush; {声明渐变画刷}
　 num: Integer;
const
　 colors: array[0..0] of TGPColor = (aclAqua);
begin
　 g := TGPGraphics.Create(Canvas.Handle);
　 path := TGPGraphicsPath.Create;
　 path.AddEllipse(0,0,166,88);
　 pb := TGPPathGradientBrush.Create(path);　 {建立渐变画刷}
　 pb.SetCenterColor(MakeColor(255,0,0,255)); {中心颜色}
　 num := 1;
　 pb.SetSurroundColors(@colors, num); {周围的颜色}
　 {第二个参数, 不能用常数代替; 它好像是第一个数组参数的索引+1}
　 g.FillEllipse(pb, 0, 0, 166, 88); {需要和定义的渐变效果的大小一样}
//g.FillPath(pb,path); {直接画路径效果也一样}
　 path.Free;
　 pb.Free;
　 g.Free;
end;

//可以通过点数组的指针创建路径画刷

var
　 g : TGPGraphics;
　 pts: array[0..2] of TGPPoint;
　 pb: TGPPathGradientBrush;
begin
　 g := TGPGraphics.Create(Canvas.Handle);
　 pts[0] := MakePoint(100, 0);
　 pts[1] := MakePoint(200, 200);
　 pts[2] := MakePoint(0, 200);
　 pb:= TGPPathGradientBrush.Create(PGPPoint(@pts), 3);
　 g.FillRectangle(pb, 0, 0, 200, 200);
　 {没有指定中心颜色和周边颜色, 将分别默认黑色和白色}
　 pb.Free;
　 g.Free;
end;

时间： 2024-04-21 06:07:50

Delphi GDI+学习记录(11): 路径渐变画刷的相关文章

Delphi GDI+学习记录(10): 线性渐变画刷

//线性渐变画刷var g: TGPGraphics; lb: TGPLinearGradientBrush; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); rect := MakeRect(11,11,222,111); lb := TGPLinearGradientBrush.Create(rect, aclBlue, aclGreen, LinearGradientModeHorizontal); g.FillEl

Delphi GDI+学习记录(19): 路径

//绘制与填充路径var g: TGPGraphics; path: TGPGraphicsPath; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(128,255,0,0),4); sb := TGPSolidBrush.Create(MakeColor(128,255,255,0)); path := TGPGraphicsPat

Delphi GDI+学习记录(9): 纹理画刷

//纹理画刷 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img); g.FillEllipse(tb, 0, 0, Self.ClientWidth, Self.ClientHeight);

Delphi GDI+学习记录(8): 阴影画刷

//阴影画刷 var g: TGPGraphics; hb: TGPHatchBrush; begin g := TGPGraphics.Create(Canvas.Handle); hb := TGPHatchBrush.Create(HatchStyleHorizontal, aclRed, aclYellow); {参数1是阴影样式; 参数2是前景色; 参数3是背景色, 参数3可选, 默认黑色} g.FillEllipse(hb, 11, 11, 222, 111); hb.Free; g

Delphi GDI+学习记录(6): 使用画刷建立画笔

//使用画刷建立画笔 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img); p := TGPPen.Create(tb,36); {参数 1 是画刷; 参数 2 是笔宽

Delphi GDI+ 学习记录(28): 图像颜色的数据格式

//指定位图颜色var g,gbit: TGPGraphics; bit1,bit2: TGPBitmap; sb: TGPSolidBrush; begin //Self.Color := clWhite; g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,0,0)); {画刷为红色} bit1 := TGPBitmap.Create(200, 32, PixelFormat32bp

Delphi GDI+学习记录(7): 实心画刷

//实心画刷 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGreen); {参数是颜色} g.FillEllipse(sb, 11, 11, 222, 111); sb.Free; g.Free; end; //设置画刷颜色 var g: TGPGraphics; sb: TGPSolidBrush; begin

Delphi GDI+学习记录(21): 颜色

//颜色透明度var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(128,255,0,0)); {128表示半透明} g.FillRectangle(sb,10,10,100,100); sb.Free; g.Free; end; //使用 GDI+ 的颜色类型var g: TGPGraphics; sb:

Delphi GDI+学习记录(17): 曲线

//画曲线var g: TGPGraphics; p: TGPPen; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),4); pts[0].X := 11; pts[0].Y := 11; pts[1].X := 66; pts[1].Y := 66; pts[2].X := 88; pts[2].Y := 222;