home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 4
/
BUGCD1997_05.BIN
/
mulmedia
/
avic
/
cpr32t.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-01-19
|
14KB
|
423 lines
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