Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
14. Jan 2005
@schuetze: Wenn es so geht heißt das aber auch das vermutlich kein Index 8 vorhanden ist, denn sonst wäre der Fehler nie aufgetaucht, außer du hast paar zeilen die weniger spalten haben und dann wiederum welche die wirklich eine 9te Spalte haben (Index 8)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
14. Jan 2005
so muss es sein
if ((Item.Index mod 2) = 0) then
begin
if (Item.SubItems.Count > 8) and (Item.SubItems.Strings = '-') then
MovieList.Canvas.Brush.color := clRed
else
MovieList.Canvas.Brush.color := clSkyBlue;
end;