📄 untsmscontrol.dfm
字号:
Items.Strings = (
'5'#20301
'6'#20301
'7'#20301
'8'#20301)
end
object comstop: TComboBox
Left = 285
Top = 16
Width = 60
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 2
Text = '1'#20301
Items.Strings = (
'1'#20301
'1.5'#20301
'2'#20301)
end
object comcheck: TComboBox
Left = 397
Top = 16
Width = 76
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 3
Text = #26080#26657#39564
Items.Strings = (
#26080#26657#39564
#22855#26657#39564
#20598#26657#39564
#26631#21495#26657#39564
#31354#26684#26657#39564)
end
end
object GroupBox15: TGroupBox
Left = 128
Top = 1
Width = 384
Height = 35
Hint = #36825#20010#20449#24687#21487#20197#20174#25991#20214#8220#20840#22269#30701#20449#20013#24515#21495#30721'.txt'#8221#20013#33719#21462
Caption = #26381#21153#21830
ParentShowHint = False
ShowHint = True
TabOrder = 10
object Label25: TLabel
Left = 140
Top = 14
Width = 36
Height = 12
Caption = #22320#28857#65306
end
object YiDong_btn: TRadioButton
Left = 36
Top = 12
Width = 49
Height = 17
Caption = #31227#21160
Checked = True
TabOrder = 0
TabStop = True
end
object NianTong_btn: TRadioButton
Left = 88
Top = 12
Width = 49
Height = 17
Caption = #32852#36890
TabOrder = 1
end
object area_comboBox: TComboBox
Left = 174
Top = 10
Width = 66
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 14
TabOrder = 2
Text = #26118#26126
Items.Strings = (
#21335#20140
#38271#27801
#19978#28023
#21271#20140
#22825#27941
#28023#21335
#24191#24030
#21335#23425
#31119#24030
#27982#21335
#37325#24198
#22826#21407
#25104#37117
#36149#38451
#26118#26126
#21512#32933
#37073#24030
#27494#27721
#26477#24030
#21335#26124
#20848#24030
#38271#26149
#27784#38451
#35199#23433
#38134#24029
#21704#23572#28392
#30707#23478#24196
#20044#40065#26408#40784
#21628#21644#28009#29305
#20854#20182)
end
object CenterNumber: TEdit
Left = 246
Top = 10
Width = 122
Height = 20
TabOrder = 3
Text = '8613800731500'
end
end
end
object TabSheet1: TTabSheet
Caption = #38169#35823#21015#34920
object lvErrorInfo: TListView
Left = 8
Top = 8
Width = 513
Height = 300
Columns = <
item
Caption = #38169#35823#21495
Width = 60
end
item
Alignment = taCenter
Caption = #31867#22411
Width = 60
end
item
Caption = #38169#35823#35814#32454#20449#24687
Width = 209
end
item
Caption = #35302#21457#21629#20196
Width = 180
end>
TabOrder = 0
ViewStyle = vsReport
end
end
object TabSheet6: TTabSheet
Caption = #20107#20214#26085#24535
ImageIndex = -1
object lvEvent: TListView
Left = 12
Top = 8
Width = 513
Height = 300
Columns = <
item
Caption = 'ID'
Width = 30
end
item
Caption = #20107#20214#21517#31216
Width = 160
end
item
Alignment = taCenter
Caption = #26102#38388
Width = 150
end
item
Caption = #32467#26524
Width = 169
end>
TabOrder = 0
ViewStyle = vsReport
end
end
object TabSheet5: TTabSheet
Caption = #32534#30721#27979#35797#39029#38754
ImageIndex = 4
object GroupBox1: TGroupBox
Left = 12
Top = 8
Width = 504
Height = 89
Caption = 'AscII'#30721#36716'BIT7'#30721
TabOrder = 0
object Label8: TLabel
Left = 14
Top = 24
Width = 42
Height = 12
Caption = 'AscII'#30721
end
object Label9: TLabel
Left = 246
Top = 24
Width = 36
Height = 12
Caption = 'Bit7'#30721
end
object Label10: TLabel
Left = 239
Top = 52
Width = 42
Height = 12
Caption = 'AscII'#30721
end
object edtAscII: TEdit
Left = 70
Top = 20
Width = 161
Height = 20
TabOrder = 0
Text = 'Aa1.'
end
object Button1: TButton
Left = 14
Top = 46
Width = 105
Height = 25
Caption = 'Encode Bit7'
TabOrder = 1
OnClick = Button1Click
end
object edtSource: TEdit
Left = 294
Top = 48
Width = 201
Height = 20
ReadOnly = True
TabOrder = 2
end
object Button2: TButton
Left = 126
Top = 46
Width = 105
Height = 25
Caption = 'Decode Bit7'
TabOrder = 3
OnClick = Button2Click
end
object edtCode: TEdit
Left = 294
Top = 20
Width = 201
Height = 20
ReadOnly = True
TabOrder = 4
end
end
object GroupBox2: TGroupBox
Left = 12
Top = 112
Width = 504
Height = 89
Caption = #23485#23383#31526'Unicode'#32534#30721'('#36825#37324#20027#35201#29992#20110#20013#25991')'
TabOrder = 1
object Label11: TLabel
Left = 14
Top = 27
Width = 36
Height = 12
Caption = #23485#23383#31526
end
object Label12: TLabel
Left = 246
Top = 27
Width = 36
Height = 12
Caption = 'Bit7'#30721
end
object Label13: TLabel
Left = 239
Top = 55
Width = 42
Height = 12
Caption = 'AscII'#30721
end
object Edit2: TEdit
Left = 70
Top = 23
Width = 161
Height = 20
TabOrder = 0
Text = #20013#22269#20154'Aa1'#12290
end
object Button8: TButton
Left = 14
Top = 49
Width = 105
Height = 25
Caption = 'Encode Unicode'
TabOrder = 1
OnClick = Button8Click
end
object Edit3: TEdit
Left = 294
Top = 51
Width = 201
Height = 20
ReadOnly = True
TabOrder = 2
end
object Button9: TButton
Left = 126
Top = 49
Width = 105
Height = 25
Caption = 'Decode Unicode'
TabOrder = 3
OnClick = Button9Click
end
object Edit4: TEdit
Left = 294
Top = 23
Width = 201
Height = 20
ReadOnly = True
TabOrder = 4
end
end
object GroupBox3: TGroupBox
Left = 12
Top = 216
Width = 504
Height = 89
Caption = #23383#33410#27969#32534#30721
TabOrder = 2
object Label14: TLabel
Left = 14
Top = 25
Width = 36
Height = 12
Caption = #23485#23383#31526
end
object Label15: TLabel
Left = 246
Top = 25
Width = 36
Height = 12
Caption = 'Bit7'#30721
end
object Label16: TLabel
Left = 239
Top = 53
Width = 42
Height = 12
Caption = 'AscII'#30721
end
object Edit5: TEdit
Left = 70
Top = 21
Width = 161
Height = 20
TabOrder = 0
Text = #20013#22269#20154'Aa1'#12290
end
object Button10: TButton
Left = 14
Top = 47
Width = 105
Height = 25
Caption = 'Encode Bit8'
TabOrder = 1
OnClick = Button10Click
end
object Edit6: TEdit
Left = 294
Top = 49
Width = 201
Height = 20
ReadOnly = True
TabOrder = 2
end
object Button11: TButton
Left = 126
Top = 47
Width = 105
Height = 25
Caption = 'Decode Bit8'
TabOrder = 3
OnClick = Button11Click
end
object Edit7: TEdit
Left = 294
Top = 21
Width = 201
Height = 20
ReadOnly = True
TabOrder = 4
end
end
end
end
object timExecute: TTimer
Enabled = False
OnTimer = timExecuteTimer
Left = 16
Top = 88
end
object ActionList1: TActionList
OnUpdate = ActionList1Update
Left = 16
Top = 64
object ActSend: TAction
Caption = #21457#36865
OnExecute = ActSendExecute
end
object ActReadUnRead: TAction
Caption = #35835#21462#26410#35835#28040#24687
OnExecute = ActReadUnReadExecute
end
object ActReadReRead: TAction
Caption = #35835#21462#24050#35835#28040#24687
OnExecute = ActReadReReadExecute
end
object ActGetModel: TAction
Caption = #35835#21462
OnExecute = ActGetModelExecute
end
object ActSetModel: TAction
Caption = #35774#32622
OnExecute = ActSetModelExecute
end
object ActGetReport: TAction
Caption = #35835#21462
end
object ActSetReport: TAction
Caption = #35774#32622
OnExecute = ActSetReportExecute
end
object ActGetSN: TAction
Caption = #35835#21462
OnExecute = ActGetSNExecute
end
object ActGetCenter: TAction
Caption = #35835#21462
OnExecute = ActGetCenterExecute
end
object ActSetCenter: TAction
Caption = #35774#32622
OnExecute = ActSetCenterExecute
end
object ActGetIntention: TAction
Caption = #35835#21462
OnExecute = ActGetIntentionExecute
end
object ActDelMessage: TAction
Caption = #21024#38500
OnExecute = ActDelMessageExecute
end
end
object spComm: TComm
CommName = 'COM4'
BaudRate = 115200
ParityCheck = False
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrDisable
DsrSensitivity = False
TxContinueOnXoff = True
Outx_XonXoffFlow = True
Inx_XonXoffFlow = True
ReplaceWhenParityError = False
IgnoreNullChar = False
RtsControl = RtsEnable
XonLimit = 500
XoffLimit = 500
ByteSize = _8
Parity = None
StopBits = _1
XonChar = #17
XoffChar = #19
ReplacedChar = #0
ReadIntervalTimeout = 100
ReadTotalTimeoutMultiplier = 0
ReadTotalTimeoutConstant = 0
WriteTotalTimeoutMultiplier = 0
WriteTotalTimeoutConstant = 0
OnReceiveData = spCommReceiveData
Left = 16
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -