treenode font style

[fcu]

Hi
how can i change a treenode font style , make it bold for example
like in the picture

[jamie]

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

1.  
2. procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
3.   Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
4. begin
5.  With TTreeView(Sender) do
6.    Begin
7.      If Node.Parent = Nil Then
8.        Begin
9.         font.color := clBlack;
10.        end
11.      else
12.    Font.Color := clgray;
13.    end;
14. end;                      
15.  

Set the NoThemeDraw to off in the Options of the Treeview.

[fcu]

thanks jamie