Source position: treegrids.pas line 2024
type TTGHeaderHeightTrackingEvent = procedure(
Sender: TTGHeader;
var P: TPoint;
Shift: TShiftState;
var Allowed: Boolean
) of object;