Source position: extctrls.pp line 325
type TCanOffsetEvent = procedure(
Sender: TObject;
var NewOffset: Integer;
var Accept: Boolean
) of object;