MTK

开发平台：
C++ Builder

form_FirCoeffCal.dfm：源码内容
							object frmFIRCoeffCal: TfrmFIRCoeffCal
  Left = 28
  Top = 110
  Width = 989
  Height = 641
  Caption = 'Acoustic FIR Tunning'
  Color = clBtnFace
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDockOver = FormDockOver
  OnDragDrop = FormDragDrop
  OnMouseDown = FormMouseDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1xxHz: TLabel
    Left = 760
    Top = 128
    Width = 34
    Height = 13
    Caption = '100 Hz'
  end
  object lbl2xxHz: TLabel
    Left = 760
    Top = 154
    Width = 34
    Height = 13
    Caption = '200 Hz'
  end
  object lbl6xxHz: TLabel
    Left = 760
    Top = 233
    Width = 34
    Height = 13
    Caption = '600 Hz'
  end
  object lbl3xxHz: TLabel
    Left = 760
    Top = 180
    Width = 34
    Height = 13
    Caption = '300 Hz'
  end
  object lbl7xxHz: TLabel
    Left = 760
    Top = 259
    Width = 34
    Height = 13
    Caption = '700 Hz'
  end
  object lbl1xxxHz: TLabel
    Left = 752
    Top = 312
    Width = 40
    Height = 13
    Caption = '1000 Hz'
  end
  object lbl2xxxHz: TLabel
    Left = 752
    Top = 391
    Width = 40
    Height = 13
    Caption = '2000 Hz'
  end
  object lbl3xxxHz: TLabel
    Left = 752
    Top = 444
    Width = 40
    Height = 13
    Caption = '3000 Hz'
  end
  object lbl34xxHz: TLabel
    Left = 752
    Top = 471
    Width = 40
    Height = 13
    Caption = '3400 Hz'
  end
  object lbl39xxHz: TLabel
    Left = 752
    Top = 496
    Width = 40
    Height = 13
    Caption = '3950 Hz'
  end
  object Label11: TLabel
    Left = 936
    Top = 128
    Width = 13
    Height = 13
    Caption = 'dB'
  end
  object Label12: TLabel
    Left = 880
    Top = 96
    Width = 44
    Height = 13
    Caption = 'FIR Taps'
  end
  object Label13: TLabel
    Left = 880
    Top = 72
    Width = 13
    Height = 13
    Caption = 'dB'
  end
  object imAudioCal: TImage
    Left = 48
    Top = 176
    Width = 697
    Height = 361
    DragMode = dmAutomatic
    OnDragOver = imAudioCalDragOver
    OnEndDrag = imAudioCalEndDrag
    OnMouseDown = imAudioCalMouseDown
  end
  object lblVertical0: TLabel
    Left = 24
    Top = 176
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '10'
  end
  object lblVertical1: TLabel
    Left = 24
    Top = 200
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '0'
  end
  object lblVertical2: TLabel
    Left = 24
    Top = 240
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '-10'
  end
  object lblVertical3: TLabel
    Left = 24
    Top = 272
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '-20'
  end
  object lblVertical4: TLabel
    Left = 24
    Top = 312
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '-30'
  end
  object lblVertical5: TLabel
    Left = 24
    Top = 344
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '-40'
  end
  object lblVertical6: TLabel
    Left = 24
    Top = 376
    Width = 15
    Height = 13
    AutoSize = False
    Caption = '-50'
  end
  object Label15: TLabel
    Left = 8
    Top = 168
    Width = 13
    Height = 13
    Caption = 'dB'
  end
  object lbl100Hz: TLabel
    Left = 40
    Top = 536
    Width = 18
    Height = 13
    Caption = '100'
  end
  object lbl1000Hz: TLabel
    Left = 288
    Top = 536
    Width = 24
    Height = 13
    Caption = '1000'
  end
  object Label16: TLabel
    Left = 264
    Top = 568
    Width = 13
    Height = 13
    Caption = 'Hz'
  end
  object Label17: TLabel
    Left = 344
    Top = 120
    Width = 302
    Height = 13
    Caption = 'Blue: Original, Red: Wanted, Black: Original + FIR compensated'
  end
  object lblVertical7: TLabel
    Left = 24
    Top = 408
    Width = 15
    Height = 13
    Caption = '-60'
  end
  object lblVertical8: TLabel
    Left = 24
    Top = 440
    Width = 15
    Height = 13
    Caption = '-70'
  end
  object lbl5xxHz: TLabel
    Left = 760
    Top = 207
    Width = 34
    Height = 13
    Caption = '500 Hz'
  end
  object lbl8xxHz: TLabel
    Left = 760
    Top = 286
    Width = 34
    Height = 13
    Caption = '800 Hz'
  end
  object lbl13xxHz: TLabel
    Left = 752
    Top = 339
    Width = 40
    Height = 13
    Caption = '1300 Hz'
  end
  object lbl18xxHz: TLabel
    Left = 752
    Top = 365
    Width = 40
    Height = 13
    Caption = '1800 Hz'
  end
  object lbl25xxHz: TLabel
    Left = 752
    Top = 418
    Width = 40
    Height = 13
    Caption = '2500 Hz'
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 72
    Height = 13
    Caption = 'Input file name '
  end
  object Label2: TLabel
    Left = 8
    Top = 32
    Width = 89
    Height = 13
    Caption = 'Output Tx filename'
  end
  object Label3: TLabel
    Left = 8
    Top = 56
    Width = 90
    Height = 13
    Caption = 'Output Rx filename'
  end
  object Label4: TLabel
    Left = 752
    Top = 80
    Width = 47
    Height = 13
    Caption = 'FIR Scale'
  end
  object Label5: TLabel
    Left = 272
    Top = 80
    Width = 68
    Height = 13
    Caption = 'Boundary type'
  end
  object edt1xxHzdB: TEdit
    Left = 880
    Top = 128
    Width = 49
    Height = 21
    TabOrder = 0
    Text = '0'
    OnExit = edt1xxHzdBExit
  end
  object edt2xxHzdB: TEdit
    Left = 880
    Top = 154
    Width = 49
    Height = 21
    TabOrder = 1
    Text = '0'
    OnExit = edt2xxHzdBExit
  end
  object edt3xxHzdB: TEdit
    Left = 880
    Top = 180
    Width = 49
    Height = 21
    TabOrder = 2
    Text = '0'
    OnExit = edt3xxHzdBExit
  end
  object edt6xxHzdB: TEdit
    Left = 880
    Top = 233
    Width = 49
    Height = 21
    TabOrder = 3
    Text = '0'
    OnExit = edt6xxHzdBExit
  end
  object edt7xxHzdB: TEdit
    Left = 880
    Top = 259
    Width = 49
    Height = 21
    TabOrder = 4
    Text = '0'
    OnExit = edt7xxHzdBExit
  end
  object edt1xxxHzdB: TEdit
    Left = 880
    Top = 312
    Width = 49
    Height = 21
    TabOrder = 5
    Text = '0'
    OnExit = edt1xxxHzdBExit
  end
  object edt2xxxHzdB: TEdit
    Left = 880
    Top = 390
    Width = 49
    Height = 21
    TabOrder = 6
    Text = '0'
    OnExit = edt2xxxHzdBExit
  end
  object edt3xxxHzdB: TEdit
    Left = 880
    Top = 443
    Width = 49
    Height = 21
    TabOrder = 7
    Text = '0'
    OnExit = edt3xxxHzdBExit
  end
  object edt34xxHzdB: TEdit
    Left = 880
    Top = 469
    Width = 49
    Height = 21
    TabOrder = 8
    Text = '0'
    OnExit = edt34xxHzdBExit
  end
  object edt39xxHzdB: TEdit
    Left = 880
    Top = 496
    Width = 49
    Height = 21
    TabOrder = 9
    Text = '0'
    OnExit = edt39xxHzdBExit
  end
  object edtFIRTaps: TEdit
    Left = 824
    Top = 96
    Width = 49
    Height = 21
    TabOrder = 10
    Text = '0'
    OnExit = edtFIRTapsExit
  end
  object edtExtraDB: TEdit
    Left = 824
    Top = 72
    Width = 49
    Height = 21
    TabOrder = 11
    Text = '0'
    OnExit = edtExtraDBExit
  end
  object cbExtraFreq: TComboBox
    Left = 824
    Top = 48
    Width = 81
    Height = 21
    ItemHeight = 13
    TabOrder = 12
    OnChange = cbExtraFreqChange
  end
  object btnIdealize: TButton
    Left = 832
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Idealize'
    Enabled = False
    TabOrder = 13
    OnClick = btnIdealizeClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 80
    Width = 45
    Height = 81
    TabOrder = 14
    object rbTx: TRadioButton
      Left = 4
      Top = 16
      Width = 35
      Height = 17
      Caption = 'Tx'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbTxClick
    end
    object rbRx: TRadioButton
      Left = 4
      Top = 40
      Width = 35
      Height = 17
      Caption = 'Rx'
      TabOrder = 1
      OnClick = rbRxClick
    end
  end
  object sbAudioCal: TStatusBar
    Left = 0
    Top = 581
    Width = 964
    Height = 29
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object btnLoad: TButton
    Left = 392
    Top = 88
    Width = 113
    Height = 25
    Caption = 'Load input file'
    TabOrder = 16
    OnClick = btnLoadClick
  end
  object stInputFileName: TStaticText
    Left = 136
    Top = 8
    Width = 665
    Height = 17
    AutoSize = False
    BorderStyle = sbsSunken
    Caption = 'TRC file does not open'
    TabOrder = 17
  end
  object btnRun: TButton
    Left = 824
    Top = 544
    Width = 75
    Height = 25
    Caption = 'Run'
    Enabled = False
    TabOrder = 18
    OnClick = btnRunClick
  end
  object lblHint: TStaticText
    Left = 559
    Top = 568
    Width = 33
    Height = 17
    BorderStyle = sbsSingle
    Caption = 'lblHint'
    Color = clYellow
    ParentColor = False
    TabOrder = 19
    Visible = False
  end
  object edt5xxHzdB: TEdit
    Left = 880
    Top = 206
    Width = 49
    Height = 21
    TabOrder = 20
    Text = '0'
    OnExit = edt5xxHzdBExit
  end
  object edt8xxHzdB: TEdit
    Left = 880
    Top = 285
    Width = 49
    Height = 21
    TabOrder = 21
    Text = '0'
    OnExit = edt8xxHzdBExit
  end
  object edt13xxHzdB: TEdit
    Left = 880
    Top = 338
    Width = 49
    Height = 21
    TabOrder = 22
    Text = '0'
    OnExit = edt13xxHzdBExit
  end
  object edt18xxHzdB: TEdit
    Left = 880
    Top = 364
    Width = 49
    Height = 21
    TabOrder = 23
    Text = '0'
    OnExit = edt18xxHzdBExit
  end
  object edt25xxHzdB: TEdit
    Left = 880
    Top = 417
    Width = 49
    Height = 21
    TabOrder = 24
    Text = '0'
    OnExit = edt25xxHzdBExit
  end
  object stOutputTxFileName: TStaticText
    Left = 136
    Top = 32
    Width = 665
    Height = 17
    AutoSize = False
    BorderStyle = sbsSunken
    Caption = 'Output Tx file does not open'
    TabOrder = 25
  end
  object stOutputRxFileName: TStaticText
    Left = 136
    Top = 56
    Width = 665
    Height = 17
    AutoSize = False
    BorderStyle = sbsSunken
    Caption = 'Output Rx file does not open'
    TabOrder = 26
  end
  object btnSetupOutpuRxFile: TButton
    Left = 632
    Top = 88
    Width = 113
    Height = 25
    Caption = 'Setup output Rx file'
    TabOrder = 27
    OnClick = btnSetupOutpuRxFileClick
  end
  object btnSetupOutputTxFile: TButton
    Left = 512
    Top = 88
    Width = 113
    Height = 25
    Caption = 'Setup output Tx file'
    TabOrder = 28
    OnClick = btnSetupOutputTxFileClick
  end
  object edtFirScale: TEdit
    Left = 752
    Top = 96
    Width = 49
    Height = 21
    TabOrder = 29
    Text = '0.5'
    OnExit = edtFirScaleCheck
  end
  object cb1xxHz: TComboBox
    Left = 800
    Top = 128
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 30
    OnChange = cb1xxHzChange
  end
  object cb2xxHz: TComboBox
    Left = 800
    Top = 154
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 31
    OnChange = cb2xxHzChange
  end
  object cb3xxHz: TComboBox
    Left = 800
    Top = 180
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 32
    OnChange = cb3xxHzChange
  end
  object cb5xxHz: TComboBox
    Left = 800
    Top = 206
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 33
    OnChange = cb5xxHzChange
  end
  object cb6xxHz: TComboBox
    Left = 800
    Top = 233
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 34
    OnChange = cb6xxHzChange
  end
  object cb7xxHz: TComboBox
    Left = 800
    Top = 259
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 35
    OnChange = cb7xxHzChange
  end
  object cb8xxHz: TComboBox
    Left = 800
    Top = 285
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 36
    OnChange = cb8xxHzChange
  end
  object cb1xxxHz: TComboBox
    Left = 800
    Top = 312
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 37
    OnChange = cb1xxxHzChange
  end
  object cb13xxHz: TComboBox
    Left = 800
    Top = 338
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 38
    OnChange = cb13xxHzChange
  end
  object cb18xxHz: TComboBox
    Left = 800
    Top = 364
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 39
    OnChange = cb18xxHzChange
  end
  object cb2xxxHz: TComboBox
    Left = 800
    Top = 390
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 40
    OnChange = cb2xxxHzChange
  end
  object cb25xxHz: TComboBox
    Left = 800
    Top = 417
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 41
    OnChange = cb25xxHzChange
  end
  object cb3xxxHz: TComboBox
    Left = 800
    Top = 443
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 42
    OnChange = cb3xxxHzChange
  end
  object cb34xxHz: TComboBox
    Left = 800
    Top = 469
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 43
    OnChange = cb34xxHzChange
  end
  object cb39xxHz: TComboBox
    Left = 800
    Top = 496
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 44
    OnChange = cb39xxHzChange
  end
  object gbEquipment: TGroupBox
    Left = 56
    Top = 80
    Width = 81
    Height = 89
    Caption = ' Equipment  '
    TabOrder = 45
    object rbUPL: TRadioButton
      Left = 4
      Top = 41
      Width = 70
      Height = 17
      Caption = 'UPL'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbUPLClick
    end
    object rbAcqua: TRadioButton
      Left = 4
      Top = 12
      Width = 70
      Height = 17
      Caption = 'Acqua'
      TabOrder = 1
      OnClick = rbAcquaClick
    end
    object rbMicrotronix: TRadioButton
      Left = 4
      Top = 26
      Width = 70
      Height = 17
      Caption = 'Microtronix'
      TabOrder = 2
      OnClick = rbMicrotronixClick
    end
    object m_rbVita: TRadioButton
      Left = 4
      Top = 70
      Width = 70
      Height = 17
      Caption = 'Vita'
      TabOrder = 3
      OnClick = m_rbVitaClick
    end
    object m_rbUPV: TRadioButton
      Left = 4
      Top = 55
      Width = 60
      Height = 17
      Caption = 'UPV'
      TabOrder = 4
      OnClick = m_rbUPVClick
    end
  end
  object gbFileFormat: TGroupBox
    Left = 144
    Top = 80
    Width = 73
    Height = 81
    Caption = '  File format  '
    TabOrder = 46
    object rbLinear: TRadioButton
      Left = 4
      Top = 16
      Width = 60
      Height = 17
      Caption = 'Linear'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbLogdB: TRadioButton
      Left = 4
      Top = 40
      Width = 57
      Height = 17
      Caption = 'Log dB'
      TabOrder = 1
    end
  end
  object cbBoundary: TComboBox
    Left = 224
    Top = 96
    Width = 161
    Height = 21
    ItemHeight = 13
    TabOrder = 47
    Text = 'Spec'
    OnChange = cbBoundaryChange
    Items.Strings = (
      'Spec'
      'Good sound'
      '3G Handset and Headset'
      '3G Handsfree (Desktop and Vehicle)'
      '3G Handsfree (Handheld)'
      'VOIP Handset'
      'VOIP Headset'
      'VOIP Handsfree'
      'Type 3.3')
  end
  object dlgOpenUpl: TOpenDialog
    DefaultExt = 'trc'
    Filter = 'TRC file (*.trc)|*.trc|All files (*.*)|*.*'
    Title = 'Open trc file'
    Left = 600
    Top = 560
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 4000
    OnTimer = HintTimerTimer
    Left = 632
    Top = 560
  end
  object SaveDialog: TSaveDialog
    Title = 'Setup output file'
    Left = 664
    Top = 560
  end
  object dlgOpenAcqua: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'TXT file (*.txt)|*.txt|All files (*.*)|*.*'
    Title = 'Open txt file'
    Left = 696
    Top = 560
  end
  object dlgOpenMicrotronix: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'TXT file (*.txt)|*.txt|All files (*.*)|*.*'
    Left = 728
    Top = 560
  end
  object m_dlgOpenVita: TOpenDialog
    DefaultExt = 'asc'
    Filter = 'ASC file (*.asc)|*.asc|All files (*.*)|*.*'
    Left = 584
    Top = 552
  end
  object m_dlgUPV: TOpenDialog
    DefaultExt = 'exp'
    Filter = 'UPV file (*.exp)|*.exp|All files (*.*)|*.*'
    Left = 784
    Top = 568
  end
end

						