mainform.dfm

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

object frmMain: TfrmMain
  Left = 340
  Top = 275
  Width = 363
  Height = 222
  Caption = 'Pulse Width Measurement'
  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 labDeviceName: TLabel
    Left = 24
    Top = 8
    Width = 281
    Height = 13
    AutoSize = False
    Caption = 'No Device'
  end
  object Label2: TLabel
    Left = 24
    Top = 176
    Width = 33
    Height = 13
    Caption = '0/Stop'
  end
  object Label6: TLabel
    Left = 200
    Top = 176
    Width = 70
    Height = 13
    Caption = '10 Times/Sec.'
  end
  object Label7: TLabel
    Left = 64
    Top = 40
    Width = 39
    Height = 13
    Caption = 'Channel'
  end
  object btnSelect: TButton
    Left = 248
    Top = 24
    Width = 97
    Height = 25
    Caption = 'Select Device'
    TabOrder = 0
    OnClick = btnSelectClick
  end
  object trbTime: TTrackBar
    Left = 24
    Top = 152
    Width = 217
    Height = 25
    Orientation = trHorizontal
    Frequency = 1
    Position = 1
    SelEnd = 0
    SelStart = 0
    TabOrder = 1
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = trbTimeChange
  end
  object btnStop: TButton
    Left = 263
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 2
    OnClick = btnStopClick
  end
  object btnStart: TButton
    Left = 263
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 3
    OnClick = btnStartClick
  end
  object btnExit: TButton
    Left = 263
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 4
    OnClick = btnExitClick
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 72
    Width = 217
    Height = 81
    Caption = 'Pulse Width'
    TabOrder = 5
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 64
      Height = 13
      Caption = 'High Period ='
    end
    object Label3: TLabel
      Left = 184
      Top = 24
      Width = 11
      Height = 13
      Caption = 'us'
    end
    object Label4: TLabel
      Left = 184
      Top = 56
      Width = 11
      Height = 13
      Caption = 'us'
    end
    object Label5: TLabel
      Left = 24
      Top = 56
      Width = 62
      Height = 13
      Caption = 'Low Period ='
    end
    object edtHigh: TStaticText
      Left = 96
      Top = 16
      Width = 81
      Height = 25
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object edtLow: TStaticText
      Left = 96
      Top = 48
      Width = 81
      Height = 25
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object cmbChannel: TComboBox
    Left = 120
    Top = 40
    Width = 57
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 6
  end
  object ScanTimer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = ScanTimerTimer
    Left = 16
    Top = 32
  end
end