TreeView and Focusrect

[Nordlund]

Hi there.
How do I remove the Focusrect and the Select rectangle from a TTreeView?

I've tried to write an OnDrawItem procedure, but I cant get it to work...




~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-"There is always another way to solve it, but I prefer my way.

 

[Nordlund]

I've added this code in then CusomDrawItem event.
But the Focusrect still remain.
The

var
  NodeRect: TRect;
begin
  with TTreeView(Sender).Canvas do
  begin
    NodeRect := Node.DisplayRect(true);

    Brush.Color := clWhite;
    FillRect(NodeRect);
    Font.Color := clBlack;
    end;
  end;
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-"There is always another way to solve it, but I prefer my way.