Class TForm1 (unit FmGifImg)

Inherits from

TForm

Imports TGifImage

Constructors



Functions

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.

Properties

Events

Variables

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


Constructors


Functions


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


Properties


Events


Variables


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