Discussion :

[Just-Soft]

Salut tout le monde !
Mon TreeView quand il est développé en totalité n'est pas très "mignon" puisqu'il a trop d'éléments. Il est constitué de 4 niveau, je voudrais pouvoir développer le TreeView à la demande, si l'utilisateur clic sur le niveau 1 alors tout se referme et je n'aurais que les éléments du niveau 1. Idem si je clique sur le niveau 2. Pour bien comprendre je schématise :

Zone Niveau 0
Unité Niveau 1
Centre Niveau 2
Communes Niveau 3
STEP Niveau 2
SR Niveau 2

Exemple :

Zone Niveau 0
Unité Chlef Niveau 1

Centre Chlef Niveau 2
Commune Chlef Niveau 3
Commune Oum Drou Niveau 3
Centre Ténès Niveau 2

STEP Chlef Niveau 2
STEP Chettia Niveau 2
SR 1 Houria Niveau 2
SR 2 Houria Niveau 2

Pour cela j'ai utilisé ce bout de code mais qui apparemment ne fonctionne pas bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure CollapseNodesAtLevel(var ATV: TTreeView; NIV : integer);
var
  ANode, CNode: TTreeNode;
begin
  ATV.FullCollapse;
  ANode := ATV.Items.GetFirstNode;
  while (ANode <> nil) do
  begin
    CNode := ANode.getFirstChild;
    while (CNode <> nil) do
    begin
      if (ANode.Level = NIV) then CNode.Collapse(True)
      else CNode.Expand(True);
      CNode := CNode.GetNextSibling;
    end;
    ANode := ANode.GetNextSibling;
  end;
end;

Donc je commence par Replier tout puis, je dois vérifier que je suis le bon niveau afin de ne développer que le niveau en question.
Si vous avez un autre code je suis preneur

Merci par avance.

[megs]

J'ai du mal a saisir ce que tu cherche a faire. Je répondrais en fonction de ce que j'ai compris.

Si vraimùent tu ne veux pas continuer a explorer ton idée tu peux toujours faire une fonction récursive qui s'execute a partir du root a chaque changement de noeud, qui reconnait le nœud courrant et en déduit le niveau à ouvrir et fermer tout le reste ?. ( ca serait bien aussi de bloquer le rafraichissement du TTree le temps du traitement ^^)

mais bof...

[Andnotor]

Simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);
begin
  TreeView1.FullCollapse;
end;

[Just-Soft]

Oki
je vois que je me suis très mal exprimé
ma question est : comment peut-on développé tout les nœuds d'un même niveau par simple clique sur un bouton qu'on met sur notre fiche ?

[ShaiLeTroll]

Vcl.ComCtrls.TCustomTreeView.FullExpand permet de tout ouvrir !

Pense que pour ouvrir le Level 2, il est nécessaire que le Level 1 et Level 0 soit aussi ouvert !

Si NIV est le niveau A OUVRIR

je n'ai pas testé mais regarde cette variante simplifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure CollapseNodesAtLevel(var ATV: TTreeView; NIV : integer);
var
  ANode: TTreeNode;
begin
  ATV.FullCollapse;
  ANode := ATV.Items.GetFirstNode;
  while (ANode <> nil) do
  begin
    if (ANode.Level <= NIV) then 
      ANode.Expand(False)
   else
     ANode.Collapse(False);
 
   ANode := ANode.GetNext();
  end;
end;

Et comme tu fais déjà le boulot, il ne faut pas faire de récursif d'où les False !

En plus, attention, selon comment on boucle,
on a accès à tous les noeud d'un coup sans différencier le niveau
Soit juste le nœud d'un parent



Ensuite ne confond pas Level et Enfant,
Des nœuds enfant de plusieurs parents peuvent avoir le même Level !

[Just-Soft]

Merci ShaiLeTroll votre petite modification avec les explications m'ont été d'un grand secours.