Imagelist动态加入图片，为什么每次都出现“Invalid image size”错误？

[8341]

tmap:=Tbitmap.Create;
tmap.TransparentMode := tmAuto;
tmap.Transparent := True;

tmap.LoadFromFile('e:\bmp\1.bmp');
ImageList1.Add(tmap,nil);

执行到最后一句就说“Invalid image size”。这个imagelist的大小我设为20*60,这个BMP文件确实有点大，不过应该可以自动stretch或者只取其一部分呀？大家告诉我怎样不出现此错误？

[angelior]

少引用了兩個類

jpeg,Graphics

[8341]

还是不行啊，谁来给一个真正经过实践的办法？

[coolzlay]

VAR
SbMP:tBITMAP;//袁图片文件
begin
sbmp;=tbitmap.create;
sbmp.with:=20;
sbmp.heght:=60;
sbmp.TransparentMode := tmAuto;
sbmp.Transparent := True;
sbmp.loadformfile('XXXXXXX');
sbmp.stretch:= true;
imagelist.add(sbmp,nil);

[laiwei791]

明确指出size

[smailsuper2]

tmap:=Tbitmap.Create;
tmap.TransparentMode := tmAuto;
tmap.Transparent := True;



tmap.LoadFromFile('e:\bmp\1.bmp');
ImageList1.Add(tmap,nil);

[smailsuper2]

tmap:=Tbitmap.Create;
tmap.TransparentMode := tmAuto;
tmap.Transparent := True;

tmap.Width:=ImageList1.Width;
tmap.Height:=ImageList1.Height;


tmap.LoadFromFile('e:\bmp\1.bmp');
ImageList1.Add(tmap,nil);

[panzhou]

var
myicon:TIcon;
begin
myicon:=TIcon.Create;
myicon.LoadFromFile('abc.bmp');
imagelist1.AddIcon(myicon);
myicon.free;
end;

[人在江湖漂那能不挨刀]

tmap.autosize:=true;

[programgirl]

tmap:=Tbitmap.Create(form1);
tmap.Parent:=form1;
......

[8341]

up

[guestroad]

tmap.autosize:=true;

[8341]

必须这样，把SIZE的设置放在最后：


tmap.LoadFromFile('e:\bmp\1.bmp');

tmap.Width:=ImageList1.Width;
tmap.Height:=ImageList1.Height;

ImageList1.Add(tmap,nil);

OK了，终于！谢谢。