Thema: Delphi ListView und ProgressBar

Einzelnen Beitrag anzeigen

mumu

Registriert seit: 28. Okt 2003
Ort: Bamberg
519 Beiträge
 
#7

Re: ListView und ProgressBar

  Alt 6. Mär 2005, 15:22
also irgendwie schaff ichs nichtmal ne Node mit einem bestimmten Text hinzuzufügen.

ich habe mein record:

Delphi-Quellcode:
type
  PTreeData = ^TTreeData;
  TTreeData = record
    Caption : string;
    SubItem1: string;
  end;
dann setze ich die NodeDataSize
VST.NodeDataSize := SizeOf(TTreeData); und füge den node hinzu mit dem gewünschten text.
Delphi-Quellcode:
var
  TreeData: PTreeData;
  Node: PVirtualNode;

begin
  Node := VST.AddChild(nil);
  TreeData := VST.GetNodeData(Node);
  TreeData.Caption := 'Test';
  TreeData.SubItem1 := 'Test2';
end;
Das hinzufügen klappt. nur leider habe ich jetzt in meinen beiden Spalten den Text "Node" stehen, obwohl ich ja 'Test' und 'Test2' zugewiesen hab. Wenn ich jetzt im onclick folgendes einfüg
Delphi-Quellcode:
Node:=VST.FocusedNode;
Data:=VST.GetNodeData(Node);
Showmessage(Data.Caption);
dann zeigt er mir in der MessageBox 'Test' an.


Woran liegt das, dass 'Test' nicht in der Virtual String Tree angezeigt wird????
  Mit Zitat antworten Zitat