schriftfarbe bei customdraw

[s14]

Also, bei mir funktioniert es so:

Delphi-Quellcode:

procedure TForm1.TV1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with TV1.Canvas do
  begin
    font := TV1.Font;
    Font.Style := [];
    Font.Color := clWindowText;

    if cdsSelected in State then
    begin
      Font.color := clWindow;
      if OutDated then Brush.Color := clRed
      else Brush.Color := clHighLight;
    end;
  end;
end;

Gruß
s14