TreeVieweintrag erhält nicht die volle Focuslänge

**borstenei**

Hallo,
ich möchte das in meinen TreeView beim select auf dem ersten Node , dieser fett markiert wird.
Das tut es auch, nur leider scheint der Focus nicht zu wissen wie lang der neue Text ist, es wird nur die alte Länge focusiert.
Wie kann ich das ändern?

markieren

Delphi-Quellcode:

			procedure TMainFrm.Book_TVCustomDrawItem(Sender: TCustomTreeView;

  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

begin

  if Node.Level = 1 then

    Sender.Canvas.Font.Size := Sender.Canvas.Font.Size - 2;

  if Node.Level = 0 then

     if cdsFocused in State then begin

     Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold];

     end;

end;

TreeVieweintrag erhält nicht die volle Focuslänge

TreeVieweintrag erhält nicht die volle Focuslänge

Forumregeln