diginexform.dfm

来自「16 relay output channels and 16 isolated」· DFM 代码 · 共 283 行

object frmMain: TfrmMain
  Left = 267
  Top = 221
  BorderStyle = bsDialog
  Caption = 'Digpattn'
  ClientHeight = 307
  ClientWidth = 476
  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 grpDevName: TGroupBox
    Left = 0
    Top = 8
    Width = 473
    Height = 41
    Caption = 'Device Name'
    TabOrder = 0
    object labDeviceName: TLabel
      Left = 6
      Top = 14
      Width = 3
      Height = 13
    end
    object btnSelectDevice: TButton
      Left = 360
      Top = 10
      Width = 105
      Height = 25
      Caption = 'Select &Device'
      TabOrder = 0
      OnClick = btnSelectDeviceClick
    end
  end
  object grpEventType: TGroupBox
    Left = 1
    Top = 64
    Width = 345
    Height = 153
    Caption = 'EventType'
    TabOrder = 1
    object Label4: TLabel
      Left = 26
      Top = 96
      Width = 130
      Height = 13
      Caption = 'Counter Overflow Channel :'
    end
    object Label5: TLabel
      Left = 224
      Top = 74
      Width = 31
      Height = 13
      Caption = 'Count:'
    end
    object Label6: TLabel
      Left = 224
      Top = 98
      Width = 31
      Height = 13
      Caption = 'Count:'
    end
    object Label7: TLabel
      Left = 160
      Top = 122
      Width = 23
      Height = 13
      Caption = 'Ch #'
    end
    object Label8: TLabel
      Left = 248
      Top = 128
      Width = 31
      Height = 13
      Caption = 'Count:'
    end
    object chkFilter: TCheckBox
      Left = 8
      Top = 24
      Width = 97
      Height = 17
      Caption = '&Filter'
      TabOrder = 0
      OnClick = chkFilterClick
    end
    object chkPattern: TCheckBox
      Left = 8
      Top = 48
      Width = 129
      Height = 17
      Caption = '&Pattern Match Count:'
      TabOrder = 1
      OnClick = chkPatternClick
    end
    object chkCounter: TCheckBox
      Left = 8
      Top = 72
      Width = 153
      Height = 17
      Caption = '&Counter Match     Channel :'
      TabOrder = 2
      OnClick = chkCounterClick
    end
    object chkStatus: TCheckBox
      Left = 8
      Top = 122
      Width = 97
      Height = 17
      Caption = '&Status Change'
      TabOrder = 3
      OnClick = chkStatusClick
    end
    object labPatternMatchCount: TStaticText
      Left = 136
      Top = 48
      Width = 73
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 4
    end
    object labMatchChannel: TStaticText
      Left = 168
      Top = 72
      Width = 41
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 5
    end
    object labOverflowChannel: TStaticText
      Left = 167
      Top = 96
      Width = 42
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 6
    end
    object labMatchCount: TStaticText
      Left = 264
      Top = 73
      Width = 65
      Height = 16
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 7
    end
    object labOverflowCount: TStaticText
      Left = 264
      Top = 98
      Width = 65
      Height = 16
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 8
    end
    object labStatus: TStaticText
      Left = 105
      Top = 122
      Width = 49
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 9
    end
    object labChannelNo: TStaticText
      Left = 192
      Top = 122
      Width = 49
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 10
    end
    object labStatusCount: TStaticText
      Left = 288
      Top = 122
      Width = 41
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 11
    end
  end
  object GroupBox3: TGroupBox
    Left = 1
    Top = 237
    Width = 193
    Height = 49
    Caption = '&Port'
    TabOrder = 2
    object Label2: TLabel
      Left = 84
      Top = 19
      Width = 36
      Height = 13
      Caption = 'Value:  '
    end
    object txtChannelNo: TEdit
      Left = 8
      Top = 16
      Width = 57
      Height = 21
      TabOrder = 0
      Text = '0'
    end
    object labValue: TStaticText
      Left = 132
      Top = 18
      Width = 49
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
  end
  object btnStart: TButton
    Left = 392
    Top = 144
    Width = 65
    Height = 25
    Caption = 'Start'
    TabOrder = 3
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 392
    Top = 192
    Width = 65
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 4
    OnClick = btnStopClick
  end
  object btnExit: TButton
    Left = 390
    Top = 246
    Width = 73
    Height = 41
    Caption = '&Exit'
    TabOrder = 5
    OnClick = btnExitClick
  end
  object GroupBox4: TGroupBox
    Left = 208
    Top = 237
    Width = 137
    Height = 49
    Caption = 'Scan&Time'
    TabOrder = 6
    object Label3: TLabel
      Left = 72
      Top = 20
      Width = 15
      Height = 13
      Caption = 'mS'
    end
    object txtScanTime: TEdit
      Left = 8
      Top = 16
      Width = 57
      Height = 21
      TabOrder = 0
      Text = '1000'
    end
  end
  object ScanTimer: TTimer
    Enabled = False
    OnTimer = ScanTimerTimer
    Left = 384
    Top = 72
  end
end