Source position: synedittypes.pp line 114
type TSynPaintEventProc = procedure(
Sender: TObject;
EventType: TSynPaintEvent;
const rcClip: TRect
) of object;