Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - ListView.CustomDrawSubItem: clWindowText wird überschrieben?


wulfskin - Fr 05.11.04 16:18
Titel: ListView.CustomDrawSubItem: clWindowText wird überschrieben?
Hallo,

habe mal wieder ein sehr seltsames Problem. Ich möchte die zweite Spalte einer ListView rot einfärben, alle anderen Spalten sollen jedoch die normale Textfarbe beibehalten.
Mein Quelltext für das Ereignis CustomDrawSubItem:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
  with Sender.Canvas do begin
    if SubItem = 1 then
      Font.Color := clRed
    else
      Font.Color := clWindowText; {geht nur mit "statischer Farbe" wie z.B. clBlack}
  end;
Komischerweise, werden alle Spalten nach der zweiten Spalte auch rot. Der Fehler kann nur behoben werden, wenn ich statt clWindowText eine "statische Farbe" benutze, wie z.B. clBlack.

Weiss jemand Rat?

Gruß Hape!