是不是不同的字体或字色或字底色?
如果是这个,应该很容易做到啊,代码如下:
procedure TfrmBN.lsvGoodsCustomDrawItem(Sender: TCustomListView;
Item: TListItem;
State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if Round((Item.Index Mod 2))=0 then
lsvGoods.Canvas.Brush.Color:=RGB(220,255,220)
else
lsvGoods.Canvas.Brush.Color:=clWhite;
end;