schriftfarbe bei customdraw

[empanyc]

Hi,

meine TTreeview-Komponente fülle ich selber mittels customdraw-ereignissen.
Nun habe ich das Problem, dass die ausgewählten Einträge immer weiss
angezeigt werden.
Gerade bemerke ich, dass ich die Farbe der Schrift allgemein net einstellen
kann. Ändern von font.color und pen.color bringt nix.
Weiss jemand woran das liegt?

Danke!
Mario

[Keldorn]

Hallo

wo änderst du font.color und vor allem welches font.color? Poste mal mehr Code, vielleicht hast du dich irgendwo vertan und greifst auf des falsche Canvas-objekt zu, du mußt schon Treeview.canvas.font.color setzen.

Mf gFrank

[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

[empanyc]

Im OnCustomDrawItem-Ereignis:

Delphi-Quellcode:

 treeview1.Canvas.Brush.Style := bsclear;
 treeview1.Canvas.Font.Color := clblack;  // <---
 treeview1.canvas.TextOut(x+5,y,node.Text);
 defaultdraw := false;

Trotz der markierten Zeile wird der Text, wenn ich den Eintrag
markiert habe, immer weiss angezeigt.
Auch die "unmarkierte" Farbe lässt sich net ändern.

Das "defaultdraw := false" ist halt nötig, damit das Hintergrundbild
korrekt angezeigt wird.

Gruß
Mario

[Keldorn]

also bei mir geht dein codeschnippsel. Kannst du bitte mal die gesamte routine posten?