counterform.dfm

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

object Form1: TForm1
  Left = 304
  Top = 9
  BorderStyle = bsDialog
  Caption = 'Counter-1780'
  ClientHeight = 443
  ClientWidth = 385
  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 grpDeviceSelection: TGroupBox
    Left = 8
    Top = 16
    Width = 369
    Height = 41
    Caption = 'Device Name'
    TabOrder = 0
    object labDeviceName: TLabel
      Left = 8
      Top = 13
      Width = 193
      Height = 25
      AutoSize = False
    end
    object btnDeviceSelect: TButton
      Left = 216
      Top = 11
      Width = 123
      Height = 25
      Caption = 'Select Device'
      TabOrder = 0
      OnClick = btnDeviceSelectClick
    end
  end
  object grpChannel: TGroupBox
    Left = 8
    Top = 72
    Width = 89
    Height = 49
    Caption = 'Channel'
    TabOrder = 1
    object cmbChannel: TComboBox
      Left = 8
      Top = 16
      Width = 65
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7')
    end
  end
  object grpCntMode: TGroupBox
    Left = 8
    Top = 144
    Width = 89
    Height = 49
    Caption = 'CntMode'
    TabOrder = 2
    object cmbCntMode: TComboBox
      Left = 8
      Top = 16
      Width = 65
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      OnChange = cmbCntModeChange
      Items.Strings = (
        'A'
        'B'
        'C'
        'D'
        'E'
        'F'
        'G'
        'H'
        'I'
        'J'
        'K'
        'L'
        'O'
        'R'
        'U'
        'X')
    end
  end
  object grpCntSrc: TGroupBox
    Left = 8
    Top = 216
    Width = 89
    Height = 49
    Caption = 'Count Source'
    TabOrder = 3
    object cmbCntSrc: TComboBox
      Left = 8
      Top = 16
      Width = 65
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        'OUT N-1'
        'CLK N'
        'CLK N-1'
        'FOUT0'
        'FOUT1'
        'FOUT2'
        'FOUT3'
        'GATE N-1')
    end
  end
  object grpIniVal: TGroupBox
    Left = 8
    Top = 272
    Width = 89
    Height = 49
    Caption = 'Initial Value'
    TabOrder = 4
    object txtIniVal: TEdit
      Left = 8
      Top = 16
      Width = 65
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
    end
  end
  object rdgCountEdg: TRadioGroup
    Left = 120
    Top = 72
    Width = 81
    Height = 49
    Caption = 'Count Edge'
    Items.Strings = (
      'Rising'
      'Falling')
    TabOrder = 5
  end
  object rdgCntDir: TRadioGroup
    Left = 120
    Top = 144
    Width = 81
    Height = 49
    Caption = 'Cnt Direction'
    Items.Strings = (
      'Up'
      'Down')
    TabOrder = 6
  end
  object rdgOPCrtl: TRadioGroup
    Left = 120
    Top = 216
    Width = 81
    Height = 49
    Caption = 'Output Control'
    Items.Strings = (
      'Enable'
      'Disable')
    TabOrder = 7
    OnClick = rdgOPCrtlClick
  end
  object grpGateMode: TGroupBox
    Left = 224
    Top = 72
    Width = 129
    Height = 153
    Caption = 'Gate Mode'
    TabOrder = 8
    object grpGateSrc: TGroupBox
      Left = 8
      Top = 16
      Width = 105
      Height = 41
      Caption = 'Gate Source'
      TabOrder = 0
      object cmbGateSrc: TComboBox
        Left = 16
        Top = 16
        Width = 73
        Height = 21
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          'OUT N-1'
          'GATE N'
          'GATE N-1')
      end
    end
    object rdgGatePl: TRadioGroup
      Left = 8
      Top = 64
      Width = 105
      Height = 81
      Caption = 'Gate Polarity'
      Items.Strings = (
        'High Level '
        'Low Level ')
      TabOrder = 1
    end
  end
  object rdgTCInt: TRadioGroup
    Left = 224
    Top = 232
    Width = 129
    Height = 33
    Caption = 'TC Interrupt Enable'
    Columns = 2
    Items.Strings = (
      'Enable '
      'Disable')
    TabOrder = 9
  end
  object grpOutputMode: TGroupBox
    Left = 120
    Top = 280
    Width = 233
    Height = 41
    Caption = 'Output Mode'
    TabOrder = 10
    object cmbOutputMode: TComboBox
      Left = 16
      Top = 15
      Width = 193
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        'ACTIVE HIGH PULSE'
        'ACTIVE LOW PULSE'
        'TC TPGGLED FROM LOW'
        'TC TOGGLED FROM HIGH')
    end
  end
  object stResult: TStaticText
    Left = 8
    Top = 336
    Width = 241
    Height = 41
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    BorderStyle = sbsSunken
    Color = clDefault
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 11
  end
  object btnStart: TButton
    Left = 272
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 12
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 272
    Top = 360
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 13
    OnClick = btnStopClick
  end
  object MemoCTRead: TMemo
    Left = 8
    Top = 384
    Width = 249
    Height = 49
    BorderStyle = bsNone
    Color = clInactiveCaptionText
    Enabled = False
    ImeMode = imClose
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    Lines.Strings = (
      'Note: The Mode G H I J K L U X  cannot show the '
      'counter value (Always 0shown). These modes can '
      'only be checked by the TC output or TC interrupt.')
    ReadOnly = True
    TabOrder = 14
  end
  object ReadTimer: TTimer
    Enabled = False
    OnTimer = ReadTimerTimer
    Left = 352
    Top = 56
  end
end