图片处理(20分)

在一个form上动态加载多个图片，并对这些图片中任意一个进行放大，缩小，平移。
请问怎样实现？

up

使用控件数组

动态加载图片
type
showarrayrecord=record
showimage:Timage;
backpanel:tpanel;
filename:string[15];
end;
public
{ Public declarations }
jpgimage:Tjpegimage;
picturewidth,pictureheight,currentselectednum:integer;
showbararray:array[1..maxshowbmpnum]of showarrayrecord;
procedure TForm1.loadpicture(const filename:string;var destimage:timage);
begin
fileext:=ansilowercase(extractfileext(filename));
if fileext='.bmp' then
begin
destimage.picture.loadfromfile(filename);
picturewidth:=destimage.picture.width;
pictureheight:=destimage.picture.height;
end
else
if fileext='.jpg' then
begin
jpgimage.loadfromfile(filename);
destimage.picture.graphic:=jpgimage;
picturewidth:=destimage.picture.width;
pictureheight:=destimage.picture.height;
end;
end;

那儿由此类控件呀？

用picshow
特效大大的有
要的话，给你了

麻烦给我一个picshow ，我的email：wangxinf@etang.com
[]

能否给我一份？谢谢！hua830@263.net

哪里能找到picshow?