Item in TListView einfärben

[marabu]

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

with Sender.Canvas.Brush do 
  if Item.SubItems[Pred(SubItem)] = 'ja' 
    then Color := clred
    else Color := clBlack;

Später müsste man dann noch State auswerten, damit das ganze schöner aussieht.

Grüße vom marabu