Gif animado en un Form

[Mav]

Hace tiempo hice esto para mostrar como utilizar gifs animados desde Delphi2007 hasta nuestros dias.
Se me había olvidado, limpiando el disco duro lo encontré, así que aqui está, espero que os guste:

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.GIFImg, Vcl.ExtCtrls,Winapi.WinInet,
  Vcl.StdCtrls, uFMod;


type
  TForm1 = class(TForm)
     Image1: TImage;
    Button1: TButton;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Edit1: TEdit;
     procedure FormCreate(Sender:Tobject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$I Music.pas}


 procedure TForm1.Button1Click(Sender: TObject);
      var
      Types : Integer;

begin
    Types := INTERNET_CONNECTION_MODEM +
            INTERNET_CONNECTION_LAN +
            INTERNET_CONNECTION_PROXY;
     if InternetGetConnectedState(@types, 0) then
     Edit1.Text := 'Estás conectado a la red'
     else
     Edit1.Text := ' No estás conectado ';

end;

procedure TForm1.FormCreate(Sender:Tobject);
   begin
    (Image1.Picture.Graphic as TGifImage).Animate:= True;
    (Image2.Picture.Graphic as TGifImage).Animate:= True;
    (Image3.Picture.Graphic as TGifImage).Animate:= True;
    (Image4.Picture.Graphic as TGifImage).Animate:= True;
     uFMOD_PlaySong(@xm, Length(xm), XM_MEMORY);
   end;
end.

También le pongo algo de música, el programa compilado, recursos musica y demás, está aquí :http://www.mediafire.com/download/a8...bkm/gifAni.rar
Saludos

[ecfisa]

Hola Mav.

Gracias por el aporte

Si te interesa, podes subir el adjunto al FTP de Club Delphi (o si tenes alguna dificultad avisame y lo subo).

Saludos

[Casimiro Noteví]

[Mav]

El archivo tiene mas peso de lo que acepta el ftp, por eso no lo intente subir.
saludos

[ecfisa]

Hola Mav.

Pero los archivos fuente no llegan al límite, podrías subir todo menos la carpeta Win32\Release.

Saludos

[[ElKurgan]]

Gracias por el aporte