Source position: JvGradient.pas line 37
type TJvGradientPaintEvent = procedure(
Sender: TObject;
Canvas: TCanvas
) of object;