Gif анимация в delphi

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GifImg, ExtCtrls;

type
   TForm30 = class(TForm)
     Image1: TImage;
     Timer1: TTimer;
     procedure Timer1Timer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     Gif: TGifImage;
   public
     { Public declarations }
   end;

var
Form30: TForm30;

implementation

{$R *.dfm}

procedure TForm30.FormCreate(Sender: TObject);
begin
   Gif := TGifImage.Create;
   Gif.LoadFromFile(’C:\Xom04.gif’);
   Gif.Animate := True;
   Gif.AnimateLoop := glEnabled;
end;

procedure TForm30.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Assign(Gif);
end;

end.

Тема на форуме

Последние записи

made in programmersforum 4

Gif анимация в delphi

Похожие статьи