ListView 的一个不难也不容易的问题

Question

大家帮我看看这段代码，这是 ListView 自画的事件，当 ViewStyle 处于 Icon、SmallIcon、List 状态时都没问题，可是当选择 Report 时却出现了很多地方画不出来的问题，请问这怎么办？是不是要用别的事件啊？procedure TFrmMain.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
var
  i,j : Integer;
begin
  //自画事件
  with Sender do
  begin
    for i := 0 to (Width div ListViewImage.Width) do
       for j := 0 to (Height div ListViewImage.Height) do
           Canvas.Draw(i*Image1.Width ,j*Image1.Height ,Image1.Picture.Graphic);  end;
end;

Answer 1

我的问题放了三天居然没哪个回？？？？！！！！！CSDN 改版太让我失望了！！！

Answer 2

帮你UP，
本人不会Delphi
不过没人回是很惨

Answer 3

记得这里有例子
\Borland\Delphi5\Demos\Virtual Listview