best. ListView Item Farbe zuweisen

[Micha]

Wie kann ich einem best. ListView-Item eine Farbe zuweisen?

Ich habe meine ListView auf ViewStyle = vsReport und somit 2 Spalten.
In der zweiten Spalte stehen Datums-Werte.

Wenn nun ein Datum größer als 01.10.2002 ist, so soll dieser Eintrag (ganze Zeile oder nur Item, ist egal) rot markiert werden.

Ansatz (fehlerhaft!):

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
ListItem: TListItem;
begin
  if Item.Caption > '01.10.2002' then
   begin
    ListView1.Items.color := clred;
   end;
end;

Vielen Dank im Voraus.

[neolithos]

Gab/Gibt es bei solch einer Aktion nicht Speicherloch im ListView :gruebel:

Ich habe sowas generell immer komplett gezeichnet.
Man hat so mehr Möglichkeiten und es sieht besser aus!

[Micha]

Ich versteh nicht ganz?!

Ich nehme die ListView auch nur zum Anzeigen her.
Für das Einfügen, Ändern oder Löschen hab ich ne ganz andere Form. - Wenn es das war, was du meintest.

[teebee]

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  TListView(Sender).Canvas.Font.Color := clRed;
end;

Das funktioniert, wenn OwnerDraw auf False steht...

Gruß, teebee