Discussion :

[[ZiP]]

Bonjour,

J'ai un petit soucis avec mon TTreeView. J'utilise des icônes via la propriété "Image" pour mes "Items".

Le problème que je rencontre vient du fait que lorsque je séléctionnne mon item, il me met l'image 0 de mon TImageList or je souhaiterai que l'icône ne change pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFPrincipale.FormCreate(Sender: TObject);
var
     Arbre     : TTreeNode;
begin
     TrayIcon1.Visible := true;
     Arbre := TreeView1.Items.Add(nil,'ABCD');
     Arbre.ImageIndex := 7;
     Arbre := TreeView1.Items.AddChild(Arbre,'EFGH');
     Arbre.ImageIndex := 6;
     Arbre := TreeView1.Items.Add(Arbre,'IJKL');
     Arbre.ImageIndex := 6;
end;

Savez-vous comment faire ?

Merci,
ZiP

[Cl@udius]

Salut

Attribue au noeud la propriété SelectedIndex avec la même valeur que ImageIndex.

Code :

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

1
2
3
4
 
  Arbre := TreeView1.Items.Add(nil,'ABCD');
  Arbre.ImageIndex := 7;
  Arbre.SelectedIndex := 7;

@+ Claudius

[[ZiP]]

Bonjour,

Merci pour l'astuce, ça marche parfaitement !

ZiP