After a lot of searching and trying again (
), I probably found a solution.
Can my code be made even more efficient?
Thanks in advance.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics,
Dialogs, ExtCtrls, Buttons, StdCtrls,
GifAnim;
type
TForm1 = class(TForm)
GifAnim1: TGifAnim;
LblCountdown: TLabel;
PanelGIF: TPanel;
SpeedButton1: TSpeedButton;
Timer1: TTimer;
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
VARstart: integer;
public
//
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
PanelGIF.Visible:= True;
GifAnim1.Animate:= True;
GifAnim1.FileName:= 'test1.gif';
Timer1.Enabled := True;
Timer1.Interval := 1000;
LblCountdown.Caption := '';
VARstart := 5;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
LblCountdown.Caption := Format('%d',[VARstart]);
Dec(VARstart);
if (VARstart < 0) then
begin
Timer1.Enabled := False;
LblCountdown.Caption := 'Finished';
PanelGIF.Visible:= False;
end;
end;
end.