GDI+ 学习记录(10): 线性渐变画刷 - LinearGradientBrush
2007-12-27 16:49
537 查看
//线性渐变画刷 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.FillEllipse(lb, rect); lb.Free; g.Free; end; //定义渐变的位置与颜色 var g : TGPGraphics; p: TGPPen; lb: TGPLinearGradientBrush; p1,p2: TGPPoint; c1,c2: TGPColor; begin g := TGPGraphics.Create(Canvas.Handle); p1 := MakePoint(0, 0); p2 := MakePoint(200, 100); c1 := MakeColor(255, 0, 0, 255); c2 := MakeColor(255, 0, 255, 0); lb := TGPLinearGradientBrush.Create(p1, p2, c1, c2); p:= TGPPen.Create(lb, 10); g.DrawLine(p, 0, 0, 600, 300); g.FillEllipse(lb, 10, 100, 200, 100); lb.Free; p.Free; g.Free; end; //自定义渐变过渡效果 var g : TGPGraphics; lb: TGPLinearGradientBrush; p1,p2: TGPPoint; c1,c2: TGPColor; const Factors: array[0..2] of Single = (0.0, 0.5, 1.0); {颜色比例} Positions: array[0..2] of Single = (0.0, 0.2, 1.0); {位置比例, 两个数组元素须相同} begin g := TGPGraphics.Create(Canvas.Handle); p1 := MakePoint(0, 10); p2 := MakePoint(200, 10); c1 := aclBlack; c2 := aclRed; lb := TGPLinearGradientBrush.Create(p1, p2, c1, c2); lb.SetBlend(@Factors, @Positions, 3); {设置渐变因子} g.FillEllipse(lb, 0, 30, 200, 100); g.FillRectangle(lb, 0, 155, 500, 30); lb.Free; g.Free; end;
线性渐变的方向参数:
Delphi | 微软 | 说明 |
---|---|---|
LinearGradientModeBackwardDiagonal | BackwardDiagonal | 指定从右上到左下的渐变。 |
LinearGradientModeForwardDiagonal | ForwardDiagonal | 指定从左上到右下的渐变。 |
LinearGradientModeHorizontal | Horizontal | 指定从左到右的渐变。 |
LinearGradientModeVertical | Vertical | 指定从上到下的渐变。 |
相关文章推荐
- GDI+ 学习记录(10) 线性渐变画刷 - LinearGradientBrush
- GDI+学习记录(13)-线性渐变画刷 LinearGrandientBrush
- GDI+ 学习记录(11) 路径渐变画刷 - PathGradientBrush
- GDI+ 学习记录(11): 路径渐变画刷 - PathGradientBrush
- GDI+学习记录(10)- 影线画刷HatchBrush
- 再学 GDI+[22] TGPLinearGradientBrush - 之一 TLinearGradientMode
- 跟着 伍逸 老师学GDI+ 之SolidBrush,HatchBrush,LinearGradientBrush
- 再学 GDI+[23] TGPLinearGradientBrush - 之二
- 再学 GDI+[24]: TGPLinearGradientBrush - 之三
- GDI+学习记录(8)- 画刷 Brush简介
- 再学 GDI+[23]: TGPLinearGradientBrush - 之二
- 再学 GDI+[24]: TGPLinearGradientBrush - 之三
- 再学 GDI+[22]: TGPLinearGradientBrush - 之一: TLinearGradientMode
- silverlight 学习(-)--线性渐变画刷LinearGradientBrush
- GDI+学习记录(11)- 纹理画刷 TextureBrush的基本使用
- 2.0画笔之SolidColorBrush, ImageBrush, VideoBrush, LinearGradientBrush, RadialGradientBrush
- GDI+ 学习记录(1) 画笔 - Pen
- GDI+ 学习记录(4) 画笔对齐
- GDI+ 学习记录(16) 贝塞尔曲线 - Bezier、Beziers
- -webkit-linear-gradient 线性渐变学习