怎样用listview制作缩略图？急

Question

怎样用listview制作缩略图？例如：像WINDOWS缩略图或ACCESS缩略图。请给示列代码。请帮助。

Answer 1

好象可以使用WebBrower控件做缩略图！

Answer 2

TListView只能显示成大图标小图标。我想Windows的缩略图不是在一个ListView里显示的。如果我去实现。我会用一个TScrollBox,动态生成需要的TImage放在里面，按一定的规律排成多行。每个TImage都是一样的高和宽，AutoSize := False; Stretch := True;

Answer 3

//此过程把ImageFileList中的图片文件缩放后加载到ImageList1中，并在
//ListView1中显示

Answer 4

能给个示例子吗？例如：怎样把ImageFileList中的图片文件缩放，在ListView1中显示

Answer 5

兄弟，怎么我跟你要成的效果正相反，，，，
我测试的程序用listview然后用imagelist装载图标。结果在listview动态显示的图标不是原大而是缩图，我正要他显示原图大小，你是怎么做的？

Answer 6

提供下面代码你参考，改改实现你的缩放应该可以：
procedure SavePicToMiniature(SourceJpg: TJPEGImage; Width, Height: Integer);
//保存JPEG的缩略图
var
   jpg: TJPEGImage;
   bmp: TBitmap;
begin
   bmp := TBitmap.Create;
   bmp.Width := Width;
   bmp.Height := Height;
   bmp.PixelFormat := pf24bit;
   bmp.Canvas.StretchDraw(Rect(0,0,Width,Height), SourceJpg);
   jpg := TJPEGImage.Create;
   jpg.Assign(bmp);
   jpg.SaveToFile('C:\temp\minijpg.jpg');
   bmp.Free;
   jpg.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
var AJpg: TJPEGImage;
begin
   AJpg := TJPEGImage.Create;
   if OpenPictureDialog1.Execute then
   begin
       AJpg.LoadFromFile(OpenPictureDialog1.FileName);
       SavePicToMiniature(AJpg, 320, 240);
       Image1.Picture.LoadFromFile('C:\temp\minijpg.jpg');
   end;
   AJpg.Free;
end;