Source position: virtualtrees.pas line 1772
type TVTBeforeColumnWidthTrackingEvent = procedure(
Sender: TVTHeader;
Column: TColumnIndex;
Shift: TShiftState
) of object;