object Form1: TForm1
  Left = 207
  Top = 66
  Width = 278
  Height = 400
  Caption = 'AVI Compress '
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object MRPanel2: TMRPanel
    Left = 0
    Top = 78
    Width = 270
    Height = 281
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    PopupMenu = PopupMenu1
    TabOrder = 0
    BevelSides = [sdLeft, sdTop, sdRight]
    BorderSides = []
    Moveable = False
    CBorderStyle = cbsNone
    OnNCHitTest = MRPanel2NCHitTest
    object Label2: TLabel
      Left = 6
      Top = 6
      Width = 258
      Height = 16
      Align = alTop
      Caption = 'Source AVI:'
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ParentColor = False
      ParentFont = False
    end
    object MRFileListBox1: TMRFileListBox
      Left = 6
      Top = 113
      Width = 258
      Height = 139
      Hint = 'Where to select the source AVI.'
      Align = alClient
      Color = clBtnFace
      Ctl3D = True
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ItemHeight = 15
      Mask = '*.AVI'
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 0
      OnChange = MRFileListBox1Change
      OnDblClick = MRFileListBox1DblClick
      Moveable = False
      CBorderStyle = cbsNone
    end
    object MRDirectoryListbox1: TMRDirectoryListbox
      Left = 6
      Top = 43
      Width = 258
      Height = 70
      Hint = 'The directory where the AVI is located.'
      Align = alTop
      Color = clBtnFace
      Ctl3D = True
      FileList = MRFileListBox1
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 1
      Moveable = False
      CBorderStyle = cbsNone
      OnResize = MRDirectoryListbox1Resize
      OnNCHitTest = MRDirectoryListbox1NCHitTest
    end
    object MRDriveCombobox1: TMRDriveCombobox
      Left = 6
      Top = 22
      Width = 258
      Height = 21
      Hint = 'The drive where the AVI is located.'
      Color = clBtnFace
      Ctl3D = False
      DirList = MRDirectoryListbox1
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 2
      Moveable = False
      CBorderStyle = cbsNone
      Align = alTop
    end
    object MRFilterCombobox1: TMRFilterCombobox
      Left = 6
      Top = 252
      Width = 258
      Height = 23
      Color = clBtnFace
      Ctl3D = True
      FileList = MRFileListBox1
      Filter = 'AVI (*.AVI)|*.AVI|All files (*.*)|*.*'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Moveable = False
      CBorderStyle = cbsNone
      Align = alBottom
    end
  end
  object MRPanel1: TMRPanel
    Left = 0
    Top = 41
    Width = 270
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvNone
    BevelWidth = 2
    BorderWidth = 4
    Ctl3D = True
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    Visible = False
    BorderColor = clSilver
    BorderSides = []
    Moveable = False
    CBorderStyle = cbsNone
    object Gauge1: TGauge
      Left = 6
      Top = 6
      Width = 230
      Height = 25
      Align = alClient
      Color = clWhite
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      BorderStyle = bsNone
      ForeColor = clRed
      BackColor = clBlack
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      Progress = 0
      ShowHint = False
    end
    object CancelBtn: TABitbtn
      Left = 236
      Top = 6
      Width = 28
      Height = 25
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnClick = CancelBtnClick
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000000000000000000000000000000
        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
        0303030303030303030303030303030303030303030303030303030303030303
        0303F8F80303030303030303030303030303030303FF03030303030303030303
        0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
        03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
        030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
        FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
        030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
        F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
        010101F8030303030303030303F8FF030303030303FFF8030303030303030303
        030101010101F80303030303030303030303F8FF0303030303F8030303030303
        0303030303F901010101F8030303030303030303030303F8FF030303F8030303
        0303030303030303F90101010101F8030303030303030303030303F803030303
        F8FF030303030303030303F9010101F8010101F803030303030303030303F803
        03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
        03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
        03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
        0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
        030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
        03030303030303030303030303030303030303030303030303F8F8F803030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303}
      NumGlyphs = 2
      Align = alRight
    end
  end
  object ButtonPanel: TMRPanel
    Left = 0
    Top = 0
    Width = 270
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvNone
    BevelWidth = 2
    BorderWidth = 4
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnResize = ButtonPanelResize
    BorderSides = []
    Moveable = False
    CBorderStyle = cbsNone
    object ABitbtn1: TABitbtn
      Left = 6
      Top = 6
      Width = 34
      Height = 29
      Hint = 'Compress + Save'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 0
      OnClick = ABitbtn1Click
      Glyph.Data = {
        F8000000424DF800000000000000760000002800000010000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555777555
        5555555555000757755555575500005007555570058880000075570870088078
        007555787887087777755550880FF0800007708080888F7088077088F0708F78
        88077000F0778080005555508F0008800755557878FF88777075570870080088
        07555570758880707555555755000755555555555577755555550000}
      Align = alLeft
    end
    object ABitbtn2: TABitbtn
      Left = 40
      Top = 6
      Width = 32
      Height = 29
      Hint = 'Merge with wave file + Save (Full Frames Uncompressed)'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 1
      OnClick = ABitbtn2Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333003333333333333377F333333333333
        30003FFFFFFFFFFFF77707777777777777707777777777777777033333333333
        33307FFFFFFFFFFFFFF707777777700777707777777777777777030333333000
        33307F7FFFFFF777FFF707770077777077707777777777777777030300033330
        33307F7F777FFFF7FFF707777707777077777777777777777777033333033330
        33337FFFFF7FFFF7FFFF07777707777077777777777777777777333333000000
        3333333333777777F33333333303333033333333337FFFF7F333333333000000
        33333333337777773333333333333333333333333333333333330000}
      NumGlyphs = 2
      Align = alLeft
    end
    object ABitbtn3: TABitbtn
      Left = 72
      Top = 6
      Width = 45
      Height = 29
      Hint = 'Merge with wave file + compress + save'
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 2
      OnClick = ABitbtn3Click
      Glyph.Data = {
        10020000424D100200000000000076000000280000002A000000100000000100
        0400000000008001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555588855555550000005555555555555445555555555555
        5555000858855500000055555555555554445555555555555855000050085500
        0000055555555555555455555555555580057770000085000000000000000040
        0004555550555558078007708700850000000555555554455554555550555555
        87877807888885000000000000000440000455555055555550770FF070000800
        000005554455555455545555505555807070777F807708000000000044000004
        000055500000558077F0807F8777080000000555554555545555555550555580
        00F088707000550000000000004000040000555550555555507F000770085500
        000005555545555455555555505555558787FF77888085000000555555444444
        5555555555555558078007007708550000005555554555545555555555555555
        8085777080855500000055555544444455555555555555555855000855555500
        0000555555555555555555555555555555558885555555000000000000000000
        0000000000000000000000000000000000000000}
      Align = alLeft
    end
  end
  object Spawn: TMRCheckBox
    Left = 0
    Top = 359
    Width = 270
    Height = 14
    Hint = 'Start the multimedia player with the new AVI after compressing?'
    Caption = 'Spawn'
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 3
    Moveable = False
    CBorderStyle = cbsNone
    Align = alBottom
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Video For Windows (*.AVI)|*.AVI|All Files (*.*)|*.*'
    Options = [ofFileMustExist]
    Left = 368
    Top = 152
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'AVI'
    FileEditStyle = fsEdit
    Filter = 'Video For Windows (*.AVI)|*.AVI|All Files (*.*)|*.*'
    Left = 376
    Top = 184
  end
  object OpenWaveDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Wave (*.WAV)|*.WAV|Sound From Video (*.AVI)|*.AVI'
    Options = [ofFileMustExist]
    Title = 'Add Wave File ...'
    Left = 352
    Top = 80
  end
  object PopupMenu1: TPopupMenu
    Left = 40
    Top = 169
    object AboutAVICompress1: TMenuItem
      Caption = 'About AVI Compress'
      ShortCut = 0
      OnClick = AboutAVICompress1Click
    end
  end
end