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.Free;
end;

画刷阴影样式表:

Delphi 微软 说明
HatchStyleBackwardDiagonal BackwardDiagonal 从右上到左下的对角线的线条图案。
HatchStyleCross Cross 指定交叉的水平线和垂直线。
HatchStyleDarkDownwardDiagonal DarkDownwardDiagonal 指定从顶点到底点向右倾斜的对角线，其两边夹角比ForwardDiagonal小50%，宽度是其两倍。此阴影图案不是锯齿消除的。
HatchStyleDarkHorizontal DarkHorizontal 指定水平线的两边夹角比Horizontal小50%并且宽度是Horizontal的两倍。
HatchStyleDarkUpwardDiagonal DarkUpwardDiagonal 指定从顶点到底点向左倾斜的对角线，其两边夹角比BackwardDiagonal小50%，宽度是其两倍，但这些直线不是锯齿消除的。
HatchStyleDarkVertical DarkVertical 指定垂直线的两边夹角比Vertical小50%并且宽度是其两倍。
HatchStyleDashedDownwardDiagonal DashedDownwardDiagonal 指定虚线对角线，这些对角线从顶点到底点向右倾斜。
HatchStyleDashedHorizontal DashedHorizontal 指定虚线水平线。
HatchStyleDashedUpwardDiagonal DashedUpwardDiagonal 指定虚线对角线，这些对角线从顶点到底点向左倾斜。
HatchStyleDashedVertical DashedVertical 指定虚线垂直线。
HatchStyleDiagonalBrick DiagonalBrick 指定具有分层砖块外观的阴影，它从顶点到底点向左倾斜。
HatchStyleDiagonalCross DiagonalCross 交叉对角线的图案。
HatchStyleDivot Divot 指定具有草皮层外观的阴影。
HatchStyleDottedDiamond DottedDiamond 指定互相交叉的正向对角线和反向对角线，每一对角线都是由点构成的。
HatchStyleDottedGrid DottedGrid 指定互相交叉的水平线和垂直线，每一直线都是由点构成的。
HatchStyleForwardDiagonal ForwardDiagonal 从左上到右下的对角线的线条图案。
HatchStyleHorizontal Horizontal 水平线的图案。
HatchStyleHorizontalBrick HorizontalBrick 指定具有水平分层砖块外观的阴影。
HatchStyleLargeCheckerBoard LargeCheckerBoard 指定具有棋盘外观的阴影，棋盘所具有的方格大小是SmallCheckerBoard大小的两倍。
HatchStyleLargeConfetti LargeConfetti 指定具有五彩纸屑外观的阴影，并且它是由比SmallConfetti更大的片构成的。
HatchStyleLargeGrid LargeGrid 指定阴影样式Cross。
HatchStyleLightDownwardDiagonal LightDownwardDiagonal  
HatchStyleLightHorizontal LightHorizontal 指定水平线，其两边夹角比Horizontal小50%。
HatchStyleLightUpwardDiagonal LightUpwardDiagonal 指定从顶点到底点向左倾斜的对角线，其两边夹角比BackwardDiagonal小50%，但这些直线不是锯齿消除的。
HatchStyleLightVertical LightVertical 指定垂直线的两边夹角比Vertical小50%。
HatchStyleMax Max 指定阴影样式SolidDiamond。
HatchStyleMin Min 指定阴影样式Horizontal。
HatchStyleNarrowHorizontal NarrowHorizontal 指定水平线的两边夹角比阴影样式Horizontal小75%（或者比LightHorizontal小25%）。
HatchStyleNarrowVertical NarrowVertical 指定垂直线的两边夹角比阴影样式Vertical小75%（或者比LightVertical小25%）。
HatchStyleOutlinedDiamond OutlinedDiamond 指定互相交叉的正向对角线和反向对角线，但这些对角线不是锯齿消除的。
HatchStylePercent05 Percent05 指定5%阴影。前景色与背景色的比例为5:100。
HatchStylePercent10 Percent10 指定10%阴影。前景色与背景色的比例为10:100。
HatchStylePercent20 Percent20 指定20%阴影。前景色与背景色的比例为20:100。
HatchStylePercent25 Percent25 指定25%阴影。前景色与背景色的比例为25:100。
HatchStylePercent30 Percent30 指定30%阴影。前景色与背景色的比例为30:100。
HatchStylePercent40 Percent40 指定40%阴影。前景色与背景色的比例为40:100。
HatchStylePercent50 Percent50 指定50%阴影。前景色与背景色的比例为50:100。
HatchStylePercent60 Percent60 指定60%阴影。前景色与背景色的比例为60:100。
HatchStylePercent70 Percent70 指定70%阴影。前景色与背景色的比例为70:100。
HatchStylePercent75 Percent75 指定75%阴影。前景色与背景色的比例为75:100。
HatchStylePercent80 Percent80 指定80%阴影。前景色与背景色的比例为80:100。
HatchStylePercent90 Percent90 指定90%阴影。前景色与背景色的比例为90:100。
HatchStylePlaid Plaid 指定具有格子花呢材料外观的阴影。
HatchStyleShingle Shingle 指定带有对角分层鹅卵石外观的阴影，它从顶点到底点向右倾斜。
HatchStyleSmallCheckerBoard SmallCheckerBoard 指定带有棋盘外观的阴影。
HatchStyleSmallConfetti SmallConfetti 指定带有五彩纸屑外观的阴影。
HatchStyleSmallGrid SmallGrid 指定互相交叉的水平线和垂直线，其两边夹角比阴影样式Cross小50%。
HatchStyleSolidDiamond SolidDiamond 指定具有对角放置的棋盘外观的阴影。
HatchStyleSphere Sphere 指定具有球体彼此相邻放置的外观的阴影。
HatchStyleTrellis Trellis 指定具有格架外观的阴影。
HatchStyleVertical Vertical 垂直线的图案。
HatchStyleWave Wave 指定由代字号“~”构成的水平线。
HatchStyleWeave Weave 指定具有织物外观的阴影。
HatchStyleWideDownwardDiagonal WideDownwardDiagonal 指定从顶点到底点向右倾斜的对角线，其间距与阴影样式ForwardDiagonal相同，宽度是其三倍，但它们不是锯齿消除的。
HatchStyleWideUpwardDiagonal WideUpwardDiagonal 指定从顶点到底点向左倾斜的对角线，其间距与阴影样式BackwardDiagonal相同，宽度是其三倍，但它们不是锯齿消除的。
HatchStyleZigZag ZigZag 指定由Z字形构成的水平线。
时间： 2024-10-30 18:05:05

Delphi GDI+学习记录(8): 阴影画刷的相关文章

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+学习记录(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+学习记录(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+学习记录(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,

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+ 学习记录(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+学习记录(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+学习记录(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+学习记录(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;