如何制作象ACDSEE那样的缩略图,200分,图象高手帮帮忙,在线等候中... (200分)

1.如何用delphi源码制作象ACDSEE那样的缩略图,不用kodak之类的控件,
缩略图之间可用光标键移动,回车或双击缩略图后放大显示相应的图形,
2.若放大显示的图象大于对应的窗口时,可用鼠标来回拖动图象进行观察。

把图象缩小显示不就是缩略图吗？但是如果图象大的话就很慢，你可以装入前抽样
一下。图象漫游技术应该有，给你个思路，就是移动IMAGE控件，这个会把，哈哈。

缩略图好象不只是图象缩小显示,缩略图是很多小图形显示,且图形之间可用光标键移动,
不会是一个图形一个IMAGE控件吧,如果是的话,那占用内存太大了吧。

在DELPHI的ACTIVE页中有缩略图控件。

创建像ACDSee那样的缩略图浏览器，这并不是一件简单的事。以下就是一个很原始的缩略图控件的源代码：

uses jpeg

type
tbi_thumb=class(tcustomcontrol)
fmypic : tjpegimage;
private
procedure getpic(value:tjpegimage);
public
procedure paint; override;
constructor create(aowner:tcomponent); override;
destructor destroy; override;
published
property pic:tjpegimage write getpic;
end;

constructor tbi_thumb.create(aowner:tcomponent);
begin
inherited;
fmypic:=tjpegimage.create;
end;

destructor tbi_thumb.destroy;
begin
inherited;
fmypic.free;
end;

procedure tbi_thumb.getpic(value:tjpegimage);
begin
fmypic.scale:=jshalf;
fmypic.assign(value);
fmypic.dibneeded;
end;

procedure tbi_thumb.paint;
var
arect : trect;
ratio : single;
begin
arect:=clientrect;
canvas.stretchdraw(arect,fmypic);
frame3d(canvas,arect,clblack,clwhite,2);
end;

（这不是一个可视控件。）

下面来实现

新建一个Form，并在其上添加一个Directory List Box和一个Scrollbox，其中Scrollbox的宽度（Width）大约为430个象素。
当用户选定了一个新的目录，我们需要扫描这个目录，为其中每一个JPEG文件创建一个实例。为了加快这一过程的速度，可以将JPEG参数设为jpbestspeed。JPEG文件将被读入一个临时缓冲区，然后被赋值给一个新的缩略图对象的pic属性。

在unit中添加一个新的变量：
var
buffer_jpeg:tjpegimage;

下面的代码用来创建和释放buffer_jpeg变量：

procedure TForm1.FormCreate(Sender: TObject);
begin
buffer_jpeg:=tjpegimage.create;
buffer_jpeg.Performance:=jpbestspeed;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
buffer_jpeg.free;
while scrollbox1.ComponentCount>0 do
scrollbox1.components[0].free;
end;

以下的代码在文件夹中检索JPEG文件并创建缩略图：

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var
i,x,y : integer;
anewthumb : tbi_thumb;
foundlist : tstringlist;
sr : TSearchRec;

begin
foundlist:=tstringlist.create;

try
//检索JPEG文件
if FindFirst(directorylistbox1.Directory+'/*.jpg', faAnyFile, sr) = 0 then
begin
foundlist.add(sr.name);
while FindNext(sr) = 0 do
foundlist.add(sr.name);
FindClose(sr);
end;

x:=0;
y:=0;

//创建缩略图
for i:=0 to FoundList.count-1 do
begin
anewthumb:=tbi_thumb.create(self);
buffer_jpeg.loadfromfile(foundlist);
with anewthumb do
begin
pic:=buffer_jpeg;
parent:=scrollbox1;
left:=x;
top:=y;
width:=120;
height:=90;
visible:=true;
inc(x,122);
if x>244 then
begin
x:=0;
inc(y,92);
end;
application.processmessages;
end;
end;

finally
foundlist.free;
end;

end;

以上就是一个极简单的缩略图浏览器实现，你可以继续在里面添加需要的功能。


--------------------------------------------
风过西窗客渡舟船无觅处
年年一川新草遥看却似旧

toplor的回答最有价值,200分归你啦,多谢。