📄 unit1.dfm
字号:
object Form1: TForm1
Left = 192
Top = 107
Width = 541
Height = 439
Caption = 'CntCompare'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label12: TLabel
Left = 16
Top = 380
Width = 71
Height = 13
Caption = 'Counter Count:'
end
object GroupBox8: TGroupBox
Left = 256
Top = 64
Width = 179
Height = 337
Caption = 'Compare'
TabOrder = 0
object Label13: TLabel
Left = 8
Top = 20
Width = 71
Height = 13
Caption = 'Compare Data:'
end
object GroupBox9: TGroupBox
Left = 8
Top = 283
Width = 161
Height = 50
Caption = 'Single Compare Data'
TabOrder = 0
object editSingleData: TEdit
Left = 8
Top = 20
Width = 97
Height = 21
TabStop = False
TabOrder = 0
Text = '500'
end
object btnSetComp: TButton
Left = 111
Top = 20
Width = 41
Height = 23
Caption = 'Set'
TabOrder = 1
TabStop = False
OnClick = btnSetCompClick
end
end
object editCompData: TEdit
Left = 82
Top = 17
Width = 85
Height = 21
TabStop = False
Color = clScrollBar
TabOrder = 1
Text = '0'
end
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 425
Height = 52
Caption = 'Select Device'
TabOrder = 1
object editDevName: TEdit
Left = 8
Top = 20
Width = 305
Height = 21
TabStop = False
TabOrder = 1
end
object btnSelDev: TButton
Left = 328
Top = 19
Width = 81
Height = 23
Caption = 'Select Device'
TabOrder = 0
TabStop = False
OnClick = btnSelDevClick
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 63
Width = 241
Height = 218
TabOrder = 2
object Label1: TLabel
Left = 14
Top = 19
Width = 40
Height = 13
Caption = 'Counter:'
end
object cmbCounter: TComboBox
Left = 68
Top = 16
Width = 97
Height = 21
ItemHeight = 13
TabOrder = 0
TabStop = False
Text = 'Counter 0'
OnChange = cmbCounterChange
Items.Strings = (
'Counter 0'
'Counter 1'
'Counter 2'
'Counter 3')
end
object chkOverComp: TCheckBox
Left = 15
Top = 43
Width = 105
Height = 17
TabStop = False
Caption = 'Over Compare'
Checked = True
State = cbChecked
TabOrder = 1
end
object chkUnderComp: TCheckBox
Left = 14
Top = 65
Width = 105
Height = 17
TabStop = False
Caption = 'Under Compare'
TabOrder = 2
end
object GroupBox5: TGroupBox
Left = 13
Top = 88
Width = 221
Height = 121
Caption = 'DO Mode'
TabOrder = 3
object chkDOIndicate: TCheckBox
Left = 8
Top = 17
Width = 81
Height = 17
TabStop = False
Caption = 'DO Indicated'
TabOrder = 0
end
object GroupBox6: TGroupBox
Left = 8
Top = 40
Width = 97
Height = 73
Caption = 'Compare Trigger'
TabOrder = 1
object chkBigComp: TCheckBox
Left = 8
Top = 16
Width = 81
Height = 17
TabStop = False
Caption = '>= Compare'
TabOrder = 0
end
object chkSmallComp: TCheckBox
Left = 8
Top = 40
Width = 81
Height = 17
TabStop = False
Caption = '<= Compare'
TabOrder = 1
end
end
object GroupBox7: TGroupBox
Left = 112
Top = 40
Width = 102
Height = 73
Caption = 'DO Level Width'
TabOrder = 2
object rdoPulse: TRadioButton
Left = 8
Top = 19
Width = 87
Height = 17
Caption = 'Counter Clock'
TabOrder = 0
end
object rdoLevel: TRadioButton
Left = 8
Top = 40
Width = 89
Height = 17
Caption = 'Clear Interrupt'
TabOrder = 1
end
end
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 285
Width = 241
Height = 76
Caption = 'Event Count'
TabOrder = 3
object Label2: TLabel
Left = 8
Top = 21
Width = 71
Height = 13
Caption = 'Over Compare:'
end
object Label3: TLabel
Left = 8
Top = 47
Width = 77
Height = 13
Caption = 'Under Compare:'
end
object editEvtCountOver: TEdit
Left = 96
Top = 16
Width = 89
Height = 21
TabStop = False
Color = clScrollBar
TabOrder = 0
Text = '0'
end
object editEvtCountUnder: TEdit
Left = 96
Top = 40
Width = 89
Height = 21
TabStop = False
Color = clScrollBar
TabOrder = 1
Text = '0'
end
end
object GroupBox4: TGroupBox
Left = 264
Top = 104
Width = 161
Height = 241
Caption = 'Compare Table'
TabOrder = 4
object Label4: TLabel
Left = 8
Top = 21
Width = 35
Height = 13
Caption = 'Data 0:'
end
object Label5: TLabel
Left = 8
Top = 44
Width = 35
Height = 13
Caption = 'Data 1:'
end
object Label6: TLabel
Left = 8
Top = 69
Width = 35
Height = 13
Caption = 'Data 2:'
end
object Label7: TLabel
Left = 8
Top = 94
Width = 35
Height = 13
Caption = 'Data 3:'
end
object Label8: TLabel
Left = 8
Top = 118
Width = 35
Height = 13
Caption = 'Data 4:'
end
object Label9: TLabel
Left = 8
Top = 143
Width = 35
Height = 13
Caption = 'Data 5:'
end
object Label10: TLabel
Left = 8
Top = 166
Width = 35
Height = 13
Caption = 'Data 6:'
end
object Label11: TLabel
Left = 8
Top = 190
Width = 35
Height = 13
Caption = 'Data 7:'
end
object editD0: TEdit
Left = 56
Top = 16
Width = 89
Height = 21
TabStop = False
TabOrder = 0
Text = '500'
end
object editD1: TEdit
Left = 56
Top = 40
Width = 89
Height = 21
TabStop = False
TabOrder = 1
Text = '1000'
end
object editD2: TEdit
Left = 56
Top = 64
Width = 89
Height = 21
TabStop = False
TabOrder = 2
Text = '1500'
end
object editD3: TEdit
Left = 56
Top = 88
Width = 89
Height = 21
TabStop = False
TabOrder = 3
Text = '2000'
end
object editD4: TEdit
Left = 56
Top = 112
Width = 89
Height = 21
TabStop = False
TabOrder = 4
Text = '2500'
end
object editD5: TEdit
Left = 56
Top = 136
Width = 89
Height = 21
TabStop = False
TabOrder = 5
Text = '3000'
end
object editD6: TEdit
Left = 56
Top = 160
Width = 89
Height = 21
TabStop = False
TabOrder = 6
Text = '3500'
end
object editD7: TEdit
Left = 56
Top = 184
Width = 89
Height = 21
TabStop = False
TabOrder = 7
Text = '4000'
end
object btnSetTable: TButton
Left = 42
Top = 211
Width = 105
Height = 24
Caption = 'Set Compare Table'
TabOrder = 8
TabStop = False
OnClick = btnSetTableClick
end
end
object btnStart: TButton
Left = 449
Top = 70
Width = 73
Height = 25
Caption = 'Start'
TabOrder = 5
OnClick = btnStartClick
end
object btnStop: TButton
Left = 449
Top = 100
Width = 73
Height = 25
Caption = 'Stop'
TabOrder = 6
OnClick = btnStopClick
end
object btnClose: TButton
Left = 449
Top = 178
Width = 73
Height = 25
Caption = 'Close'
TabOrder = 7
OnClick = btnCloseClick
end
object editCntrCount: TEdit
Left = 104
Top = 375
Width = 89
Height = 21
TabStop = False
Color = clScrollBar
TabOrder = 8
Text = '0'
end
object btnReset: TButton
Left = 448
Top = 148
Width = 73
Height = 25
Caption = 'Reset'
TabOrder = 9
OnClick = btnResetClick
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -