listview行与行之间的颜色不同，可是容易花(50分)

我的效果是行之间颜色相隔
出现滚动条后，一拖或者点击后就花了
，怎么办
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
inc(i);
if odd(i) then begin
listview1.Canvas.Brush.Color:=$00FEF4E7;
listview1.Canvas.FillRect(item.DisplayRect(drBounds));
end else begin
listview1.Canvas.Brush.Color:=$00F7F8F9;
listview1.Canvas.FillRect(item.DisplayRect(drBounds));
end;
end;

我以前的情况比你还严重，
在2000下还好好的，到了98就死机，
把这些颜色处理去掉就没事。
关注

我说的是listview的颜色就不对了

我要的是他们的颜色格行不同

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if odd(item.Index) then
item.ListView.Canvas.Brush.Color:=$00FEF4E7
else
item.ListView.Canvas.Brush.Color:=$00F7F8F9;
end;

接受答案了.