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