TCellPaintNotifyEvent

type TCellPaintNotifyEvent = procedure(

  Sender: TObject;

  TableCanvas: TCanvas;

  const CellRect: TRect;

  RowNum: TRowNum;

  ColNum: TColNum;

  const CellAttr: TOvcCellAttributes;

  Data: pointer;

  var DoneIt: Boolean

) of object;