Source position: gfxbase.pas line 460
type TGfxPaintEvent = procedure(
Sender: TObject;
const ARect: TRect
) of object;