ListView.CustomDrawSubItem: clWindowText wird überschrieben?

wulfskin · Verfasst: Fr 05.11.04 16:18

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:

markieren

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!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme