mainform.dfm

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

object Form1: TForm1
  Left = 399
  Top = 123
  Width = 313
  Height = 541
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'DIO_SOFT_PORTS'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Group_Device: TGroupBox
    Left = 8
    Top = 8
    Width = 289
    Height = 105
    Caption = 'Device Setting: '
    TabOrder = 0
    object Label1: TLabel
      Left = 14
      Top = 24
      Width = 40
      Height = 13
      Caption = 'Device: '
    end
    object Label2: TLabel
      Left = 15
      Top = 56
      Width = 78
      Height = 13
      Caption = 'DI  Ports Count: '
    end
    object Label3: TLabel
      Left = 14
      Top = 81
      Width = 80
      Height = 13
      Caption = 'DO Ports Count: '
      FocusControl = DIPortCount
    end
    object Combo_Device: TComboBox
      Left = 57
      Top = 21
      Width = 225
      Height = 21
      ItemHeight = 13
      TabOrder = 0
    end
    object DIPortCount: TEdit
      Left = 97
      Top = 52
      Width = 67
      Height = 21
      ParentColor = True
      ReadOnly = True
      TabOrder = 1
    end
    object DOPortCount: TEdit
      Left = 97
      Top = 78
      Width = 67
      Height = 21
      ParentColor = True
      ReadOnly = True
      TabOrder = 2
    end
    object BtnSelectDev: TButton
      Left = 192
      Top = 64
      Width = 81
      Height = 25
      Caption = 'Open Device'
      TabOrder = 3
      OnClick = BtnSelectDevClick
    end
  end
  object Group_Read: TGroupBox
    Left = 8
    Top = 120
    Width = 289
    Height = 121
    Caption = 'Read Ports: '
    TabOrder = 1
    object Label4: TLabel
      Left = 21
      Top = 24
      Width = 50
      Height = 13
      Caption = 'Start Port: '
    end
    object Label5: TLabel
      Left = 11
      Top = 52
      Width = 61
      Height = 13
      Caption = 'Ports Count: '
    end
    object Label6: TLabel
      Left = 28
      Top = 82
      Width = 43
      Height = 13
      Caption = 'DI Data: '
    end
    object Label7: TLabel
      Left = 264
      Top = 80
      Width = 19
      Height = 13
      Caption = 'Hex'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Lable8'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 77
      Top = 104
      Width = 180
      Height = 13
      Caption = 'Start ----------------------------> Start + Count'
    end
    object DIPort_Start: TEdit
      Left = 75
      Top = 21
      Width = 73
      Height = 21
      TabOrder = 0
      Text = '0'
    end
    object DIPort_Count: TEdit
      Left = 75
      Top = 49
      Width = 73
      Height = 21
      TabOrder = 1
      Text = '1'
    end
    object Btn_Read: TButton
      Left = 192
      Top = 32
      Width = 81
      Height = 25
      Caption = 'Read '
      Enabled = False
      TabOrder = 2
      OnClick = Btn_ReadClick
    end
    object DIData: TEdit
      Left = 75
      Top = 78
      Width = 181
      Height = 21
      ParentColor = True
      ReadOnly = True
      TabOrder = 3
    end
  end
  object Group_Write: TGroupBox
    Left = 8
    Top = 248
    Width = 289
    Height = 121
    Caption = 'Write Ports: '
    TabOrder = 2
    object Label10: TLabel
      Left = 8
      Top = 54
      Width = 61
      Height = 13
      Caption = 'Ports Count: '
    end
    object Label11: TLabel
      Left = 18
      Top = 30
      Width = 50
      Height = 13
      Caption = 'Start Port: '
    end
    object Label8: TLabel
      Left = 263
      Top = 84
      Width = 19
      Height = 13
      Caption = 'Hex'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Lable8'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 20
      Top = 85
      Width = 48
      Height = 13
      Caption = 'DO Data: '
    end
    object Label18: TLabel
      Left = 77
      Top = 104
      Width = 180
      Height = 13
      Caption = 'Start ----------------------------> Start + Count'
    end
    object BtnWrite: TButton
      Left = 192
      Top = 32
      Width = 81
      Height = 25
      Caption = 'Write'
      Enabled = False
      TabOrder = 0
      OnClick = BtnWriteClick
    end
    object DOData: TEdit
      Left = 75
      Top = 81
      Width = 181
      Height = 21
      Color = clBtnHighlight
      TabOrder = 1
      Text = 'aa'
    end
    object DOPort_Count: TEdit
      Left = 75
      Top = 51
      Width = 74
      Height = 21
      TabOrder = 2
      Text = '1'
    end
    object DOPort_Start: TEdit
      Left = 75
      Top = 22
      Width = 74
      Height = 21
      TabOrder = 3
      Text = '0'
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 379
    Width = 289
    Height = 118
    Caption = 'Ports State: '
    TabOrder = 3
    object Label12: TLabel
      Left = 8
      Top = 52
      Width = 61
      Height = 13
      Caption = 'Ports Count: '
    end
    object Label13: TLabel
      Left = 19
      Top = 28
      Width = 50
      Height = 13
      Caption = 'Start Port: '
    end
    object Label14: TLabel
      Left = 263
      Top = 82
      Width = 19
      Height = 13
      Caption = 'Hex'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Lable8'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 19
      Top = 83
      Width = 50
      Height = 13
      Caption = 'DO State: '
    end
    object Label17: TLabel
      Left = 77
      Top = 104
      Width = 180
      Height = 13
      Caption = 'Start ----------------------------> Start + Count'
    end
    object BtnGetDOState: TButton
      Left = 192
      Top = 30
      Width = 81
      Height = 25
      Caption = 'Get DO State'
      Enabled = False
      TabOrder = 0
      OnClick = BtnGetDOStateClick
    end
    object DOSData: TEdit
      Left = 75
      Top = 79
      Width = 181
      Height = 21
      ParentColor = True
      ReadOnly = True
      TabOrder = 1
    end
    object DOSPort_Count: TEdit
      Left = 75
      Top = 49
      Width = 74
      Height = 21
      TabOrder = 2
      Text = '1'
    end
    object DOSPort_Start: TEdit
      Left = 75
      Top = 20
      Width = 74
      Height = 21
      TabOrder = 3
      Text = '0'
    end
  end
end