📄 unit1.~dfm
字号:
object Form1: TForm1
Left = 311
Top = 149
BorderStyle = bsDialog
Caption = #20018#21475#35843#35797#21161#25163
ClientHeight = 471
ClientWidth = 826
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object MSComm1: TMSComm
Left = 168
Top = 416
Width = 32
Height = 32
OnComm = MSComm1Comm
ControlData = {
2143341208000000ED030000ED03000001568A64000006000000010000040000
00020100802500000000080000000000010000003F00000005000000}
end
object Panel1: TPanel
Left = 0
Top = 24
Width = 865
Height = 57
TabOrder = 1
object ShpSerialPort: TShape
Left = 160
Top = 8
Width = 17
Height = 17
Brush.Color = clRed
Shape = stCircle
end
object Label1: TLabel
Left = 296
Top = 8
Width = 97
Height = 25
AutoSize = False
Caption = #20256#36755#36895#29575#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 512
Top = 8
Width = 97
Height = 25
AutoSize = False
Caption = #26657#39564#20301#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 296
Top = 32
Width = 97
Height = 17
AutoSize = False
Caption = #25968#25454#20301#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 512
Top = 32
Width = 97
Height = 17
AutoSize = False
Caption = #20572#27490#20301#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object CmbComPort: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'COM1'
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4'
'COM5')
end
object ComboBox1: TComboBox
Left = 360
Top = 4
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
Text = '9600'
Items.Strings = (
'110'
'300'
'60'
'1200'
'2400'
'4800'
'9600'
'14400'
'19200'
'28800'
'38400'
'56000'
'57600'
'115200'
'12800'
'25600')
end
object ComboBox2: TComboBox
Left = 560
Top = 4
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 2
Text = 'N'
Items.Strings = (
'E'
'M'
'N'
'O'
'S')
end
object ComboBox3: TComboBox
Left = 360
Top = 28
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
Text = '8'
Items.Strings = (
'4'
'5'
'6'
'7'
'8')
end
object ComboBox4: TComboBox
Left = 560
Top = 28
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 4
Text = '1'
Items.Strings = (
'1'
'2')
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 452
Width = 826
Height = 19
Panels = <
item
Text = #20018#21475#29366#24577' '
Width = 200
end
item
BiDiMode = bdLeftToRight
ParentBiDiMode = False
Text = 'TX:'
Width = 100
end
item
Text = 'RX:'
Width = 100
end
item
Width = 300
end>
end
object HeaderControl1: THeaderControl
Left = 0
Top = 0
Width = 826
Height = 17
Sections = <>
end
object GroupBox1: TGroupBox
Left = 16
Top = 88
Width = 361
Height = 321
Caption = #25509#25910#25511#21046
TabOrder = 4
object Button2: TButton
Left = 56
Top = 264
Width = 83
Height = 25
Caption = #28165#31354#25509#25910#21306
TabOrder = 0
OnClick = Button2Click
end
object HRecv: TRadioButton
Left = 24
Top = 216
Width = 113
Height = 17
Caption = #21313#20845#36827#21046#26174#31034
TabOrder = 1
end
object brecv: TRadioButton
Left = 128
Top = 216
Width = 113
Height = 17
Caption = #20108#36827#21046#26174#31034
TabOrder = 2
end
object ASCIIRecv: TRadioButton
Left = 24
Top = 232
Width = 113
Height = 17
Caption = 'ASCII'#30721#26174#31034
TabOrder = 3
end
object DRecv: TRadioButton
Left = 128
Top = 232
Width = 113
Height = 17
Caption = #21313#36827#21046#26174#31034
TabOrder = 4
end
object RadioButton1: TRadioButton
Left = 216
Top = 216
Width = 113
Height = 17
Caption = #25991#26412#26174#31034
Checked = True
TabOrder = 5
TabStop = True
end
object SaveRecv: TButton
Left = 168
Top = 264
Width = 89
Height = 25
Caption = #20445#23384#25509#25910#20869#23481
TabOrder = 6
OnClick = SaveRecvClick
end
object MemRecv: TRichEdit
Left = 16
Top = 24
Width = 329
Height = 169
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
PlainText = True
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 7
end
object zifu: TRadioButton
Left = 216
Top = 232
Width = 113
Height = 17
Caption = 'ASCII'#23383#31526#26174#31034
TabOrder = 8
end
end
object GroupBox2: TGroupBox
Left = 384
Top = 88
Width = 425
Height = 321
Caption = #21457#36865#25511#21046
TabOrder = 5
object Label5: TLabel
Left = 280
Top = 208
Width = 33
Height = 25
AutoSize = False
Caption = 'ms'
end
object Label7: TLabel
Left = 136
Top = 280
Width = 241
Height = 21
AutoSize = False
Caption = #36824#27809#26377#36873#25321#25991#20214
end
object MemSend: TMemo
Left = 16
Top = 24
Width = 393
Height = 169
TabStop = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #26032#23435#20307
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
WantTabs = True
end
object CheckHexSend: TCheckBox
Left = 40
Top = 208
Width = 97
Height = 17
Caption = 'ASCII'#21457#36865
TabOrder = 1
OnClick = CheckHexSendClick
end
object BtnSend: TBitBtn
Left = 40
Top = 232
Width = 75
Height = 25
Caption = #21457#36865
TabOrder = 2
OnClick = BtnSendClick
end
object CheckAutosend: TCheckBox
Left = 152
Top = 208
Width = 97
Height = 17
Caption = #33258#21160#21457#36865
TabOrder = 3
OnClick = CheckAutosendClick
end
object EdtTimeInterval: TEdit
Left = 232
Top = 208
Width = 41
Height = 21
AutoSize = False
TabOrder = 4
Text = '1000'
end
object Button3: TButton
Left = 136
Top = 232
Width = 75
Height = 25
Caption = #28165#31354#21457#36865#21306
TabOrder = 5
OnClick = Button3Click
end
object Openfile: TButton
Left = 40
Top = 272
Width = 75
Height = 25
Caption = #25171#24320#25991#20214
TabOrder = 6
OnClick = OpenfileClick
end
object SendFile: TButton
Left = 232
Top = 232
Width = 75
Height = 25
Caption = #21457#36865#25991#20214
TabOrder = 7
OnClick = BtnSendClick
end
end
object Button4: TButton
Left = 752
Top = 24
Width = 59
Height = 57
Caption = #20851#38381#31243#24207
TabOrder = 6
OnClick = Button4Click
end
object Button1: TButton
Left = 192
Top = 32
Width = 97
Height = 25
Caption = #25171#24320#20018#21475
TabOrder = 7
OnClick = Button1Click
end
object Button5: TButton
Left = 336
Top = 416
Width = 75
Height = 25
Caption = #37325#26032#35745#25968
TabOrder = 8
OnClick = Button5Click
end
object TimerStatus: TTimer
OnTimer = TimerStatusTimer
Left = 48
end
object Timer: TTimer
Enabled = False
OnTimer = TimerTimer
Left = 80
end
object OpenDialog1: TOpenDialog
Filter = #25991#26412#25991#20214'|*.txt'
Left = 432
Top = 392
end
object SaveDialog1: TSaveDialog
Filter = #25991#26412#25991#20214'|*.txt|word'#25991#26723'|*.doc'
Left = 312
Top = 352
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -