Carregar imagem em um Componente TImage
Olá.
Estou tentando carregar uma imagem BMP em um TImage, so que em um unico arquivo vai ter 2 imagens.
por exemplo assim:
Este é um BMP com 2 imagens, um com o fogo baixo e a outra com o fogo alto.
Oque eu quero é carregar no Image so a primeira parte, ou so a segunda.
Mas como eu faço isso???
Sei que se eu colocar a imagem em um ImageList ele diz q a imagem pode ser dividida em "X" partes.
Mas oque eu quero é um codigo para carregar a primeira ou a segunda parta da imagem em RunTime.
Eu Utilizo DELPHI7, e o componente TImage Padrão.
A intenção será fazer uma animação com um timer, que fique passando da umagem 1 para a 2 e da 2 para a 1, dando a ideia de ser um fogo real (animado).
Estou tentando carregar uma imagem BMP em um TImage, so que em um unico arquivo vai ter 2 imagens.
por exemplo assim:
Este é um BMP com 2 imagens, um com o fogo baixo e a outra com o fogo alto.
Oque eu quero é carregar no Image so a primeira parte, ou so a segunda.
Mas como eu faço isso???
Sei que se eu colocar a imagem em um ImageList ele diz q a imagem pode ser dividida em "X" partes.
Mas oque eu quero é um codigo para carregar a primeira ou a segunda parta da imagem em RunTime.
Eu Utilizo DELPHI7, e o componente TImage Padrão.
A intenção será fazer uma animação com um timer, que fique passando da umagem 1 para a 2 e da 2 para a 1, dando a ideia de ser um fogo real (animado).
Jackson Veiga
Curtidas 0
Respostas
Wilson Junior
30/05/2011
Porque vc não coloca 2 TImage e no seu timer você coloca assim:
Além do que assim irá ficar mais rápido, pois não haverá muita codificação perante as imagens.
Espero ter colaborado.
begin Image1.Visible := not Image1.Visible; Image2.Visible := not Image2.Visible; end;
Além do que assim irá ficar mais rápido, pois não haverá muita codificação perante as imagens.
Espero ter colaborado.
GOSTEI 0
Jackson Veiga
30/05/2011
Porque vc não coloca 2 TImage e no seu timer você coloca assim:
Além do que assim irá ficar mais rápido, pois não haverá muita codificação perante as imagens.
Espero ter colaborado.
A ideia não deixa de ser valida, mas na questão eu quero fazer do modo que eu citei mesmo.
Agradeço sua colaboração.
begin Image1.Visible := not Image1.Visible; Image2.Visible := not Image2.Visible; end;
Além do que assim irá ficar mais rápido, pois não haverá muita codificação perante as imagens.
Espero ter colaborado.
GOSTEI 0
Nigro
30/05/2011
Conhece P.O.G.?
Não gosto disse, mas...
Vamos lá...
Como se trata de animação feita em Delphi, use um TPanel se movimentando de um lado para outro exibindo a imagem, ou o que é mais sensato.
Pegue a imagem pronta com a animação e exiba....
GOSTEI 0
Emerson Nascimento
30/05/2011
use o TImage em conjunto com TImageList.
faça algo assim no timer:
procedure TForm14.Timer1Timer(Sender: TObject);
begin
if Image1.Tag = 0 then
Image1.Tag := 1
else
Image1.Tag := 0;
ImageList1.GetBitmap(Image1.Tag, Image1.Picture.Bitmap);
Image1.Refresh;
end;
mas ainda acho melhor você baixar um gif animado.
faça algo assim no timer:
procedure TForm14.Timer1Timer(Sender: TObject);
begin
if Image1.Tag = 0 then
Image1.Tag := 1
else
Image1.Tag := 0;
ImageList1.GetBitmap(Image1.Tag, Image1.Picture.Bitmap);
Image1.Refresh;
end;
mas ainda acho melhor você baixar um gif animado.
GOSTEI 0
Rafael Mattos
30/05/2011
não seria melhor separa as imagem?
GOSTEI 0
Wilson Junior
30/05/2011
Olhe como o TBitBtn faz para a imagem quando está Enable e Disable.
Espero ter colaborado.
Espero ter colaborado.
GOSTEI 0
Jackson Veiga
30/05/2011
Ola, consegui!!!
deixo aqui um exemplo caso seja de interesse de alguem
http://www.4shared.com/file/Wh5jzdgT/Parte_de_Imagem.html
deixo aqui um exemplo caso seja de interesse de alguem
http://www.4shared.com/file/Wh5jzdgT/Parte_de_Imagem.html
GOSTEI 0