Class TForm1 (unit FmGifImg) |
Inherits from
TForm
Imports TGifImage
procedure Faster1Click(Sender: TObject);
TForm1.
procedure FilesComboBoxChange(Sender: TObject);
TForm1.
procedure FirstButtonClick(Sender: TObject);
TForm1.
procedure FormCreate(Sender: TObject);
TForm1.
procedure LastButtonClick(Sender: TObject);
TForm1.
procedure Next1Click(Sender: TObject);
TForm1.
procedure NextButtonClick(Sender: TObject);
TForm1.
procedure Off1Click(Sender: TObject);
TForm1.
procedure On1Click(Sender: TObject);
TForm1.
procedure Once1Click(Sender: TObject);
TForm1.
procedure Open1Click(Sender: TObject);
TForm1.
procedure PrevButtonClick(Sender: TObject);
TForm1.
procedure Read1Click(Sender: TObject);
TForm1.
procedure ReadFileListButtonClick(Sender: TObject);
TForm1.
procedure Saveas1Click(Sender: TObject);
TForm1.
procedure Slower1Click(Sender: TObject);
TForm1.
procedure LoadGif;
fname1 = 'd:\Project\Delphi\Gif\Images\babekiss.
procedure SaveTimed(fname: String; var seconds: Double);
TForm1.
Animation1 : TMenuItem;
Faster1 : TMenuItem;
File1 : TMenuItem;
FilesComboBox : TComboBox;
FirstButton : TButton;
LastButton : TButton;
MainMenu1 : TMainMenu;
Next1 : TMenuItem;
NextButton : TButton;
Off1 : TMenuItem;
On1 : TMenuItem;
Once1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog : TOpenDialog;
Panel1 : TPanel;
PathEdit : TEdit;
PrevButton : TButton;
Read1 : TMenuItem;
ReadFileListButton : TButton;
Saveas1 : TMenuItem;
SaveDialog : TSaveDialog;
Slower1 : TMenuItem;
GifImage1 : TGifImage;
Private declarations } {$ifndef Installed
procedure Faster1Click(Sender: TObject);
TForm1.Slower1Click
procedure FilesComboBoxChange(Sender: TObject);
TForm1.LastButtonClick
procedure FirstButtonClick(Sender: TObject);
TForm1.ReadFileListButtonClick
procedure FormCreate(Sender: TObject);
TForm1.SaveTimed } (***** event handlers
procedure LastButtonClick(Sender: TObject);
TForm1.NextButtonClick
procedure Next1Click(Sender: TObject);
TForm1.Once1Click
procedure NextButtonClick(Sender: TObject);
TForm1.PrevButtonClick
procedure Off1Click(Sender: TObject);
TForm1.On1Click
procedure On1Click(Sender: TObject);
TForm1.Saveas1Click
procedure Once1Click(Sender: TObject);
TForm1.Faster1Click
procedure Open1Click(Sender: TObject);
TForm1.Read1Click
procedure PrevButtonClick(Sender: TObject);
TForm1.FirstButtonClick
procedure Read1Click(Sender: TObject);
TForm1.FormCreate
procedure ReadFileListButtonClick(Sender: TObject);
TForm1.Next1Click
procedure Saveas1Click(Sender: TObject);
TForm1.Open1Click
procedure Slower1Click(Sender: TObject);
TForm1.Off1Click
procedure LoadGif;
fname1 = 'd:\Project\Delphi\Gif\Images\babekiss.gif';} {fname1 = 'd:\Project\Delphi\Gif\Images\95week51.gif';} {fname1 = 'd:\Project\Delphi\Gif\Images\1377.gif';} {fname2 = 'd:\Project\Delphi\Gif\Images\2.bmp';
{fname1 = 'd:\Project\Delphi\Gif\Images\bmp_bw.bmp';
fname2 = 'd:\Project\Delphi\Gif\Images\bmp_256.bmp';
fname3 = 'd:\Project\Delphi\Gif\Images\bmp_trc.bmp';} {SaveFilename = 'd:\temp\test.gif';
procedure SaveTimed(fname: String; var seconds: Double);
TForm1.LoadGif
Animation1 : TMenuItem;
Faster1 : TMenuItem;
File1 : TMenuItem;
FilesComboBox : TComboBox;
FirstButton : TButton;
LastButton : TButton;
MainMenu1 : TMainMenu;
Next1 : TMenuItem;
NextButton : TButton;
Off1 : TMenuItem;
On1 : TMenuItem;
Once1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog : TOpenDialog;
Panel1 : TPanel;
PathEdit : TEdit;
PrevButton : TButton;
Read1 : TMenuItem;
ReadFileListButton : TButton;
Saveas1 : TMenuItem;
SaveDialog : TSaveDialog;
Slower1 : TMenuItem;
GifImage1 : TGifImage;
Private declarations } {$ifndef Installed