Club Builder

[Carlos J. Fernandez]

Hola a todos,

He encontrado una forma de usar GIF animados, el problema es que no se desde que versión funciona, con lo que lo único que os queda es probarlo, en XE3 funciona bien.

1.- Ponemos un componente TImage y cargamos el GIF animado.

2.- Añadimos la librería:

#include <Vcl.Imaging.GIFImg.hpp>

3.- En el evento FormShow de nuestro formulario ponemos:

TGIFImage * p = dynamic_cast <TGIFImage> (Image1->Picture->Graphic);

if(p)
{
p->AnimationSpeed=24; // si el valor es menor, se mueve más lento.
p->Animate=true;
}

Y ya está, la unica pega que encuentro es que parpadea al salir la imagen animada, a ver si algun crack se anima y nos dice como arreglarlo.

Espero que os valga.

Un abrazo.

Carlos

[_Leo]

[Carlos J. Fernandez]

Leo,

Lo he probado pero no parece que tenga ningún efecto, parpadea igual.

Un abrazo.

Carlos

[_Leo]

En mi caso desaparece el parpadeo totalmente. Lo que si he notado es que si el TImage no visualiza la imagen completa (con AutoSize), o hay otro componente sobre el TImage, o parte de el quede fuera de la ventana, la transparencia del gif animado no funciona bien. (solo lo he probado en las versiones 2010 y XE3)