unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormPaint(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses GDIPOBJ, GDIPAPI;procedure TForm1.FormPaint(Sender: TObject);
constpt: TPoint = (X:130; Y:130);r = 120;colors: array[0..0] of TGPColor = (aclRed);
varg: TGPGraphics;p: TGPPen;path: TGPGraphicsPath;pb: TGPPathGradientBrush;pts: array[0..4] of TGPPoint;radian: Single;i,num: Integer;
beginfor i := 0 to 4 dobeginradian := i * (360*2/5) * (Pi/180);pts[i].X := pt.X + Round(Sin(radian) * r);pts[i].Y := pt.Y - Round(Cos(radian) * r);end;g := TGPGraphics.Create(Canvas.Handle);path := TGPGraphicsPath.Create;path.AddPolygon(PGPPoint(@pts), Length(pts));pb:= TGPPathGradientBrush.Create(path);num := Length(colors);pb.SetSurroundColors(@colors, num);pb.SetCenterColor(aclYellow);{描个边}p := TGPPen.Create(aclYellow);g.SetSmoothingMode(SmoothingModeAntiAlias);g.DrawPath(p, path);g.FillPath(pb, path);pb.Free;path.Free;p.Free;g.Free;
end;end.

代码2:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormPaint(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses GDIPOBJ, GDIPAPI;procedure TForm1.FormPaint(Sender: TObject);
constpt: TPoint = (X:130; Y:130);r = 120;colors: array[0..0] of TGPColor = (aclRed);
varg: TGPGraphics;p: TGPPen;path: TGPGraphicsPath;pb: TGPPathGradientBrush;pts: array[0..9] of TGPPoint;radian: Single;i,num: Integer;rx: Single;
beginfor i := 0 to 9 dobeginrx := r;if Odd(i) then rx := r * (1- (Sqrt(5)-1)/2); {(Sqrt(5)-1)/2 是黄金分割点, 约为 0.618}radian := i * (360/10) * (Pi/180);pts[i].X := pt.X + Round(Sin(radian) * rx);pts[i].Y := pt.Y - Round(Cos(radian) * rx);end;g := TGPGraphics.Create(Canvas.Handle);path := TGPGraphicsPath.Create;path.AddPolygon(PGPPoint(@pts), Length(pts));pb:= TGPPathGradientBrush.Create(path);num := Length(colors);pb.SetSurroundColors(@colors, num);pb.SetCenterColor(aclYellow);{描个边}p := TGPPen.Create(aclYellow);g.SetSmoothingMode(SmoothingModeAntiAlias);g.DrawPath(p, path);g.FillPath(pb, path);pb.Free;path.Free;p.Free;g.Free;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 238ClientWidth = 259Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesktopCenterOnPaint = FormPaintPixelsPerInch = 96TextHeight = 13
end