object MainForm: TMainForm Left = 473 Top = 303 HelpContext = 706 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Animated GIF Editor' ClientHeight = 609 ClientWidth = 638 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter ShowHint = True OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object pnlGIF: TPanel Left = 493 Top = 0 Width = 145 Height = 609 Align = alRight BevelOuter = bvNone TabOrder = 1 object btnFrameProps: TBitBtn Left = 6 Top = 382 Width = 129 Height = 25 Hint = 'Change settings for the frame' Caption = 'Frame Settings...' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = btnFramePropsClick end object btnInsertFrame: TBitBtn Left = 6 Top = 82 Width = 129 Height = 25 Hint = 'Inserts a new frame at the current position' Caption = 'Insert Frame' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnInsertFrameClick end object btnAppendFrame: TBitBtn Left = 6 Top = 110 Width = 129 Height = 25 Hint = 'Adds a new frame at the end of the sequence' Caption = 'Append Frame' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnAppendFrameClick end object btnDeleteFrame: TBitBtn Left = 6 Top = 444 Width = 129 Height = 25 Hint = 'Deletes the selected frame' Caption = 'Delete Frame' ParentShowHint = False ShowHint = True TabOrder = 11 OnClick = btnDeleteFrameClick end object btnPasteFrame: TBitBtn Left = 6 Top = 314 Width = 129 Height = 25 Hint = 'Pastes a frame from the clipboard to the current frame' Caption = 'Paste Image to Frame' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = btnPasteFrameClick end object btnLoadFrame: TBitBtn Left = 6 Top = 285 Width = 129 Height = 25 Hint = 'Loads an image from file into the current frame' Caption = 'Load Image to Frame...' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = btnLoadFrameClick end object pnlAnimate: TPanel Left = 0 Top = 560 Width = 145 Height = 49 Align = alBottom BevelOuter = bvNone TabOrder = 14 object btnAnimate: TSpeedButton Left = 6 Top = 8 Width = 129 Height = 25 Hint = 'Animate the current GIF' AllowAllUp = True GroupIndex = 2 Caption = 'Display Animation' ParentShowHint = False ShowHint = True OnClick = btnAnimateClick end end object btnSaveGIF: TBitBtn Left = 6 Top = 492 Width = 129 Height = 25 Hint = 'Saves the GIF to a new file' Caption = 'Save GIF to File...' ModalResult = 1 ParentShowHint = False ShowHint = True TabOrder = 12 OnClick = btnSaveGIFClick end object btnLoadGIF: TBitBtn Left = 6 Top = 38 Width = 129 Height = 25 Cancel = True Caption = 'Load GIF from File...' TabOrder = 1 OnClick = btnLoadGIFClick end object btnBlankGIF: TBitBtn Left = 6 Top = 10 Width = 129 Height = 25 Cancel = True Caption = 'Create New GIF...' TabOrder = 0 OnClick = btnBlankGIFClick end object chkOptimizeGIF: TCheckBox Left = 6 Top = 523 Width = 123 Height = 17 Hint = 'Reduce the size of the saved GIF by remove duplicate frame data' Caption = 'Optimize Saved GIF' Checked = True State = cbChecked TabOrder = 13 end object grpNewFrames: TGroupBox Left = 6 Top = 141 Width = 129 Height = 120 Caption = 'New Frames' TabOrder = 4 object lblWidth: TLabel Left = 11 Top = 23 Width = 32 Height = 13 Caption = 'Width:' end object lblHeight: TLabel Left = 11 Top = 50 Width = 35 Height = 13 Caption = 'Height:' end object lblDelay: TLabel Left = 256 Top = 229 Width = 89 Height = 13 Caption = 'Delay (1/100 sec):' end object Label1: TLabel Left = 11 Top = 77 Width = 31 Height = 13 Caption = 'Delay:' end object Label2: TLabel Left = 52 Top = 97 Width = 55 Height = 13 Caption = '(1/100 sec)' end object edtFrameWidth: TEdit Left = 54 Top = 19 Width = 33 Height = 21 ReadOnly = True TabOrder = 0 Text = '120' end object updFrameWidth: TUpDown Left = 87 Top = 19 Width = 16 Height = 21 Associate = edtFrameWidth Min = 10 Max = 1000 Increment = 10 Position = 120 TabOrder = 1 end object edtFrameHeight: TEdit Left = 54 Top = 46 Width = 33 Height = 21 ReadOnly = True TabOrder = 2 Text = '120' end object updFrameHeight: TUpDown Left = 87 Top = 46 Width = 16 Height = 21 Associate = edtFrameHeight Min = 10 Max = 1000 Increment = 10 Position = 120 TabOrder = 3 end object edtFrameDelay: TEdit Left = 54 Top = 73 Width = 33 Height = 21 ReadOnly = True TabOrder = 4 Text = '30' end object updFrameDelay: TUpDown Left = 87 Top = 73 Width = 16 Height = 21 Associate = edtFrameDelay Min = 1 Max = 2000 Increment = 10 Position = 30 TabOrder = 5 end end object chkStretchToFrameSize: TCheckBox Left = 6 Top = 343 Width = 131 Height = 17 Caption = 'Stretch to Frame Size' Checked = True State = cbChecked TabOrder = 7 end object btnPromote: TBitBtn Left = 72 Top = 413 Width = 63 Height = 25 Hint = 'Change settings for the frame' Caption = 'Promote' ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = btnPromoteClick end object btnDemote: TBitBtn Left = 6 Top = 413 Width = 63 Height = 25 Hint = 'Change settings for the frame' Caption = 'Demote' ParentShowHint = False ShowHint = True TabOrder = 9 OnClick = btnDemoteClick end end object Panel3: TPanel Left = 0 Top = 0 Width = 493 Height = 609 Align = alClient BevelOuter = bvNone BorderWidth = 10 TabOrder = 0 object IEMView1: TImageEnMView Left = 10 Top = 10 Width = 473 Height = 589 Background = clWindow ParentCtl3D = False OnResize = IEMView1Resize StoreType = ietNormal ThumbWidth = 140 ThumbHeight = 140 HorizBorder = 6 VertBorder = 6 UpperGap = 18 TextMargin = 0 OnGetText = IEMView1GetText MouseInteract = [mmiScroll, mmiSelect] GridWidth = -1 SelectionColor = clRed Style = iemsFlat ThumbnailsBackground = clWindow ThumbnailsBackgroundSelected = clBtnFace MultiSelectionOptions = [] ThumbnailsBorderWidth = 0 ThumbnailsBorderColor = clBlack ThumbnailsInternalBorder = True Align = alClient TabOrder = 0 OnDblClick = btnFramePropsClick end end object IESaveDlg: TSaveImageEnDialog Filter = 'CompuServe GIF (*.GIF)|*.gif' Options = [ofOverwritePrompt, ofHideReadOnly] AutoSetFilter = False AlwaysAnimate = True PreviewBorderStyle = iepsCropShadow ExOptions = [sdShowPreview, sdShowAdvanced] Left = 56 Top = 98 end object IEOpenDlg: TOpenImageEnDialog Filter = 'Common Graphic Files (*.tif;*.gif;*.jpg;*.pcx;*.bmp;*.ico;*.cur;' + '*.png;*.dcm;*.wmf;*.emf;*.tga;*.pxm;*.wbmp;*.jp2;*.j2k;*.dcx;*.c' + 'rw;*.psd;*.iev;*.lyr;*.all;*.wdp;*.avi;*.mpg;*.wmv)|*.tif;*.gif;' + '*.jpg;*.pcx;*.bmp;*.ico;*.cur;*.png;*.dcm;*.wmf;*.emf;*.tga;*.px' + 'm;*.wbmp;*.jp2;*.j2k;*.dcx;*.crw;*.psd;*.iev;*.lyr;*.all;*.wdp;*' + '.avi;*.mpg;*.wmv|All Files (*.*)|*.*|JPEG Bitmap (*.jpg;*.jpeg;*' + '.jpe;*.jif)|*.jpg;*.jpeg;*.jpe;*.jif|TIFF Bitmap (*.tif;*.tiff;*' + '.fax;*.g3n;*.g3f;*.xif)|*.tif;*.tiff;*.fax;*.g3n;*.g3f;*.xif|Com' + 'puServe Bitmap (*.gif)|*.gif|PaintBrush (*.pcx)|*.pcx|Windows Bi' + 'tmap (*.bmp;*.dib;*.rle)|*.bmp;*.dib;*.rle|Windows Icon (*.ico)|' + '*.ico|Windows Cursor (*.cur)|*.cur|Portable Network Graphics (*.' + 'png)|*.png|DICOM Bitmap (*.dcm;*.dic;*.dicom;*.v2)|*.dcm;*.dic;*' + '.dicom;*.v2|Windows Metafile (*.wmf)|*.wmf|Enhanced Windows Meta' + 'file (*.emf)|*.emf|Targa Bitmap (*.tga;*.targa;*.vda;*.icb;*.vst' + ';*.pix)|*.tga;*.targa;*.vda;*.icb;*.vst;*.pix|Portable Pixmap, G' + 'rayMap, BitMap (*.pxm;*.ppm;*.pgm;*.pbm)|*.pxm;*.ppm;*.pgm;*.pbm' + '|Wireless Bitmap (*.wbmp)|*.wbmp|JPEG2000 (*.jp2)|*.jp2|JPEG2000' + ' Code Stream (*.j2k;*.jpc;*.j2c)|*.j2k;*.jpc;*.j2c|Multipage PCX' + ' (*.dcx)|*.dcx|Camera RAW (*.crw;*.cr2;*.nef;*.raw;*.pef;*.raf;*' + '.x3f;*.bay;*.orf;*.srf;*.mrw;*.dcr;*.sr2)|*.crw;*.cr2;*.nef;*.ra' + 'w;*.pef;*.raf;*.x3f;*.bay;*.orf;*.srf;*.mrw;*.dcr;*.sr2|Photosho' + 'p PSD (*.psd)|*.psd|Vectorial objects (*.iev)|*.iev|Layers (*.ly' + 'r)|*.lyr|Layers and objects (*.all)|*.all|Microsoft HD Photo (*.' + 'wdp;*.hdp;*.jxr)|*.wdp;*.hdp;*.jxr|Video for Windows (*.avi)|*.a' + 'vi|MPEG (*.mpeg;*.mpg)|*.mpeg;*.mpg|Windows Media Video (*.wmv)|' + '*.wmv' Left = 144 Top = 98 end end