Probleme bei TreeView / Kombobox mit Tabulator

[frieder2008]

Danke, das hilft etwas weiter. Beim Ausprobieren verschiedener Möglichkeiten versuche ich gerade zu realiseren, dass bei einem Klick der selected-Knoten fett markiert wird (und auch bleibt!) und beim erneuten clicken wieder normal ist.

Problem gerade: ich bekomme es zwar bold, aber sobald ich mit dem Cursor weiterfahre, ist nur ein Resteckchen des zuletzt markierten Nodes fett, der Rest wird wieder normal. Es scheint, als würde der fette Teil zwar neu gezeichnet, aber nur temporär (während der Auswahl) über den zuvor gezeichneten Eintrag gelegt, anschließend aber darunter fällt..

Delphi-Quellcode:

procedure TForm1.treeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

begin
  if node.Selected then with tree.Canvas do
  begin
    font.Style:= [fsbold];
    font.color:= clred;
    if markiert=true then tree.selected.Text:=tree.Selected.Text;
  end;
  markiert:= false;

end;

procedure TForm1.treeClick(Sender: TObject);
begin
  markiert:= true;
end;