TTGMeasureTextEvent

type TTGMeasureTextEvent = procedure(

  Sender: TBaseTreeGrid;

  TargetCanvas: TCanvas;

  Node: PTreeGridNode;

  Column: TColumnIndex;

  const CellText: string;

  var Extent: Integer

) of object;