Change the Treeview color based on the conditions

In Delphi, The Treeview tree control is used to change its color. The customdrawitem method is used:

 

Code

Procedure Tform1.tv1customdrawitem (Sender: tcustomtreeview;
Node: ttreenode; State: tcustomdrawstate; VaR Defaultdraw: Boolean );
Begin
If Odd (node. absoluteindex) Then
Begin
Sender. Canvas. Brush. color: = Clgreen; // Change Background Color
Sender. Canvas. Font. color: = Clwhite; // Change font color
End
Else
Sender. Canvas. Font. color: = Clred;
End ;

When the content conditions change, use node to judge:

Code

Procedure Tform1.tv1customdrawitem (Sender: tcustomtreeview;
Node: ttreenode; State: tcustomdrawstate; VaR Defaultdraw: Boolean );
Begin
If Length (node. Text) < 5   Then
Tv1.canvas. Brush. color: = Clred
Else
Tv1.canvas. Brush. color: = Clwhite;
End ;