Treeview, Node färben

[Ast85]

Hallo zusammen!
Ich möchte in einem Treeview die Farbe eines Nodes ändern, was bereits auch schon ganz gut klappt:

Delphi-Quellcode:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (Node.Index = 0) AND (CheckBoxSperreFallpfad.Checked) then
  begin
    Sender.Canvas.Font.Color := clMaroon;
  end
    else if (Node.Index = 0) AND (CheckBoxSperreFallpfad.Checked = False) then
    begin
      Sender.Canvas.Font.Color := clWindowText;
    end;
end;

Das Einfärben funktionniert. Das Problem ist jetzt, dass ich, wenn ich die Farbe auf "clWindowText" einstelle und ich den entsprechenden Node markiere, den Eintrag nicht mehr lesen kann. Normalerweise sehe ich weiße Schrift auf blauem Hintergrund bei einer Markierung, bei meinem Coding ist das nicht der Fall...

Danke schon mal für Eure Hilfe!

VG Ast85

[Alaitoc]

Vll. hilft dir die Eigenschaft HotTrack (Eigenschaft von TCustomTreeView) sowie TCustomDrawState (Typ) weiter.

Eine kleine Information am Rande dabei noch: Falscher Font nach CustomDraw ( TTreeview )

MfG Alaitoc