@OLLI_T:
wie sollte ich es sonst machen? ich habe in der Spalte nur 1 oder 0 drin.
und wenn ich deins:
Delphi-Quellcode:
If Item.SubItems.Count=0
then exit
else if StrToInt(Item.SubItems[0]) > 0 then ListView1.Canvas.Brush.Color := clgreen;
mit einbaue, bekomme ich die Fehlermeldung: Listenindex überschreitet Maximum
(1)
MfG
schuetze09