Discussion :

[Vulcanos]

Bonjour à tous,

Savez-vous comment on peut modifier par programme la couleur du texte d'un TTreeNode sélectionné dans un TTreeview ?

Merci

[cpdump]

Il faut utiliser onCustomDrawItem ou onAdvancedCustomDrawItem

[Vulcanos]

ok, mais je fais quoi après ?

[cpdump]

Il faut utiliser l'evenement OnCustomDrawItem, voila un bout de code que j'ai trouvé sur Internet, j'ai pas le temps de le tester ni de le traduire.

Code :

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

1
2
3
4
5
6
7
8
...
Savecolor :=  Sender.canvas.font.color;
if node.tag = 1 then begin
   Sender.canvas.font.color := clRed;
end else begin
   Sender.canvas.font.color := clBlack;
   end;
Sender.canvas.font.color := Savecolor;

[Vulcanos]

Merci. Je vais tester.

[Vulcanos]

Salut,

Réponse un peu tardive :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TfratmetAc.TVAcAdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
var ...
begin
 
// Coloration des noeuds
  if <Condition>     then
        TVAc.Canvas.Font.Color := clRed
        else  TVAc.Canvas.Font.Color := clBlack;
  end;
end;