title: Delphi: paint column of list view
body: <p>I draw a list view with <code>OwnerDraw</code>. I need to paint the first column. But I cannot understand how.</p>
  
  <p>I tried:</p>
  
  <pre><code>procedure TFrame6.DownloadListCustomDraw(Sender: TCustomListView;
    const ARect: TRect; var DefaultDraw: Boolean);
      var
        R: TRect;
      begin                  
        DefaultDraw := False;
        Sender.Canvas.Brush.Color := $F7F7F7;
        Sender.Canvas.Brush.Style := bsSolid;
        R := ARect;
        R.Right := ListView_GetColumnWidth(DownloadList.Handle, DownloadList.Columns[0].Index);
        Sender.Canvas.FillRect(R);  
        DefaultDraw := True;
      end;
  </code></pre>
  
  <p>But I draw over items. How to draw correctly, items and a background?</p>
  
  <p>Thanks!</p>