object MainWnd: TMainWnd
  Left = 300
  Top = 102
  Width = 383
  Height = 382
  Caption = 'AVI Video Merger'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DOSPanel: TMRPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 336
    Align = alLeft
    BorderWidth = 4
    TabOrder = 0
    OnResize = DOSPanelResize
    BorderSides = []
    Moveable = False
    CBorderStyle = cbsNone
    OnNCHitTest = DOSPanelNCHitTest
    object DirectoryListbox: TMRDirectoryListbox
      Left = 5
      Top = 27
      Width = 175
      Height = 97
      Hint = 'Here you choose a directory where an AVI file is located'
      Align = alTop
      Color = clBtnFace
      FileList = FileListBox
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Moveable = False
      CBorderStyle = cbsNone
      OnResize = DirectoryListboxResize
      OnNCHitTest = DirectoryListboxNCHitTest
    end
    object MRDriveCombobox1: TMRDriveCombobox
      Left = 5
      Top = 5
      Width = 175
      Height = 22
      Color = clBtnFace
      DirList = DirectoryListbox
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Moveable = False
      CBorderStyle = cbsNone
      Align = alTop
    end
    object FileListBox: TMRFileListBox
      Left = 5
      Top = 124
      Width = 175
      Height = 166
      Hint = 'Here you select an AVI to add'
      Align = alClient
      Color = clBtnFace
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ItemHeight = 16
      Mask = '*.AVI'
      MultiSelect = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnDblClick = ABitbtn1Click
      Moveable = False
      CBorderStyle = cbsNone
    end
    object ABitbtn1: TABitbtn
      Left = 5
      Top = 290
      Width = 175
      Height = 41
      Hint = 'Add to Building List'
      Font.Color = clBtnText
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = ABitbtn1Click
      Glyph.Data = {
        50010000424D500100000000000076000000280000001E0000000C0000000100
        040000000000C000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777778877
        777777777778877777007777777F00877777777777F7787777007777777F0008
        7777777777F77787770078888887000087778888887777787700F00000000000
        087F7777777777778700F00000000000008F7777777777777800F00000000000
        007F7777777777777700F00000000000077F7777777777777700FFFFFFFF0000
        777FFFFFFFF7777777007777777F00077777777777F7777777007777777F0077
        7777777777F7777777007777777FF7777777777777FF77777700000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      Align = alBottom
    end
  end
  object MRPanel2: TMRPanel
    Left = 185
    Top = 0
    Width = 190
    Height = 336
    Align = alClient
    BorderWidth = 4
    TabOrder = 1
    BorderSides = []
    Moveable = False
    CBorderStyle = cbsNone
    object LBEdit1: TLBEdit
      Left = 5
      Top = 107
      Width = 180
      Height = 224
      Align = alClient
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ItemHeight = 20
      MultiSelect = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Style = lbOwnerDrawVariable
      TabOrder = 0
      BTNBorderWidth = 1
      ExtraHeight = 16
      ShowItems = True
      ShowIndex = True
    end
    object AVIFPSPanel: TMRPanel
      Left = 5
      Top = 5
      Width = 180
      Height = 34
      Hint = 'How many Flips per second for the AVI'
      Align = alTop
      BevelOuter = bvNone
      BorderWidth = 4
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      BorderSides = []
      Moveable = False
      CBorderStyle = cbsNone
      object Label1: TLabel
        Left = 4
        Top = 4
        Width = 50
        Height = 26
        Align = alLeft
        Caption = 'FPS     :'
        Font.Color = clBtnText
        Font.Height = -13
        Font.Name = 'System'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object FPSSpin: TASpinEdit
        Left = 54
        Top = 4
        Width = 122
        Height = 26
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'System'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        MaxValue = 65000
        MinValue = 1
        ParentFont = False
        TabOrder = 0
        Value = 24
        Align = alClient
      end
    end
    object AVIWidthPanel: TMRPanel
      Left = 5
      Top = 39
      Width = 180
      Height = 34
      Hint = 'The new AVI width. If 0, then 1st AVI size'
      Align = alTop
      BevelOuter = bvNone
      BorderWidth = 4
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      BorderSides = []
      Moveable = False
      CBorderStyle = cbsNone
      object Label3: TLabel
        Left = 4
        Top = 4
        Width = 50
        Height = 26
        Align = alLeft
        Caption = 'Width  :'
        Font.Color = clBtnText
        Font.Height = -13
        Font.Name = 'System'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object WidthSpin: TASpinEdit
        Left = 54
        Top = 4
        Width = 122
        Height = 26
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'System'
        Font.Style = []
        MaxValue = 1024
        MinValue = 0
        ParentFont = False
        TabOrder = 0
        Value = 0
        Align = alClient
      end
    end
    object AVIHeightPanel: TMRPanel
      Left = 5
      Top = 73
      Width = 180
      Height = 34
      Align = alTop
      BevelOuter = bvNone
      BorderWidth = 4
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      BorderSides = []
      Moveable = False
      CBorderStyle = cbsNone
      object Label2: TLabel
        Left = 4
        Top = 4
        Width = 50
        Height = 26
        Align = alLeft
        Caption = 'Height :'
        Font.Color = clBtnText
        Font.Height = -13
        Font.Name = 'System'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object HeightSpin: TASpinEdit
        Left = 54
        Top = 4
        Width = 122
        Height = 26
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'System'
        Font.Style = []
        MaxValue = 768
        MinValue = 0
        ParentFont = False
        TabOrder = 0
        Value = 0
        Align = alClient
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 257
    Top = 112
    object ProjectMenu: TMenuItem
      Caption = '&Project'
      ShortCut = 0
      object Startnewproject1: TMenuItem
        Caption = 'Start new project'
        ShortCut = 0
        OnClick = Startnewproject1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Openfilelist1: TMenuItem
        Caption = 'Read in files from a text file ...'
        ShortCut = 0
        OnClick = Openfilelist1Click
      end
      object Savefilelist1: TMenuItem
        Caption = 'Save the list of files to a text file ...'
        ShortCut = 0
        OnClick = Savefilelist1Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit '
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Make1: TMenuItem
      Caption = '&Make '
      ShortCut = 0
      OnClick = Make1Click
      object MakeMonochromeMenu: TMenuItem
        Caption = 'Monochrome AVI'
        ShortCut = 116
        OnClick = MakeMovie
      end
      object Make16ColorMenu: TMenuItem
        Caption = '16 color AVI'
        ShortCut = 117
        OnClick = MakeMovie
      end
      object Make256ColorMenu: TMenuItem
        Caption = '256 color AVI'
        ShortCut = 118
        OnClick = MakeMovie
      end
      object MakeTrueColorMovieMenu: TMenuItem
        Caption = 'True color AVI'
        ShortCut = 119
        OnClick = MakeMovie
      end
      object N14: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Misc2ColorAVI1: TMenuItem
        Caption = 'Misc. 2 Color AVI'
        ShortCut = 0
        object Make2CustomColorsMenu: TMenuItem
          Caption = 'Custom Colors ...'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make2InverseMenu: TMenuItem
          Caption = 'Negative Colors'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make2Random1Menu: TMenuItem
          Caption = 'Random 2 color'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make2Random2Menu: TMenuItem
          Caption = 'Random 2 Color'
          ShortCut = 0
          OnClick = MakeMovie
        end
      end
      object Misc16colorAVIs1: TMenuItem
        Caption = 'Misc. 16 color AVIs'
        ShortCut = 0
        object Make16ColorScaleMenu: TMenuItem
          Caption = 'Custom color scale ...'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object N16ColorScaleAVI1: TMenuItem
          Caption = '16 Color Scale AVI'
          ShortCut = 0
          object Make16GrayScaleMenu: TMenuItem
            Caption = 'Gray Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make16RedScaleMenu: TMenuItem
            Caption = 'Red Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make16GreenScaleMenu: TMenuItem
            Caption = 'Green Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make16BlueScaleMenu: TMenuItem
            Caption = 'Blue Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make16YellowScaleMenu: TMenuItem
            Caption = 'Yellow Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make16FuchsiaScaleMenu: TMenuItem
            Caption = 'Fuchsia Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make16AquaScaleMenu: TMenuItem
            Caption = 'Aqua Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
        end
        object N16MaximumColorAVI1: TMenuItem
          Caption = '16 Maximum Color AVI'
          ShortCut = 0
          object make16RedWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Red AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make16GreenWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Green AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make16BlueWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Blue'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make16YellowWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Yellow'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make16FuchsiaWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Fuchsia'
            ShortCut = 0
            OnClick = MakeMovie
          end
        end
        object make16InverseMenu: TMenuItem
          Caption = 'Negative Color AVI'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make16Random1Menu: TMenuItem
          Caption = 'Random (clean) Color AVI'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make16Random2Menu: TMenuItem
          Caption = 'Random (dirty) color AVI'
          ShortCut = 0
          OnClick = MakeMovie
        end
      end
      object Misc256colorAVIs1: TMenuItem
        Caption = 'Misc. 256 color AVIs'
        ShortCut = 0
        object Make256ColorScaleMenu: TMenuItem
          Caption = 'Custom color scale ...'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object N256ColorScaleAVI1: TMenuItem
          Caption = '256 Color Scale AVI'
          ShortCut = 0
          object Make256GrayScaleMenu: TMenuItem
            Caption = 'Gray Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make256RedScaleMenu: TMenuItem
            Caption = 'Red Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make256GreenScaleMenu: TMenuItem
            Caption = 'Green Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make256BlueScaleMenu: TMenuItem
            Caption = 'Blue Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make256YellowScaleMenu: TMenuItem
            Caption = 'Yellow Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make256FuchsiaScaleMenu: TMenuItem
            Caption = 'Fuchsia Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object Make256AquaScaleMenu: TMenuItem
            Caption = 'Aqua Scale AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
        end
        object N256MaximumColorAVI1: TMenuItem
          Caption = '256 Maximum Color AVI'
          ShortCut = 0
          object make256RedWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Red AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make256GreenWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Green AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make256BlueWhiteScaleMenu: TMenuItem
            Caption = 'Maximum Blue AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make256MaxYellowMenu: TMenuItem
            Caption = 'Maximum Yellow AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
          object make256MaxFuchsiaMenu: TMenuItem
            Caption = 'Maximum Fuchsia AVI'
            ShortCut = 0
            OnClick = MakeMovie
          end
        end
        object make256InverseMenu: TMenuItem
          Caption = 'Negative Color AVI'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make256Random1Menu: TMenuItem
          Caption = 'Random Color AVI'
          ShortCut = 0
          OnClick = MakeMovie
        end
        object make256Random2Menu: TMenuItem
          Caption = 'Random'
          ShortCut = 0
          OnClick = MakeMovie
        end
      end
      object N13: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MakeCompressed256ColorMenu: TMenuItem
        Caption = 'Compressed 256 color AVI'
        ShortCut = 120
        OnClick = MakeMovie
      end
      object MakeCompressedTrueColorMenu: TMenuItem
        Caption = 'Compressed true color AVI'
        ShortCut = 121
        OnClick = MakeMovie
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object AVIBuildingOptions1: TMenuItem
        Caption = 'AVI Building Options'
        ShortCut = 0
        object WriteColorPalettesMenu: TMenuItem
          Caption = 'Write Palette Changes '
          ShortCut = 0
          OnClick = WriteColorPalettesMenuClick
        end
      end
    end
    object ListMenu: TMenuItem
      Caption = '&List'
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = 'Cut'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object Pasteatbeginning1: TMenuItem
        Caption = 'Paste at beginning'
        ShortCut = 16450
        OnClick = Pasteatbeginning1Click
      end
      object Pasteatend1: TMenuItem
        Caption = 'Paste at end'
        ShortCut = 16453
        OnClick = Pasteatend1Click
      end
      object Delete1: TMenuItem
        Caption = 'Delete'
        ShortCut = 16452
        OnClick = Delete1Click
      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 N3: 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 N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Clear1: TMenuItem
        Caption = 'Clear'
        ShortCut = 0
        OnClick = Clear1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object AutoPlayChk: TMenuItem
        Caption = 'Start default player with AVI after building'
        Checked = True
        ShortCut = 0
        OnClick = AutoPlayChkClick
      end
      object Overwritefilewarnings1: TMenuItem
        Caption = 'Overwrite file warnings'
        ShortCut = 0
        OnClick = Overwritefilewarnings1Click
      end
      object Hints1: TMenuItem
        Caption = 'Hints'
        ShortCut = 0
        OnClick = Hints1Click
      end
    end
    object About1: TMenuItem
      Caption = 'About'
      ShortCut = 0
      object About2: TMenuItem
        Caption = 'About ...'
        ShortCut = 0
        OnClick = About2Click
      end
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.A'
    FileEditStyle = fsEdit
    Filter = 'Video For Windows (*.AVI)|*.AVI|All Files (*.*)|*.*'
    Left = 201
    Top = 152
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Left = 153
    Top = 192
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Left = 161
    Top = 136
  end
end