ListView und ProgressBar

[Manne]

es gibt ne procedure OnGetText, die sieht dann z.B. so aus:

Delphi-Quellcode:

procedure TForm1.VirtualStringTree2GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var data : PIcoFileItem;
begin
 data := VirtualStringTree2.GetNodeData(Node);
 case Column of
  0: CellText := data.Caption;
  1: CellText := SubItem1;
 end;
end;