TVSTShortenStringEvent

type TVSTShortenStringEvent = procedure(

  Sender: TBaseTreeGrid;

  TargetCanvas: TCanvas;

  Node: PTreeGridNode;

  Column: TColumnIndex;

  const S: string;

  TextSpace: Integer;

  var Result: string;

  var Done: Boolean

) of object;