{ Este exemplo de código tenta carregar uma imagem GIF em um TImage.
Precisa da unit AXCtrls. }
procedure TForm1.Button1Click(Sender: TObject);
var
OleGraphic: TOleGraphic;
fs: TFileStream;
begin
OleGraphic := TOleGraphic.Create;
try
fs := TFileStream.Create('C:\test.gif', fmOpenRead or fmSharedenyNone);
try
OleGraphic.LoadFromStream(fs);
Image1.Picture.Assign(OleGraphic);
finally
fs.Free;
end;
finally
OleGraphic.Free
end;
end;
Adapte o código acima para carregar imagens GIF dinamicamente em um TImageList.
Boa sorte!
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 1 Oct 2007 11:56:46
-0300Subject: Re: [delphi-br] Imagelist
LF,Faz assim,ilFlag.GetBitmap(i, frmMain.imgFlag.Picture.Bitmap);Agora alguem
sabe como colocar uma imagem do tipo GIF na imagelist ou se tem outro
componente que o faça? Pois la somente tem a opcao de BMP e ICO.Att,Marcos
FerreiraFrom: Leslyn Fernandes Sent: Monday, October 01, 2007 11:40 AMTo:
delphi-br@yahoogrupos.com.br Subject: [delphi-br] ImagelistOlá...Tem alguma
forma de acesar as imagens colocadas num ImageList diretamente?Tipo... eutenho
um SpeedButton e um ImageList ...Eu tava querendo alterar a imagem do
SpeedButton dinamicamente... mais oumenos: SpeedButton1.Glyph := ???? (do
ImageList...)Alguém sabe?Att,LFPS: Estou usando Delphi 6[As partes desta
mensagem que não continham texto foram removidas]Att,Marcos Abreu
FerreiraConsultor SAP/ABAPSão Paulo - SP+55 11 7228-9827Esta mensagem pode
conter informação confidencial e/ou privilegiada. Se você não for o
destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar,
copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada
nestas informações. Se você recebeu esta mensagem por engano, por favor, avise
imediatamente o remetente, respondendo o email e em seguida,
apague-o.Agradecemos sua cooperação.This message may contain confidential
and/or privileged information. If you are not the addressee or authorized to
receive this for the addressee, you must not use, copy, disclose or take any
action based on this message or any information herein. If you have received
this message in error, please, advise the sender immediately by reply e-mail
and delete this message.Thank you for your cooperation. Antes de imprimir pense
em sua responsabilidade e compromisso com o MEIO AMBIENTE.ENVIRONMENT
commitment and responsibility, think about Before Printing.[As partes desta
mensagem que não continham texto foram removidas]
_________________________________________________________________
Receba GRÁTIS as últimas novidades do esporte direto no seu Messenger!
http://signup.alerts.live.com/alerts/login.do?PINID=37485679&returnURL=http://www.nivea.com.br
[As partes desta mensagem que não continham texto foram removidas]
