Italian community of Lazarus and Free Pascal

Spesso e' utile evidenziare con colori diversi le voci presenti in un controllo TTreView, acnhe solo per
dare l'idea all'utilizzatore di quali voci siano Titoli e quali Voci Operative, per farlo bastano pochi
passaggi:

1 - nel Controllo TreeView andare su Options ed impostare tvoRowSelect = True
questo permettera' di avere una barra colorata larga quanto il TreeView stesso

2 - attivare l'Evento AdvancedCustomDrawItem (doppio click)



Sender.Canvas.Font.Color := clNavy;
Assegna un Colore diverso al Nodo che abbia figli

Sender.Canvas.Font.Style := [fsBold];
Assegna un Atrtibuto sul Font diverso al Nodo che abbia figli, in questo esempio Grasetto

Sender.SelectionColor := clSilver;
questa rappresenta il Colore di fondo della Barra Cursore che evidenzia ciascuna voce
verificando se il nodo ha figli   if Node.HasChildren then
possiamo cambiare colore quando ilo cursore o si clicca su uno di questi Nodi