object AVIListWnd: TAVIListWnd Left = 284 Top = 81 Width = 574 Height = 444 Caption = 'AVI Constructor' Color = clBlack Font.Color = clWindowText Font.Height = -16 Font.Name = 'System' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu1 Position = poScreenCenter OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyPress = FormKeyPress OnResize = FormResize PixelsPerInch = 120 TextHeight = 20 object DPanel: TMRPanel Left = 129 Top = 0 Width = 437 Height = 388 Align = alClient BevelOuter = bvNone Caption = 'DPanel' Color = clBlack Font.Color = clBlack Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False PopupMenu = PopupMenu2 ShowHint = True TabOrder = 0 OnResize = DPanelResize BorderColor = clBlack BorderSides = [] Moveable = False CBorderStyle = cbsNone OnPaint = DPanelPaint object ColorLabel: TLabel Left = 0 Top = 324 Width = 437 Height = 19 Align = alBottom Alignment = taCenter FocusControl = btn16 Font.Color = clWhite Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Visible = False end object NumberLabel: TLabel Left = 0 Top = 305 Width = 437 Height = 19 Align = alBottom Alignment = taCenter Color = clBlack Font.Color = clWhite Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label2: TLabel Left = 220 Top = 0 Width = 50 Height = 20 Caption = 'Label2' end object MRPanel1: TMRPanel Left = 0 Top = 343 Width = 437 Height = 45 Align = alBottom BorderWidth = 2 TabOrder = 0 OnResize = MRPanel1Resize BevelSides = [sdTop] BorderSides = [] Moveable = False CBorderStyle = cbsNone object FPSLabel: TLabel Left = 3 Top = 3 Width = 57 Height = 39 Hint = 'Flips Per Second for the AVI' Align = alLeft Caption = 'AVI FPS' Color = clBtnFace Font.Color = clBtnText Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentColor = False ParentFont = False end object FPSSpin: TASpinEdit Left = 60 Top = 3 Width = 55 Height = 39 Hint = 'Flips Per Second for the AVI' Ctl3D = True Font.Color = clWindowText Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] MaxValue = 10000 MinValue = 1 ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Value = 8 OnChange = FPSSpinChange Align = alLeft end object BtnMono: TABitbtn Left = 147 Top = 3 Width = 30 Height = 39 Hint = 'Make Monochrome AVI' Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BtnMonoClick Glyph.Data = { 80000000424D80000000000000003E0000002800000020000000100000000100 01000000000000000000120B0000120B00000000000000000000FFFFFF000000 00007FFF7FFFAAAAAAAAFFFFFFFF0001000000010000078103C0020101000301 018001010080018100C0058102C00301018000010000FFFFFFFFAAAAAAAAFFFF FFFF0000} NumGlyphs = 2 Align = alLeft end object btn16: TABitbtn Left = 177 Top = 3 Width = 32 Height = 39 Hint = 'Make 16 Color AVI' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsItalic] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btn16Click Glyph.Data = { 80000000424D80000000000000003E0000002800000020000000100000000100 01000000000000000000120B0000120B00000000000000000000FFFFFF000000 00007FFF7FFFAAAAAAAAFFFFFFFF00010000000100001E610F300CD106680CD1 06680CD106680CE106700C4106201C310E1800010000FFFFFFFFAAAAAAAAFFFF FFFF0000} NumGlyphs = 2 Align = alLeft end object btn256: TABitbtn Left = 209 Top = 3 Width = 33 Height = 39 Hint = 'Make 256 Color AVI' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsItalic] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btn256Click Glyph.Data = { 80000000424D80000000000000003E0000002800000020000000100000000100 01000000000000000000120B0000120B00000000000000000000FFFFFF000000 00007FFF7FFFAAAAAAAAFFFFFFFF0001000000010000F7197B8C44B5225A60B5 305A27B513DA37391B9CB2115908638D31C600010000FFFFFFFFAAAAAAAAFFFF FFFF0000} NumGlyphs = 2 Align = alLeft end object btntc: TABitbtn Left = 242 Top = 3 Width = 32 Height = 39 Hint = 'Make True Color AVI' Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btntcClick Glyph.Data = { 80000000424D80000000000000003E0000002800000020000000100000000100 01000000000000000000120B0000120B00000000000000000000FFFFFF000000 00007FFF7FFFAAAAAAAAFFFFFFFF00010000000100003C711E3818C90C6418C1 0C6018C10C6018C10C605AD92D6C7E693F3400010000FFFFFFFFAAAAAAAAFFFF FFFF0000} NumGlyphs = 2 Align = alLeft end object BtnUnknown: TABitbtn Left = 115 Top = 3 Width = 32 Height = 39 Hint = 'Make an AVI by the format of the first image.' Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = BtnUnknownClick Glyph.Data = { 80000000424D80000000000000003E0000002800000020000000100000000100 01000000000000000000120B0000120B00000000000000000000FFFFFF000000 00007FFF7FFFAAAAAAAAFFFFFFFF000100000001000003010180000100000301 0180018100C000C1006006C10360038101C000010000FFFFFFFFAAAAAAAAFFFF FFFF0000} NumGlyphs = 2 Align = alLeft end end object BuildPanel: TPanel Left = 256 Top = 312 Width = 25 Height = 25 BorderWidth = 12 Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False object BuildGauge: TGauge Left = 13 Top = 33 Width = 71 Height = 25 Align = alTop Progress = 0 end object FileNameLabel: TLabel Left = 13 Top = 13 Width = 71 Height = 20 Align = alTop Alignment = taCenter Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object FileSizeLabel: TLabel Left = 13 Top = 58 Width = 71 Height = 20 Align = alTop Alignment = taCenter Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object CommentLabel: TLabel Left = 13 Top = 151 Width = 71 Height = 20 Align = alTop Alignment = taCenter Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object PaletteLabel: TLabel Left = 13 Top = 171 Width = 71 Height = 20 Align = alTop Alignment = taCenter Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object BuildNumberLabel: TLabel Left = 13 Top = 131 Width = 71 Height = 20 Align = alTop Alignment = taCenter Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object DecodeLabel: TLabel Left = 13 Top = 111 Width = 71 Height = 20 Align = alTop Alignment = taCenter Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False end object CancelBtn: TABitbtn Left = 13 Top = 78 Width = 71 Height = 33 Font.Color = clBlack Font.Height = -17 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = CancelBtnClick Kind = bkCancel Align = alTop end end end object ListPanel: TMRPanel Left = 0 Top = 0 Width = 129 Height = 388 Align = alLeft BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 Ctl3D = True Font.Color = clBlack Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold, fsUnderline] ParentCtl3D = False ParentFont = False TabOrder = 1 OnResize = ListPanelResize BevelSides = [sdTop, sdRight] BorderSides = [] Moveable = False CBorderStyle = cbsNone OnNCHitTest = ListPanelNCHitTest object FrameLabel: TLabel Left = 5 Top = 339 Width = 119 Height = 17 Align = alBottom Caption = 'Frame Duration:' Color = clBtnFace Font.Color = clBtnText Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Bevel1: TBevel Left = 5 Top = 294 Width = 119 Height = 7 Align = alBottom Shape = bsBottomLine Style = bsRaised end object SpinButton1: TSpinButton Left = 5 Top = 301 Width = 119 Height = 38 Hint = 'This Cycles Though the Images ( in the list above)' Align = alBottom Ctl3D = True DownGlyph.Data = { 7E040000424D7E04000000000000360400002800000009000000060000000100 0800000000004800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030000000303030300030303030000000303030000000303030000000303 0000000000030300000003000000000000000300000003030303030303030300 0000} ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 UpGlyph.Data = { 7E040000424D7E04000000000000360400002800000009000000060000000100 0800000000004800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030000000300000000000000030000000303000000000003030000000303 0300000003030300000003030303000303030300000003030303030303030300 0000} OnDownClick = SpinButton1DownClick OnUpClick = SpinButton1UpClick end object LBEdit1: TLBEdit Left = 5 Top = 5 Width = 119 Height = 289 Hint = 'This is the image (frame) list.' Align = alClient BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MultiSelect = True ParentCtl3D = False ParentFont = False ParentShowHint = False PopupMenu = PopupMenu1 ShowHint = True Style = lbOwnerDrawVariable TabOrder = 1 OnClick = Listbox1Click BTNBorderWidth = 0 ExtraHeight = 10 ShowItems = True ShowIndex = True end object FlipSpin: TASpinEdit Left = 5 Top = 356 Width = 119 Height = 27 Ctl3D = True Font.Color = clWindowText Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [fsBold] MaxValue = 1000000 MinValue = 1 ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 Value = 1 OnChange = FlipSpinChange Align = alBottom end end object MainMenu1: TMainMenu Left = 256 Top = 88 object ProjectMenu: TMenuItem Caption = '&Project' ShortCut = 0 OnClick = ProjectMenuClick object NewProjectMenu: TMenuItem Caption = 'Start New Project' ShortCut = 0 OnClick = NewProjectMenuClick end object N10: TMenuItem Caption = '-' ShortCut = 0 end object AddImages1: TMenuItem Caption = 'Add Images ...' ShortCut = 0 OnClick = AddImages1Click end object ExtractImagesFromAVI1: TMenuItem Caption = '&Get images from an AVI ...' ShortCut = 0 OnClick = ExtractImagesFromAVI1Click end object OpenFileList1: TMenuItem Caption = '&Open file list ...' ShortCut = 0 OnClick = OpenFileList1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object SaveFileListMenu: TMenuItem Caption = '&Save file list ...' ShortCut = 0 OnClick = SaveFileListMenuClick end object SaveAllImagesMenu: TMenuItem Caption = '&Save or Save a Copy all images ...' ShortCut = 0 OnClick = SaveAllImagesMenuClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Makefromfilelist1: TMenuItem Caption = 'Make AVI from a file list (text file)' ShortCut = 0 object MakeDefaultAVIFromFileList: TMenuItem Caption = 'Assume All Images are similar' ShortCut = 0 OnClick = MakeMovieFromFileList end object Make2ColorAVIFromFileList: TMenuItem Caption = '2 Color AVI' ShortCut = 0 OnClick = MakeMovieFromFileList end object Make16ColorAVIFromFileList: TMenuItem Caption = '16 color AVI' ShortCut = 0 OnClick = MakeMovieFromFileList end object Make256ColorAVIFromFileList: TMenuItem Caption = '256 color AVI' ShortCut = 0 OnClick = MakeMovieFromFileList end object MakeTrueColorAVIFromFileList: TMenuItem Caption = 'True Color AVI' ShortCut = 0 OnClick = MakeMovieFromFileList end end object N8: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit AVI Constructor' ShortCut = 0 OnClick = Exit1Click end end object ListMenu: TMenuItem Caption = 'File-Frame List' ShortCut = 0 OnClick = ListMenuClick object CutSelected: TMenuItem Caption = 'Cut ' ShortCut = 16472 OnClick = CutSelectedClick end object CopySelected: TMenuItem Caption = 'Copy ' ShortCut = 16451 OnClick = CopySelectedClick end object PasteAtSelected: TMenuItem Caption = 'Paste ' ShortCut = 16470 OnClick = PasteAtSelectedClick end object Pasteat1: TMenuItem Caption = 'Paste at beginning' ShortCut = 16450 OnClick = Pasteat1Click end object PasteAfterLastItem: TMenuItem Caption = 'Paste at end ' ShortCut = 16453 OnClick = PasteAfterLastItemClick end object RemoveSelected: TMenuItem Caption = 'Delete' ShortCut = 16430 OnClick = RemoveSelectedClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object SelectAll1: TMenuItem Caption = 'Select all' ShortCut = 0 OnClick = SelectAll1Click end object SelectNone1: TMenuItem Caption = 'Select none' ShortCut = 0 OnClick = SelectNone1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object ReverseSelection1: TMenuItem Caption = 'Reverse selection' ShortCut = 0 OnClick = ReverseSelection1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object ReverseList1: TMenuItem Caption = 'Reverse list' ShortCut = 0 OnClick = ReverseList1Click end object SortList1: TMenuItem Caption = 'Sort list' ShortCut = 16467 OnClick = SortList1Click end object N18: TMenuItem Caption = '-' ShortCut = 0 end object SetAllFrameRatesto11: TMenuItem Caption = 'Set All Frame Rates to 1' ShortCut = 0 OnClick = SetAllFrameRatesto11Click end object N11: TMenuItem Caption = '-' ShortCut = 0 end object Makefromlistselection1: TMenuItem Caption = 'Make AVI from selection' ShortCut = 0 object Selection2ColorMenu: TMenuItem Caption = '2 Color' ShortCut = 0 OnClick = MakeMovie end object Selection16ColorMenu: TMenuItem Caption = '16 Color' ShortCut = 0 OnClick = MakeMovie end object Selection256ColorMenu: TMenuItem Caption = '256 Color' ShortCut = 0 OnClick = MakeMovie end object SelectionTrueColorMenu: TMenuItem Caption = 'True Color' ShortCut = 0 OnClick = MakeMovie end end end object MakeMenu: TMenuItem Caption = '&Make AVI' ShortCut = 0 OnClick = MakeMenuClick object MakeDefaultMenu: TMenuItem Caption = 'Assume all images are similar' ShortCut = 115 OnClick = MakeMovie end object Make2ColorMenu: TMenuItem Caption = '2 Color' ShortCut = 116 OnClick = MakeMovie end object Make16ColorMenu: TMenuItem Caption = '16 color' ShortCut = 117 OnClick = MakeMovie end object Make256ColorMenu: TMenuItem Caption = '256 color' ShortCut = 118 OnClick = MakeMovie end object MakeTrueColorMenu: TMenuItem Caption = 'True color ' ShortCut = 119 OnClick = MakeMovie end object NegativeColorMenu: TMenuItem Caption = 'Negative Color' ShortCut = 0 object Inverse2ColorMenu: TMenuItem Caption = '2 Colors' ShortCut = 0 OnClick = MakeMovie end object Inverse16ColorMenu: TMenuItem Caption = '16 Colors' ShortCut = 0 OnClick = MakeMovie end object Inverse256ColorMenu: TMenuItem Caption = '256 Colors' ShortCut = 0 OnClick = MakeMovie end object InverseTrueColorMenu: TMenuItem Caption = 'True Color' ShortCut = 0 OnClick = MakeMovie end end object AdjustToColorMenu: TMenuItem Caption = 'Adjust To Color ' ShortCut = 0 object Adjust2ColorMenu: TMenuItem Caption = '2 Color ...' ShortCut = 0 OnClick = MakeMovie end object Adjust16ColorMenu: TMenuItem Caption = '16 Color ...' ShortCut = 0 OnClick = MakeMovie end object Adjust256ColorMenu: TMenuItem Caption = '256 Color ...' ShortCut = 0 OnClick = MakeMovie end object AdjustTrueColorMenu: TMenuItem Caption = 'True Color ...' ShortCut = 0 OnClick = MakeMovie end end object ColorScaleMenu: TMenuItem Caption = 'Color Scale ' ShortCut = 0 object Scale2ColorMenu: TMenuItem Caption = '2 Color ...' ShortCut = 0 OnClick = MakeMovie end object Scale16ColorMenu: TMenuItem Caption = '16 Color ...' ShortCut = 0 OnClick = MakeMovie end object Scale256ColorMenu: TMenuItem Caption = '256 Color ...' ShortCut = 0 OnClick = MakeMovie end object ScaleTrueColorMenu: TMenuItem Caption = 'True Color ...' ShortCut = 0 OnClick = MakeMovie end end object MaximumColorMenu: TMenuItem Caption = 'Maximum Color' ShortCut = 0 object Maximum2ColorMenu: TMenuItem Caption = '2 Color ...' ShortCut = 0 OnClick = MakeMovie end object Maximum16ColorMenu: TMenuItem Caption = '16 Color ...' ShortCut = 0 OnClick = MakeMovie end object Maximum256ColorMenu: TMenuItem Caption = '256 Color ...' ShortCut = 0 OnClick = MakeMovie end object MaximumTrueColorMenu: TMenuItem Caption = 'True Color ...' ShortCut = 0 OnClick = MakeMovie end end object RandomColorMenu: TMenuItem Caption = 'Random Color' ShortCut = 0 object Random2ColorMenu: TMenuItem Caption = '2 Color ...' ShortCut = 0 OnClick = MakeMovie end object Random16ColorMenu: TMenuItem Caption = '16 Color ...' ShortCut = 0 OnClick = MakeMovie end object Random256ColorMenu: TMenuItem Caption = '256 Color ...' ShortCut = 0 OnClick = MakeMovie end object RandomTrueColorMenu: TMenuItem Caption = 'TrueColor ...' ShortCut = 0 OnClick = MakeMovie end end object N19: TMenuItem Caption = '-' ShortCut = 0 end object AVIOptions1: TMenuItem Caption = 'AVI Options' ShortCut = 0 OnClick = AVIOptions1Click object AskForCompressionMenu: TMenuItem Caption = 'Always Ask For Compression ( 256 Colors and above only )' ShortCut = 0 OnClick = AskForCompressionMenuClick end object WriteColorPalettesMenu: TMenuItem Caption = 'Write Palette Changes ' ShortCut = 0 OnClick = WriteColorPalettesMenuClick end end end object ImageMenu: TMenuItem Caption = '&Image' ShortCut = 0 OnClick = ImageMenuClick object CopyImageMenu: TMenuItem Caption = 'Copy image' Hint = 'This places the image in the clipboard' ShortCut = 0 OnClick = CopyImageMenuClick end object PasteAtBeginningMenu: TMenuItem Caption = 'Paste at Beginning' ShortCut = 0 OnClick = PasteAtBeginningMenuClick end object GetSaveTempAdd: TMenuItem Caption = 'Get Image, Save as Temp. File, and Add Link' ShortCut = 16468 OnClick = GetSaveTempAddClick end object PasteAtEndMenu: TMenuItem Caption = 'Paste at End' ShortCut = 0 OnClick = PasteAtEndMenuClick end object GetSaveAdd: TMenuItem Caption = 'Get Image, Save as ... , Add Link' ShortCut = 16455 OnClick = GetSaveAddClick end object GetSaveIntoAdd: TMenuItem Caption = 'Get Image, Save INTO ..., Add Link ' ShortCut = 16466 OnClick = GetSaveIntoAddClick end object N12: TMenuItem Caption = '-' ShortCut = 0 end object SaveImageMenu: TMenuItem Caption = 'Save a copy of current Image' ShortCut = 0 OnClick = SaveImageMenuClick end object SaveImageUpdateLinkMenu: TMenuItem Caption = 'Save current Image + Update link ' ShortCut = 0 OnClick = SaveImageUpdateLinkMenuClick end object N14: TMenuItem Caption = '-' ShortCut = 0 end object PrintScreenSizeMenu: TMenuItem Caption = 'Print image - screen size' ShortCut = 0 OnClick = Print1Click end object PrintToFitMenu: TMenuItem Caption = 'Print image - fit to page ' ShortCut = 0 OnClick = PrintandFit1Click end object PrintAllMenu: TMenuItem Caption = 'Print All' ShortCut = 0 object PrintAllHorz1: TMenuItem Caption = '= in Rows ' ShortCut = 0 OnClick = PrintAllHorz1Click end object TileAllVert1: TMenuItem Caption = '|| in Columns ' ShortCut = 0 OnClick = TileAllVert1Click end object OneRow1: TMenuItem Caption = '- one row per page' ShortCut = 0 OnClick = OneRow1Click end object OneColumn1: TMenuItem Caption = '| one Column per page' ShortCut = 0 OnClick = OneColumn1Click end object N22: TMenuItem Caption = '-' ShortCut = 0 end object N1Imageperpagefittopage1: TMenuItem Caption = '1 Image per page - Fit to page' ShortCut = 0 OnClick = N1Imageperpagefittopage1Click end object OneImageperpage1: TMenuItem Caption = '1 Image per page - Screen Size' ShortCut = 0 OnClick = OneImageperpage1Click end end object N21: TMenuItem Caption = '-' ShortCut = 0 end object SpawnMenu: TMenuItem Caption = 'Start my default viewer with this image' ShortCut = 115 OnClick = SpawnMenuClick end end object OptionsMenu: TMenuItem Caption = '&Options' ShortCut = 0 OnClick = OptionsMenuClick object AutopasteMenu: TMenuItem Caption = 'AutoPaste new images from clipboard' Hint = 'If checked: When a new image enters clipboard, AVI Constructor w' + 'ill get it.' ShortCut = 0 OnClick = AutopasteMenuClick end object N9: TMenuItem Caption = '-' ShortCut = 0 end object JPEGEncoding1: TMenuItem Caption = 'JPEG Encoding ...' ShortCut = 0 OnClick = JPEGEncoding1Click end object JpegDecoding1: TMenuItem Caption = 'JPEG Decoding ...' ShortCut = 0 OnClick = JpegDecoding1Click end object DefaultImageFormat1: TMenuItem Caption = 'Default Image Format' ShortCut = 0 OnClick = DefaultImageFormat1Click object BMPDefault: TMenuItem Caption = 'Bitmap' ShortCut = 0 OnClick = BMPDefaultClick end object JpegDefault: TMenuItem Caption = 'JPEG' ShortCut = 0 OnClick = JpegDefaultClick end end object View1: TMenuItem Caption = 'Display' ShortCut = 0 OnClick = View1Click object ShowFilesMenu: TMenuItem Caption = 'File names in image list' ShortCut = 0 OnClick = ShowFilesMenuClick end object ShowFramesMenu: TMenuItem Caption = 'Frame numbers' ShortCut = 0 OnClick = ShowFramesMenuClick end object ShowColorDisplayMenu: TMenuItem Caption = '# of colors in display image ' ShortCut = 0 OnClick = ShowColorDisplayMenuClick end object FrameListLeftMenu: TMenuItem Caption = 'Put frame list to the left' ShortCut = 0 OnClick = FrameListLeftMenuClick end object ShowAVIOptionsMenu: TMenuItem Caption = 'AVI Options ' ShortCut = 0 OnClick = ShowAVIOptionsMenuClick end end object N17: TMenuItem Caption = '-' ShortCut = 0 end object ShowHintsMenu: TMenuItem Caption = 'Show Hints' ShortCut = 0 OnClick = ShowHintsMenuClick end object AutoPlayMenu: TMenuItem Caption = 'Spawn to default player after building AVI' ShortCut = 0 OnClick = AutoPlayMenuClick end object WarningsMenu: TMenuItem Caption = 'Overwrite file warnings' ShortCut = 0 OnClick = WarningsMenuClick end object SoundMenu: TMenuItem Caption = 'Sounds' ShortCut = 0 OnClick = SoundMenuClick end object N23: TMenuItem Caption = '-' ShortCut = 0 end object PresentationModeMenu: TMenuItem Caption = 'Full Screen Mode' ShortCut = 0 OnClick = PresentationModeMenuClick end end object ToolsMenu: TMenuItem Caption = '&Tools' ShortCut = 0 object ICapture1: TMenuItem Caption = 'Capture an image from another window' ShortCut = 0 OnClick = ICapture1Click end end object AboutMenu: TMenuItem Caption = 'About' ShortCut = 0 object About2: TMenuItem Caption = 'About ...' ShortCut = 0 OnClick = About2Click end object WherecanIsendaquestioncommentorsuggestion1: TMenuItem Caption = 'Product support ...' ShortCut = 0 OnClick = WherecanIsendaquestioncommentorsuggestion1Click end object N13: TMenuItem Caption = '-' ShortCut = 0 end object HowdoIcompressanAVI1: TMenuItem Caption = 'How do I compress an AVI?' ShortCut = 0 OnClick = HowdoIcompressanAVI1Click end end end object SaveListDialog: TSaveDialog FileEditStyle = fsEdit Filter = 'Bitmap (*.BMP)|*.BMP|All Files (*.*)|*.*' Left = 481 Top = 162 end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 280 Top = 96 object Cut1: TMenuItem Caption = 'Cut' ShortCut = 0 OnClick = CutSelectedClick end object copy1: TMenuItem Caption = 'Copy' ShortCut = 0 OnClick = CopySelectedClick end object Paste2: TMenuItem Caption = 'Paste' ShortCut = 0 OnClick = PasteAtSelectedClick end object PasteatBeginning1: TMenuItem Caption = 'Paste at Beginning' ShortCut = 0 OnClick = Pasteat1Click end object PasteatEnd1: TMenuItem Caption = 'Paste at End' ShortCut = 0 OnClick = PasteAfterLastItemClick end object Delete1: TMenuItem Caption = 'Delete' ShortCut = 0 OnClick = RemoveSelectedClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object ReverseSelection2: TMenuItem Caption = 'Reverse selection' Enabled = False ShortCut = 0 OnClick = ReverseSelection2Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object MakeAVIfromselection: TMenuItem Caption = 'Make 256 color AVI from selection' ShortCut = 0 end object MakeTCAVIfromselection: TMenuItem Caption = 'Make true color AVI from selection' ShortCut = 0 end end object PopupMenu2: TPopupMenu OnPopup = PopupMenu2Popup Left = 297 Top = 108 object CopyThisImage1: TMenuItem Caption = 'Copy This Image' ShortCut = 0 OnClick = CopyImageMenuClick end object GetAddImage2: TMenuItem Caption = 'Past Clipboard Image at Selected Position' ShortCut = 0 OnClick = GetSaveTempAddClick end object GetSaveAddImage2: TMenuItem Caption = 'Paste Clipboard Image at Selected Position (But save it first)' ShortCut = 0 OnClick = GetSaveAddClick end end object ColorDialog: TColorDialog Ctl3D = True Color = clSilver Options = [cdFullOpen] Left = 327 Top = 32 end end