TreeView et case à cocher.

Bonjour à tous,

Je rencontre un problème avec l'utilisation d'un TreeView...Je souhaiterais affecter une case à cocher sur tous les noeuds (parents et enfants). Je sais qu'il existe des composants conçuent spécialement pour mais je n'ai pas le droit de les utiliser dans le cadre de mon job.

Voici le code que j'ai (merci aux membres de dévellopez.com ;) ) tiré de cet exemple.:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.TreeView1Click(Sender: TObject); var P : TPoint; begin GetCursorPos(P); P := Treeview1.ScreenToClient(P); if (htOnStateIcon in Treeview1.GetHitTestInfoAt(P.X, P.Y)) then GestTreeViewCheckBoxes(Treeview1.Selected); end;   procedure TForm1.GestTreeViewCheckBoxes(Node : TTreeNode); const cUnChecked = 0; cChecked = 1; begin if Assigned(Node) then begin if Node.StateIndex = cUnChecked then begin Node.StateIndex := cChecked; if Node.Parent.StateIndex = cUnChecked then Node.Parent.StateIndex := cChecked; end else if Node.StateIndex = cChecked then Node.StateIndex := cUnChecked end; end;

---

Mon problème c'est que lorsque je clic sur une case à cocher, c'est toujours le premier élément qui est coché/décoché lorsque je clic sur les cases (sauf sur la première parceque là ça fait rien du tout.

J'écoute toute suggestion, merci d'avance

A+.

Tu as le droit d'utiliser des composants open sources ?

Non, lol.

J'ai même pas le droit à la jvcl (parceque sur un autre logiciel il ont eu des problèmes de mise à jour des versions de Delphi), alors j'ai le droit qu'aux composants natifs...

Je sais c'est dur la vie d'un programmeur... :lol:

A+.

Bonjour,
J'ai fait un test et manifestement, l'image "case à cocher" n'apparaît que si StateIndex > 0. Donc :
Dans la TImageList, définir 3 images :
En 0, la case non cochée par exemple, (ça n'a pas d'importance)
En 1 la case non coché,
En 2 la case coché.
Ensuite définir les constantes dans la procédure :

Code:

---

1 2 3

const cUnChecked = 1; cChecked = 2;

---

Là, chez moi, ça fonctionne. Pour ma part je travaille en D6 et l'aide indique que l'image apparaît si StateIndex <> -1 ... Dans mon test, elle doit être > 0 (j'avoue qu'un truc m'échappe là ...)
Attention : Le test effectué sur node.parent risque de planter si celui-ci n'existe pas. En plus, il ne coche que le node parent et non les parents du parent (on peut dire les grand-parents ? ;) )
J'ai changé le code de la procédure pour que tous les noeuds situés au dessus soient aussi cochés (procédure recursive). On peut encore l'améliorer pour faire la même chose lorsqu'on décoche une case ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.GestTreeViewCheckBoxes(Node : TTreeNode); const cUnChecked = 1; cChecked = 2; begin if Assigned(Node) then begin if Node.StateIndex = cUnChecked then begin Node.StateIndex := cChecked; if Assigned(Node.parent) and (Node.Parent.StateIndex = cUnChecked) then GestTreeViewCheckBoxes(Node.Parent); end else Node.StateIndex := cUnChecked; end; end;

---

N'oublie pas d'initialiser StateIndex à 1 lors de la création d'un nouveau noeud ...
Maintenant, il y a peut-être mieux comme méthode ....
Bon courage !
Eb.

Il te manquerait pas un

Code:

---

TreeView1.Selected := TreeView1.GetNodeAt(MousePos.X,MousePos.Y);

---

?

Salut

Outre la remarque faite par ebastien (j'avais également déjà constaté ce comportement), j'utiliserais plutot l'évènement OnMouseDown plutôt que OnClick.

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin with TTreeView(Sender) do begin if htOnStateIcon in GetHitTestInfoAt(X, Y) then GestTreeViewCheckBoxes(GetNodeAt(X,Y)); end; end;

---

[edit] qi130 m'a précédé, et suis d'accord avec lui: le pb est très certainement le selected [/edit]
@+

Ok,

Merci beaucoup à vous tous, ça fonctionne très bien.

(un léger détail pour les débutants comme moi, il faut s'assurer que le noeud "cliqué" ai un parent pour faire:

Code:

---

if Node.Parent.StateIndex = cUnChecked then Node.Parent.StateIndex := cChecked;

---

, sinon gare aux accès violation... :aie:

A+.