📄 mainform.dfm
字号:
object frmMain: TfrmMain
Left = 212
Top = 180
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Digital Output with Watchdog for PCI-1758UDO'
ClientHeight = 460
ClientWidth = 393
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 GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 273
Height = 73
Caption = 'Device Selection'
TabOrder = 0
object txtDeviceName: TEdit
Left = 8
Top = 40
Width = 257
Height = 21
Enabled = False
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 0
end
object btnSelDev: TButton
Left = 184
Top = 14
Width = 81
Height = 25
Caption = 'Select &Device'
TabOrder = 1
OnClick = btnSelDevClick
end
end
object btnExit: TButton
Left = 293
Top = 32
Width = 75
Height = 33
Caption = 'Exit'
TabOrder = 1
OnClick = btnExitClick
end
object GBDO: TGroupBox
Left = 8
Top = 232
Width = 369
Height = 105
Caption = 'Digital Output'
TabOrder = 2
object Label1: TLabel
Left = 192
Top = 24
Width = 19
Height = 13
Caption = 'Hex'
end
object chkDI0: TCheckBox
Left = 184
Top = 56
Width = 49
Height = 17
Caption = 'DI00'
TabOrder = 0
end
object chkDI1: TCheckBox
Left = 136
Top = 56
Width = 49
Height = 17
Caption = 'DI01'
TabOrder = 1
end
object chkDI2: TCheckBox
Left = 88
Top = 56
Width = 49
Height = 17
Caption = 'DI02'
TabOrder = 2
end
object chkDI3: TCheckBox
Left = 40
Top = 56
Width = 49
Height = 17
Caption = 'DI03'
TabOrder = 3
end
object chkDI4: TCheckBox
Left = 184
Top = 80
Width = 49
Height = 17
Caption = 'DI04'
TabOrder = 4
end
object chkDI5: TCheckBox
Left = 136
Top = 80
Width = 49
Height = 17
Caption = 'DI05'
TabOrder = 5
end
object chkDI6: TCheckBox
Left = 88
Top = 80
Width = 49
Height = 17
Caption = 'DI06'
TabOrder = 6
end
object chkDI7: TCheckBox
Left = 40
Top = 80
Width = 49
Height = 17
Caption = 'DI07'
TabOrder = 7
end
object cmbPort: TComboBox
Left = 56
Top = 24
Width = 57
Height = 21
Style = csDropDownList
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
ItemHeight = 13
TabOrder = 8
OnChange = cmbPortChange
end
object btnWrite: TButton
Left = 272
Top = 40
Width = 75
Height = 25
Caption = 'Write Byte'
TabOrder = 9
OnClick = btnWriteClick
end
object btnRead: TButton
Left = 272
Top = 72
Width = 75
Height = 25
Caption = 'Read back'
TabOrder = 10
OnClick = btnReadClick
end
object txtPortStatus: TEdit
Left = 136
Top = 24
Width = 49
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 11
Text = '00'
end
end
object GBWatchdog: TGroupBox
Left = 8
Top = 340
Width = 369
Height = 113
Caption = 'Watchdog'
TabOrder = 3
object TLabel
Left = 40
Top = 32
Width = 3
Height = 13
end
object Label2: TLabel
Left = 24
Top = 32
Width = 83
Height = 13
Caption = 'Watchdog Status'
end
object Label3: TLabel
Left = 24
Top = 88
Width = 90
Height = 13
Caption = 'Watchdog Counter'
end
object Label4: TLabel
Left = 208
Top = 88
Width = 42
Height = 13
Caption = '*0.1us = '
end
object Label5: TLabel
Left = 208
Top = 56
Width = 13
Height = 13
Caption = 'ms'
end
object Label6: TLabel
Left = 312
Top = 88
Width = 13
Height = 13
Caption = 'ms'
end
object labWatchTime: TLabel
Left = 256
Top = 88
Width = 3
Height = 13
end
object labWatchdogTimer: TLabel
Left = 256
Top = 88
Width = 24
Height = 13
Caption = '0000'
end
object txtWatchdogStatus: TEdit
Left = 112
Top = 24
Width = 65
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object btnStart: TButton
Left = 296
Top = 16
Width = 59
Height = 25
Caption = 'Start'
TabOrder = 1
OnClick = btnStartClick
end
object btnStop: TButton
Left = 296
Top = 48
Width = 57
Height = 25
Caption = 'Stop'
Enabled = False
TabOrder = 2
OnClick = btnStopClick
end
object btnFeed: TButton
Left = 232
Top = 16
Width = 51
Height = 25
Caption = 'Feed'
TabOrder = 3
OnClick = btnFeedClick
end
object chkAutoFeed: TCheckBox
Left = 24
Top = 56
Width = 145
Height = 17
Caption = 'Auto Feed the Watchdog'
TabOrder = 4
OnClick = chkAutoFeedClick
end
object txtWatchdogCounter: TEdit
Left = 128
Top = 88
Width = 73
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 5
Text = '200000'
OnChange = txtWatchdogCounterChange
end
object txtAutoTimer: TEdit
Left = 168
Top = 56
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 6
Text = '200'
OnChange = txtAutoTimerChange
end
end
object GBPresetValue: TGroupBox
Left = 8
Top = 88
Width = 369
Height = 65
Caption = 'Preset Value'
TabOrder = 4
object Label7: TLabel
Left = 296
Top = 24
Width = 15
Height = 13
Caption = '1-0'
end
object Label8: TLabel
Left = 208
Top = 24
Width = 15
Height = 13
Caption = '5-4'
end
object Label9: TLabel
Left = 256
Top = 24
Width = 15
Height = 13
Caption = '3-2'
end
object Label10: TLabel
Left = 16
Top = 24
Width = 16
Height = 13
Caption = 'F-E'
end
object Label11: TLabel
Left = 64
Top = 24
Width = 18
Height = 13
Caption = 'D-C'
end
object Label12: TLabel
Left = 96
Top = 24
Width = 20
Height = 13
Caption = 'B_A'
end
object Label13: TLabel
Left = 136
Top = 24
Width = 15
Height = 13
Caption = '9-8'
end
object Label14: TLabel
Left = 176
Top = 24
Width = 15
Height = 13
Caption = '7-6'
end
object Label16: TLabel
Left = 96
Top = 8
Width = 129
Height = 13
Caption = 'DO Status when Power on '
end
object txtP1: TEdit
Left = 288
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 0
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP2: TEdit
Left = 248
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 1
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP3: TEdit
Left = 208
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 2
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP4: TEdit
Left = 168
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 3
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP5: TEdit
Left = 128
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 4
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP6: TEdit
Left = 88
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 5
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP7: TEdit
Left = 48
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 6
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtP8: TEdit
Left = 8
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 7
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object btnSetPreset: TButton
Left = 336
Top = 32
Width = 27
Height = 25
Caption = 'Set'
TabOrder = 8
OnClick = btnSetPresetClick
end
end
object GBWatchdogSet: TGroupBox
Left = 8
Top = 160
Width = 369
Height = 65
Caption = 'Watchdog'
TabOrder = 5
object Label15: TLabel
Left = 296
Top = 24
Width = 15
Height = 13
Caption = '1-0'
end
object Label17: TLabel
Left = 208
Top = 24
Width = 15
Height = 13
Caption = '5-4'
end
object Label18: TLabel
Left = 256
Top = 24
Width = 15
Height = 13
Caption = '3-2'
end
object Label19: TLabel
Left = 16
Top = 24
Width = 16
Height = 13
Caption = 'F-E'
end
object Label20: TLabel
Left = 64
Top = 24
Width = 18
Height = 13
Caption = 'D-C'
end
object Label21: TLabel
Left = 96
Top = 24
Width = 20
Height = 13
Caption = 'B_A'
end
object Label22: TLabel
Left = 136
Top = 24
Width = 15
Height = 13
Caption = '9-8'
end
object Label23: TLabel
Left = 176
Top = 24
Width = 15
Height = 13
Caption = '7-6'
end
object Label24: TLabel
Left = 88
Top = 8
Width = 183
Height = 13
Caption = 'DO Status when Watchdog is overrun.'
end
object txtWP1: TEdit
Left = 288
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 0
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP2: TEdit
Left = 248
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 1
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP3: TEdit
Left = 208
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 2
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP4: TEdit
Left = 168
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 3
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP5: TEdit
Left = 128
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 4
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP6: TEdit
Left = 88
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 5
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP7: TEdit
Left = 48
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 6
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object txtWP8: TEdit
Left = 8
Top = 36
Width = 41
Height = 21
ImeName = '?D?? (?'#242#236'?) - ?'#65504#232#237'?'#8242#242'?'
TabOrder = 7
Text = 'AAAA'
OnChange = txtPChange
OnKeyPress = txtWPKeyPress
end
object btnWatchdogSet: TButton
Left = 336
Top = 32
Width = 27
Height = 25
Caption = 'Set'
TabOrder = 8
OnClick = btnWatchdogSetClick
end
end
object AutoFeedTimer: TTimer
Enabled = False
OnTimer = AutoFeedTimerTimer
Left = 264
Top = 400
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -