delphi: Treeview

Jak pokazać na Treeview tylko główne Itemy i ich subitemy a subitemy Subitemów nie :-) ...

ColapseAll czy jakoś tak

A mozna tak ciut dokładniej bo nie rozumiem ??

Witam wszystkich na forum.

Jak chodzi o rozwijanie gałęzi pozycji pierwszych oto kod:

var
 i:integer;
begin
 for i:=0 to TreeView1.Items.Count-1 do
  TreeView1.Items.Item[i].Expand(False{- główne (pierwsze)){True -wszystkie});

Pozdrawiam Grupa Noribo Częstochowa

nawet mi się mysleć nie chce... chyba TreeView1.CollapseAll; albo TreeView1.Items.CollapseAll; chociaz możliwe że nie ma tego w normalnym tree view tylko w jedi tree view... nawet mi się nie chce delphi włączać do sprawdzenia tego

//dobra, noob zlamerzyłeś, CollapseAll było dla zmyły żeby do helpa zajrzał, ale jak ty stawiasz kod, to jest coś takiego jak FullCollapse (wywołanie: ListView.FullCollapse), zrobi dokładnie to, co chciał, i zrobi to szybciej niż twoja petelka...

Witam wszystkich na forum.

Wiesz co Johnny_Bit w starszych wersjach Delphi nie ma takiego gotowca tam trzeba się wzorować na "pętelkach".
A po zatym jest to dokładnie to sam i co do szybkości zajrzyj do źródła PAS.

Masz tam coś takiego:

procedure TCustomTreeView.FullCollapse;
var
  Node: TTreeNode;
begin
  Node := Items.GetFirstNode;
  while Node <> nil do
  begin
    Node.Collapse(True);
    Node := Node.GetNextSibling;
  end;
end;

Moja wersja się dużej pisze,ale co do prędkości ta sama.

Pozdrawiam Grupa Noribo Częstochowa