| Class TAnimatorForm (unit GIFMain) |
TForm
| Constructors |
| Functions |
procedure AboutBtnClick(Sender: TObject);
procedure AlwaysOnTopClick(Sender: TObject);
procedure BackColorButtonClick(Sender: TObject);
procedure CheckLabelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ColorDepthComboChange(Sender: TObject);
procedure CommentChange(Sender: TObject);
procedure CopyBtnClick(Sender: TObject);
procedure CutBtnClick(Sender: TObject);
procedure DelayTimeChange(Sender: TObject);
procedure DeleteBtnClick(Sender: TObject);
procedure DisposalComboChange(Sender: TObject);
procedure DownBtnClick(Sender: TObject);
procedure FlatBtnsClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure GrayscaleBtnClick(Sender: TObject);
procedure ImageScrollChange(Sender: TObject);
procedure InsertBtnClick(Sender: TObject);
procedure NewBtnClick(Sender: TObject);
procedure OpenBtnClick(Sender: TObject);
procedure PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBoxPaint(Sender: TObject);
procedure PasteBtnClick(Sender: TObject);
procedure PreviewBtnClick(Sender: TObject);
procedure SaveAsBtnClick(Sender: TObject);
procedure SaveBtnClick(Sender: TObject);
procedure SpeedBarDblClick(Sender: TObject);
procedure ThumbnailsBoxClick(Sender: TObject);
procedure TopLeftChange(Sender: TObject);
procedure TransBoxClick(Sender: TObject);
procedure TransColorButtonClick(Sender: TObject);
procedure UpBtnClick(Sender: TObject);
function GetPalette: HPALETTE;
procedure ConfirmSave;
procedure EnableButtons;
procedure EnableTabs;
procedure GraphicProgress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
procedure GrayscaleImage;
procedure ImageChanged(Sender: TObject);
procedure InvalidateImage(UpdateAll: Boolean);
procedure SelectBackColor;
procedure SelectTransColor;
procedure SetSelectedIndex(Index: Integer; Force: Boolean);
procedure UpdateCaption;
procedure UpdateControls;| Properties |
| Events |
| Variables |
AboutBtn : TSpeedItem;
AlwaysOnTop : TCheckBox;
AlwaysOnTopLabel : TRxLabel;
AnimationTab : TTabSheet;
BackColor : TComboEdit;
Bevel : TBevel;
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
ColorDepthCombo : TComboBox;
CopyBtn : TSpeedItem;
CutBtn : TSpeedItem;
DelayTime : TEdit;
DelayTimeBtn : TUpDown;
DeleteBtn : TSpeedItem;
DisposalCombo : TComboBox;
DownBtn : TSpeedItem;
FlatBtns : TCheckBox;
Frame1 : TPanel;
Frame1Lbl : TLabel;
Frame2 : TPanel;
Frame2Lbl : TLabel;
Frame3 : TPanel;
Frame3Lbl : TLabel;
Frame4 : TPanel;
Frame4Lbl : TLabel;
FrameComment : TMemo;
FrameH : TLabel;
FrameW : TLabel;
GIFVersion : TLabel;
GrayscaleBtn : TSpeedItem;
ImageCount : TLabel;
ImageLeft : TEdit;
ImageLeftBtn : TUpDown;
ImageScroll : TScrollBar;
ImageTab : TTabSheet;
ImageTop : TEdit;
ImageTopBtn : TUpDown;
InsertBtn : TSpeedItem;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
NewBtn : TSpeedItem;
No1 : TLabel;
No2 : TLabel;
No3 : TLabel;
No4 : TLabel;
OpenBtn : TSpeedItem;
OptionsTab : TTabSheet;
Pages : TPageControl;
PaintBox1 : TPaintBox;
PaintBox2 : TPaintBox;
PaintBox3 : TPaintBox;
PaintBox4 : TPaintBox;
PasteBtn : TSpeedItem;
PreviewBtn : TSpeedItem;
Progress : TProgressBar;
SaveAsBtn : TSpeedItem;
SaveBtn : TSpeedItem;
ScreenH : TLabel;
ScreenW : TLabel;
SpeedBar : TSpeedBar;
SpeedbarSection1 : TSpeedbarSection;
SpeedbarSection2 : TSpeedbarSection;
SpeedbarSection3 : TSpeedbarSection;
SpeedbarSection4 : TSpeedbarSection;
Status : TLabel;
Storage : TFormStorage;
ThumbnailsBox : TCheckBox;
ThumbnailsLabel : TRxLabel;
TrailingComment : TMemo;
TransBox : TCheckBox;
TransColor : TComboEdit;
TransColorLabel : TRxLabel;
UpBtn : TSpeedItem;
FAborting : Boolean;
FFileName : string;
FImage : TGIFImage;
FLoading : Boolean;
FModified : Boolean;
FOpenDlg : TOpenPictureDialog;
FProgressPos : Integer;
FSaveDlg : TSavePictureDialog;
FTopIndex : Integer;
FUpdating : Boolean;| Constructors |
| Functions |
procedure AboutBtnClick(Sender: TObject);
procedure AlwaysOnTopClick(Sender: TObject);
procedure BackColorButtonClick(Sender: TObject);
procedure CheckLabelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ColorDepthComboChange(Sender: TObject);
procedure CommentChange(Sender: TObject);
procedure CopyBtnClick(Sender: TObject);
procedure CutBtnClick(Sender: TObject);
procedure DelayTimeChange(Sender: TObject);
procedure DeleteBtnClick(Sender: TObject);
procedure DisposalComboChange(Sender: TObject);
procedure DownBtnClick(Sender: TObject);
procedure FlatBtnsClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);Add dialogs to storage
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure GrayscaleBtnClick(Sender: TObject);
procedure ImageScrollChange(Sender: TObject);
procedure InsertBtnClick(Sender: TObject);
procedure NewBtnClick(Sender: TObject);
procedure OpenBtnClick(Sender: TObject);
procedure PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBoxPaint(Sender: TObject);
procedure PasteBtnClick(Sender: TObject);
procedure PreviewBtnClick(Sender: TObject);
procedure SaveAsBtnClick(Sender: TObject);
procedure SaveBtnClick(Sender: TObject);
procedure SpeedBarDblClick(Sender: TObject);
procedure ThumbnailsBoxClick(Sender: TObject);
procedure TopLeftChange(Sender: TObject);
procedure TransBoxClick(Sender: TObject);
procedure TransColorButtonClick(Sender: TObject);
procedure UpBtnClick(Sender: TObject);
function GetPalette: HPALETTE;
procedure ConfirmSave;
procedure EnableButtons;
procedure EnableTabs;
procedure GraphicProgress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);TAnimatorForm
procedure GrayscaleImage;
procedure ImageChanged(Sender: TObject);
procedure InvalidateImage(UpdateAll: Boolean);
procedure SelectBackColor;
procedure SelectTransColor;
procedure SetSelectedIndex(Index: Integer; Force: Boolean);
procedure UpdateCaption;
procedure UpdateControls;| Properties |
| Events |
| Variables |
AboutBtn : TSpeedItem;
AlwaysOnTop : TCheckBox;
AlwaysOnTopLabel : TRxLabel;
AnimationTab : TTabSheet;
BackColor : TComboEdit;
Bevel : TBevel;
Bevel1 : TBevel;
Bevel2 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
Bevel5 : TBevel;
Bevel6 : TBevel;
ColorDepthCombo : TComboBox;
CopyBtn : TSpeedItem;
CutBtn : TSpeedItem;
DelayTime : TEdit;
DelayTimeBtn : TUpDown;
DeleteBtn : TSpeedItem;
DisposalCombo : TComboBox;
DownBtn : TSpeedItem;
FlatBtns : TCheckBox;
Frame1 : TPanel;
Frame1Lbl : TLabel;
Frame2 : TPanel;
Frame2Lbl : TLabel;
Frame3 : TPanel;
Frame3Lbl : TLabel;
Frame4 : TPanel;
Frame4Lbl : TLabel;
FrameComment : TMemo;
FrameH : TLabel;
FrameW : TLabel;
GIFVersion : TLabel;
GrayscaleBtn : TSpeedItem;
ImageCount : TLabel;
ImageLeft : TEdit;
ImageLeftBtn : TUpDown;
ImageScroll : TScrollBar;
ImageTab : TTabSheet;
ImageTop : TEdit;
ImageTopBtn : TUpDown;
InsertBtn : TSpeedItem;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
NewBtn : TSpeedItem;
No1 : TLabel;
No2 : TLabel;
No3 : TLabel;
No4 : TLabel;
OpenBtn : TSpeedItem;
OptionsTab : TTabSheet;
Pages : TPageControl;
PaintBox1 : TPaintBox;
PaintBox2 : TPaintBox;
PaintBox3 : TPaintBox;
PaintBox4 : TPaintBox;
PasteBtn : TSpeedItem;
PreviewBtn : TSpeedItem;
Progress : TProgressBar;
SaveAsBtn : TSpeedItem;
SaveBtn : TSpeedItem;
ScreenH : TLabel;
ScreenW : TLabel;
SpeedBar : TSpeedBar;
SpeedbarSection1 : TSpeedbarSection;
SpeedbarSection2 : TSpeedbarSection;
SpeedbarSection3 : TSpeedbarSection;
SpeedbarSection4 : TSpeedbarSection;
Status : TLabel;
Storage : TFormStorage;
ThumbnailsBox : TCheckBox;
ThumbnailsLabel : TRxLabel;
TrailingComment : TMemo;
TransBox : TCheckBox;
TransColor : TComboEdit;
TransColorLabel : TRxLabel;
UpBtn : TSpeedItem;
FAborting : Boolean;
FFileName : string;
FImage : TGIFImage;Private declarations
FLoading : Boolean;
FModified : Boolean;
FOpenDlg : TOpenPictureDialog;
FProgressPos : Integer;
FSaveDlg : TSavePictureDialog;
FTopIndex : Integer;
FUpdating : Boolean;