MTK

开发平台：
C++ Builder

form_FM.dfm：源码内容
							object frmFM: TfrmFM
  Left = 197
  Top = 169
  Width = 696
  Height = 550
  Caption = 'FM Radio Tool'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 368
    Top = 32
    Width = 305
    Height = 57
    BevelOuter = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 32
      Top = 8
      Width = 53
      Height = 13
      Caption = 'Frequency '
    end
    object Label3: TLabel
      Left = 112
      Top = 24
      Width = 22
      Height = 13
      Caption = 'MHz'
    end
    object m_edtFreq: TEdit
      Left = 16
      Top = 24
      Width = 89
      Height = 21
      TabOrder = 0
      Text = '90.7'
      OnExit = edtFreqCheck
    end
    object m_btnSetFreq: TButton
      Left = 208
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Set'
      TabOrder = 1
      OnClick = m_btnSetFreqClick
    end
  end
  object Panel2: TPanel
    Left = 368
    Top = 8
    Width = 153
    Height = 25
    BevelOuter = bvLowered
    Caption = 'Frequency Setting'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 8
    Top = 96
    Width = 153
    Height = 25
    BevelOuter = bvLowered
    Caption = 'Audio Setting'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Panel4: TPanel
    Left = 8
    Top = 120
    Width = 673
    Height = 81
    BevelOuter = bvLowered
    TabOrder = 3
    object Label6: TLabel
      Left = 144
      Top = 40
      Width = 85
      Height = 13
      Caption = 'Stereo blend level'
    end
    object Label4: TLabel
      Left = 440
      Top = 40
      Width = 27
      Height = 13
      Caption = 'Mode'
    end
    object m_cbSoftMute: TCheckBox
      Left = 8
      Top = 16
      Width = 105
      Height = 17
      Caption = 'Soft mute enable'
      TabOrder = 0
    end
    object m_cbStereoBlend: TCheckBox
      Left = 128
      Top = 16
      Width = 121
      Height = 17
      Caption = 'Stereo blend enable'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object m_cbStereoBlendLevel: TComboBox
      Left = 144
      Top = 56
      Width = 81
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3')
    end
    object m_cbMode: TComboBox
      Left = 416
      Top = 56
      Width = 81
      Height = 21
      ItemHeight = 13
      ItemIndex = 1
      TabOrder = 3
      Text = 'Stereo'
      OnChange = m_cbModeChange
      Items.Strings = (
        'Mono'
        'Stereo')
    end
    object m_btnSetAudio: TButton
      Left = 552
      Top = 32
      Width = 75
      Height = 25
      Caption = 'Set'
      TabOrder = 4
      OnClick = m_btnSetAudioClick
    end
  end
  object Panel5: TPanel
    Left = 8
    Top = 208
    Width = 153
    Height = 25
    BevelOuter = bvLowered
    Caption = 'Register Read/Write'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Panel6: TPanel
    Left = 8
    Top = 232
    Width = 673
    Height = 81
    BevelOuter = bvLowered
    TabOrder = 5
    object Label8: TLabel
      Left = 24
      Top = 24
      Width = 38
      Height = 13
      Caption = 'Address'
    end
    object Label9: TLabel
      Left = 96
      Top = 24
      Width = 67
      Height = 13
      Caption = 'Data (Word 1)'
    end
    object Label17: TLabel
      Left = 184
      Top = 24
      Width = 67
      Height = 13
      Caption = 'Data (Word 0)'
    end
    object m_edtAddr: TEdit
      Left = 8
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 0
      Text = '0'
    end
    object m_edtWord1: TEdit
      Left = 96
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 1
      Text = '0'
    end
    object m_btnRead: TButton
      Left = 320
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Read'
      TabOrder = 2
      OnClick = m_btnReadClick
    end
    object m_btnWrite: TButton
      Left = 408
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Write'
      TabOrder = 3
      OnClick = m_btnWriteClick
    end
    object m_edtWord0: TEdit
      Left = 184
      Top = 40
      Width = 65
      Height = 21
      TabOrder = 4
      Text = '0'
    end
  end
  object Panel7: TPanel
    Left = 8
    Top = 320
    Width = 153
    Height = 25
    BevelOuter = bvLowered
    Caption = 'Status'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object m_sbFM: TStatusBar
    Left = 0
    Top = 496
    Width = 688
    Height = 27
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel8: TPanel
    Left = 8
    Top = 344
    Width = 673
    Height = 57
    BevelOuter = bvLowered
    TabOrder = 8
    object Label10: TLabel
      Left = 32
      Top = 8
      Width = 25
      Height = 13
      Caption = 'RSSI'
    end
    object Label11: TLabel
      Left = 112
      Top = 8
      Width = 49
      Height = 13
      Caption = 'IF Counter'
    end
    object Label15: TLabel
      Left = 208
      Top = 8
      Width = 41
      Height = 13
      Caption = 'H/L side'
    end
    object Label16: TLabel
      Left = 296
      Top = 8
      Width = 62
      Height = 13
      Caption = 'Stereo/mono'
    end
    object m_btnGet: TButton
      Left = 424
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Get'
      TabOrder = 0
      OnClick = m_btnGetClick
    end
    object m_stRssi: TStaticText
      Left = 16
      Top = 24
      Width = 58
      Height = 17
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSingle
      Color = clSkyBlue
      ParentColor = False
      TabOrder = 1
    end
    object m_stIfCounter: TStaticText
      Left = 109
      Top = 24
      Width = 58
      Height = 17
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSingle
      Color = clSkyBlue
      ParentColor = False
      TabOrder = 2
    end
    object m_stHLSide: TStaticText
      Left = 202
      Top = 24
      Width = 58
      Height = 17
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSingle
      Color = clSkyBlue
      ParentColor = False
      TabOrder = 3
    end
    object m_stStereoMono: TStaticText
      Left = 296
      Top = 24
      Width = 58
      Height = 17
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSingle
      Color = clSkyBlue
      ParentColor = False
      TabOrder = 4
    end
  end
  object Panel9: TPanel
    Left = 8
    Top = 408
    Width = 153
    Height = 25
    BevelOuter = bvLowered
    Caption = 'Station Search'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    Visible = False
  end
  object Panel10: TPanel
    Left = 8
    Top = 432
    Width = 673
    Height = 57
    BevelOuter = bvLowered
    TabOrder = 10
    Visible = False
    object Label12: TLabel
      Left = 20
      Top = 8
      Width = 71
      Height = 13
      Caption = 'RSSI threshold'
    end
    object Label1: TLabel
      Left = 112
      Top = 8
      Width = 74
      Height = 13
      Caption = 'IF counter delta'
    end
    object Label13: TLabel
      Left = 552
      Top = 8
      Width = 33
      Height = 13
      Caption = 'Station'
    end
    object Label14: TLabel
      Left = 616
      Top = 24
      Width = 22
      Height = 13
      Caption = 'MHz'
    end
    object m_btnSearchNextStation: TButton
      Left = 216
      Top = 24
      Width = 129
      Height = 25
      Caption = 'Search next station'
      TabOrder = 0
      OnClick = m_btnSearchNextStationClick
    end
    object m_btnSearchPreStation: TButton
      Left = 360
      Top = 24
      Width = 129
      Height = 25
      Caption = 'Search previous station'
      TabOrder = 1
      OnClick = m_btnSearchPreStationClick
    end
    object m_edtStation: TEdit
      Left = 528
      Top = 24
      Width = 81
      Height = 21
      TabOrder = 2
      Text = '90.7'
    end
    object m_cbRssiThreshold: TComboBox
      Left = 16
      Top = 24
      Width = 73
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = 'Level 1'
      Items.Strings = (
        'Level 1'
        'Level 2'
        'Level 3'
        'Level 4'
        'Level 5'
        'Level 6')
    end
    object m_cbIfCounterDelta: TComboBox
      Left = 112
      Top = 24
      Width = 73
      Height = 21
      ItemHeight = 13
      ItemIndex = 4
      TabOrder = 4
      Text = '30'
      Items.Strings = (
        '10'
        '15'
        '20'
        '25'
        '30')
    end
  end
  object lblHint: TStaticText
    Left = 384
    Top = 0
    Width = 33
    Height = 17
    BorderStyle = sbsSingle
    Caption = 'lblHint'
    Color = clYellow
    ParentColor = False
    TabOrder = 11
    Visible = False
  end
  object Panel11: TPanel
    Left = 8
    Top = 8
    Width = 153
    Height = 25
    BevelOuter = bvLowered
    Caption = 'Reset '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
  end
  object Panel12: TPanel
    Left = 8
    Top = 32
    Width = 305
    Height = 57
    BevelOuter = bvLowered
    TabOrder = 13
    object m_btnReset: TButton
      Left = 64
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Reset'
      TabOrder = 0
      OnClick = m_btnResetClick
    end
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 4000
    OnTimer = HintTimerTimer
    Left = 432
  end
end

						