Thema: Delphi FullCollapse VirtualTree

Einzelnen Beitrag anzeigen

Gremlin

Registriert seit: 18. Apr 2006
Ort: Im Süden
176 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: FullCollapse VirtualTree

  Alt 8. Jun 2007, 11:41
Hmmm geht eigentlich ohne Probleme. Vielleicht wird in deinem Code der übergebene Eintrag im anderen Baum nicht gefunden oder verwendest du bei Suche/Collapse den falschen Baum? Vielleicht wäre ein Teil deines Codes nicht schlecht, um dies gegeb .überprüfen zu können.

Ich habs mal so verstanden, das du einen selektierten Wert aus Baum A in einem Baum B suchst. Ist dieser dort nicht vorhanden, dann wird Baum B vollständig kollabiert dargestellt. Sonst soll nichts passieren (Der Wert ist jeweils in Text enthalten)

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  n : integer;
begin
  if Assigned(Node) then begin
    for n := 0 to TreeView2.Items.Count-1 do begin
      if (TreeView2.Items[n].Text=Node.Text) then
        Exit;
    end;
    TreeView2.FullCollapse;
  end;
end;
Gruss Gremlin
  Mit Zitat antworten Zitat