Source position: virtualtrees.pas line 1780
type TVTCanSplitterResizeHeaderEvent = procedure(
Sender: TVTHeader;
P: TPoint;
var Allowed: Boolean
) of object;