[Solved] Text color in TTreeView node

[Edson]

I´m trying to change the text color of all nodes in a TTreeView:

Code: Pascal  [Select][+][-]

1. procedure TfraSyntaxTree.TreeView1AdvancedCustomDrawItem(
2.   Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
3.   Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
4. var
5.   R: TRect;
6. begin
7.   with TreeView1.Canvas do begin
8.      font.Color:= clGreen;
9.      font.Style := [fsBold, fsItalic];
10.      DefaultDraw := true;  
11.   end;
12. end;

The style changed, but not the text color. Suggestions?

[AlexTP]

Turn off ThemedDraw option, and it will be green.

[Edson]

Yes. You are right.