Source position: extctrls.pp line 40
type TImagePaintBackgroundEvent = procedure(
ASender: TObject;
ACanvas: TCanvas;
ARect: TRect
) of object;