📄 unit111.dfm
字号:
object Form1: TForm1
Left = -4
Top = -4
Width = 1032
Height = 748
HorzScrollBar.Visible = False
ActiveControl = btnAutoSw
Caption = #27169#22411#39134#26426#27979#25511#24179#21488
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 120
Top = 0
Width = 213
Height = 32
Caption = ' '#39134#34892#29366#24577#30417#25511' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object PageControl1: TPageControl
Left = 529
Top = 0
Width = 504
Height = 721
ActivePage = TabSheet1
Align = alRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #20018#21475#35843#35797
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object Label41: TLabel
Left = 16
Top = 72
Width = 110
Height = 24
Caption = #36873#25321#20018#21475' '
end
object lbDataCount: TLabel
Left = 264
Top = 312
Width = 10
Height = 24
Caption = '0'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object cmbbxSerialIn: TComboBox
Left = 168
Top = 72
Width = 73
Height = 32
ItemHeight = 24
TabOrder = 0
Text = 'Com1'
Items.Strings = (
'Com1'
'Com2'
'Com3')
end
object cmbbxBaudIn: TComboBox
Left = 256
Top = 72
Width = 81
Height = 32
ItemHeight = 24
TabOrder = 1
Text = '2400'
Items.Strings = (
'2400'
'4800'
'9600'
'19200'
'38400'
'57600'
'19200'
'115200')
end
object rchdtSerialIn: TRichEdit
Left = 16
Top = 112
Width = 449
Height = 177
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
HideScrollBars = False
ParentFont = False
PlainText = True
ScrollBars = ssVertical
TabOrder = 2
end
object btnClearSerial: TButton
Left = 408
Top = 48
Width = 65
Height = 49
Caption = #28165#31354
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnClearSerialClick
end
object btnOpenSerial: TButton
Left = 8
Top = 304
Width = 73
Height = 49
Caption = #25171#24320#20018#21475
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnOpenSerialClick
end
object rchdtTmp: TRichEdit
Left = 8
Top = 136
Width = 473
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'RichEdit'
'1')
ParentFont = False
PlainText = True
TabOrder = 5
Visible = False
end
object btnStoreSerial: TButton
Left = 168
Top = 304
Width = 81
Height = 49
Caption = #20445#23384#25968#25454
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = btnStoreSerialClick
end
object btnCloseSerial: TButton
Left = 88
Top = 304
Width = 73
Height = 49
Caption = #20851#38381#20018#21475
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = btnCloseSerialClick
end
object GroupBox16: TGroupBox
Left = 0
Top = 368
Width = 353
Height = 217
Caption = #36965#25511#25351#20196
TabOrder = 8
object Label43: TLabel
Left = 16
Top = 33
Width = 80
Height = 20
Caption = #25351#20196#22238#25910' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbModel1: TLabel
Left = 112
Top = 25
Width = 40
Height = 24
Caption = '0x00'
end
object lbModel2: TLabel
Left = 176
Top = 25
Width = 40
Height = 24
Caption = '0x00'
end
object lbModel3: TLabel
Left = 232
Top = 25
Width = 40
Height = 24
Caption = '0x00'
end
object lbModel4: TLabel
Left = 288
Top = 25
Width = 40
Height = 24
Caption = '0x00'
end
object Label17: TLabel
Left = 24
Top = 116
Width = 186
Height = 16
Caption = '55 55 55 0c (24 xx xx xx xx) 0d 0a'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edtSerialOut1: TEdit
Left = 120
Top = 57
Width = 33
Height = 32
TabOrder = 0
OnChange = edtSerialOut1Change
end
object edtSerialOut2: TEdit
Left = 176
Top = 57
Width = 33
Height = 32
TabOrder = 1
OnChange = edtSerialOut2Change
end
object edtSerialOut3: TEdit
Left = 232
Top = 57
Width = 33
Height = 32
TabOrder = 2
OnChange = edtSerialOut3Change
end
object edtSerialOut4: TEdit
Left = 288
Top = 57
Width = 33
Height = 32
TabOrder = 3
OnChange = edtSerialOut4Change
end
object btnSendCode: TButton
Left = 240
Top = 96
Width = 97
Height = 41
Caption = #21457#36865' '
TabOrder = 4
OnClick = btnSendCodeClick
end
object rdbtnData: TRadioButton
Left = 16
Top = 88
Width = 65
Height = 25
Caption = #25968#25454
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object rdbtnCode: TRadioButton
Left = 16
Top = 64
Width = 65
Height = 17
Caption = #25351#20196
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
TabStop = True
end
object rchdtSerialOut: TRichEdit
Left = 16
Top = 144
Width = 329
Height = 57
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HideScrollBars = False
ParentFont = False
PlainText = True
ScrollBars = ssVertical
TabOrder = 7
end
end
object btnGPSLoad: TButton
Left = 32
Top = 608
Width = 105
Height = 41
Caption = #36335#24452#35013#36733
TabOrder = 9
OnClick = btnGPSLoadClick
end
object rchdtSerialOutEvent: TRichEdit
Left = 360
Top = 360
Width = 113
Height = 257
Font.Charset = GB2312_CHARSET
Font.Color = clFuchsia
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HideScrollBars = False
ParentFont = False
PlainText = True
ScrollBars = ssVertical
TabOrder = 10
end
object Button2: TButton
Left = 165
Top = 608
Width = 105
Height = 41
Caption = #36335#24452#28165#31354
TabOrder = 11
OnClick = Button2Click
end
end
object TabSheet2: TTabSheet
Caption = #39134#34892#26354#32447
ImageIndex = 1
object ChartControl: TChart
Left = -16
Top = 0
Width = 505
Height = 185
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'TChart')
Title.Visible = False
LeftAxis.Automatic = False
LeftAxis.AutomaticMaximum = False
LeftAxis.AutomaticMinimum = False
LeftAxis.Maximum = 800.000000000000000000
LeftAxis.Minimum = -800.000000000000000000
Legend.Alignment = laTop
Legend.ShadowSize = 5
View3D = False
TabOrder = 0
object srsControlAil: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clBlack
Title = #21103#32764'('#27491#21491')'
LinePen.Style = psDash
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object srsRawAil: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clLime
Title = 'g'#21103#32764'('#21516')'
LinePen.Color = clLime
LinePen.Style = psDot
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object srsControlEle: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
Title = #21319#38477#33333'('#27491#25289')'
LinePen.Color = clRed
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
object srsRawEle: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clYellow
Title = 'g'#21319#38477#33333'('#21516')'
LinePen.Color = clYellow
LinePen.Style = psDot
XValues.DateTime = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -