📄 commmain.~dfm
字号:
object MainForm: TMainForm
Left = 199
Top = 104
Width = 670
Height = 490
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Memo_Show: TMemo
Left = 113
Top = 0
Width = 549
Height = 338
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
OnChange = Memo_ShowChange
end
object Panel1: TPanel
Left = 0
Top = 338
Width = 662
Height = 106
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object SendMemo: TMemo
Left = 249
Top = 0
Width = 413
Height = 106
Align = alClient
Lines.Strings = (
'http://www.kaer.cn/default.aspx'
'')
ScrollBars = ssVertical
TabOrder = 0
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 249
Height = 106
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
object Label6: TLabel
Left = 8
Top = 54
Width = 72
Height = 12
Caption = #33258#21160#21457#36865#21608#26399
end
object Label7: TLabel
Left = 136
Top = 54
Width = 24
Height = 12
Caption = #27627#31186
end
object Btn_Send: TButton
Left = 176
Top = 8
Width = 65
Height = 25
Caption = #25163#21160#21457#36865
TabOrder = 0
OnClick = Btn_SendClick
end
object CB_hexSend: TCheckBox
Left = 8
Top = 6
Width = 95
Height = 17
Caption = #21313#20845#36827#21046#21457#36865
TabOrder = 1
end
object Btn_ClearMome: TButton
Left = 176
Top = 72
Width = 65
Height = 25
Caption = #28165#31354#21457#36865
TabOrder = 2
OnClick = Btn_ClearMomeClick
end
object CB_AutoSend: TCheckBox
Left = 8
Top = 30
Width = 169
Height = 17
Caption = #33258#21160#21457#36865'('#21608#26399#20462#25913#21518#37325#36873')'
TabOrder = 3
OnClick = CB_AutoSendClick
end
object Edt_Interval: TEdit
Left = 88
Top = 48
Width = 41
Height = 20
TabOrder = 4
Text = '1000'
OnKeyPress = Edt_IntervalKeyPress
end
object Btn_OpenFile: TButton
Left = 176
Top = 40
Width = 65
Height = 25
Caption = #25171#24320#25991#20214
TabOrder = 5
OnClick = Btn_OpenFileClick
end
object Btn_About: TButton
Left = 8
Top = 72
Width = 65
Height = 25
Caption = #31995#32479#20449#24687
TabOrder = 6
OnClick = Btn_AboutClick
end
object Btn_CountReset: TButton
Left = 88
Top = 72
Width = 65
Height = 25
Caption = #35745#25968#22797#20301
TabOrder = 7
OnClick = Btn_CountResetClick
end
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 113
Height = 338
Align = alLeft
BevelOuter = bvNone
TabOrder = 2
object Btn_ClearView: TButton
Left = 8
Top = 176
Width = 89
Height = 25
Caption = #28165#31354#26174#31034
TabOrder = 0
OnClick = Btn_ClearViewClick
end
object Btn_SaveView: TButton
Left = 8
Top = 211
Width = 89
Height = 25
Caption = #20445#23384#26174#31034#25968#25454
TabOrder = 1
OnClick = Btn_SaveViewClick
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 113
Height = 169
Align = alTop
BevelOuter = bvLowered
TabOrder = 2
object Label3: TLabel
Left = 8
Top = 112
Width = 36
Height = 12
Caption = #20572#27490#20301
end
object Label5: TLabel
Left = 8
Top = 88
Width = 36
Height = 12
Caption = #25968#25454#20301
end
object Label4: TLabel
Left = 8
Top = 64
Width = 36
Height = 12
Caption = #26657#39564#20301
end
object Label2: TLabel
Left = 8
Top = 40
Width = 36
Height = 12
Caption = #27874#29305#29575
end
object Label1: TLabel
Left = 8
Top = 16
Width = 36
Height = 12
Caption = #20018' '#21475
end
object Shape_ComState: TShape
Left = 12
Top = 139
Width = 19
Height = 19
Brush.Color = clRed
Shape = stEllipse
end
object CB_StopBits: TComboBox
Left = 48
Top = 106
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 0
Text = '1'
OnSelect = CB_ComNumSelect
Items.Strings = (
'1'
'2')
end
object CB_DataBits: TComboBox
Left = 48
Top = 82
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 1
Text = '8'
OnSelect = CB_ComNumSelect
Items.Strings = (
'5'
'6'
'7'
'8')
end
object CB_Parity: TComboBox
Left = 48
Top = 58
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 2
Text = 'pNone'
OnSelect = CB_ComNumSelect
Items.Strings = (
'pEven'
'pMark'
'pNone'
'pOdd'
'pSpace')
end
object CB_Baud: TComboBox
Left = 48
Top = 34
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 3
Text = '9600'
OnSelect = CB_ComNumSelect
Items.Strings = (
'150'
'300'
'600'
'1200'
'2400'
'4800'
'9600'
'19200'
'38400'
'57600'
'115200')
end
object CB_ComNum: TComboBox
Left = 48
Top = 10
Width = 57
Height = 20
ItemHeight = 12
TabOrder = 4
Text = 'Com1'
OnSelect = CB_ComNumSelect
Items.Strings = (
'Com1'
'Com2'
'Com3'
'Com4')
end
object Btn_Reset: TButton
Left = 40
Top = 136
Width = 65
Height = 25
Caption = #37325#32622#20018#21475
TabOrder = 5
OnClick = Btn_ResetClick
end
end
object CB_Clear: TCheckBox
Left = 8
Top = 296
Width = 97
Height = 17
Caption = #33258#21160#28165#31354#25509#25910
Checked = True
State = cbChecked
TabOrder = 3
end
object CB_Show: TCheckBox
Left = 8
Top = 320
Width = 81
Height = 17
Caption = #36880#34892#26174#31034
TabOrder = 4
end
object CB_HexGet: TCheckBox
Left = 8
Top = 248
Width = 97
Height = 17
Caption = #21313#20845#36827#21046#25509#25910
TabOrder = 5
end
object CB_StopShow: TCheckBox
Left = 8
Top = 272
Width = 97
Height = 17
Caption = #20572#27490#26174#31034
TabOrder = 6
end
end
object StatusBar: TStatusBar
Left = 0
Top = 444
Width = 662
Height = 19
Panels = <
item
Width = 200
end
item
Text = #25509#25910#65306'0'
Width = 120
end
item
Text = #21457#36865#65306'0'
Width = 120
end
item
Width = 50
end>
ParentFont = True
UseSystemFont = False
end
object ComPort1: TApdComPort
Baud = 9600
OutSize = 8192
TraceName = 'APRO.TRC'
LogName = 'APRO.LOG'
OnTrigger = ComPort1Trigger
Left = 128
Top = 8
end
object SaveDialog1: TSaveDialog
DefaultExt = 'txt'
Filter = '*.txt|*.txt|*.*|All File'
Title = #20445#23384#20026
Left = 128
Top = 48
end
object OpenDialog1: TOpenDialog
DefaultExt = 'txt'
Filter = '*.txt|*.txt|*.*|All File'
Title = #25171#24320
Left = 128
Top = 80
end
object Timer_AutoSend: TTimer
Enabled = False
OnTimer = Timer_AutoSendTimer
Left = 168
Top = 8
end
object Timer_WatchState: TTimer
Interval = 500
OnTimer = Timer_WatchStateTimer
Left = 168
Top = 48
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -