home *** CD-ROM | disk | FTP | other *** search
/ BUG 4 / BUGCD1997_05.BIN / mulmedia / avic / avict32.exe / 0 / RCDATA / TAVILISTWND / TAVILISTWND.txt < prev   
Text File  |  1997-03-05  |  38KB  |  1,267 lines
  1. object AVIListWnd: TAVIListWnd
  2.   Left = 284
  3.   Top = 81
  4.   Width = 574
  5.   Height = 444
  6.   Caption = 'AVI Constructor'
  7.   Color = clBlack
  8.   Font.Color = clWindowText
  9.   Font.Height = -16
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   KeyPreview = True
  14.   Menu = MainMenu1
  15.   Position = poScreenCenter
  16.   OnClose = FormClose
  17.   OnCloseQuery = FormCloseQuery
  18.   OnCreate = FormCreate
  19.   OnKeyPress = FormKeyPress
  20.   OnResize = FormResize
  21.   PixelsPerInch = 120
  22.   TextHeight = 20
  23.   object DPanel: TMRPanel
  24.     Left = 129
  25.     Top = 0
  26.     Width = 437
  27.     Height = 388
  28.     Align = alClient
  29.     BevelOuter = bvNone
  30.     Caption = 'DPanel'
  31.     Color = clBlack
  32.     Font.Color = clBlack
  33.     Font.Height = -17
  34.     Font.Name = 'MS Sans Serif'
  35.     Font.Style = []
  36.     ParentFont = False
  37.     ParentShowHint = False
  38.     PopupMenu = PopupMenu2
  39.     ShowHint = True
  40.     TabOrder = 0
  41.     OnResize = DPanelResize
  42.     BorderColor = clBlack
  43.     BorderSides = []
  44.     Moveable = False
  45.     CBorderStyle = cbsNone
  46.     OnPaint = DPanelPaint
  47.     object ColorLabel: TLabel
  48.       Left = 0
  49.       Top = 324
  50.       Width = 437
  51.       Height = 19
  52.       Align = alBottom
  53.       Alignment = taCenter
  54.       FocusControl = btn16
  55.       Font.Color = clWhite
  56.       Font.Height = -17
  57.       Font.Name = 'Times New Roman'
  58.       Font.Style = [fsBold]
  59.       ParentFont = False
  60.       Visible = False
  61.     end
  62.     object NumberLabel: TLabel
  63.       Left = 0
  64.       Top = 305
  65.       Width = 437
  66.       Height = 19
  67.       Align = alBottom
  68.       Alignment = taCenter
  69.       Color = clBlack
  70.       Font.Color = clWhite
  71.       Font.Height = -17
  72.       Font.Name = 'Times New Roman'
  73.       Font.Style = [fsBold]
  74.       ParentColor = False
  75.       ParentFont = False
  76.     end
  77.     object Label2: TLabel
  78.       Left = 220
  79.       Top = 0
  80.       Width = 50
  81.       Height = 20
  82.       Caption = 'Label2'
  83.     end
  84.     object MRPanel1: TMRPanel
  85.       Left = 0
  86.       Top = 343
  87.       Width = 437
  88.       Height = 45
  89.       Align = alBottom
  90.       BorderWidth = 2
  91.       TabOrder = 0
  92.       OnResize = MRPanel1Resize
  93.       BevelSides = [sdTop]
  94.       BorderSides = []
  95.       Moveable = False
  96.       CBorderStyle = cbsNone
  97.       object FPSLabel: TLabel
  98.         Left = 3
  99.         Top = 3
  100.         Width = 57
  101.         Height = 39
  102.         Hint = 'Flips Per Second for the AVI'
  103.         Align = alLeft
  104.         Caption = 'AVI FPS'
  105.         Color = clBtnFace
  106.         Font.Color = clBtnText
  107.         Font.Height = -15
  108.         Font.Name = 'Times New Roman'
  109.         Font.Style = [fsBold]
  110.         ParentColor = False
  111.         ParentFont = False
  112.       end
  113.       object FPSSpin: TASpinEdit
  114.         Left = 60
  115.         Top = 3
  116.         Width = 55
  117.         Height = 39
  118.         Hint = 'Flips Per Second for the AVI'
  119.         Ctl3D = True
  120.         Font.Color = clWindowText
  121.         Font.Height = -15
  122.         Font.Name = 'Times New Roman'
  123.         Font.Style = [fsBold]
  124.         MaxValue = 10000
  125.         MinValue = 1
  126.         ParentCtl3D = False
  127.         ParentFont = False
  128.         ParentShowHint = False
  129.         ShowHint = True
  130.         TabOrder = 0
  131.         Value = 8
  132.         OnChange = FPSSpinChange
  133.         Align = alLeft
  134.       end
  135.       object BtnMono: TABitbtn
  136.         Left = 147
  137.         Top = 3
  138.         Width = 30
  139.         Height = 39
  140.         Hint = 'Make Monochrome AVI'
  141.         Font.Color = clBlack
  142.         Font.Height = -17
  143.         Font.Name = 'System'
  144.         Font.Style = [fsBold]
  145.         ParentFont = False
  146.         ParentShowHint = False
  147.         ShowHint = True
  148.         TabOrder = 1
  149.         OnClick = BtnMonoClick
  150.         Glyph.Data = {
  151.           80000000424D80000000000000003E0000002800000020000000100000000100
  152.           01000000000000000000120B0000120B00000000000000000000FFFFFF000000
  153.           00007FFF7FFFAAAAAAAAFFFFFFFF0001000000010000078103C0020101000301
  154.           018001010080018100C0058102C00301018000010000FFFFFFFFAAAAAAAAFFFF
  155.           FFFF0000}
  156.         NumGlyphs = 2
  157.         Align = alLeft
  158.       end
  159.       object btn16: TABitbtn
  160.         Left = 177
  161.         Top = 3
  162.         Width = 32
  163.         Height = 39
  164.         Hint = 'Make 16 Color AVI'
  165.         Font.Color = clBlack
  166.         Font.Height = -15
  167.         Font.Name = 'Times New Roman'
  168.         Font.Style = [fsItalic]
  169.         ParentFont = False
  170.         ParentShowHint = False
  171.         ShowHint = True
  172.         TabOrder = 2
  173.         OnClick = btn16Click
  174.         Glyph.Data = {
  175.           80000000424D80000000000000003E0000002800000020000000100000000100
  176.           01000000000000000000120B0000120B00000000000000000000FFFFFF000000
  177.           00007FFF7FFFAAAAAAAAFFFFFFFF00010000000100001E610F300CD106680CD1
  178.           06680CD106680CE106700C4106201C310E1800010000FFFFFFFFAAAAAAAAFFFF
  179.           FFFF0000}
  180.         NumGlyphs = 2
  181.         Align = alLeft
  182.       end
  183.       object btn256: TABitbtn
  184.         Left = 209
  185.         Top = 3
  186.         Width = 33
  187.         Height = 39
  188.         Hint = 'Make 256 Color AVI'
  189.         Font.Color = clBlack
  190.         Font.Height = -15
  191.         Font.Name = 'Times New Roman'
  192.         Font.Style = [fsItalic]
  193.         ParentFont = False
  194.         ParentShowHint = False
  195.         ShowHint = True
  196.         TabOrder = 3
  197.         OnClick = btn256Click
  198.         Glyph.Data = {
  199.           80000000424D80000000000000003E0000002800000020000000100000000100
  200.           01000000000000000000120B0000120B00000000000000000000FFFFFF000000
  201.           00007FFF7FFFAAAAAAAAFFFFFFFF0001000000010000F7197B8C44B5225A60B5
  202.           305A27B513DA37391B9CB2115908638D31C600010000FFFFFFFFAAAAAAAAFFFF
  203.           FFFF0000}
  204.         NumGlyphs = 2
  205.         Align = alLeft
  206.       end
  207.       object btntc: TABitbtn
  208.         Left = 242
  209.         Top = 3
  210.         Width = 32
  211.         Height = 39
  212.         Hint = 'Make True Color AVI'
  213.         Font.Color = clBlack
  214.         Font.Height = -17
  215.         Font.Name = 'System'
  216.         Font.Style = [fsBold]
  217.         ParentFont = False
  218.         ParentShowHint = False
  219.         ShowHint = True
  220.         TabOrder = 4
  221.         OnClick = btntcClick
  222.         Glyph.Data = {
  223.           80000000424D80000000000000003E0000002800000020000000100000000100
  224.           01000000000000000000120B0000120B00000000000000000000FFFFFF000000
  225.           00007FFF7FFFAAAAAAAAFFFFFFFF00010000000100003C711E3818C90C6418C1
  226.           0C6018C10C6018C10C605AD92D6C7E693F3400010000FFFFFFFFAAAAAAAAFFFF
  227.           FFFF0000}
  228.         NumGlyphs = 2
  229.         Align = alLeft
  230.       end
  231.       object BtnUnknown: TABitbtn
  232.         Left = 115
  233.         Top = 3
  234.         Width = 32
  235.         Height = 39
  236.         Hint = 'Make an AVI by the format of the first image.'
  237.         Font.Color = clBlack
  238.         Font.Height = -17
  239.         Font.Name = 'System'
  240.         Font.Style = [fsBold]
  241.         ParentFont = False
  242.         ParentShowHint = False
  243.         ShowHint = True
  244.         TabOrder = 5
  245.         OnClick = BtnUnknownClick
  246.         Glyph.Data = {
  247.           80000000424D80000000000000003E0000002800000020000000100000000100
  248.           01000000000000000000120B0000120B00000000000000000000FFFFFF000000
  249.           00007FFF7FFFAAAAAAAAFFFFFFFF000100000001000003010180000100000301
  250.           0180018100C000C1006006C10360038101C000010000FFFFFFFFAAAAAAAAFFFF
  251.           FFFF0000}
  252.         NumGlyphs = 2
  253.         Align = alLeft
  254.       end
  255.     end
  256.     object BuildPanel: TPanel
  257.       Left = 256
  258.       Top = 312
  259.       Width = 25
  260.       Height = 25
  261.       BorderWidth = 12
  262.       Font.Color = clBlack
  263.       Font.Height = -17
  264.       Font.Name = 'System'
  265.       Font.Style = [fsBold]
  266.       ParentFont = False
  267.       TabOrder = 1
  268.       Visible = False
  269.       object BuildGauge: TGauge
  270.         Left = 13
  271.         Top = 33
  272.         Width = 71
  273.         Height = 25
  274.         Align = alTop
  275.         Progress = 0
  276.       end
  277.       object FileNameLabel: TLabel
  278.         Left = 13
  279.         Top = 13
  280.         Width = 71
  281.         Height = 20
  282.         Align = alTop
  283.         Alignment = taCenter
  284.         Font.Color = clBlack
  285.         Font.Height = -17
  286.         Font.Name = 'System'
  287.         Font.Style = [fsBold]
  288.         ParentFont = False
  289.       end
  290.       object FileSizeLabel: TLabel
  291.         Left = 13
  292.         Top = 58
  293.         Width = 71
  294.         Height = 20
  295.         Align = alTop
  296.         Alignment = taCenter
  297.         Font.Color = clBlack
  298.         Font.Height = -17
  299.         Font.Name = 'System'
  300.         Font.Style = [fsBold]
  301.         ParentFont = False
  302.       end
  303.       object CommentLabel: TLabel
  304.         Left = 13
  305.         Top = 151
  306.         Width = 71
  307.         Height = 20
  308.         Align = alTop
  309.         Alignment = taCenter
  310.         Font.Color = clBlack
  311.         Font.Height = -17
  312.         Font.Name = 'System'
  313.         Font.Style = [fsBold]
  314.         ParentFont = False
  315.       end
  316.       object PaletteLabel: TLabel
  317.         Left = 13
  318.         Top = 171
  319.         Width = 71
  320.         Height = 20
  321.         Align = alTop
  322.         Alignment = taCenter
  323.         Font.Color = clBlack
  324.         Font.Height = -17
  325.         Font.Name = 'System'
  326.         Font.Style = [fsBold]
  327.         ParentFont = False
  328.       end
  329.       object BuildNumberLabel: TLabel
  330.         Left = 13
  331.         Top = 131
  332.         Width = 71
  333.         Height = 20
  334.         Align = alTop
  335.         Alignment = taCenter
  336.         Font.Color = clBlack
  337.         Font.Height = -17
  338.         Font.Name = 'System'
  339.         Font.Style = [fsBold]
  340.         ParentFont = False
  341.       end
  342.       object DecodeLabel: TLabel
  343.         Left = 13
  344.         Top = 111
  345.         Width = 71
  346.         Height = 20
  347.         Align = alTop
  348.         Alignment = taCenter
  349.         Font.Color = clBlack
  350.         Font.Height = -17
  351.         Font.Name = 'System'
  352.         Font.Style = [fsBold]
  353.         ParentFont = False
  354.       end
  355.       object CancelBtn: TABitbtn
  356.         Left = 13
  357.         Top = 78
  358.         Width = 71
  359.         Height = 33
  360.         Font.Color = clBlack
  361.         Font.Height = -17
  362.         Font.Name = 'System'
  363.         Font.Style = [fsBold]
  364.         ParentFont = False
  365.         TabOrder = 0
  366.         OnClick = CancelBtnClick
  367.         Kind = bkCancel
  368.         Align = alTop
  369.       end
  370.     end
  371.   end
  372.   object ListPanel: TMRPanel
  373.     Left = 0
  374.     Top = 0
  375.     Width = 129
  376.     Height = 388
  377.     Align = alLeft
  378.     BevelInner = bvLowered
  379.     BevelWidth = 2
  380.     BorderWidth = 1
  381.     Ctl3D = True
  382.     Font.Color = clBlack
  383.     Font.Height = -17
  384.     Font.Name = 'Times New Roman'
  385.     Font.Style = [fsBold, fsUnderline]
  386.     ParentCtl3D = False
  387.     ParentFont = False
  388.     TabOrder = 1
  389.     OnResize = ListPanelResize
  390.     BevelSides = [sdTop, sdRight]
  391.     BorderSides = []
  392.     Moveable = False
  393.     CBorderStyle = cbsNone
  394.     OnNCHitTest = ListPanelNCHitTest
  395.     object FrameLabel: TLabel
  396.       Left = 5
  397.       Top = 339
  398.       Width = 119
  399.       Height = 17
  400.       Align = alBottom
  401.       Caption = 'Frame Duration:'
  402.       Color = clBtnFace
  403.       Font.Color = clBtnText
  404.       Font.Height = -15
  405.       Font.Name = 'Times New Roman'
  406.       Font.Style = [fsBold]
  407.       ParentColor = False
  408.       ParentFont = False
  409.     end
  410.     object Bevel1: TBevel
  411.       Left = 5
  412.       Top = 294
  413.       Width = 119
  414.       Height = 7
  415.       Align = alBottom
  416.       Shape = bsBottomLine
  417.       Style = bsRaised
  418.     end
  419.     object SpinButton1: TSpinButton
  420.       Left = 5
  421.       Top = 301
  422.       Width = 119
  423.       Height = 38
  424.       Hint = 'This Cycles Though the Images ( in the list above)'
  425.       Align = alBottom
  426.       Ctl3D = True
  427.       DownGlyph.Data = {
  428.         7E040000424D7E04000000000000360400002800000009000000060000000100
  429.         0800000000004800000000000000000000000000000000000000000000000000
  430.         80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
  431.         A600000000000000000000000000000000000000000000000000000000000000
  432.         0000000000000000000000000000000000000000000000000000000000000000
  433.         0000000000000000000000000000000000000000000000000000000000000000
  434.         0000000000000000000000000000000000000000000000000000000000000000
  435.         0000000000000000000000000000000000000000000000000000000000000000
  436.         0000000000000000000000000000000000000000000000000000000000000000
  437.         0000000000000000000000000000000000000000000000000000000000000000
  438.         0000000000000000000000000000000000000000000000000000000000000000
  439.         0000000000000000000000000000000000000000000000000000000000000000
  440.         0000000000000000000000000000000000000000000000000000000000000000
  441.         0000000000000000000000000000000000000000000000000000000000000000
  442.         0000000000000000000000000000000000000000000000000000000000000000
  443.         0000000000000000000000000000000000000000000000000000000000000000
  444.         0000000000000000000000000000000000000000000000000000000000000000
  445.         0000000000000000000000000000000000000000000000000000000000000000
  446.         0000000000000000000000000000000000000000000000000000000000000000
  447.         0000000000000000000000000000000000000000000000000000000000000000
  448.         0000000000000000000000000000000000000000000000000000000000000000
  449.         0000000000000000000000000000000000000000000000000000000000000000
  450.         0000000000000000000000000000000000000000000000000000000000000000
  451.         0000000000000000000000000000000000000000000000000000000000000000
  452.         0000000000000000000000000000000000000000000000000000000000000000
  453.         0000000000000000000000000000000000000000000000000000000000000000
  454.         0000000000000000000000000000000000000000000000000000000000000000
  455.         0000000000000000000000000000000000000000000000000000000000000000
  456.         0000000000000000000000000000000000000000000000000000000000000000
  457.         0000000000000000000000000000000000000000000000000000000000000000
  458.         0000000000000000000000000000000000000000000000000000000000000000
  459.         0000000000000000000000000000000000000000000000000000000000000000
  460.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  461.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  462.         0303030000000303030300030303030000000303030000000303030000000303
  463.         0000000000030300000003000000000000000300000003030303030303030300
  464.         0000}
  465.       ParentCtl3D = False
  466.       ParentShowHint = False
  467.       ShowHint = True
  468.       TabOrder = 0
  469.       UpGlyph.Data = {
  470.         7E040000424D7E04000000000000360400002800000009000000060000000100
  471.         0800000000004800000000000000000000000000000000000000000000000000
  472.         80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
  473.         A600000000000000000000000000000000000000000000000000000000000000
  474.         0000000000000000000000000000000000000000000000000000000000000000
  475.         0000000000000000000000000000000000000000000000000000000000000000
  476.         0000000000000000000000000000000000000000000000000000000000000000
  477.         0000000000000000000000000000000000000000000000000000000000000000
  478.         0000000000000000000000000000000000000000000000000000000000000000
  479.         0000000000000000000000000000000000000000000000000000000000000000
  480.         0000000000000000000000000000000000000000000000000000000000000000
  481.         0000000000000000000000000000000000000000000000000000000000000000
  482.         0000000000000000000000000000000000000000000000000000000000000000
  483.         0000000000000000000000000000000000000000000000000000000000000000
  484.         0000000000000000000000000000000000000000000000000000000000000000
  485.         0000000000000000000000000000000000000000000000000000000000000000
  486.         0000000000000000000000000000000000000000000000000000000000000000
  487.         0000000000000000000000000000000000000000000000000000000000000000
  488.         0000000000000000000000000000000000000000000000000000000000000000
  489.         0000000000000000000000000000000000000000000000000000000000000000
  490.         0000000000000000000000000000000000000000000000000000000000000000
  491.         0000000000000000000000000000000000000000000000000000000000000000
  492.         0000000000000000000000000000000000000000000000000000000000000000
  493.         0000000000000000000000000000000000000000000000000000000000000000
  494.         0000000000000000000000000000000000000000000000000000000000000000
  495.         0000000000000000000000000000000000000000000000000000000000000000
  496.         0000000000000000000000000000000000000000000000000000000000000000
  497.         0000000000000000000000000000000000000000000000000000000000000000
  498.         0000000000000000000000000000000000000000000000000000000000000000
  499.         0000000000000000000000000000000000000000000000000000000000000000
  500.         0000000000000000000000000000000000000000000000000000000000000000
  501.         0000000000000000000000000000000000000000000000000000000000000000
  502.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  503.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  504.         0303030000000300000000000000030000000303000000000003030000000303
  505.         0300000003030300000003030303000303030300000003030303030303030300
  506.         0000}
  507.       OnDownClick = SpinButton1DownClick
  508.       OnUpClick = SpinButton1UpClick
  509.     end
  510.     object LBEdit1: TLBEdit
  511.       Left = 5
  512.       Top = 5
  513.       Width = 119
  514.       Height = 289
  515.       Hint = 'This is the image (frame) list.'
  516.       Align = alClient
  517.       BorderStyle = bsNone
  518.       Color = clBtnFace
  519.       Ctl3D = False
  520.       Font.Color = clBlack
  521.       Font.Height = -15
  522.       Font.Name = 'MS Sans Serif'
  523.       Font.Style = [fsBold]
  524.       ItemHeight = 16
  525.       MultiSelect = True
  526.       ParentCtl3D = False
  527.       ParentFont = False
  528.       ParentShowHint = False
  529.       PopupMenu = PopupMenu1
  530.       ShowHint = True
  531.       Style = lbOwnerDrawVariable
  532.       TabOrder = 1
  533.       OnClick = Listbox1Click
  534.       BTNBorderWidth = 0
  535.       ExtraHeight = 10
  536.       ShowItems = True
  537.       ShowIndex = True
  538.     end
  539.     object FlipSpin: TASpinEdit
  540.       Left = 5
  541.       Top = 356
  542.       Width = 119
  543.       Height = 27
  544.       Ctl3D = True
  545.       Font.Color = clWindowText
  546.       Font.Height = -15
  547.       Font.Name = 'Times New Roman'
  548.       Font.Style = [fsBold]
  549.       MaxValue = 1000000
  550.       MinValue = 1
  551.       ParentCtl3D = False
  552.       ParentFont = False
  553.       ParentShowHint = False
  554.       ShowHint = True
  555.       TabOrder = 2
  556.       Value = 1
  557.       OnChange = FlipSpinChange
  558.       Align = alBottom
  559.     end
  560.   end
  561.   object MainMenu1: TMainMenu
  562.     Left = 256
  563.     Top = 88
  564.     object ProjectMenu: TMenuItem
  565.       Caption = '&Project'
  566.       ShortCut = 0
  567.       OnClick = ProjectMenuClick
  568.       object NewProjectMenu: TMenuItem
  569.         Caption = 'Start New Project'
  570.         ShortCut = 0
  571.         OnClick = NewProjectMenuClick
  572.       end
  573.       object N10: TMenuItem
  574.         Caption = '-'
  575.         ShortCut = 0
  576.       end
  577.       object AddImages1: TMenuItem
  578.         Caption = 'Add Images ...'
  579.         ShortCut = 0
  580.         OnClick = AddImages1Click
  581.       end
  582.       object ExtractImagesFromAVI1: TMenuItem
  583.         Caption = '&Get images from an AVI ...'
  584.         ShortCut = 0
  585.         OnClick = ExtractImagesFromAVI1Click
  586.       end
  587.       object OpenFileList1: TMenuItem
  588.         Caption = '&Open file list ...'
  589.         ShortCut = 0
  590.         OnClick = OpenFileList1Click
  591.       end
  592.       object N1: TMenuItem
  593.         Caption = '-'
  594.         ShortCut = 0
  595.       end
  596.       object SaveFileListMenu: TMenuItem
  597.         Caption = '&Save file list ...'
  598.         ShortCut = 0
  599.         OnClick = SaveFileListMenuClick
  600.       end
  601.       object SaveAllImagesMenu: TMenuItem
  602.         Caption = '&Save or Save a Copy all images ...'
  603.         ShortCut = 0
  604.         OnClick = SaveAllImagesMenuClick
  605.       end
  606.       object N3: TMenuItem
  607.         Caption = '-'
  608.         ShortCut = 0
  609.       end
  610.       object Makefromfilelist1: TMenuItem
  611.         Caption = 'Make AVI from a file list (text file)'
  612.         ShortCut = 0
  613.         object MakeDefaultAVIFromFileList: TMenuItem
  614.           Caption = 'Assume All Images are similar'
  615.           ShortCut = 0
  616.           OnClick = MakeMovieFromFileList
  617.         end
  618.         object Make2ColorAVIFromFileList: TMenuItem
  619.           Caption = '2 Color AVI'
  620.           ShortCut = 0
  621.           OnClick = MakeMovieFromFileList
  622.         end
  623.         object Make16ColorAVIFromFileList: TMenuItem
  624.           Caption = '16 color AVI'
  625.           ShortCut = 0
  626.           OnClick = MakeMovieFromFileList
  627.         end
  628.         object Make256ColorAVIFromFileList: TMenuItem
  629.           Caption = '256 color AVI'
  630.           ShortCut = 0
  631.           OnClick = MakeMovieFromFileList
  632.         end
  633.         object MakeTrueColorAVIFromFileList: TMenuItem
  634.           Caption = 'True Color AVI'
  635.           ShortCut = 0
  636.           OnClick = MakeMovieFromFileList
  637.         end
  638.       end
  639.       object N8: TMenuItem
  640.         Caption = '-'
  641.         ShortCut = 0
  642.       end
  643.       object Exit1: TMenuItem
  644.         Caption = 'E&xit AVI Constructor'
  645.         ShortCut = 0
  646.         OnClick = Exit1Click
  647.       end
  648.     end
  649.     object ListMenu: TMenuItem
  650.       Caption = 'File-Frame List'
  651.       ShortCut = 0
  652.       OnClick = ListMenuClick
  653.       object CutSelected: TMenuItem
  654.         Caption = 'Cut '
  655.         ShortCut = 16472
  656.         OnClick = CutSelectedClick
  657.       end
  658.       object CopySelected: TMenuItem
  659.         Caption = 'Copy '
  660.         ShortCut = 16451
  661.         OnClick = CopySelectedClick
  662.       end
  663.       object PasteAtSelected: TMenuItem
  664.         Caption = 'Paste '
  665.         ShortCut = 16470
  666.         OnClick = PasteAtSelectedClick
  667.       end
  668.       object Pasteat1: TMenuItem
  669.         Caption = 'Paste at beginning'
  670.         ShortCut = 16450
  671.         OnClick = Pasteat1Click
  672.       end
  673.       object PasteAfterLastItem: TMenuItem
  674.         Caption = 'Paste at end '
  675.         ShortCut = 16453
  676.         OnClick = PasteAfterLastItemClick
  677.       end
  678.       object RemoveSelected: TMenuItem
  679.         Caption = 'Delete'
  680.         ShortCut = 16430
  681.         OnClick = RemoveSelectedClick
  682.       end
  683.       object N2: TMenuItem
  684.         Caption = '-'
  685.         ShortCut = 0
  686.       end
  687.       object SelectAll1: TMenuItem
  688.         Caption = 'Select all'
  689.         ShortCut = 0
  690.         OnClick = SelectAll1Click
  691.       end
  692.       object SelectNone1: TMenuItem
  693.         Caption = 'Select none'
  694.         ShortCut = 0
  695.         OnClick = SelectNone1Click
  696.       end
  697.       object N6: TMenuItem
  698.         Caption = '-'
  699.         ShortCut = 0
  700.       end
  701.       object ReverseSelection1: TMenuItem
  702.         Caption = 'Reverse selection'
  703.         ShortCut = 0
  704.         OnClick = ReverseSelection1Click
  705.       end
  706.       object N4: TMenuItem
  707.         Caption = '-'
  708.         ShortCut = 0
  709.       end
  710.       object ReverseList1: TMenuItem
  711.         Caption = 'Reverse list'
  712.         ShortCut = 0
  713.         OnClick = ReverseList1Click
  714.       end
  715.       object SortList1: TMenuItem
  716.         Caption = 'Sort list'
  717.         ShortCut = 16467
  718.         OnClick = SortList1Click
  719.       end
  720.       object N18: TMenuItem
  721.         Caption = '-'
  722.         ShortCut = 0
  723.       end
  724.       object SetAllFrameRatesto11: TMenuItem
  725.         Caption = 'Set All Frame Rates to 1'
  726.         ShortCut = 0
  727.         OnClick = SetAllFrameRatesto11Click
  728.       end
  729.       object N11: TMenuItem
  730.         Caption = '-'
  731.         ShortCut = 0
  732.       end
  733.       object Makefromlistselection1: TMenuItem
  734.         Caption = 'Make AVI from selection'
  735.         ShortCut = 0
  736.         object Selection2ColorMenu: TMenuItem
  737.           Caption = '2 Color'
  738.           ShortCut = 0
  739.           OnClick = MakeMovie
  740.         end
  741.         object Selection16ColorMenu: TMenuItem
  742.           Caption = '16 Color'
  743.           ShortCut = 0
  744.           OnClick = MakeMovie
  745.         end
  746.         object Selection256ColorMenu: TMenuItem
  747.           Caption = '256 Color'
  748.           ShortCut = 0
  749.           OnClick = MakeMovie
  750.         end
  751.         object SelectionTrueColorMenu: TMenuItem
  752.           Caption = 'True Color'
  753.           ShortCut = 0
  754.           OnClick = MakeMovie
  755.         end
  756.       end
  757.     end
  758.     object MakeMenu: TMenuItem
  759.       Caption = '&Make AVI'
  760.       ShortCut = 0
  761.       OnClick = MakeMenuClick
  762.       object MakeDefaultMenu: TMenuItem
  763.         Caption = 'Assume all images are similar'
  764.         ShortCut = 115
  765.         OnClick = MakeMovie
  766.       end
  767.       object Make2ColorMenu: TMenuItem
  768.         Caption = '2 Color'
  769.         ShortCut = 116
  770.         OnClick = MakeMovie
  771.       end
  772.       object Make16ColorMenu: TMenuItem
  773.         Caption = '16 color'
  774.         ShortCut = 117
  775.         OnClick = MakeMovie
  776.       end
  777.       object Make256ColorMenu: TMenuItem
  778.         Caption = '256 color'
  779.         ShortCut = 118
  780.         OnClick = MakeMovie
  781.       end
  782.       object MakeTrueColorMenu: TMenuItem
  783.         Caption = 'True color '
  784.         ShortCut = 119
  785.         OnClick = MakeMovie
  786.       end
  787.       object NegativeColorMenu: TMenuItem
  788.         Caption = 'Negative Color'
  789.         ShortCut = 0
  790.         object Inverse2ColorMenu: TMenuItem
  791.           Caption = '2 Colors'
  792.           ShortCut = 0
  793.           OnClick = MakeMovie
  794.         end
  795.         object Inverse16ColorMenu: TMenuItem
  796.           Caption = '16 Colors'
  797.           ShortCut = 0
  798.           OnClick = MakeMovie
  799.         end
  800.         object Inverse256ColorMenu: TMenuItem
  801.           Caption = '256 Colors'
  802.           ShortCut = 0
  803.           OnClick = MakeMovie
  804.         end
  805.         object InverseTrueColorMenu: TMenuItem
  806.           Caption = 'True Color'
  807.           ShortCut = 0
  808.           OnClick = MakeMovie
  809.         end
  810.       end
  811.       object AdjustToColorMenu: TMenuItem
  812.         Caption = 'Adjust To Color '
  813.         ShortCut = 0
  814.         object Adjust2ColorMenu: TMenuItem
  815.           Caption = '2 Color ...'
  816.           ShortCut = 0
  817.           OnClick = MakeMovie
  818.         end
  819.         object Adjust16ColorMenu: TMenuItem
  820.           Caption = '16 Color ...'
  821.           ShortCut = 0
  822.           OnClick = MakeMovie
  823.         end
  824.         object Adjust256ColorMenu: TMenuItem
  825.           Caption = '256 Color ...'
  826.           ShortCut = 0
  827.           OnClick = MakeMovie
  828.         end
  829.         object AdjustTrueColorMenu: TMenuItem
  830.           Caption = 'True Color ...'
  831.           ShortCut = 0
  832.           OnClick = MakeMovie
  833.         end
  834.       end
  835.       object ColorScaleMenu: TMenuItem
  836.         Caption = 'Color Scale '
  837.         ShortCut = 0
  838.         object Scale2ColorMenu: TMenuItem
  839.           Caption = '2 Color ...'
  840.           ShortCut = 0
  841.           OnClick = MakeMovie
  842.         end
  843.         object Scale16ColorMenu: TMenuItem
  844.           Caption = '16 Color ...'
  845.           ShortCut = 0
  846.           OnClick = MakeMovie
  847.         end
  848.         object Scale256ColorMenu: TMenuItem
  849.           Caption = '256 Color ...'
  850.           ShortCut = 0
  851.           OnClick = MakeMovie
  852.         end
  853.         object ScaleTrueColorMenu: TMenuItem
  854.           Caption = 'True Color ...'
  855.           ShortCut = 0
  856.           OnClick = MakeMovie
  857.         end
  858.       end
  859.       object MaximumColorMenu: TMenuItem
  860.         Caption = 'Maximum Color'
  861.         ShortCut = 0
  862.         object Maximum2ColorMenu: TMenuItem
  863.           Caption = '2 Color ...'
  864.           ShortCut = 0
  865.           OnClick = MakeMovie
  866.         end
  867.         object Maximum16ColorMenu: TMenuItem
  868.           Caption = '16 Color ...'
  869.           ShortCut = 0
  870.           OnClick = MakeMovie
  871.         end
  872.         object Maximum256ColorMenu: TMenuItem
  873.           Caption = '256 Color ...'
  874.           ShortCut = 0
  875.           OnClick = MakeMovie
  876.         end
  877.         object MaximumTrueColorMenu: TMenuItem
  878.           Caption = 'True Color ...'
  879.           ShortCut = 0
  880.           OnClick = MakeMovie
  881.         end
  882.       end
  883.       object RandomColorMenu: TMenuItem
  884.         Caption = 'Random Color'
  885.         ShortCut = 0
  886.         object Random2ColorMenu: TMenuItem
  887.           Caption = '2 Color ...'
  888.           ShortCut = 0
  889.           OnClick = MakeMovie
  890.         end
  891.         object Random16ColorMenu: TMenuItem
  892.           Caption = '16 Color ...'
  893.           ShortCut = 0
  894.           OnClick = MakeMovie
  895.         end
  896.         object Random256ColorMenu: TMenuItem
  897.           Caption = '256 Color ...'
  898.           ShortCut = 0
  899.           OnClick = MakeMovie
  900.         end
  901.         object RandomTrueColorMenu: TMenuItem
  902.           Caption = 'TrueColor ...'
  903.           ShortCut = 0
  904.           OnClick = MakeMovie
  905.         end
  906.       end
  907.       object N19: TMenuItem
  908.         Caption = '-'
  909.         ShortCut = 0
  910.       end
  911.       object AVIOptions1: TMenuItem
  912.         Caption = 'AVI Options'
  913.         ShortCut = 0
  914.         OnClick = AVIOptions1Click
  915.         object AskForCompressionMenu: TMenuItem
  916.           Caption = 'Always Ask For Compression ( 256 Colors and above only )'
  917.           ShortCut = 0
  918.           OnClick = AskForCompressionMenuClick
  919.         end
  920.         object WriteColorPalettesMenu: TMenuItem
  921.           Caption = 'Write Palette Changes '
  922.           ShortCut = 0
  923.           OnClick = WriteColorPalettesMenuClick
  924.         end
  925.       end
  926.     end
  927.     object ImageMenu: TMenuItem
  928.       Caption = '&Image'
  929.       ShortCut = 0
  930.       OnClick = ImageMenuClick
  931.       object CopyImageMenu: TMenuItem
  932.         Caption = 'Copy image'
  933.         Hint = 'This places the image in the clipboard'
  934.         ShortCut = 0
  935.         OnClick = CopyImageMenuClick
  936.       end
  937.       object PasteAtBeginningMenu: TMenuItem
  938.         Caption = 'Paste at Beginning'
  939.         ShortCut = 0
  940.         OnClick = PasteAtBeginningMenuClick
  941.       end
  942.       object GetSaveTempAdd: TMenuItem
  943.         Caption = 'Get Image, Save as Temp. File, and Add Link'
  944.         ShortCut = 16468
  945.         OnClick = GetSaveTempAddClick
  946.       end
  947.       object PasteAtEndMenu: TMenuItem
  948.         Caption = 'Paste at End'
  949.         ShortCut = 0
  950.         OnClick = PasteAtEndMenuClick
  951.       end
  952.       object GetSaveAdd: TMenuItem
  953.         Caption = 'Get Image, Save  as ... , Add Link'
  954.         ShortCut = 16455
  955.         OnClick = GetSaveAddClick
  956.       end
  957.       object GetSaveIntoAdd: TMenuItem
  958.         Caption = 'Get Image, Save INTO ...,  Add Link '
  959.         ShortCut = 16466
  960.         OnClick = GetSaveIntoAddClick
  961.       end
  962.       object N12: TMenuItem
  963.         Caption = '-'
  964.         ShortCut = 0
  965.       end
  966.       object SaveImageMenu: TMenuItem
  967.         Caption = 'Save a copy of current Image'
  968.         ShortCut = 0
  969.         OnClick = SaveImageMenuClick
  970.       end
  971.       object SaveImageUpdateLinkMenu: TMenuItem
  972.         Caption = 'Save current Image + Update link '
  973.         ShortCut = 0
  974.         OnClick = SaveImageUpdateLinkMenuClick
  975.       end
  976.       object N14: TMenuItem
  977.         Caption = '-'
  978.         ShortCut = 0
  979.       end
  980.       object PrintScreenSizeMenu: TMenuItem
  981.         Caption = 'Print image - screen size'
  982.         ShortCut = 0
  983.         OnClick = Print1Click
  984.       end
  985.       object PrintToFitMenu: TMenuItem
  986.         Caption = 'Print image - fit to page '
  987.         ShortCut = 0
  988.         OnClick = PrintandFit1Click
  989.       end
  990.       object PrintAllMenu: TMenuItem
  991.         Caption = 'Print All'
  992.         ShortCut = 0
  993.         object PrintAllHorz1: TMenuItem
  994.           Caption = '=    in Rows      '
  995.           ShortCut = 0
  996.           OnClick = PrintAllHorz1Click
  997.         end
  998.         object TileAllVert1: TMenuItem
  999.           Caption = '||    in Columns '
  1000.           ShortCut = 0
  1001.           OnClick = TileAllVert1Click
  1002.         end
  1003.         object OneRow1: TMenuItem
  1004.           Caption = '-     one row per page'
  1005.           ShortCut = 0
  1006.           OnClick = OneRow1Click
  1007.         end
  1008.         object OneColumn1: TMenuItem
  1009.           Caption = '|     one Column per page'
  1010.           ShortCut = 0
  1011.           OnClick = OneColumn1Click
  1012.         end
  1013.         object N22: TMenuItem
  1014.           Caption = '-'
  1015.           ShortCut = 0
  1016.         end
  1017.         object N1Imageperpagefittopage1: TMenuItem
  1018.           Caption = '1 Image per page - Fit to page'
  1019.           ShortCut = 0
  1020.           OnClick = N1Imageperpagefittopage1Click
  1021.         end
  1022.         object OneImageperpage1: TMenuItem
  1023.           Caption = '1 Image per page - Screen Size'
  1024.           ShortCut = 0
  1025.           OnClick = OneImageperpage1Click
  1026.         end
  1027.       end
  1028.       object N21: TMenuItem
  1029.         Caption = '-'
  1030.         ShortCut = 0
  1031.       end
  1032.       object SpawnMenu: TMenuItem
  1033.         Caption = 'Start my default viewer with this image'
  1034.         ShortCut = 115
  1035.         OnClick = SpawnMenuClick
  1036.       end
  1037.     end
  1038.     object OptionsMenu: TMenuItem
  1039.       Caption = '&Options'
  1040.       ShortCut = 0
  1041.       OnClick = OptionsMenuClick
  1042.       object AutopasteMenu: TMenuItem
  1043.         Caption = 'AutoPaste new images from clipboard'
  1044.         Hint = 
  1045.           'If checked: When a new image enters clipboard, AVI Constructor w' +
  1046.           'ill get it.'
  1047.         ShortCut = 0
  1048.         OnClick = AutopasteMenuClick
  1049.       end
  1050.       object N9: TMenuItem
  1051.         Caption = '-'
  1052.         ShortCut = 0
  1053.       end
  1054.       object JPEGEncoding1: TMenuItem
  1055.         Caption = 'JPEG Encoding ...'
  1056.         ShortCut = 0
  1057.         OnClick = JPEGEncoding1Click
  1058.       end
  1059.       object JpegDecoding1: TMenuItem
  1060.         Caption = 'JPEG Decoding ...'
  1061.         ShortCut = 0
  1062.         OnClick = JpegDecoding1Click
  1063.       end
  1064.       object DefaultImageFormat1: TMenuItem
  1065.         Caption = 'Default Image Format'
  1066.         ShortCut = 0
  1067.         OnClick = DefaultImageFormat1Click
  1068.         object BMPDefault: TMenuItem
  1069.           Caption = 'Bitmap'
  1070.           ShortCut = 0
  1071.           OnClick = BMPDefaultClick
  1072.         end
  1073.         object JpegDefault: TMenuItem
  1074.           Caption = 'JPEG'
  1075.           ShortCut = 0
  1076.           OnClick = JpegDefaultClick
  1077.         end
  1078.       end
  1079.       object View1: TMenuItem
  1080.         Caption = 'Display'
  1081.         ShortCut = 0
  1082.         OnClick = View1Click
  1083.         object ShowFilesMenu: TMenuItem
  1084.           Caption = 'File names in image list'
  1085.           ShortCut = 0
  1086.           OnClick = ShowFilesMenuClick
  1087.         end
  1088.         object ShowFramesMenu: TMenuItem
  1089.           Caption = 'Frame numbers'
  1090.           ShortCut = 0
  1091.           OnClick = ShowFramesMenuClick
  1092.         end
  1093.         object ShowColorDisplayMenu: TMenuItem
  1094.           Caption = '# of colors in display image  '
  1095.           ShortCut = 0
  1096.           OnClick = ShowColorDisplayMenuClick
  1097.         end
  1098.         object FrameListLeftMenu: TMenuItem
  1099.           Caption = 'Put frame list to the left'
  1100.           ShortCut = 0
  1101.           OnClick = FrameListLeftMenuClick
  1102.         end
  1103.         object ShowAVIOptionsMenu: TMenuItem
  1104.           Caption = 'AVI Options '
  1105.           ShortCut = 0
  1106.           OnClick = ShowAVIOptionsMenuClick
  1107.         end
  1108.       end
  1109.       object N17: TMenuItem
  1110.         Caption = '-'
  1111.         ShortCut = 0
  1112.       end
  1113.       object ShowHintsMenu: TMenuItem
  1114.         Caption = 'Show Hints'
  1115.         ShortCut = 0
  1116.         OnClick = ShowHintsMenuClick
  1117.       end
  1118.       object AutoPlayMenu: TMenuItem
  1119.         Caption = 'Spawn to default player after building AVI'
  1120.         ShortCut = 0
  1121.         OnClick = AutoPlayMenuClick
  1122.       end
  1123.       object WarningsMenu: TMenuItem
  1124.         Caption = 'Overwrite file warnings'
  1125.         ShortCut = 0
  1126.         OnClick = WarningsMenuClick
  1127.       end
  1128.       object SoundMenu: TMenuItem
  1129.         Caption = 'Sounds'
  1130.         ShortCut = 0
  1131.         OnClick = SoundMenuClick
  1132.       end
  1133.       object N23: TMenuItem
  1134.         Caption = '-'
  1135.         ShortCut = 0
  1136.       end
  1137.       object PresentationModeMenu: TMenuItem
  1138.         Caption = 'Full Screen Mode'
  1139.         ShortCut = 0
  1140.         OnClick = PresentationModeMenuClick
  1141.       end
  1142.     end
  1143.     object ToolsMenu: TMenuItem
  1144.       Caption = '&Tools'
  1145.       ShortCut = 0
  1146.       object ICapture1: TMenuItem
  1147.         Caption = 'Capture an image from another window'
  1148.         ShortCut = 0
  1149.         OnClick = ICapture1Click
  1150.       end
  1151.     end
  1152.     object AboutMenu: TMenuItem
  1153.       Caption = 'About'
  1154.       ShortCut = 0
  1155.       object About2: TMenuItem
  1156.         Caption = 'About ...'
  1157.         ShortCut = 0
  1158.         OnClick = About2Click
  1159.       end
  1160.       object WherecanIsendaquestioncommentorsuggestion1: TMenuItem
  1161.         Caption = 'Product support ...'
  1162.         ShortCut = 0
  1163.         OnClick = WherecanIsendaquestioncommentorsuggestion1Click
  1164.       end
  1165.       object N13: TMenuItem
  1166.         Caption = '-'
  1167.         ShortCut = 0
  1168.       end
  1169.       object HowdoIcompressanAVI1: TMenuItem
  1170.         Caption = 'How do I compress an AVI?'
  1171.         ShortCut = 0
  1172.         OnClick = HowdoIcompressanAVI1Click
  1173.       end
  1174.     end
  1175.   end
  1176.   object SaveListDialog: TSaveDialog
  1177.     FileEditStyle = fsEdit
  1178.     Filter = 'Bitmap (*.BMP)|*.BMP|All Files (*.*)|*.*'
  1179.     Left = 481
  1180.     Top = 162
  1181.   end
  1182.   object PopupMenu1: TPopupMenu
  1183.     OnPopup = PopupMenu1Popup
  1184.     Left = 280
  1185.     Top = 96
  1186.     object Cut1: TMenuItem
  1187.       Caption = 'Cut'
  1188.       ShortCut = 0
  1189.       OnClick = CutSelectedClick
  1190.     end
  1191.     object copy1: TMenuItem
  1192.       Caption = 'Copy'
  1193.       ShortCut = 0
  1194.       OnClick = CopySelectedClick
  1195.     end
  1196.     object Paste2: TMenuItem
  1197.       Caption = 'Paste'
  1198.       ShortCut = 0
  1199.       OnClick = PasteAtSelectedClick
  1200.     end
  1201.     object PasteatBeginning1: TMenuItem
  1202.       Caption = 'Paste at Beginning'
  1203.       ShortCut = 0
  1204.       OnClick = Pasteat1Click
  1205.     end
  1206.     object PasteatEnd1: TMenuItem
  1207.       Caption = 'Paste at End'
  1208.       ShortCut = 0
  1209.       OnClick = PasteAfterLastItemClick
  1210.     end
  1211.     object Delete1: TMenuItem
  1212.       Caption = 'Delete'
  1213.       ShortCut = 0
  1214.       OnClick = RemoveSelectedClick
  1215.     end
  1216.     object N5: TMenuItem
  1217.       Caption = '-'
  1218.       ShortCut = 0
  1219.     end
  1220.     object ReverseSelection2: TMenuItem
  1221.       Caption = 'Reverse selection'
  1222.       Enabled = False
  1223.       ShortCut = 0
  1224.       OnClick = ReverseSelection2Click
  1225.     end
  1226.     object N7: TMenuItem
  1227.       Caption = '-'
  1228.       ShortCut = 0
  1229.     end
  1230.     object MakeAVIfromselection: TMenuItem
  1231.       Caption = 'Make 256 color AVI from selection'
  1232.       ShortCut = 0
  1233.     end
  1234.     object MakeTCAVIfromselection: TMenuItem
  1235.       Caption = 'Make true color AVI from selection'
  1236.       ShortCut = 0
  1237.     end
  1238.   end
  1239.   object PopupMenu2: TPopupMenu
  1240.     OnPopup = PopupMenu2Popup
  1241.     Left = 297
  1242.     Top = 108
  1243.     object CopyThisImage1: TMenuItem
  1244.       Caption = 'Copy This Image'
  1245.       ShortCut = 0
  1246.       OnClick = CopyImageMenuClick
  1247.     end
  1248.     object GetAddImage2: TMenuItem
  1249.       Caption = 'Past Clipboard Image at Selected Position'
  1250.       ShortCut = 0
  1251.       OnClick = GetSaveTempAddClick
  1252.     end
  1253.     object GetSaveAddImage2: TMenuItem
  1254.       Caption = 'Paste Clipboard Image at Selected Position (But save it first)'
  1255.       ShortCut = 0
  1256.       OnClick = GetSaveAddClick
  1257.     end
  1258.   end
  1259.   object ColorDialog: TColorDialog
  1260.     Ctl3D = True
  1261.     Color = clSilver
  1262.     Options = [cdFullOpen]
  1263.     Left = 327
  1264.     Top = 32
  1265.   end
  1266. end
  1267.