Delphi GDI+学习记录（10）: 线性渐变画刷 - LinearGradientBrush

Delphi GDI+学习记录（10）: 线性渐变画刷 - LinearGradientBrush2012-03-20 cnblogs 万一//线性渐变画刷

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;