Cómo usar un Gif animado en forma delphi
animation delphi-7 (3)
Creo que no hay soporte nativo para imágenes animadas gif.
¿Cómo es la mejor manera? cualquier componente gratuito que permita eso? Estaba pensando en usar un TImage y un ImageList + Timer, pero necesito exportar cada fotograma del gif a un archivo bmp separado.
esto es simplemente cargar un gif animado y no hacer uno
procedure TForm1.FormCreate(Sender: TObject);
begin
( Image1.Picture.Graphic as TGIFImage ).Animate := True;// gets it goin''
( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;// adjust your speed
Form1.DoubleBuffered := True;// stops flickering
end;
me ha ayudado y por lo tanto mi pequeño a cambio :)
Es bastante simple en Delphi moderno. Está todo TImage . TImage un TImage en el formulario y carga el GIF animado en la propiedad de la Imagen. Luego, inicie la animación por medio de la propiedad Animate :
(Image1.Picture.Graphic as TGIFImage).Animate := True;
Puede controlar la animación con AnimateLoop y AnimateSpeed . ¡Debería ser muy fácil adivinar cómo desactivar nuevamente la animación!
Ahora, ya que está utilizando Delphi 7, no tiene TGIFImage componente TGIFImage . Sin embargo, puede descargar el código del sitio web de Finn Tolderlund (desea la última versión de TGIFImage ). Con esta versión del componente, el código anterior debería funcionar bien, aunque personalmente no lo he usado desde que hice el portado de D6 a D2010 hace unos años.
Todos estos diversos códigos TGIFImage son en realidad versiones del mismo componente, escritos originalmente por Anders Melander y, en 2007, donados a Embarcadero para su inclusión en Delphi.