Discussion :

[Jayceblaster]

bonjour...

Voila j'ai une petite question sur le treeview...

Je souhaite savoir si il y a un moyen simple de connaitre la position d'un élement du treeview par rapport au autres élément de meme niveau.
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
 
   racine
      |
      |-element1
      |        |-sous element1
      |        |-sous element2
      |-element2
                |-sous element3

en fait si je récupère la position du sous élément 3 je veux avoir 2... (car il y 2 éléments de meme niveau au dessus) et non pas 5 ou 0 comme je pourrais l'avoir avec index et absoluteIndex...

Ah mon avis il doit y avoir moyen de s'en sortir avec level index et absolute index mais avant de faire un truc tordu je voudrais m'assurer qu'il n'y a pas une maniere simple de procéder...

Merci d'avance

[Cl@udius]

Salut

On peut se construire son 'propre' index assez simplement en jouant avec les propriétés Level et AbsoluteIndex:

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
 
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  i, MyOwnIndex: Integer;
begin
  MyOwnIndex := -1;
  i := -1;
  with TTreeView(Sender) do begin
    repeat
      Inc(i);
      if Items[i].Level = Node.Level then Inc(MyOwnIndex);
    until (i = Items.Count - 1) or (Node.AbsoluteIndex = i);
  end;
  EditOwnIndex.Text := IntToStr(MyOwnIndex);
end;

@+

[Cl@udius]

L'exemple de mon précédent post est rattaché à l'évenement OnChange, le mieux est de faire une fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function GetNodeOwnIndex(tv: TTreeView; Node: TTreeNode): Integer;
var
  i: Integer;
begin
  Result := -1;
  i := -1;
  with tv do begin
    repeat
      Inc(i);
      if Items[i].Level = Node.Level then Inc(Result);
    until (i = Items.Count - 1) or (Node.AbsoluteIndex = i);
  end;
end;

Voilà
@+

[Jayceblaster]

ok merci ca confirme donc ce que je pensé il fut que je passe par un algo . Et le tiens et plutot sympa et clair je vais m'en inspirer

Merci beaucoup