Source position: JPP.Gradient.pas line 50
procedure GradientFillVertical(
aCanvas: TCanvas;
aRect: TRect;
fromColor: TColor;
toColor: TColor;
MaxDegrad: Byte
);