关于ListView网格颜色的问题(100)

有哪位大哥知道ListView的网格线的颜色深度如何修改，现在的颜色是灰色的，怎么调整为黑色

procedure TForm1.lv1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin inherited; DefaultDraw := false; if ((Item.Index) mod 2) = 0 then begin TListView(Sender).Canvas.MoveTo(1,Item.Index*10); TListView(Sender).Canvas.Brush.Color := RGB(0, 0, 0); TListView(Sender).Canvas.LineTo(100,Item.Index*10); TListView(Sender).Canvas.Brush.Color := RGB(255, 255, 255); //TListView(Sender).Canvas.Font.Color := clred; end; DefaultDraw := true;end;//重新画，具体画的位置楼主自己看着调吧

TO:zhengrong117大哥，你这段代码运行有错误啊，能不能重新发一下

您这块的Item.Index指的是什么？

接受答案了.