TTGDrawTextEvent

type TTGDrawTextEvent = procedure(

  Sender: TBaseTreeGrid;

  TargetCanvas: TCanvas;

  Node: PTreeGridNode;

  Column: TColumnIndex;

  const CellText: string;

  const CellRect: TRect;

  var DefaultDraw: Boolean

) of object;