Modifier l'icone d'un TTreeNode sur click

Depuis hier, je bloque dessus! Je veux changer l'icone du treenode quand l'utilisateur clique sur cet icone, et uniquement sur cet icone!

Code:

---

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

procedure TForm1.TreeView1Click(Sender: TObject); var Point, P1:TPoint; begin GetCursorPos(P1); label1.Caption:=IntToStr(P1.X); label2.Caption:=IntToStr(P1.y); Point:=Form1.ScreenToClient(P1); label3.Caption:=IntToStr(Point.X); label4.Caption:=IntToStr(Point.Y); if Treeview1.Selected=nil then exit; Treeview1.Selected.Selected:=true; if TreeView1.GetHitTestInfoAt(Point.X,Point.Y)=[htOnIcon,htOnStateIcon] then if Treeview1.Selected.ImageIndex = 0 then Treeview1.Selected.ImageIndex := 1 else Treeview1.Selected.ImageIndex := 0; end;

---

Il se passe rien, l'icone ne change pas!

J'ai même essayé

Code:

---

if TreeView1.GetHitTestInfoAt(P1.X,P1.Y)

---

et aussi

Code:

---

Point:=TreeView1.ScreenToClient(P1);

---

rien n'y fait!!

Merci de votre aide! :wink:

salut ramseb,
je pense que l'instruction qe tu recherche est
cnoeud.SelectedIndex:=y; //avec y est la valeur de l'index pour l'image que tu souhaite afficher.
bon dev'

utilise les evenements getselectedindex et getimageindex du treeview
par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure Tform1.TrreeviewGetSelectedIndex(Sender: TObject; Node: TTreeNode); begin node.selectedindex := node.imageindex; end;   procedure Tform1.TreeviewGetImageIndex(Sender: TObject; Node: TTreeNode); begin Node.ImageIndex := 1 end;

---

marche pas non plus!!

if faut tester si le node est selectionne

Code:

---

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

procedure Tform1.TrreeviewGetSelectedIndex(Sender: TObject; Node: TTreeNode); begin node.selectedindex := node.imageindex; end;   procedure Tform1.TreeviewGetImageIndex(Sender: TObject; Node: TTreeNode); begin if node.selected then node.ImageIndex := 0 else node.ImageIndex := 1; end;

---

En c'est là

Code:

---

if TreeView1.GetHitTestInfoAt(Point.X,Point.Y)=[htOnIcon,htOnStateIcon]

---

qu'il foire! la condition n'est pas vraie donc il rentre pas dans la boucle, donc il change rien!! Sans ce if, ça passe, mais kelk soit l'endroit où je clique sur le node! :?

Done!

En fait c'etait

Code:

---

htOnIcon in TreeView1.GetHitTestInfoAt(X,Y);

---

Merci