//线性渐变画刷 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 | 指定从上到下的渐变。 |