(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: TListView - Listenindex überschreitet Maximum(8)
14. Jan 2005, 08:16
so muss es sein
Delphi-Quellcode:
if ((Item.Index mod 2) = 0) then
begin
if (Item.SubItems.Count > 8) and (Item.SubItems.Strings[8] = '-') then
MovieList.Canvas.Brush.color := clRed
else
MovieList.Canvas.Brush.color := clSkyBlue;
end;
Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|