📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -