Source position: treegrids.pas line 2054
type TTGCanSplitterResizeHeaderEvent = procedure(
Sender: TTGHeader;
P: TPoint;
var Allowed: Boolean
) of object;