TTGBeforeItemEraseEvent

type TTGBeforeItemEraseEvent = procedure(

  Sender: TBaseTreeGrid;

  TargetCanvas: TCanvas;

  Node: PTreeGridNode;

  const ItemRect: TRect;

  var ItemColor: TColor;

  var EraseAction: TItemEraseAction

) of object;