title: ListView in vsReport mode colouring of Items and rows
body: <p>I want to color one row in gray and the other in white.<br>
  I have the following code but there is white space of vertical lines of columns in Windows 7.<br>
  How do I color all rows?</p>
  
  <pre><code>procedure TForm2.Update_ListBoxCustomDrawItem(Sender: TCustomListView;
    Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  begin
   if Item.Index mod 2=0
   then
    begin
     Sender.Canvas.Font.Color:=clBlack;
     Sender.Canvas.Brush.Color:=$F6F6F6;
    end
   else
    begin
     Sender.Canvas.Font.Color:=clBlack;
     Sender.Canvas.Brush.Color:=clWhite;
    end;
  end;
  </code></pre>