TListView Zeilenfarbe mit "CustomDrawItem" ändern

[Mazen]

Hab nochmal eine Frage zum TListView...

Und zwar gehts jetzt dadrum bestimmt Zeilen im ListView zu färben. Ich habe gelesen das das mit dem Event "CustomDrawItem" des ListView gemacht werden soll. Allerdings funktioniert das bei mir nicht.
Das Prinzip ist folgendes:

Ich habe in meiner "Hauptfunktion" eine Schleife mit der der ListView gefüllt wird. Meine Hoffnung war das das Event "CustomDrawItem" jedesmal aufgerufen wird wenn li.Caption := '...' ausgeführt wird. Bei mir ist es aber so das die Schleife erstmal komplett durchläuft, und erst danach das Event ausgeführt wird (natürlich genausoft wie auch li.Caption aufgerufen wurde, aber das nützt mir nichts, da ich bei Laufzeit in der Schleife eine Variable setze und diese im Event abgefragt wird. Nur das ist natürlich nutzlos wenn li.Caption und das Event nicht abwechselnd aufgerufen werden.

Mein Code im Event sieht so aus:

Code:

  if fehlercode = '1 ' then
  begin
    Sender.Canvas.Font.Color := clRed;
    DefaultDraw := True;
  end
  else if fehlercode = '2 ' then
  begin
    Sender.Canvas.Font.Color := clGreen;
    DefaultDraw := True;
  end
  else if fehlercode = '1 2 ' then
  begin
    Sender.Canvas.Font.Color := clBlue;
    DefaultDraw := True;
  end else
  begin
    Sender.Canvas.Font.Color := clDefault;
    DefaultDraw := True;
  end;

[Sir Rufo]

Mal anders gefragt:

So eine Komponente (z.B. TListView) wird ja immer wieder neu gezeichnet, auch wenn du keine Daten zuweist.
Und dann wird auch logischerweise CustomDrawItem aufgerufen.

Wie soll die Methode denn dann wissen, wie sie zeichnen soll?

[DeddyH]

Eben, man müsste also den Fehlercode in den Daten ablegen (TListItem.Data) und beim Zeichnen wieder auswerten.

[Mazen]

Hm, kann ich so jetzt noch nicht viel mit anfangen. Sitz da aber auch grade nicht vor...
Werd mir das morgen mal anschauen
Danke

[Mazen]

Soo... da bin ich wieder...
Also ich bin schon ein gutes Stück weiter.
Allerdings macht er mit alle Zeilen rot, auch wenn "fehler := false" ist... (fehler ist vom Typ Boolean)
Schauts euch mal an, hier der Teil wo ich zeichne:

Code:

li := ListView1.Items.Add;
      li.Data := Pointer(fehler);
      li.Caption := kunde;
      li.SubItems.Add(hz[0]);
      li.SubItems.Add(hz[1]);
      li.SubItems.Add(hz[2]);
      li.SubItems.Add(erg);

und hier die "Auswertung"

Code:

procedure TfrmZentralen.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Boolean(Item.Data) = true then
  begin
    Sender.Canvas.Font.Color := clRed;
    DefaultDraw := True;
  end
  else
  begin
    Sender.Canvas.Font.Color := clDefault;
    DefaultDraw := True;
  end;
end;

Edit: Asche auf mein Haupt... Ich hab im Vorfeld einfach "fehler" falsch gesetzt :/
Dann kann dieser Thread auch geschlossen werden, Danke euch beiden