📄 ucomtest.dfm
字号:
object Form1: TForm1
Left = 287
Top = 246
Width = 646
Height = 483
Caption = #20018#21475#35843#35797#21161#25163
Color = clMoneyGreen
Constraints.MinHeight = 483
Constraints.MinWidth = 646
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 325
Width = 638
Height = 105
Align = alBottom
Caption = 'Panel1'
ParentColor = True
TabOrder = 0
object Panel4: TPanel
Left = 1
Top = 1
Width = 176
Height = 63
Align = alLeft
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object Button2: TButton
Left = 7
Top = 4
Width = 54
Height = 19
Caption = #28165#31354#37325#22635
TabOrder = 0
OnClick = Button2Click
end
object BtnSend: TButton
Left = 115
Top = 24
Width = 54
Height = 17
Caption = #25163#21160#21457#36865
TabOrder = 1
OnClick = BtnSendClick
end
object ChkHex: TCheckBox
Left = 8
Top = 24
Width = 97
Height = 17
Caption = #21313#20845#36827#21046#21457#36865
TabOrder = 2
end
object ChkAuto: TCheckBox
Left = 8
Top = 40
Width = 161
Height = 17
Caption = #33258#21160#21457#36865'('#21608#26399#25913#21464#21518#37325#36873')'
TabOrder = 3
end
object Edit1: TEdit
Left = 74
Top = 3
Width = 96
Height = 21
ParentColor = True
ReadOnly = True
TabOrder = 4
Text = #21457#36865#30340#23383#31526'/'#25968#25454
end
end
object Panel5: TPanel
Left = 1
Top = 64
Width = 636
Height = 40
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label6: TLabel
Left = 8
Top = 6
Width = 84
Height = 13
Caption = #33258#21160#21457#36865#21608#26399
end
object Label7: TLabel
Left = 144
Top = 8
Width = 28
Height = 13
Caption = #27627#31186
end
object Edit2: TEdit
Left = 88
Top = 0
Width = 49
Height = 21
TabOrder = 0
Text = '1000'
end
object Button5: TButton
Left = 272
Top = 0
Width = 75
Height = 25
Caption = 'Button5'
TabOrder = 1
OnClick = Button5Click
end
end
object MemoSend: TMemo
Left = 177
Top = 1
Width = 460
Height = 63
Align = alClient
Lines.Strings = (
'5930313231323830307E0101AAAAAAAA002128800102FF044304000444040004' +
'4504000446'
'0400044704000448040004490400045004000451040005520400000453040004' +
'54040004550'
'400045604000457040005580400000559040000055A040000055B040000055C0' +
'40000055D0'
'40000055E5D040000055F040000046004000461040004620400046304004E117' +
'E59')
TabOrder = 2
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 638
Height = 325
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
BorderStyle = bsSingle
Caption = 'Panel2'
ParentColor = True
TabOrder = 1
object Panel3: TPanel
Left = 2
Top = 2
Width = 135
Height = 317
Align = alLeft
Color = clMoneyGreen
TabOrder = 0
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 129
Height = 143
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 8
Width = 53
Height = 13
AutoSize = False
Caption = #20018#21475
end
object Label2: TLabel
Left = 8
Top = 30
Width = 53
Height = 13
AutoSize = False
Caption = #27874#29305#29575
end
object Label3: TLabel
Left = 8
Top = 52
Width = 53
Height = 13
AutoSize = False
Caption = #26657#39564#20301
end
object Label4: TLabel
Left = 8
Top = 74
Width = 53
Height = 13
AutoSize = False
Caption = #25968#25454#20301
end
object Label5: TLabel
Left = 8
Top = 96
Width = 53
Height = 13
AutoSize = False
Caption = #20572#27490#20301
end
object ApdStatusLight1: TApdStatusLight
Left = 16
Top = 120
Width = 13
Height = 13
Lit = False
NotLitColor = clGray
end
object CmbCOM: TComboBox
Left = 67
Top = 8
Width = 54
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = 'COM1'
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4')
end
object CmbBoud: TComboBox
Left = 67
Top = 29
Width = 54
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = 2
ParentFont = False
TabOrder = 1
Text = '9600'
Items.Strings = (
'2400'
'4800'
'9600'
'19200'
'57600'
'115200')
end
object CmbParity: TComboBox
Left = 67
Top = 51
Width = 54
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = 0
ParentFont = False
TabOrder = 2
Text = 'NONE'
Items.Strings = (
'NONE'
'ODD'
'EVEN')
end
object CmbDataBit: TComboBox
Left = 67
Top = 72
Width = 54
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = '8'
Items.Strings = (
'8'
'7'
'6')
end
object CmbStopBit: TComboBox
Left = 67
Top = 94
Width = 54
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ItemIndex = 0
ParentFont = False
TabOrder = 4
Text = '1'
Items.Strings = (
'1'
'2')
end
object Button1: TButton
Left = 68
Top = 120
Width = 54
Height = 19
Caption = #25171#24320#20018#21475
TabOrder = 5
OnClick = Button1Click
end
end
object Button3: TButton
Left = 4
Top = 152
Width = 70
Height = 19
Caption = #28165#31354#25509#25910#21306
TabOrder = 1
OnClick = Button3Click
end
object Button4: TButton
Left = 4
Top = 173
Width = 70
Height = 19
Caption = #20572#27490#26174#31034
TabOrder = 2
end
object Edit3: TEdit
Left = 80
Top = 147
Width = 41
Height = 21
ParentColor = True
ReadOnly = True
TabOrder = 3
Text = #25509#25910#21306
end
object CheckBox1: TCheckBox
Left = 4
Top = 194
Width = 97
Height = 17
Caption = #33258#21160#28165#31354
TabOrder = 4
end
object ChkHexShow: TCheckBox
Left = 4
Top = 213
Width = 97
Height = 17
Caption = #21313#20845#36827#21046#26174#31034
TabOrder = 5
end
object RadioGroup1: TRadioGroup
Left = 8
Top = 248
Width = 105
Height = 49
ItemIndex = 0
Items.Strings = (
'ApdComPort'
'Spcomm')
TabOrder = 6
end
end
object MemoGet: TMemo
Left = 137
Top = 2
Width = 495
Height = 317
Align = alClient
TabOrder = 1
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 430
Width = 638
Height = 19
Panels = <
item
Bevel = pbNone
Width = 50
end
item
Width = 200
end
item
Width = 100
end
item
Width = 100
end
item
Width = 50
end>
ParentColor = True
SimplePanel = False
end
object ApdComPort1: TApdComPort
AutoOpen = False
TraceName = 'APRO.TRC'
LogName = 'APRO.LOG'
OnTriggerAvail = ApdComPort1TriggerAvail
Left = 104
Top = 168
end
object Comm1: TComm
CommName = 'COM2'
BaudRate = 9600
ParityCheck = False
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrEnable
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 = Comm1ReceiveData
Left = 232
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -