Source position: kgraphics.pas line 712
procedure DrawGradientRect(
Canvas: TCanvas;
const ARect: TRect;
AStartColor: TColor;
AEndColor: TColor;
AColorStep: Integer;
AHorizontal: Boolean
);