Class TGifForm (unit GifEdit)

Inherits from

TForm

Constructors



Functions

procedure BtnClick(Sender: TObject);


procedure FileListChange(Sender: TObject);


procedure GifImageCtlStatusChange(Sender: TObject; Status: TGifStatus);


function Execute(CurrentFile: TFileName): TModalResult;

Private declarations

Properties

Events

Variables

CancelBtn : TBitBtn;


DirectoryList : TDirectoryListBox;


DriveList : TDriveComboBox;


FileBevel : TBevel;


FileList : TFileListBox;


FilePanel : TPanel;


GifImageCtl : TGifImage;


LoadProgress : TGauge;


OKBtn : TBitBtn;



Constructors


Functions


procedure BtnClick(Sender: TObject);


procedure FileListChange(Sender: TObject);


procedure GifImageCtlStatusChange(Sender: TObject; Status: TGifStatus);


function Execute(CurrentFile: TFileName): TModalResult;

Private declarations


Properties


Events


Variables


CancelBtn : TBitBtn;


DirectoryList : TDirectoryListBox;


DriveList : TDriveComboBox;


FileBevel : TBevel;


FileList : TFileListBox;


FilePanel : TPanel;


GifImageCtl : TGifImage;


LoadProgress : TGauge;


OKBtn : TBitBtn;