Problem beim Einfärben von ListView (Sub)Items

[luke2]

Hi,

ich benutze folgenden Code, um jedes 2. Item einer ListView einzufärben:

Delphi-Quellcode:

procedure TForm1.lvTestCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Odd(Item.Index) then
    Sender.Canvas.Brush.Color := clSilver
  else
    Sender.Canvas.Brush.Color := clWindow;
end;

Zudem noch folgenden Code, um bestimmte SubItems einzufärben:

Delphi-Quellcode:

procedure TForm1.lvTestCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 3 then
  begin
    if Item.SubItems[SubItem - 1] = 'OK' then
      Sender.Canvas.Font.Color := clGreen
    else
      Sender.Canvas.Font.Color := clRed;
  end
  else
    Sender.Canvas.Font.Color := clWindowText;
end;

Das Problem ist jetzt, dass nach dem Einfärben des 2. SubItems die Einfärbung (clSilver, s.o) für diese Zeile aufhört und auch noch alle weiteren SubItems (grün) eingefärbt werden.

Warum ist das so? Ich habe im Code doch festgelegt, dass die Farbe wieder clWindowText (schwarz) sein soll, wenn es nicht das 2. SubItem ist.

[himitsu]

Es gibt wohl ein Problem mit dieser einen Systemfarbe. (einige andere Systemfarben funktionieren aber)

Delphi-Quellcode:

  else
    Sender.Canvas.Font.Color := ColorToRGB(clWindowText);

[luke2]

Danke himitsu (mal wieder, wie oft du mir schon geholfen hast... :thumb:)

[Metschu]

Supi, dann ist mein Problem mit dem Färben des Hintergrundes auch gelöst :-D

"ClWindow" mochte er auch nicht direkt, hatte es dann als Workaround immer mit "ClWhite" "Erzwungen", blöd nur wenn jemand ne andere Desktop Farbeneinstellung hatte :twisted: