Discussion :

[ramseb]

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 :

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 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 :

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

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

et aussi

Code :

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

Point:=TreeView1.ScreenToClient(P1);

rien n'y fait!!

Merci de votre aide!

[tigunn]

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'

[m.nico]

utilise les evenements getselectedindex et getimageindex du treeview
par exemple

Code :

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

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;

[ramseb]

marche pas non plus!!

[m.nico]

if faut tester si le node est selectionne

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
 
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;

[ramseb]

En c'est là

Code :

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

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!

[ramseb]

Done!

En fait c'etait

Code :

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

htOnIcon in TreeView1.GetHitTestInfoAt(X,Y);

Merci