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