📄 form_wifi.dfm
字号:
object frmWiFi: TfrmWiFi
Left = 93
Top = 140
Width = 854
Height = 560
Caption = 'WiFi Tool'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pctlToolSel: TPageControl
Tag = 1
Left = 0
Top = 0
Width = 846
Height = 526
ActivePage = tsCPR
Align = alClient
MultiLine = True
TabIndex = 1
TabOrder = 0
OnChange = pctlToolSelChange
object tsTX: TTabSheet
Caption = 'TX'
object gbCPTInput: TGroupBox
Left = 0
Top = 6
Width = 825
Height = 427
Caption = ' Input '
TabOrder = 0
object btnTXStart: TBitBtn
Left = 680
Top = 8
Width = 75
Height = 25
Caption = 'Start'
TabOrder = 0
OnClick = btnTXStartClick
Kind = bkRetry
end
object btnTXStop: TBitBtn
Left = 680
Top = 40
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 1
OnClick = btnTXStopClick
Kind = bkNo
end
object gbTXType: TGroupBox
Left = 656
Top = 104
Width = 153
Height = 105
Caption = ' Type '
TabOrder = 2
object rbCPT: TRadioButton
Left = 8
Top = 58
Width = 140
Height = 17
Caption = 'Continuous packet TX'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbCPTClick
end
object rbTXOP: TRadioButton
Left = 8
Top = 16
Width = 113
Height = 17
Caption = 'TX output power'
TabOrder = 1
OnClick = rbTXOPClick
end
object rbTXCS: TRadioButton
Left = 8
Top = 37
Width = 129
Height = 17
Caption = 'TX carrier suppression'
TabOrder = 2
OnClick = rbTXCSClick
end
object rbTXLF: TRadioButton
Left = 8
Top = 80
Width = 113
Height = 17
Caption = 'Local Frequency'
TabOrder = 3
OnClick = rbTXLFClick
end
end
object pnlCPT: TPanel
Left = 8
Top = 216
Width = 809
Height = 201
BevelOuter = bvLowered
TabOrder = 3
object lblTXPacketLength: TLabel
Left = 18
Top = 112
Width = 66
Height = 13
Caption = 'Packet length'
end
object lblTXPacketCount: TLabel
Left = 116
Top = 112
Width = 64
Height = 13
Caption = 'Packet count'
end
object lblTXPacketInterval: TLabel
Left = 200
Top = 112
Width = 91
Height = 13
Caption = 'Packet interval (us)'
end
object lblTXBitPattern: TLabel
Left = 440
Top = 112
Width = 48
Height = 13
Caption = 'Bit pattern'
end
object lblTXPreamble: TLabel
Left = 312
Top = 112
Width = 44
Height = 13
Caption = 'Preamble'
end
object lblTXPacketSent: TLabel
Left = 120
Top = 160
Width = 57
Height = 13
Caption = 'Packet sent'
end
object lblTXAckCount: TLabel
Left = 216
Top = 160
Width = 49
Height = 13
Caption = 'Ack count'
end
object m_lblAverageALC: TLabel
Left = 308
Top = 160
Width = 63
Height = 13
Caption = 'Average ALC'
end
object m_lblTXCCKGainControl: TLabel
Left = 396
Top = 160
Width = 79
Height = 13
Caption = 'CCK gain control'
end
object m_lblTXOFDMGainControl: TLabel
Left = 488
Top = 160
Width = 89
Height = 13
Caption = 'OFDM gain control'
end
object edtTXPacketLength: TEdit
Left = 16
Top = 128
Width = 73
Height = 21
TabOrder = 0
Text = '128'
OnExit = edtCPTPacketLengthCheck
end
object edtTXPacketCount: TEdit
Left = 112
Top = 128
Width = 73
Height = 21
TabOrder = 1
Text = '0'
OnExit = edtCPTPacketCountCheck
end
object edtTXPacketInterval: TEdit
Left = 208
Top = 128
Width = 73
Height = 21
TabOrder = 2
Text = '100'
OnExit = edtCPTPacketIntervalCheck
end
object cbTXBitPattern: TComboBox
Left = 400
Top = 128
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 3
Text = 'All 0'
Items.Strings = (
'All 0'
'All 1'
'Alternate bits (010101)'
'Pseudo random')
end
object cbTXPreamble: TComboBox
Left = 304
Top = 128
Width = 73
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 4
Text = 'long'
Items.Strings = (
'long'
'short')
end
object stTXPacketSent: TStaticText
Left = 112
Top = 176
Width = 73
Height = 17
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
Color = clSkyBlue
ParentColor = False
TabOrder = 5
end
object stTXAckCount: TStaticText
Left = 208
Top = 176
Width = 73
Height = 17
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
Color = clSkyBlue
ParentColor = False
TabOrder = 6
end
object StaticText1: TStaticText
Left = 8
Top = 8
Width = 199
Height = 17
BevelKind = bkTile
BevelOuter = bvSpace
Caption = 'Continuous packet TX specific parameter'
Color = clCream
ParentColor = False
TabOrder = 7
end
object Panel10: TPanel
Left = 8
Top = 32
Width = 617
Height = 73
BevelOuter = bvLowered
TabOrder = 8
object lblTXFrameCtrl0x: TLabel
Left = 2
Top = 52
Width = 11
Height = 13
Caption = '0x'
end
object lblTXFrameCtrl: TLabel
Left = 16
Top = 32
Width = 47
Height = 13
Caption = 'Frame Ctrl'
end
object lblTXAddress1: TLabel
Left = 168
Top = 32
Width = 47
Height = 13
Caption = 'Address 1'
end
object lblTXAddress2: TLabel
Left = 312
Top = 32
Width = 47
Height = 13
Caption = 'Address 2'
end
object lblTXAddress3: TLabel
Left = 448
Top = 32
Width = 47
Height = 13
Caption = 'Address 3'
end
object lblTXSeqCtrl: TLabel
Left = 544
Top = 32
Width = 67
Height = 13
Caption = 'Sequence Ctrl'
end
object lblTXDuration: TLabel
Left = 72
Top = 32
Width = 40
Height = 13
Caption = 'Duration'
end
object StaticText4: TStaticText
Left = 8
Top = 6
Width = 69
Height = 17
BevelKind = bkTile
Caption = ' MAC header'
Color = clMoneyGreen
ParentColor = False
TabOrder = 0
end
object edtTXFramCtrl1: TEdit
Tag = 4
Left = 16
Top = 48
Width = 22
Height = 21
TabOrder = 1
Text = '08'
OnExit = edtTXFramCtrlCheck
end
object edtTXFramCtrl0: TEdit
Tag = 3
Left = 38
Top = 48
Width = 22
Height = 21
TabOrder = 2
Text = '02'
OnExit = edtTXFramCtrlCheck
end
object edtTXAddress13: TEdit
Tag = 3
Left = 170
Top = 48
Width = 22
Height = 21
TabOrder = 3
Text = 'FF'
OnExit = edtTXAddress1Check
end
object edtTXAddress15: TEdit
Tag = 5
Left = 128
Top = 48
Width = 22
Height = 21
TabOrder = 4
Text = 'FF'
OnExit = edtTXAddress1Check
end
object edtTXAddress14: TEdit
Tag = 4
Left = 148
Top = 48
Width = 22
Height = 21
TabOrder = 5
Text = 'FF'
OnExit = edtTXAddress1Check
end
object edtTXAddress12: TEdit
Tag = 2
Left = 192
Top = 48
Width = 22
Height = 21
TabOrder = 6
Text = 'FF'
OnExit = edtTXAddress1Check
end
object edtTXAddress11: TEdit
Tag = 1
Left = 214
Top = 48
Width = 22
Height = 21
TabOrder = 7
Text = 'FF'
OnExit = edtTXAddress1Check
end
object edtTXAddress10: TEdit
Left = 236
Top = 48
Width = 22
Height = 21
TabOrder = 8
Text = 'FF'
OnExit = edtTXAddress1Check
end
object edtTXAddress25: TEdit
Tag = 5
Left = 272
Top = 48
Width = 22
Height = 21
TabOrder = 9
Text = '00'
OnExit = edtTXAddress2Check
end
object edtTXAddress24: TEdit
Tag = 4
Left = 294
Top = 48
Width = 22
Height = 21
TabOrder = 10
Text = '08'
OnExit = edtTXAddress2Check
end
object edtTXAddress23: TEdit
Tag = 3
Left = 316
Top = 48
Width = 22
Height = 21
TabOrder = 11
Text = '22'
OnExit = edtTXAddress2Check
end
object edtTXAddress22: TEdit
Tag = 2
Left = 338
Top = 48
Width = 22
Height = 21
TabOrder = 12
Text = '00'
OnExit = edtTXAddress2Check
end
object edtTXAddress21: TEdit
Tag = 1
Left = 360
Top = 48
Width = 22
Height = 21
TabOrder = 13
Text = '00'
OnExit = edtTXAddress2Check
end
object edtTXAddress20: TEdit
Left = 382
Top = 48
Width = 22
Height = 21
TabOrder = 14
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -