Source position: graphutil.pp line 42
procedure DrawGradientWindow(
Canvas: TCanvas;
WindowRect: TRect;
TitleHeight: Integer;
BaseColor: TColor
);