unit1.dfm

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

object Form1: TForm1
  Left = 231
  Top = 132
  Width = 464
  Height = 373
  Caption = 'Advantech Drvier Demo: Counter Interrupt for PCI-1784'
  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 GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 425
    Height = 49
    Caption = 'Select Device'
    TabOrder = 0
    object editSelDev: TEdit
      Left = 8
      Top = 16
      Width = 305
      Height = 21
      TabStop = False
      TabOrder = 0
    end
    object btnSelDev: TButton
      Left = 328
      Top = 16
      Width = 81
      Height = 25
      Caption = 'Select Device'
      TabOrder = 1
      TabStop = False
      OnClick = btnSelDevClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 63
    Width = 193
    Height = 114
    Caption = 'Interrupt'
    TabOrder = 1
    object Label6: TLabel
      Left = 8
      Top = 79
      Width = 71
      Height = 13
      Caption = 'Compare Data:'
    end
    object Label1: TLabel
      Left = 8
      Top = 17
      Width = 40
      Height = 13
      Caption = 'Counter:'
    end
    object Label7: TLabel
      Left = 9
      Top = 49
      Width = 42
      Height = 13
      Caption = 'Interrupt:'
    end
    object cmbCounter: TComboBox
      Left = 88
      Top = 16
      Width = 89
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      TabStop = False
      Text = 'Counter 0'
      Items.Strings = (
        'Counter 0'
        'Counter 1'
        'Counter 2'
        'Counter 3')
    end
    object editCompData: TEdit
      Left = 88
      Top = 79
      Width = 89
      Height = 21
      TabStop = False
      TabOrder = 1
      Text = '500'
    end
    object cmbInt: TComboBox
      Left = 88
      Top = 48
      Width = 89
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      TabStop = False
      Text = 'Overflow'
      Items.Strings = (
        'Overflow'
        'Underflow'
        'Index'
        'OverCompare'
        'UnderCompare'
        'DI0'
        'DI1'
        'DI2'
        'DI3'
        'Timer')
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 183
    Width = 193
    Height = 146
    Caption = 'Scan Range'
    TabOrder = 2
    object GroupBox4: TGroupBox
      Left = 8
      Top = 12
      Width = 177
      Height = 63
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 13
        Width = 44
        Height = 13
        Caption = 'Start Port'
      end
      object Label3: TLabel
        Left = 8
        Top = 34
        Width = 50
        Height = 13
        Caption = 'Port Count'
      end
      object editStartPort: TEdit
        Left = 78
        Top = 8
        Width = 82
        Height = 21
        TabStop = False
        TabOrder = 0
        Text = '0'
      end
      object editPortCount: TEdit
        Left = 78
        Top = 32
        Width = 82
        Height = 21
        TabStop = False
        TabOrder = 1
        Text = '1'
      end
    end
    object GroupBox5: TGroupBox
      Left = 8
      Top = 75
      Width = 177
      Height = 64
      TabOrder = 1
      object Label4: TLabel
        Left = 8
        Top = 11
        Width = 62
        Height = 13
        Caption = 'Start Counter'
      end
      object Label5: TLabel
        Left = 8
        Top = 34
        Width = 68
        Height = 13
        Caption = 'Counter Count'
      end
      object editStartCnt: TEdit
        Left = 80
        Top = 8
        Width = 81
        Height = 21
        TabStop = False
        TabOrder = 0
        Text = '0'
      end
      object editCntrCount: TEdit
        Left = 80
        Top = 32
        Width = 81
        Height = 21
        TabStop = False
        TabOrder = 1
        Text = '1'
      end
    end
  end
  object GroupBox6: TGroupBox
    Left = 216
    Top = 64
    Width = 217
    Height = 241
    Caption = 'Scan Data'
    TabOrder = 3
    object btnStart: TButton
      Left = 40
      Top = 208
      Width = 73
      Height = 25
      Caption = 'Start'
      TabOrder = 0
      OnClick = btnStartClick
    end
    object btnStop: TButton
      Left = 136
      Top = 208
      Width = 73
      Height = 25
      Caption = 'Stop'
      TabOrder = 1
      OnClick = btnStopClick
    end
    object lsvDI: TListView
      Left = 8
      Top = 112
      Width = 201
      Height = 89
      Columns = <
        item
          Caption = 'Port'
          Width = 80
        end
        item
          Caption = 'Status'
          Width = 115
        end>
      TabOrder = 2
      TabStop = False
      ViewStyle = vsReport
    end
    object lsvCounter: TListView
      Left = 8
      Top = 16
      Width = 201
      Height = 89
      Columns = <
        item
          Caption = 'Counter'
          Width = 80
        end
        item
          Caption = 'Status'
          Width = 115
        end>
      TabOrder = 3
      TabStop = False
      ViewStyle = vsReport
    end
  end
  object btnClose: TButton
    Left = 352
    Top = 312
    Width = 81
    Height = 25
    Caption = 'Close'
    TabOrder = 4
    OnClick = btnCloseClick
  end
end