📄 unit1.~dfm
字号:
object FrmADSLmain: TFrmADSLmain
Left = 220
Top = 245
BorderStyle = bsSingle
Caption = #32593#21543#27979#35797#36719#20214'V1.0'
ClientHeight = 437
ClientWidth = 751
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object SBStartTask: TSpeedButton
Left = 416
Top = 40
Width = 65
Height = 25
Caption = #24320#22987#37319#38598
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SBStartTaskClick
end
object SBStopTask: TSpeedButton
Left = 512
Top = 40
Width = 65
Height = 25
Caption = #20572#27490#37319#38598
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SBStopTaskClick
end
object SBPortSet: TSpeedButton
Left = 616
Top = 40
Width = 65
Height = 25
Caption = #31471#21475#37197#32622
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SBPortSetClick
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 751
Height = 29
Caption = 'ToolBar1'
Color = cl3DLight
EdgeOuter = esRaised
ParentColor = False
TabOrder = 0
end
object EditTCP: TEdit
Left = 248
Top = 8
Width = 137
Height = 21
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #32043#20809#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
Text = '10.90.60.252:961'
OnChange = EditTCPChange
end
object StaticText1: TStaticText
Left = 176
Top = 8
Width = 74
Height = 17
Caption = #36828#31243'IP'#22320#22336#65306
TabOrder = 2
end
object StaticText2: TStaticText
Left = 408
Top = 8
Width = 118
Height = 17
Caption = #35774#22791#22320#22336'('#21313#20845#36827#21046')'#65306
TabOrder = 3
end
object CBAddress: TComboBox
Left = 528
Top = 8
Width = 81
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 4
Text = '00'
OnChange = CBAddressChange
Items.Strings = (
'00'
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'0A')
end
object CB_Save: TCheckBox
Left = 632
Top = 8
Width = 113
Height = 17
Caption = #36890#20449#35760#24405#23384#20648
TabOrder = 5
OnClick = CB_SaveClick
end
object Memo1: TMemo
Left = 0
Top = 32
Width = 185
Height = 377
ImeName = #32043#20809#25340#38899#36755#20837#27861
Lines.Strings = (
'')
TabOrder = 6
end
object StaticText3: TStaticText
Left = 192
Top = 40
Width = 107
Height = 17
Caption = #37319#38598#26102#38047#36873#25321'(ms)'#65306
TabOrder = 7
end
object ComboBoxTimer: TComboBox
Left = 304
Top = 40
Width = 73
Height = 21
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 13
ItemIndex = 0
TabOrder = 8
Text = '100'
OnChange = ComboBoxTimerChange
Items.Strings = (
'100'
'200'
'400'
'600'
'800'
'1000'
'1200'
'1400'
'1600'
'1800'
'2000'
'')
end
object PageControl1: TPageControl
Left = 192
Top = 72
Width = 553
Height = 337
ActivePage = TabSheetXH
TabIndex = 0
TabOrder = 9
object TabSheetXH: TTabSheet
Caption = #37319#38598#25968#25454#26597#35810'1'
object GroupBox1: TGroupBox
Left = 0
Top = 8
Width = 545
Height = 97
Caption = #28201#24230
Color = clBtnFace
ParentColor = False
TabOrder = 0
object Label48VXH: TLabel
Left = 144
Top = 24
Width = 241
Height = 54
Alignment = taCenter
AutoSize = False
Caption = '00.00'#8451
Color = clBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307'-'#26041#27491#36229#22823#23383#31526#38598
Font.Style = [fsBold, fsItalic]
ParentColor = False
ParentFont = False
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 112
Width = 545
Height = 193
Caption = #24320#20851#37327
TabOrder = 1
object Shape220VXH: TShape
Left = 16
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Label220VXH: TLabel
Left = 24
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Shape1: TShape
Left = 88
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Shape2: TShape
Left = 160
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Shape3: TShape
Left = 232
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Shape4: TShape
Left = 312
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Shape5: TShape
Left = 384
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Shape6: TShape
Left = 464
Top = 24
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Label1: TLabel
Left = 96
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 168
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 240
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 320
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 392
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 472
Top = 64
Width = 41
Height = 25
AutoSize = False
Caption = #25353#38062'7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Shape7: TShape
Left = 232
Top = 112
Width = 57
Height = 33
Brush.Color = clSilver
Shape = stCircle
end
object Label7: TLabel
Left = 240
Top = 160
Width = 57
Height = 25
AutoSize = False
Caption = #28895#38654#37327
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
end
object TabSheetSET: TTabSheet
Caption = #37319#38598#25968#25454#26597#35810'2'
ImageIndex = 1
object Label8: TLabel
Left = 88
Top = 280
Width = 68
Height = 13
Caption = #30005#24230'(kWh )'#65306
end
object SpeedButton2: TSpeedButton
Left = 416
Top = 40
Width = 65
Height = 25
Caption = #24320#22987#37319#38598
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SBStartTaskClick
end
object SpeedButton3: TSpeedButton
Left = 320
Top = 272
Width = 65
Height = 30
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -