图像大小的问题 (50分)

var
bitBitmap: TBITMAP;
fFile: TextFile;
strFileName:String;
S:String;
ImgCount,ImgIndex : integer;
begin
try
strfilename :='newface/';
bitBitmap := TBitmap.Create;
//把一个外部文件名和一个文件变量相关联
AssignFile (ffile,strfilename+'face.ini');
//打开一个存在的文件
Reset (ffile);
Readln(ffile, S);
ImgCount := strtoint(S); {得到图片个数}
for ImgIndex := 1 to imgcount do
begin
Readln(ffile, S); {读入一行}
bitbitmap.LoadFromFile(strfilename + S );
Imagelist1.AddMasked (bitbitmap,clteal);
end;
bitBitmap.Destroy ;
closefile(ffile);
end;
如果图片的大少是32x32,Imagelist1也设为32x32这样是没问题的，但如果Imagelist1设为16x16
图片为32x32的话在Imagelist1得到的图片只有左上角一个角了各位帮我想想解决的方法吧！！

这本来就是正常的,我使用时也是这样的.

我是想用这种方法得到整个的图片，现在只能得到一个角有没有解决的方法呢！！

up

那你不会设置为32*32吗

老大啊现在我是要用16x16的大少的，32x32的太大了，图片一共有几百张要用转换太麻烦了！！

那你检查到是32的，就 bitmap.Canvas.StretchDraw 到另外一个bitmap，缩小成16的。再添加

接受答案了.