Einzelnen Beitrag anzeigen

Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#2

Re: Zeilen in ListView markieren

  Alt 11. Sep 2003, 15:27
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] = 'Offenthen begin
    Sender.Canvas.Brush.Color :=clGreen;
  end;
  if Item.Subitems.Strings[6] = 'Benachrichtigtthen begin
    Sender.Canvas.Brush.Color :=clYellow;
  end;
end;
  Mit Zitat antworten Zitat