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.