Zeilen in ListView markieren

[Akut-Programming]

Hi!

Ich will in nem Prog die vergangenen Termine anders markieren. Die Daten werden in´ner ListView angezeigt welche den ViewStyle Report hat. Gibts da vielleicht schon n Source fürne Schleife??

Greetz,

[Tpercon]

Am einfachsten ist es, wenn du dir noch ein Feld Status (Benachrichtigt, Offen, Vorbei,...) machst. und im CustomDrawItem der ListView Komponente Ereignis fragst du das dann ab.
Ansonsten mußt du das halt übers Datum und so berechnen.
Hier 'nen Lösungsvorschlag zur 1. Variante:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  Sender.Canvas.Brush.Color :=clBTNFace;
  if Item.Subitems.Strings[6] = 'Offen' then begin
    Sender.Canvas.Brush.Color :=clGreen;
  end;
  if Item.Subitems.Strings[6] = 'Benachrichtigt' then begin
    Sender.Canvas.Brush.Color :=clYellow;
  end;
end;

[Akut-Programming]

Hey Danke, werd ich ma mit einbauen.