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