TVTBeforeItemEraseEvent

type TVTBeforeItemEraseEvent = procedure(

  Sender: TBaseVirtualTree;

  TargetCanvas: TCanvas;

  Node: PVirtualNode;

  const ItemRect: TRect;

  var ItemColor: TColor;

  var EraseAction: TItemEraseAction

) of object;