Class TAnimatorForm (unit GIFMain)

Inherits from

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);

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;



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;