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