Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
25. Nov 2005
Hi Lucius,
die Farbsteuerung muss in der CustomDrawItem()-Routine vorgenommen werden, nicht in der Update-Routine. An der von dir bezeichneten Stelle kannst du nur einen Merker setzen.
Wenn die Neuzugänge lückenlos zusammen stehen, dann reicht es, wenn du dir deren Anzahl merkst (NewsCount) und später in CustomDrawItem() prüfst, ob Item.Index < NewsCount ist oder nicht. Kriterium ist also...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
25. Nov 2005
Hi Lucius,
das Einfärben ist kein Problem - hier wechselt die Zeilenfarbe alternierend:
procedure TDemoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index)
then Sender.Canvas.Font.Color := clMaroon