Discussion :

[Dereck07]

Bonjour,

J'ai découvert que l'on pouvait mettre des icones dans les treeviews.
C géniale. Pour cela, il suffit mette les icones que l'on veut utiliser dans un TImageList et affecter le nom de ce TImageList à la propriétés Images de notre treeview. A chaque fois que je crée un nouveau noeud celui-ci à un icon qui s'affiche a ca gauche. (l'icon dont l'index est 0 dans l'ImageList).

Si je veux changer l'icon du 4 eme noeud de mon treeview il me suffit de faire:

Code :

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

1
2
 
Form1.TreeView1.Items[4].ImageIndex:=2;

Ca marche bien le noeud en question prend bien l'icon d'index 2.

Cependant j'ai un petit souci quand je le selection le 4eme noeud en cliquant dessus l'icon avec le quel il a été initialisé apparait. Et si je clique autre part l'icon d'index 2 réapparait.

Pk ca fait ca? et comment faire pour que ca ne le fasse plus?

Merci

[PadawanDuDelphi]

Salut,

Il faut éviter d'utiliser l'index 0 pour un TTreeview => cf. aide Delphi. Met une image quelquonque (la même que ta première par exemple) pour ton indice 0 de ton timagelist et ne l'emploi pas.
Un exemple , en ayant relié ta timageList a statesIndex de ton treeview:

Code :

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

1
2
EnfantNode := treeview1.Items.AddChild(ParentNode,'Nom'.AsString);
            EnfantNode.StateIndex := 1; //l'indice de ton image, différent de 0

A+.

[ebastien]

Bonjour,
Il existe aussi la propriété TTreeNode.SelectedIndex correspondant à l'index de l'image lorsque le noeud est sélectionné.
Dans ton cas ceci devrait a priori fonctionner :

Code :

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

1
2
Form1.TreeView1.Items[4].ImageIndex:=2;
Form1.TreeView1.Items[4].SelectedIndex:=2;

eb.

[Dereck07]

Merci ebastien ca marche nickel!

Comme t'as l'aire de bien maitriser les Treeviews j'ai encor deux petites questions:

1)connais tu un moyen pour que l'icon apparait plus gros? (c pas grave si ca grossi le text en même temps)

2)J'aimerai que le text du 4eme noeud apparaisse en rouge, tu connais le nom de cette proprièté?

En tout cas, deja merci pour avoir résolu mon premier probleme, ca faisait un petit momment que je cherchais...

[Dereck07]

Pour grossir l'icon c bon j'ai touvé il suffissait de passer de 16 à 32 la propriété Height et Width du ImageList qui contient les icons.

Parcontre pour changé la ligne de couleur j'ai qu'un debut de piste:
J'ai remarqué dans l'inspecteur d'objets que le treeview avait une propriété front qui elle même a une proprieté color.
Si je passe cette propriété à rouge toutes les lignes de mon treeviews passe au rouge.
Il faut donc que je trouve cette propriété pour un noeud donné. Mais voila, je la trouve pas pour un TtreeNoeud. Si quelqu'un sais ou trouver ca je suis preneur...

[ebastien]

Il n'y a pas de propriété Font sur un TTreeNode ...
Il y a une solution à ton problème en espèrant que ça réponde à ta question : Pour mettre le texte d'un noeud en rouge, il faut implémenter l'événement TTreeView.OnCustomDrawItem :

Code :

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

1
2
3
4
5
6
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Node.AbsoluteIndex = 0 then
      Sender.Canvas.Font.Color := clRed;
end;

Ce bout de code changera la couleur de la Font du premier noeud de l'arborescence.
Cet événement est appelé chaque fois que le Treeview doit être repaint.

[Dereck07]

C parfait!

Mille fois Merci

[Dereck07]

Heuu... enfaite je me suis emflammé un peu vite
Il me manque un dernier truc c la procedure qui permet faire redessiner le noeud d'un treeviews ou alors tout le treeview... L'ideal ca serai de redessiné juste le noeud.

[Dereck07]

J'ai trouvé un moyen de faire redessiner le noeud du treeview:

Code :

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

1
2
 
  TreeView1.Items[4].Selected:=True;

Voila tout...

encor merci a tous