390 lines
10 KiB
Plaintext
390 lines
10 KiB
Plaintext
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
|