Source position: ELSizeControl.pas line 60
type TContextPopupEvent = procedure(
Sender: TObject;
MousePos: TPoint;
var Handled: Boolean
) of object;