home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 275
- Top = 38
- Width = 264
- Height = 442
- Caption = 'AVI Compress '
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- ShowHint = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 20
- object MRPanel2: TMRPanel
- Left = 0
- Top = 105
- Width = 256
- Height = 288
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 4
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- BevelSides = [sdLeft, sdTop, sdRight]
- BorderSides = []
- Moveable = False
- CBorderStyle = cbsNone
- OnNCHitTest = MRPanel2NCHitTest
- object FileSizeLabel: TLabel
- Left = 4
- Top = 240
- Width = 248
- Height = 17
- Align = alBottom
- Caption = 'File Size: '
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object MRFileListBox1: TMRFileListBox
- Left = 4
- Top = 117
- Width = 248
- Height = 123
- Hint = 'Where to select the source AVI.'
- Align = alClient
- Ctl3D = True
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ItemHeight = 20
- Mask = '*.AVI'
- ParentCtl3D = False
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnChange = MRFileListBox1Change
- OnClick = MRFileListBox1Click
- OnDblClick = MRFileListBox1DblClick
- Moveable = False
- CBorderStyle = cbsNone
- end
- object MRDirectoryListbox1: TMRDirectoryListbox
- Left = 4
- Top = 30
- Width = 248
- Height = 87
- Hint = 'The directory where the AVI is located.'
- Align = alTop
- Ctl3D = True
- FileList = MRFileListBox1
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ItemHeight = 20
- ParentCtl3D = False
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- Moveable = False
- CBorderStyle = cbsNone
- OnResize = MRDirectoryListbox1Resize
- OnNCHitTest = MRDirectoryListbox1NCHitTest
- end
- object MRDriveCombobox1: TMRDriveCombobox
- Left = 4
- Top = 4
- Width = 248
- Height = 26
- Hint = 'The drive where the AVI is located.'
- Ctl3D = False
- DirList = MRDirectoryListbox1
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 2
- Moveable = False
- CBorderStyle = cbsNone
- Align = alTop
- end
- object MRFilterCombobox1: TMRFilterCombobox
- Left = 4
- Top = 257
- Width = 248
- Height = 27
- Ctl3D = True
- FileList = MRFileListBox1
- Filter = 'AVI (*.AVI)|*.AVI|All files (*.*)|*.*'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 3
- Moveable = False
- CBorderStyle = cbsNone
- Align = alBottom
- end
- end
- object MRPanel1: TMRPanel
- Left = 0
- Top = 51
- Width = 256
- Height = 54
- Align = alTop
- BevelInner = bvRaised
- BorderWidth = 4
- Ctl3D = True
- Font.Color = clRed
- Font.Height = -17
- 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 = 201
- Height = 42
- Align = alClient
- Color = clWhite
- Font.Color = clRed
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- BorderStyle = bsNone
- ForeColor = clRed
- BackColor = clBlack
- ParentColor = False
- ParentFont = False
- Progress = 0
- end
- object CancelBtn: TABitbtn
- Left = 207
- Top = 6
- Width = 43
- Height = 42
- Font.Color = clBlack
- Font.Height = -23
- 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 = 256
- Height = 51
- Align = alTop
- BevelOuter = bvNone
- BevelWidth = 2
- BorderWidth = 4
- PopupMenu = PopupMenu1
- TabOrder = 2
- OnResize = ButtonPanelResize
- BorderSides = []
- Moveable = False
- CBorderStyle = cbsNone
- object ABitbtn1: TABitbtn
- Left = 4
- Top = 4
- Width = 42
- Height = 43
- Hint = 'Compress + Save'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnClick = ABitbtn1Click
- Glyph.Data = {
- F8000000424DF800000000000000760000002800000010000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555777555
- 5555555555000757755555575500005007555570058880000075570870088078
- 007555787887087777755550880FF0800007708080888F7088077088F0708F78
- 88077000F0778080005555508F0008800755557878FF88777075570870080088
- 07555570758880707555555755000755555555555577755555550000}
- Align = alLeft
- end
- object ABitbtn3: TABitbtn
- Left = 102
- Top = 4
- Width = 40
- Height = 43
- Hint = 'Merge with wave file + Save (Full Frames Uncompressed)'
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnClick = ABitbtn3Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF3333333333333003333333333333377F333333333333
- 30003FFFFFFFFFFFF77707777777777777707777777777777777033333333333
- 33307FFFFFFFFFFFFFF707777777700777707777777777777777030333333000
- 33307F7FFFFFF777FFF707770077777077707777777777777777030300033330
- 33307F7F777FFFF7FFF707777707777077777777777777777777033333033330
- 33337FFFFF7FFFF7FFFF07777707777077777777777777777777333333000000
- 3333333333777777F33333333303333033333333337FFFF7F333333333000000
- 33333333337777773333333333333333333333333333333333330000}
- NumGlyphs = 2
- Align = alLeft
- end
- object ABitbtn2: TABitbtn
- Left = 46
- Top = 4
- Width = 56
- Height = 43
- Hint = 'Merge with wave file + compress + save'
- PopupMenu = PopupMenu1
- TabOrder = 2
- OnClick = ABitbtn2Click
- 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 = 393
- Width = 256
- Height = 17
- Hint = 'Start the multimedia player with the new AVI after compressing?'
- Caption = 'Spawn'
- Ctl3D = True
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Times New Roman'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- 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
- OnPopup = PopupMenu1Popup
- Left = 40
- Top = 169
- object AboutAVICompress1: TMenuItem
- Caption = 'About AVI Compress'
- ShortCut = 0
- OnClick = AboutAVICompress1Click
- end
- object HintsMenu: TMenuItem
- Caption = 'Hints'
- ShortCut = 0
- OnClick = HintsMenuClick
- end
- end
- end
-