Einzelnen Beitrag anzeigen

schuetze09

Registriert seit: 3. Mär 2004
113 Beiträge
 
Delphi 2005 Architect
 
#1

TListView - Listenindex überschreitet Maximum(8)

  Alt 14. Jan 2005, 06:59
Hallo,

Was ich nicht verstehe, unter W2K kommt keine Exception, aber unter WinXP.

Hier mal mein Source:
Delphi-Quellcode:
procedure TForm_Main.MovieListCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ((Item.Index mod 2)= 0)
  then begin
         MovieList.Canvas.Brush.color:=clSkyBlue;
         if Item.SubItems.Strings[8] = '-then MovieList.Canvas.Brush.color:=clRed; // hier kommt die Exception!!!
       end;
end;
was ist daran falsch?

MfG
schuetze09
  Mit Zitat antworten Zitat