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?

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;

[himitsu]

Du mußt auch beim Berechnen der Item-Breite (nicht nur beim Malen) den Fontstyle anpassen.

Alternativ kannst du auch irgendwo einstellen, daß die komplette Zeile markiert werden soll.

[borstenei]

..ja wenn ich den TreeView auf AutoExpand stelle funktioniert das richtig aber das ist nicht das was ich möchte.
Der Baum ist zb. in meinem Fall beim Start( wenn der User es will) aufgeklappt.

[borstenei]

Hi Himitsu,
hast Du ein Ansatz wie ich da vorgehen muss ?