TTGNodeHeightTrackingEvent

type TTGNodeHeightTrackingEvent = procedure(

  Sender: TBaseTreeGrid;

  Node: PTreeGridNode;

  Column: TColumnIndex;

  Shift: TShiftState;

  var TrackPoint: TPoint;

  P: TPoint;

  var Allowed: Boolean

) of object;