cyGradientFill

procedure cyGradientFill(

  aCanvas: TCanvas;

  aRect: TRect;

  fromColor: TColor;

  toColor: TColor;

  adgradOrientation: TDgradOrientation;

  Balance: Word;

  AngleDegree: Word;

  balanceMode: TDgradBalanceMode;

  Maxdegrade: Byte;

  SpeedPercent: Integer;

  const AngleClipRect: Boolean = True;

  const AngleBuffer: TBitmap = Nil

);