📄 unitmain.~dfm
字号:
object Form1: TForm1
Left = 164
Top = 76
Width = 657
Height = 648
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 550
Top = 0
Width = 99
Height = 594
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 35
Top = 40
Width = 32
Height = 13
Caption = 'Label1'
end
object Label_Title: TLabel
Left = 10
Top = 72
Width = 79
Height = 25
Alignment = taCenter
AutoSize = False
Caption = #26102#38388
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Panel1: TPanel
Left = 0
Top = 352
Width = 99
Height = 242
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object BitBtn3: TBitBtn
Left = 6
Top = 176
Width = 87
Height = 25
Action = ActionLanguage
Caption = 'Language'
TabOrder = 2
end
object BitBtn1: TBitBtn
Left = 6
Top = 112
Width = 87
Height = 25
Action = ActionSend
Caption = 'Send'
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 6
Top = 144
Width = 87
Height = 25
Action = ActionCommSet
Caption = 'Comm Set'
TabOrder = 1
end
object BitBtn4: TBitBtn
Left = 6
Top = 208
Width = 87
Height = 25
Action = ActionExit
Caption = 'Exit'
TabOrder = 3
end
object Button1: TButton
Left = 6
Top = 39
Width = 87
Height = 33
Caption = #27979#35797#22686#21152#19968#28857
TabOrder = 4
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 8
Width = 81
Height = 25
Caption = #24320#22987#37319#38598
TabOrder = 5
OnClick = Button2Click
end
object Button4: TButton
Left = 8
Top = 81
Width = 81
Height = 25
Caption = #20572#27490#37319#38598
TabOrder = 6
OnClick = Button4Click
end
end
object CBVertical: TCheckBox
Left = 20
Top = 330
Width = 53
Height = 17
Caption = #22402#30452
Checked = True
State = cbChecked
TabOrder = 1
OnClick = CBVerticalClick
end
object Button3: TButton
Left = 16
Top = 272
Width = 75
Height = 25
Caption = #22238#25918
TabOrder = 2
OnClick = Button3Click
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 550
Height = 594
Align = alClient
BevelOuter = bvNone
Caption = 'Panel4'
TabOrder = 0
OnResize = Panel4Resize
object Panel3: TPanel
Left = 0
Top = 0
Width = 550
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Edit1: TEdit
Left = 0
Top = 2
Width = 393
Height = 21
TabOrder = 0
Text = '02 FB AA 3F 2F 1A 33'
end
end
object Memo1: TMemo
Left = 0
Top = 25
Width = 550
Height = 24
Align = alTop
Lines.Strings = (
'Memo1')
ScrollBars = ssBoth
TabOrder = 1
WordWrap = False
end
object Chart1: TChart
Left = 0
Top = 49
Width = 550
Height = 545
AllowZoom = False
BackImageInside = True
BackImageMode = pbmTile
BackWall.Brush.Color = clWhite
BackWall.Color = clWhite
Foot.Font.Charset = DEFAULT_CHARSET
Foot.Font.Color = clRed
Foot.Font.Height = -12
Foot.Font.Name = 'Arial'
Foot.Font.Style = [fsItalic]
Foot.Frame.Color = clScrollBar
LeftWall.Color = 64
Title.Frame.Color = clScrollBar
Title.Text.Strings = (
'TChart Component')
OnUndoZoom = Chart1UndoZoom
OnZoom = Chart1Zoom
BackColor = clWhite
BottomAxis.Grid.Color = clScrollBar
LeftAxis.Grid.Color = clScrollBar
Legend.Visible = False
RightAxis.Grid.Color = clScrollBar
TopAxis.Grid.Color = clScrollBar
View3D = False
Align = alClient
BorderStyle = bsSingle
Color = clWhite
TabOrder = 2
OnResize = Chart1Resize
object ScrollBar2: TScrollBar
Left = 529
Top = 1
Width = 16
Height = 539
Align = alRight
Kind = sbVertical
PageSize = 0
TabOrder = 0
OnChange = ScrollBar2Change
end
object LineSeries1: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
OnAfterAdd = LineSeries1AfterAdd
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
Left = 119
Top = 94
end
object Series1: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series2: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series3: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
OnAfterAdd = Series3AfterAdd
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
end
end
object YbCommDevice1: TYbCommDevice
PortNo = 2
Baud = br115200
ByteSize = 8
InBufSize = 8192
OutBufSize = 8192
HwInSize = 1200
HwOutSize = 1200
QueueSize = 16
PackageSize = 4096
Left = 128
Top = 72
end
object ActionList1: TActionList
Left = 64
Top = 72
object ActionCommSet: TAction
Category = 'File'
Caption = 'Comm Set'
OnExecute = ActionCommSetExecute
end
object ActionLanguage: TAction
Category = 'File'
Caption = 'Language'
OnExecute = ActionLanguageExecute
end
object ActionExit: TAction
Category = 'File'
Caption = 'Exit'
OnExecute = ActionExitExecute
end
object ActionHelp: TAction
Category = 'Help'
Caption = 'Help'
end
object ActionAbout: TAction
Category = 'Help'
Caption = 'About'
OnExecute = ActionAboutExecute
end
object ActionSend: TAction
Category = 'Data'
Caption = 'Send'
OnExecute = ActionSendExecute
end
end
object MainMenu1: TMainMenu
Left = 96
Top = 72
object MenuFile: TMenuItem
Caption = '&File'
object CommSet1: TMenuItem
Action = ActionCommSet
end
object Language1: TMenuItem
Action = ActionLanguage
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Action = ActionExit
end
end
object MenuData: TMenuItem
Caption = '&Data'
object Send1: TMenuItem
Action = ActionSend
end
end
object MenuHelp: TMenuItem
Caption = '&Help'
object About1: TMenuItem
Action = ActionHelp
end
object About2: TMenuItem
Action = ActionAbout
end
end
end
object Timer1: TTimer
Interval = 200
OnTimer = Timer1Timer
Left = 160
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -