Source position: treegrids.pas line 2046
type TTGBeforeColumnWidthTrackingEvent = procedure(
Sender: TTGHeader;
Column: TColumnIndex;
Shift: TShiftState
) of object;