Item in TListView einfärben

[marabu]

Einfache Erklärung: das ist nicht mein Code und auch nicht der von treffnix. Du fragst nur SubItem[5] ab und steuerst damit die Farbunterlegung für alle SubItems.

Wenn du nur die Spalte mit 'ja' und 'nein' einfärben willst, dann probiere es so:

Delphi-Quellcode:

with Sender.Canvas.Brush do
  if Item.SubItems[5] = 'ja' then 
    if SubItem = 6 
      then Color := clgreen 
      else Color := clBlack
  else 
  if Item.SubItems[5] = 'nein' then 
    if SubItem = 6 
      then Color := clred 
      else Color := clBlack
  else
    Color := clBlack;

marabu

@treffnix: Scheint so als wäre Subitem = Succ(index).