F�rum Carregar imagem em um Componente TImage #401993

30/05/2011

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).

Jackson Veiga

Curtir t�pico

+ 0

Responder

Posts

30/05/2011

Wilson Junior

Porque vc n�o coloca 2 TImage e no seu timer voc� coloca assim:

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.

Responder

Gostei + 0

30/05/2011

Jackson Veiga

Porque vc n�o coloca 2 TImage e no seu timer voc� coloca assim:

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.

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.

Responder

Gostei + 0

07/06/2011

Nigro

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....

Responder

Gostei + 0

07/06/2011

Emerson Nascimento

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.

Responder

Gostei + 0

07/06/2011

Rafael Mattos

n�o seria melhor separa as imagem?

Responder

Gostei + 0

08/06/2011

Wilson Junior

Olhe como o TBitBtn faz para a imagem quando est� Enable e Disable.

Espero ter colaborado.

Responder

Gostei + 0

09/06/2011

Jackson Veiga

Ola, consegui!!!
deixo aqui um exemplo caso seja de interesse de alguem
http://www.4shared.com/file/Wh5jzdgT/Parte_de_Imagem.html

Responder

Gostei + 0