Class TTestGifForm (unit FmTstGIF)

Inherits from

TForm

Imports TIniFile

Constructors



Functions

procedure About1Click(Sender: TObject);

TTestGifForm.

procedure Exit1Click(Sender: TObject);

TTestGifForm.

procedure FormClose(Sender: TObject; var Action: TCloseAction);

TTestGifForm.

procedure Imageinfo1Click(Sender: TObject);

TTestGifForm.

procedure Open1Click(Sender: TObject);


procedure Save1Click(Sender: TObject);

TTestGifForm.

procedure Saveas1Click(Sender: TObject);

TTestGifForm.

Properties

Events

Variables

About1 : TMenuItem;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


Image : TImage;


Imageinfo1 : TMenuItem;


MainMenu1 : TMainMenu;


Open1 : TMenuItem;


OpenDialog : TOpenDialog;


Save1 : TMenuItem;


Saveas1 : TMenuItem;


SaveDialog : TSaveDialog;


Filename : String;


GifFile : TGifFile;

Private declarations


Constructors


Functions


procedure About1Click(Sender: TObject);

TTestGifForm.Exit1Click


procedure Exit1Click(Sender: TObject);

TTestGifForm.Saveas1Click


procedure FormClose(Sender: TObject; var Action: TCloseAction);

TTestGifForm.Imageinfo1Click


procedure Imageinfo1Click(Sender: TObject);

TTestGifForm.About1Click


procedure Open1Click(Sender: TObject);


procedure Save1Click(Sender: TObject);

TTestGifForm.Open1Click


procedure Saveas1Click(Sender: TObject);

TTestGifForm.Save1Click


Properties


Events


Variables


About1 : TMenuItem;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


Image : TImage;


Imageinfo1 : TMenuItem;


MainMenu1 : TMainMenu;


Open1 : TMenuItem;


OpenDialog : TOpenDialog;


Save1 : TMenuItem;


Saveas1 : TMenuItem;


SaveDialog : TSaveDialog;


Filename : String;


GifFile : TGifFile;

Private declarations