home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vrtulník 3
/
Vrtulnik-3.bin
/
zvuk
/
wavmak24
/
_setup.1
/
WMWIN.EXE
/
0
/
RCDATA
/
TVOCODEDLG
/
TVOCODEDLG.txt
Wrap
Text File
|
1996-11-11
|
11KB
|
402 lines
object VocodeDlg: TVocodeDlg
Left = 87
Top = 30
HelpContext = 3060
ActiveControl = FileListBox1
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Vocoder'
ClientHeight = 374
ClientWidth = 616
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label2: TLabel
Left = 16
Top = 256
Width = 89
Height = 17
Caption = 'Amplification'
end
object Bevel1: TBevel
Left = 8
Top = 248
Width = 305
Height = 81
end
object fromFile: TLabel
Left = 13
Top = 320
Width = 37
Height = 11
Caption = 'fromFile'
Visible = False
end
object toFile: TLabel
Left = 64
Top = 320
Width = 26
Height = 11
Caption = 'toFile'
Visible = False
end
object Label1: TLabel
Left = 16
Top = 280
Width = 89
Height = 17
Caption = 'Time resolution'
end
object Label3: TLabel
Left = 16
Top = 304
Width = 89
Height = 17
Caption = 'Bands/channel'
end
object CancelBtn: TBitBtn
Left = 116
Top = 340
Width = 77
Height = 29
Cursor = crArrow
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 9
OnClick = CancelBtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033337733333333333333333F333333333333
0000333911733333973333333377F333333F3333000033391117333911733333
37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
911117111117333337F3337F733337F3000033333911111111733333337F3337
3333F7330000333333911111173333333337F333333F73330000333333311111
7333333333337F3333373333000033333339111173333333333337F333733333
00003333339111117333333333333733337F3333000033333911171117333333
33337333337F333300003333911173911173333333373337F337F33300003333
9117333911173333337F33737F337F33000033333913333391113333337FF733
37F337F300003333333333333919333333377333337FFF730000333333333333
3333333333333333333777330000333333333333333333333333333333333333
0000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 200
Top = 340
Width = 77
Height = 29
HelpContext = 3060
TabOrder = 10
OnClick = HelpBtnClick
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object ampEdit: TEdit
Left = 112
Top = 256
Width = 174
Height = 24
TabOrder = 1
Text = 'ampEdit'
OnClick = ampEditExit
OnEnter = ampEditEnter
OnExit = ampEditExit
OnKeyPress = ampEditKeyPress
end
object ampSpin: TSpinButton
Left = 285
Top = 257
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 2
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = ampSpinDownClick
OnUpClick = ampSpinUpClick
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 305
Height = 233
Caption = 'Control file'
TabOrder = 0
object gauge: TGauge
Left = 8
Top = 208
Width = 137
Height = 20
ForeColor = clLime
Progress = 0
end
object FileListBox1: TFileListBox
Left = 152
Top = 48
Width = 145
Height = 153
ItemHeight = 13
Mask = '*.WAV'
TabOrder = 3
OnChange = FileListBox1Change
end
object DirectoryListBox1: TDirectoryListBox
Left = 8
Top = 48
Width = 137
Height = 153
FileList = FileListBox1
ItemHeight = 16
TabOrder = 1
end
object DriveComboBox2: TDriveComboBox
Left = 8
Top = 24
Width = 137
Height = 19
DirList = DirectoryListBox1
TabOrder = 0
end
object FilterComboBox2: TFilterComboBox
Left = 152
Top = 24
Width = 145
Height = 21
FileList = FileListBox1
Filter = 'WAV (*.WAV)|*.WAV|All files (*.*)|*.*'
TabOrder = 2
end
object normBox: TCheckBox
Left = 152
Top = 208
Width = 137
Height = 17
Caption = 'Prescan && normalize '
State = cbChecked
TabOrder = 4
end
end
object OKBtn: TBitBtn
Left = 32
Top = 340
Width = 77
Height = 29
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 8
OnClick = OKbtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333377F3333333333000033334224333333333333
337337F3333333330000333422224333333333333733337F3333333300003342
222224333333333373333337F3333333000034222A22224333333337F337F333
7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
33333337F73337F337F33333000033A33333A222433333337333337F337F3333
0000333333333A222433333333333337F337F33300003333333333A222433333
333333337F337F33000033333333333A222433333333333337F337F300003333
33333333A222433333333333337F337F00003333333333333A22433333333333
3337F37F000033333333333333A223333333333333337F730000333333333333
333A333333333333333337330000333333333333333333333333333333333333
0000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object timeEdit: TEdit
Left = 112
Top = 280
Width = 174
Height = 24
TabOrder = 3
Text = 'timeEdit'
OnClick = timeEditExit
OnEnter = timeEditEnter
OnExit = timeEditExit
OnKeyPress = timeEditKeyPress
end
object timeSpin: TSpinButton
Left = 285
Top = 281
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 4
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = timeSpinDownClick
OnUpClick = timeSpinUpClick
end
object bandEdit: TEdit
Left = 112
Top = 304
Width = 86
Height = 24
TabOrder = 5
Text = 'bandEdit'
OnClick = bandEditExit
OnEnter = bandEditEnter
OnExit = bandEditExit
OnKeyPress = bandEditKeyPress
end
object bandSpin: TSpinButton
Left = 197
Top = 305
Width = 20
Height = 19
DownGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000333303333000000033300033300000003300000330000000300000003000
00003333333330000000}
TabOrder = 6
UpGlyph.Data = {
A6000000424DA600000000000000760000002800000009000000060000000100
0400000000003000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
0000300000003000000033000003300000003330003330000000333303333000
00003333333330000000}
OnDownClick = bandSpinDownClick
OnUpClick = bandSpinUpClick
end
object GroupBox2: TGroupBox
Left = 320
Top = 8
Width = 289
Height = 201
Caption = 'Bands'
TabOrder = 11
object StringGrid1: TStringGrid
Left = 8
Top = 24
Width = 273
Height = 167
ColCount = 33
RowCount = 6
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 0
OnClick = StringGrid1Click
OnEnter = StringGrid1Enter
OnExit = StringGrid1Exit
OnKeyPress = StringGrid1KeyPress
RowHeights = (
24
24
24
24
24
24)
end
end
object GroupBox3: TGroupBox
Left = 320
Top = 208
Width = 289
Height = 161
Caption = 'Patch'
TabOrder = 12
object addBtn: TButton
Left = 56
Top = 128
Width = 57
Height = 25
Caption = 'Add'
TabOrder = 1
OnClick = addBtnClick
end
object removeBtn: TButton
Left = 120
Top = 128
Width = 57
Height = 25
Caption = 'Remove'
TabOrder = 2
OnClick = removeBtnClick
end
object StringGrid2: TStringGrid
Left = 8
Top = 24
Width = 273
Height = 97
ColCount = 3
DefaultColWidth = 268
FixedCols = 0
RowCount = 1
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
ScrollBars = ssVertical
TabOrder = 0
OnSelectCell = StringGrid2SelectCell
end
object updateBtn: TButton
Left = 184
Top = 128
Width = 57
Height = 25
Caption = 'Update'
TabOrder = 3
OnClick = updateBtnClick
end
end
object equidistantBtn: TButton
Left = 224
Top = 304
Width = 81
Height = 20
Caption = 'Equidistant'
TabOrder = 7
OnClick = equidistantBtnClick
end
object timer: TTimer
Enabled = False
Interval = 500
OnTimer = timerTimer
Top = 344
end
end