Discussion :

[Jon Shannow]

Bonjour à toutes et tous,

Est-ce que quelqu'un a déjà utilisé un TreeView en modifiant la couleur du texte d'un noeud en fonction d'un critère particulier ?

Je voudrais pouvoir modifier les couleurs du texte des noeuds, mais les TTreeNode n'ont pas de composants Font, et je ne vois pas comment dans le TTreeview réaliser cela.

Si quelqu'un a une idée, ou s'il existe un composant dérivé qui permet cela, merci d'avance pour votre aide.

JS

[jurassic pork]

Hello,
avec l'événement OnCustomDrawItem, tu dois pouvoir y arriver :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.tv_eg1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 If Node.Text = 'Root' then   Sender.Canvas.Font.Color := clBlue;
 If Node.Text = 'Node1' then   Sender.Canvas.Font.Color := clRed;
 If Node.Text = 'Node2' then   Sender.Canvas.Font.Color := clGreen;
 If Node.Text = 'Node3' then   Sender.Canvas.Font.Color := clLime;
end;

Ami calmant, J.P

[Jipété]

Hello,
avec l'événement OnCustomDrawItem, tu dois pouvoir y arriver :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.tv_eg1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 If Node.Text = 'Root'  then   Sender.Canvas.Font.Color := clBlue;
 If Node.Text = 'Node1' then   Sender.Canvas.Font.Color := clRed;
 If Node.Text = 'Node2' then   Sender.Canvas.Font.Color := clGreen;
 If Node.Text = 'Node3' then   Sender.Canvas.Font.Color := clLime;
end;

Bonjour,

j'aimerais bien savoir ce qu'il manque au petit bout de code posté par jurassic pork pour avoir un fonctionnement correct de ces 4 lignes chez moi (Linux Debian 12, Lazarus 3.8 et un code venant d'un cador du forum [https://forum.lazarus.freepascal.org...html#msg398314]) auquel je n'ai rien changé sauf l'ajout de la procédure CustomDrawItem et ça ne fonctionne pas ! Les textes restent en noir, point final.

Je savais que le Treeview c'était compliqué :

But be warned: Custom drawing of TTreeView is very complex. It occurs in several stages (see the "Stage" parameter) and you must fully understand this drawing cycle otherwise this exercise will be quite frustrating...
https://forum.lazarus.freepascal.org...html#msg398341
https://forum.lazarus.freepascal.org...0;attach=42158
(j'ai mis deux liens, je ne sais plus lequel est le bon... Faut dire aussi qu'il m'apparait ce matin un problème avec dvlp, regardez la copie d'écran de ça en live :

Qui a cassé quoi ? )

, mais pas à ce point-là...

Merci pour le coup de main,

[jurassic pork]

Hello Jipété,
il faut que la propriété tvoThemedDraw dans Options du TreeView soit à False.

Ami calmant, J.P (sans T)

[Jipété]

Ah !

ÉNORME MERCI à toi !

[der§en]

Pour répondre à un besoin similaire, la coloration des items, je le faisait en consultant le level des ttreenode:

https://docwiki.embarcadero.com/Libr...TreeNode.Level

[Jon Shannow]

Hello,
avec l'événement OnCustomDrawItem, tu dois pouvoir y arriver :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.tv_eg1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 If Node.Text = 'Root' then   Sender.Canvas.Font.Color := clBlue;
 If Node.Text = 'Node1' then   Sender.Canvas.Font.Color := clRed;
 If Node.Text = 'Node2' then   Sender.Canvas.Font.Color := clGreen;
 If Node.Text = 'Node3' then   Sender.Canvas.Font.Color := clLime;
end;

Ami calmant, J.P

Bonjour JP,
de retour d'un Loooong WE, je vois cette magnifique réponse. Merci à toi.
J'avais utilisé cet évènement, avec succès, à priori, mais si on demande à mettre en évidence la sélection, (propriété HotTrack) on perd le formatage et je n'ai pas trouvé comment faire pour modifier l'aspect lors de la sélection.
Il y a bien la propriété HotTrackColor, mais pas de "HotTrackFont" !
Du coup, j'ai ôté la mise en évidence de la sélection.

JS

[Jipété]

... mais si on demande à mettre en évidence la sélection, (propriété HotTrack) on perd le formatage et je n'ai pas trouvé comment faire pour modifier l'aspect lors de la sélection.

Curieux... J'ai testé avec HotTrack à True et HotTrackColor avec clTeal et ma foi, ça fonctionne : en bougeant la souris sur un item, le pointeur devient "le doigt qui clique" et la couleur du texte change.

Qu'est-ce que tu appelles "le formatage" ?
As-tu bien pensé à décocher tvoThemedDraw ?

[Jon Shannow]

Curieux... J'ai testé avec HotTrack à True et HotTrackColor avec clTeal et ma foi, ça fonctionne : en bougeant la souris sur un item, le pointeur devient "le doigt qui clique" et la couleur du texte change.

Qu'est-ce que tu appelles "le formatage" ?
As-tu bien pensé à décocher tvoThemedDraw ?

Bonjour Jipété,

Quand je parle du formatage, c'est, par exemple, la mise en italique ou en gras.
Ensuite, il prend la couleur du HotTrackColor, mais on ne peut pas avoir une couleur différente en fonction d'un critère particulier du nœud.

JS

[Jipété]

... on ne peut pas avoir une couleur différente en fonction d'un critère particulier du nœud.

Ça doit dépendre du critère, puisque par exemple, selon le text ou le level, tu peux avoir une couleur ou une autre, on l'a bien vu.
Toi, tu voudrais utiliser un autre critère ? Lequel ?

[Jipété]

Ah oui, ça peut être sympa : me suis appuyé sur l'éditeur de nodes pour en ajouter 5 tout en bas et j'ai joué avec les couleurs, ce qui donne ça :


et pendant que j'y étais, cette copie d'écran des couleurs, pour éviter de chercher (depuis le temps que je devais la faire...) :

Allez hop !, cadeau,

PS : l'éditeur du forum a retrouvé ses boutons.