用Listview实现缩略图时出现问题

[heikeyanxi]

主要代码如下，当点击button时listview里的图片怎么全部都是一个图片啊，麻烦大家帮我看下哪里出问题了？

procedure TForm1.Button2Click(Sender: TObject);
var
  TheBitmap:TBitmap ;
  TheJpeg:TJPEGImage;
  aa:tlistitem;
  i:integer;
begin
  for i:=1 to 4 do
  begin
  TheJpeg := TJPEGImage.Create;
  TheJpeg.LoadFromFile('D:\我的文档\ico\pic\'+inttostr(i)+'.jpg');
  TheBitmap := TBitmap.Create ;

  TheBitmap.Assign(TheJpeg);
  TheBitmap.Canvas.StretchDraw(RECT(0,   0,   130,   130),TheBitmap);
  ImageList1.Add(TheBitmap, nil) ;
  aa:=listview1.Items.Add;
  aa.Caption:=inttostr(i)+'.jpg';
  FreeAndNil(TheBitmap) ;
  FreeAndNil(TheJpeg);
  end;
end;

[taxi]

aa.ImageIndex := ImageList1.Count - 1;

[bladz]

ImageList1.Clear;
ImageList1.Add(TheBitmap, nil) ;
aa:=listview1.Items.Add;
aa.Caption:=inttostr(i)+'.jpg';
aa.ImageIndex := ImageList1.Count - 1;

[bladz]

aa.ImageIndex := i - 1;

[heikeyanxi]

不行啊，楼上两位朋友的方法用了后，每个item只显示了图片的一部分，像是图片被分成了一块一块的。有解决方法吗？

[sanguomi]

var
  Test: TJPEGImage;
  Bmp: TBitmap;
begin
  Test := TJPEGImage.Create;
  Test.LoadFromFile('....jpg');

  Bmp := TBitmap.Create;
  Bmp.Assign(Test);
  Bmp.Canvas.StretchDraw(RECT(0,   0,   13,   13), Bmp);
  ImageList1.Width := 13;
  ImageList1.Height := 13;
  ImageList1.Add(Bmp, nil);
  
  Test.Free;
  Bmp.Free;

你加个大小

[heikeyanxi]

回楼上：
Imagelist的高和宽我都设置了，还是不行

[sanguomi]

TheBitmap.Canvas.StretchDraw(RECT(0, 0, 130, 130),TheBitmap);
你的高度，宽度太大了
你要改小

[heikeyanxi]

貌似改大改小都不行，你可以试下的