TVTDrawTextEvent

type TVTDrawTextEvent = procedure(

  Sender: TBaseVirtualTree;

  TargetCanvas: TCanvas;

  Node: PVirtualNode;

  Column: TColumnIndex;

  const CellText: string;

  const CellRect: TRect;

  var DefaultDraw: Boolean

) of object;