listview控件的使用问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

listview控件的使用问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
我想为listview控件在添加每个item时,设置不同的背景颜色,但不能生效????!
代码如下 :
   procedure TForm1.LV1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
begin//如果modi是偶数就把背景设为蓝色
if ( modi mod 2 = 0) then   lv1.Canvas.Brush.Color:=clblue  else
  //如果不是偶数就把背景设为红色
      lv1.Canvas.Brush.Color:=clred;      lv1.Canvas.FillRect(rect);
     
end;---------谢谢!!

Answer 1

Modi没有地方进行计数累加或不好却定。因为你不知道它重画时是不是按顺序。还有时它可能只进行部分重画。正确的方法应该是根据该item和itemindex来却定。

Answer 2

用Data属性来保存颜色信息比较好。