Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Gif animado en un Form (https://www.clubdelphi.com/foros/showthread.php?t=87994)

Mav 28-03-2015 22:00:11

Gif animado en un Form
 
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 28-03-2015 23:13:59

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 Notevi 28-03-2015 23:50:29

^\||/^\||/^\||/

Mav 29-03-2015 00:09:42

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

ecfisa 29-03-2015 01:32:51

Hola Mav.

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

Saludos :)

ElKurgan 30-03-2015 08:31:55

Gracias por el aporte


La franja horaria es GMT +2. Ahora son las 03:53:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi