Source position: virtualtrees.pas line 1750
type TVTBeforeHeaderHeightTrackingEvent = procedure(
Sender: TVTHeader;
Shift: TShiftState
) of object;