listview颜色交替显示代码

procedure TfrmRecordQuery.lvRecordInfoCustomDrawItem(

  Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;

  var DefaultDraw: Boolean);

var

  i: integer;

begin

  i:= (Sender as TListView).Items.IndexOf(Item);

  if odd(i) then sender.Canvas.Brush.Color:= $02E0F0D7

  else sender.Canvas.Brush.Color:= $02F0D0E2;

  Sender.Canvas.FillRect(Item.DisplayRect(drIcon));

end;