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