P
pcmagic
Unregistered / Unconfirmed
GUEST, unregistred user!
我的BMP图片大小是24X24当执行下面的程序时，被加入到IMAGELIST的图标没有按照16X16
的比例缩小，而是只显示图标的一部分，请教如何才能按照16X16的比例缩小图标?
var
BmpFilePath:string;
image:Timage;
i:integer;
begin
image:=Timage.Create(application);
BmpFilePath:=extractfilepath(paramstr(0))+'bmp/';
with imagelist do
begin
Clear;
CreateSize(16,16);
end;
for i:=1 to 300 do
begin
image.Picture.LoadFromFile(bmpfilepath+inttostr(i)+'.bmp');
with smallimage do
begin
Masked:=true;
AddMasked(image.Picture.Bitmap,clTeal);
end;
end;
的比例缩小，而是只显示图标的一部分，请教如何才能按照16X16的比例缩小图标?
var
BmpFilePath:string;
image:Timage;
i:integer;
begin
image:=Timage.Create(application);
BmpFilePath:=extractfilepath(paramstr(0))+'bmp/';
with imagelist do
begin
Clear;
CreateSize(16,16);
end;
for i:=1 to 300 do
begin
image.Picture.LoadFromFile(bmpfilepath+inttostr(i)+'.bmp');
with smallimage do
begin
Masked:=true;
AddMasked(image.Picture.Bitmap,clTeal);
end;
end;
][