Source position: treegrids.pas line 2024
type TTGBeforeHeaderHeightTrackingEvent = procedure(
Sender: TTGHeader;
Shift: TShiftState
) of object;