VirtualTreeView

[Bigmichi]

Unter
http://www.soft-gems.net/VirtualTreeview/VT.php

bekommen man dsa Control und wenn man es runterläd sidn auch 4 demen oder so dabei un bei der Objects Demo wollte ch mal fragen wie zum Himmelsteufel bekommt man nachträglich Roots eingebaut ohne sie am anfang direkt anzugeben ?

ich erstelle Childs und er sagt mir auch das es mehr sind aber ich bekomem es einfach nicht hin das es angezeigt wird

danke schonma für Hilfe die sich die Mühe tun und sich das Control anschauen

[CenBells]

hi,

zeig mal den code, den du verwendest um nodes in den baum zu hängen.

Gruß
Ken

[Bigmichi]

Code:

procedure TfrmToDoList.FormCreate(Sender: TObject);
begin
  P:=TMVCPanel.Create(Self);
  with P do
    begin
      Parent:=Self;
      Align:=alClient;
      TreeView.Images:=ImageList1;

      FTree:=CreateDefaultTree;
      Tree:=FTree;
      P.TreeView.OnChange:=TreeViewChange;
      P.TreeView.OnDBlClick:=cmdEinstClick;

      P.TreeView.FullExpand(NIL);
      UpdateFromNode;
    end;
end;


function TfrmToDoList.CreateDefaultTree:TMVCTree;
begin
  Result:=TMVCTree.Create;
    with Result.Root.CreateChild do
      begin
        Caption:='Erstellen der To-Do-Liste';
        SubCaption:='BigMichi';
        Incidence:=85;
      end;
end;

das klappt auch ser gut nur wenn ich nun nachträglich versuche mit "P.Tree.Root.CreateChild;" was anzuhängen wird es zwar beigefügt aber nie in der Liste angezeigt

[CenBells]

hallo,

häng mal mit folgendem Statement deine Nodes in den Tree

Delphi-Quellcode:

var
  LNode: PVirtualNode;
  ..
begin
  LNode := Tree.addChild(nil);
// jetzt kannst du noch änderungen am node durchführen.
end;

Gruß
Ken

[Bigmichi]

Das geht leider nicht weiß auch net wieso der sagt dan das Tree unbezcihneter bla is ^^
hab noch nie in Delphi mit Listview gearbeitet deswegen habs probleme

[CenBells]

hallo,

wie lautet der Name der VirtualTreeView komponente bei dir im objektinspektor?

Gruß
Ken