Virtual String Tree: Nodecaption wird nicht gesetzt

[Nils_13]

Hi,

da ich in diesem Thread auf das Virtual String Tree hingewiesen wurde, schaute ich mir vor kurzem das Tutorial von Delphi-Source zu VST an. Warum wird bei folgendem Code die Caption aller Items auf "Node" gesetzt ?

Delphi-Quellcode:

type
  PTreeData = ^TTreeData;

  TTreeData = record
    Str: String;
  end;

...

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  VST.NodeDataSize := SizeOf(TTreeData);
end;

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Node     := VST.AddChild(nil);
  Data     := VST.GetNodeData(Node);
  VST.AddChild(Node);
  Data.Str := Edit1.Text;
end;

procedure TfrmMain.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: Integer; TextType: TVSTTextType; var CellText: WideString);
var Data: PTreeData;
begin
  Data     := VST.GetNodeData(Node);
  CellText := Data.Str;
end;

procedure TfrmMain.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var Data : PTreeData;
begin
  Data     := VST.GetNodeData(Node);
  Data.Str := '';
end;

[stifflersmom]

Zitat:

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject); 
var Data: PTreeData; 
    Node: PVirtualNode; 
begin 
  Node     := VST.AddChild(nil); 
  Data     := VST.GetNodeData(Node); 
  VST.AddChild(Node); 
  Data.Str := Edit1.Text; 
end;

Wie wäre es, wenn Du die reihenfolge mal vertauschen würdest:
Also ERST die Data.eigenschaft des Nodes setzen und DANN den Node dem VSt zufügen.

Moin

[Nils_13]

Hi,

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Data     := VST.GetNodeData(Node);
  Data.Str := Edit1.Text;
  Node     := VST.AddChild(nil); <-- AV
  VST.AddChild(Node);
end;

[SirThornberry]

Ohne die Komponente näher zu kennen würde ich sagen "AddChild" erwartet das ParentNode, denn wohin soll sonst das Child wenn kein Parent angegeben wird? Also solltest du da wohl nicht "nil" übergeben.
Aber wie gesagt kenn ich die Komponenten nicht und denke dies nur Anhand des Namens der Methode.

[Igotcha]

Leute, was macht ihr da? ;-)

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Node     := VST.AddChild(nil); 
  Data     := VST.GetNodeData(Node)
  Data.Str := 'so gehts';
end;

[SirThornberry]

*g* wenn ich das jetzt so sehe kommt die AV wohl eine Zeile über der angegebenen weil Data nicht initialisiert ist.

[Nils_13]

Zitat:

Zitat von SirThornberry

Ohne die Komponente näher zu kennen würde ich sagen "AddChild" erwartet das ParentNode, denn wohin soll sonst das Child wenn kein Parent angegeben wird? Also solltest du da wohl nicht "nil" übergeben.
Aber wie gesagt kenn ich die Komponenten nicht und denke dies nur Anhand des Namens der Methode.

Ich habe es so verstanden:
- Node definieren (Node := VST.AddChild(nil) erstellt mir zusätzlich noch den Grundnode)
- VST.AddChild(Node) erstellt mir ein Unteritem, welches von dem vorher erstellten ausgeht (deshalb nil, weil der Parent für SubItems gedacht ist).

Zitat:

Zitat von Igotcha

Leute, was macht ihr da? ;-)

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Node     := VST.AddChild(nil); 
  Data     := VST.GetNodeData(Node)
  Data.Str := 'so gehts';
end;

Ach wirklich ? Dann vergleich mal mit dem Code des 1. Beitrags.

Delphi-Quellcode:

procedure TfrmMain.addNodeClick(Sender: TObject);
var Data: PTreeData;
    Node: PVirtualNode;
begin
  Node     := VST.AddChild(nil);
  VST.AddChild(Node);
  Data     := VST.GetNodeData(Node);
  Data.Str := Edit1.Text;
end;

[edit]Ich habe nicht ohne Grund den ganzen Code gepostet, vlt. liegt der Fehler auch an einer anderen Stelle begraben.[/edit]
Node war noch nicht initialisiert. So wird das aber nichts:

[raiguen]

Moin :-))
@nils_13: bist du sicher, dass du im ObjektInspektor dem VST das Ereignis 'OnGetCellText' auch der entsprechenden Prozedur zugewiesen hast? Ich weiß, ich vllt. ne dumme Frage, aber wenn du das nicht gemacht hast, dann kann dem Node auch nicht der Text aus dem EditFeld zu gewiesen werden und somit bleibt der DefaultText (siehe im OI die entsprechende Eigenschaft) standardmäßig auf Node :!:
Im Übrigen ist der gepostete Code von Dir durchaus richtig und funzt soweit auch!

[Nils_13]

:oops: keine dumme Frage :oops: Ich dachte, dass hätte ich gemacht, wohl doch nicht. Danke für eure Hilfe :)