truquito para crear efectos de animacion con Gifs animados

[navbuoy]

jeje, mirad que truquito mas guapo para añadir efectos de animacion con Gifs Animados

os dejo el archivo con los 2 ficheros el .pas y el .hpp

https://quazardev.net/GifImage.rar

su uso es muy sencillo, incluimos en el proyecto el archivo PAS y en los include ponemos

#include "GifImage.hpp"

en global o Form1 Public o donde queramos ponerlo, creamos los objetos Gif

Gifimage::TGIFImage *tgi = new Gifimage::TGIFImage();
Gifimage::TGIFImage *tgi2 = new Gifimage::TGIFImage();
Gifimage::TGIFImage *tgi3 = new Gifimage::TGIFImage();
Gifimage::TGIFImage *tgi4 = new Gifimage::TGIFImage();

en mi caso he creado 4 (tgi, tgi2, tgi3 y tgi4)

luego en algun lugar del codigo (el constructor del form o en OnCreate) ponemos:

        tgi->LoadFromFile(".\\gfx\\punto_de_salto.gif");
		tgi->Animate = true;
		tgi->AnimationSpeed = 500;
		Form1->Explosion->Picture->Graphic = tgi;  //Pone explosion porque al principio puse una explosion pero en el video de abajo sale un efecto distinto
		Form1->Explosion->Transparent = true;

y para terminar lo activamos donde sea (yo he puesto un tButton y un Timer a 6000 ms cuando termina lo desactiva)

void __fastcall TForm1::sButton1Click(TObject *Sender)
{
	  ///Mostramos gif animado
		tgi->Animate = true;
		tgi->AnimationSpeed = 500;
        tgi->Transparent = true;
		Explosion->Picture->Graphic = tgi;
		Explosion->Visible = true;
		Explosion->Transparent = true;

		Explosion->Visible = true;
		Timer10->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer10Timer(TObject *Sender)
{
  Timer10->Enabled = false;
		Explosion->Visible = false;
}
//---------------------------------------------------------------------------

y asi queda en Stardust

https://www.youtube.com/watch?v=P7ld1Ph0IsM

[[ElKurgan]]

Gracias por compartir

Saludos