怎样用代码设置image1的图像为ImageList1中的第三个图像?(15分)

T

TENTODBV

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #1

另一个相关问题,如何将ImageList中的图像存为一个个单独的图像文件?

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #2

var Bmp: TBitmap;
begin
Bmp:=TBitmap.create;
try
ImageList1.GetBitmap(0, Bmp);
Bmp.SaveToFile('C:/1.bmp');
finally
Bmp.free
end;
end;

 

I

ing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #3

1.
imagelist1.GetBitmap(你要設置得第圖象index,image1.Picture.Bitmap);
2.
var b:Tbitmap;
begin
try
b:=Tbitmap.Create;
imagelist1.GetBitmap(imagelist裡面的index,b);
b.SaveToFile(Filename);
except
b.Free;
b:=nil;
end;
end;

 

X

xujunjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #4

Answer1:
ImageList1.Draw(Image1.Canvas,0,0,2);

Answer2:
var
i:integer;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
try
for i:=0 to ImageList1.count-1 do begin
ImageList1.GetBitmap(i,bmp);
bmp.savetofile('filename');
end;
finally
bmp.free;
end;
end;

 

T

TENTODBV

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #5

多人接受答案了。