| Class TTestGifForm (unit FmTstGIF) |
TForm
Imports TIniFile
| Constructors |
| Functions |
procedure About1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Imageinfo1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Saveas1Click(Sender: TObject);| 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;| 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