📄 serialdebug.dfm
字号:
object MainForm: TMainForm
Left = 255
Top = 181
Width = 587
Height = 402
Caption = #20018#21475#35843#35797#31934#28789' '
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object mmReceive: TMemo
Left = 0
Top = 0
Width = 579
Height = 218
Align = alClient
ImeName = #32043#20809#25340#38899#36755#20837#27861
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
object Panel2: TPanel
Left = 0
Top = 218
Width = 579
Height = 157
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
OnClick = Panel2Click
object shpSerial: TShape
Left = 144
Top = 13
Width = 17
Height = 17
Brush.Color = clRed
Shape = stCircle
end
object Label7: TLabel
Left = 288
Top = 48
Width = 29
Height = 13
Caption = 'ms/'#27425
end
object Panel1: TPanel
Left = 2
Top = 2
Width = 135
Height = 153
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Enabled = False
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 8
Width = 39
Height = 13
Caption = #20018#21475#21495' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 38
Width = 42
Height = 13
Caption = #27874#29305#29575' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 68
Width = 39
Height = 13
Caption = #25968#25454#20301' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 8
Top = 99
Width = 42
Height = 13
Caption = #20572#27490#20301' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 8
Top = 129
Width = 39
Height = 13
Caption = #26657#39564#20301' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object cmbbxComNum: TComboBox
Left = 56
Top = 8
Width = 65
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 0
Text = 'COM1'
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4')
end
object cmbbxBaud: TComboBox
Left = 56
Top = 38
Width = 65
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 1
Text = '9600'
Items.Strings = (
'110'
'300'
'600'
'1200'
'2400'
'4800'
'9600'
'14400'
'19200'
'38400'
'56000'
'115200')
end
object cmbbxDataNum: TComboBox
Left = 56
Top = 68
Width = 65
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 2
Text = '8'
Items.Strings = (
'5'
'6'
'7'
'8')
end
object cmbbxStopBit: TComboBox
Left = 56
Top = 99
Width = 65
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 3
Text = '1'
Items.Strings = (
'1'
'1.5'
'2')
end
object cmbbxCheckBit: TComboBox
Left = 56
Top = 129
Width = 65
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 4
Text = 'N'
Items.Strings = (
'N'
'M'
'N'
'O'
'S')
end
end
object btnSerial: TButton
Left = 168
Top = 8
Width = 75
Height = 30
Caption = #25171#24320#20018#21475
TabOrder = 1
OnClick = btnSerialClick
end
object mmSend: TMemo
Left = 146
Top = 122
Width = 423
Height = 31
ImeName = #32043#20809#25340#38899#36755#20837#27861
ScrollBars = ssVertical
TabOrder = 2
end
object btnSend: TButton
Left = 176
Top = 96
Width = 75
Height = 25
Caption = #21457#36865
TabOrder = 3
OnClick = btnSendClick
end
object chckbxHexSend: TCheckBox
Left = 144
Top = 72
Width = 185
Height = 17
Caption = 'Hex'#21457#36865'('#25968#25454#38388#20351#29992#31354#26684#31526')'
TabOrder = 4
OnClick = chckbxHexSendClick
end
object chckbxTimer: TCheckBox
Left = 144
Top = 48
Width = 97
Height = 17
Caption = #23450#26102#21457#36865
TabOrder = 5
OnClick = chckbxTimerClick
end
object edtTime: TEdit
Left = 248
Top = 48
Width = 34
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 6
Text = '1000'
end
object btnClear: TButton
Left = 454
Top = 8
Width = 75
Height = 25
Caption = #28165#31354' '
TabOrder = 7
OnClick = btnClearClick
end
object chckbxHexShow: TCheckBox
Left = 368
Top = 16
Width = 73
Height = 17
Caption = 'Hex'#26174#31034' '
TabOrder = 8
OnClick = chckbxHexShowClick
end
object Panel3: TPanel
Left = 344
Top = 40
Width = 217
Height = 73
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 9
object Label5: TLabel
Left = 128
Top = 8
Width = 41
Height = 13
Caption = 'CD state'
end
object Label8: TLabel
Left = 130
Top = 52
Width = 47
Height = 13
Caption = 'CTS state'
end
object Label9: TLabel
Left = 128
Top = 28
Width = 49
Height = 13
Caption = 'DSR state'
end
object shpDSR: TShape
Left = 88
Top = 24
Width = 17
Height = 17
Brush.Color = clRed
Shape = stCircle
end
object shpCTS: TShape
Left = 88
Top = 48
Width = 17
Height = 17
Brush.Color = clRed
Shape = stCircle
end
object shpCD: TShape
Left = 88
Top = 5
Width = 17
Height = 17
Brush.Color = clRed
Shape = stCircle
end
object chckbxRTS: TCheckBox
Left = 8
Top = 40
Width = 57
Height = 17
Caption = 'RTS'
TabOrder = 0
OnClick = chckbxRTSClick
end
object chckbxDTR: TCheckBox
Left = 8
Top = 16
Width = 65
Height = 17
Caption = 'DTR'
TabOrder = 1
OnClick = chckbxDTRClick
end
end
end
object MSComm: TMSComm
Left = 456
Top = 0
Width = 32
Height = 32
OnComm = MSCommComm
ControlData = {
2143341208000000ED030000ED03000001568A64000006000000010000040000
00020100802500000000080000000000000000003F00000005000000}
end
object tmrSend: TTimer
Enabled = False
OnTimer = tmrSendTimer
Left = 496
Top = 1
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -