Zitat von
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
Pred? Ist SubItem nicht der Index?