DELPHI : GIF ANIMADO EN UNA VENTANA

noreply@blogger.com (MisterM) — Sun, 16 Apr 2017 22:14:00 +0000

Desde Delphi 2007 hasta los modernos Delphi (El último es Delphi 10.2 Tokio, recien publicado), se pueden utilizar gifs animados en los Form , cambiando la propiedad de TGifImage Animate a True, en el ejemplo muestro como se hace.
Se pueden controlar también otros parámetros como : "AnimateLoop, AnimateSpeed"...etc.
Captura de pantalla:

También utilizo en el programa música XM, usando la libreria uFmod y para que haga algo
un botón que al pulsarlo chequea si estás o no
conectado a la red.
Las fuentes completas, programa compilado y
recursos estan en :
http://www.mediafire.com/file/a8f69tm1h21mbkm/gifAni.rar

[code]
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.
[/code]

COMIENZO

noreply@blogger.com (MisterM) — Sun, 16 Apr 2017 12:52:00 +0000

¿De qué va este blog?
Pues escribiré sobre programación en Delphi y ensamblador, ingenieria inversa,
libros, comics, cine y alguna otra cosa...ya veremos.
Un saludo y comienzo la andadura de este blog.

Delirios

DELPHI : GIF ANIMADO EN UNA VENTANA

COMIENZO