object Form1: TForm1 Left = 420 Top = 300 Width = 633 Height = 428 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object RateLabel: TLabel Left = 336 Top = 192 Width = 281 Height = 17 Alignment = taCenter AutoSize = False Caption = 'Delay: 1sec' end object HeaderLabel: TLabel Left = 328 Top = 8 Width = 289 Height = 33 Alignment = taCenter AutoSize = False Caption = 'Analogue Input Demo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 328 Top = 146 Width = 65 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Card:' Layout = tlCenter end object ChannelCheckF: TCheckBox Left = 8 Top = 368 Width = 97 Height = 17 TabOrder = 0 OnClick = ChannelCheckClick end object NameEditF: TEdit Left = 104 Top = 368 Width = 121 Height = 21 TabOrder = 1 end object RangeComboF: TComboBox Left = 232 Top = 368 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheckE: TCheckBox Left = 8 Top = 344 Width = 97 Height = 17 TabOrder = 3 OnClick = ChannelCheckClick end object NameEditE: TEdit Left = 104 Top = 344 Width = 121 Height = 21 TabOrder = 4 end object RangeComboE: TComboBox Left = 232 Top = 344 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 5 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheckD: TCheckBox Left = 8 Top = 320 Width = 97 Height = 17 TabOrder = 6 OnClick = ChannelCheckClick end object NameEditD: TEdit Left = 104 Top = 320 Width = 121 Height = 21 TabOrder = 7 end object RangeComboD: TComboBox Left = 232 Top = 320 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 8 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheckC: TCheckBox Left = 8 Top = 296 Width = 97 Height = 17 TabOrder = 9 OnClick = ChannelCheckClick end object NameEditC: TEdit Left = 104 Top = 296 Width = 121 Height = 21 TabOrder = 10 end object RangeComboC: TComboBox Left = 232 Top = 296 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 11 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheckB: TCheckBox Left = 8 Top = 272 Width = 97 Height = 17 TabOrder = 12 OnClick = ChannelCheckClick end object NameEditB: TEdit Left = 104 Top = 272 Width = 121 Height = 21 TabOrder = 13 end object RangeComboB: TComboBox Left = 232 Top = 272 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 14 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheckA: TCheckBox Left = 8 Top = 248 Width = 97 Height = 17 TabOrder = 15 OnClick = ChannelCheckClick end object NameEditA: TEdit Left = 104 Top = 248 Width = 121 Height = 21 TabOrder = 16 end object RangeComboA: TComboBox Left = 232 Top = 248 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 17 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck9: TCheckBox Left = 8 Top = 224 Width = 97 Height = 17 TabOrder = 18 OnClick = ChannelCheckClick end object NameEdit9: TEdit Left = 104 Top = 224 Width = 121 Height = 21 TabOrder = 19 end object RangeCombo9: TComboBox Left = 232 Top = 224 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 20 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck8: TCheckBox Left = 8 Top = 200 Width = 97 Height = 17 TabOrder = 21 OnClick = ChannelCheckClick end object NameEdit8: TEdit Left = 104 Top = 200 Width = 121 Height = 21 TabOrder = 22 end object RangeCombo8: TComboBox Left = 232 Top = 200 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 23 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck7: TCheckBox Left = 8 Top = 176 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 24 OnClick = ChannelCheckClick end object NameEdit7: TEdit Left = 104 Top = 176 Width = 121 Height = 21 TabOrder = 25 end object RangeCombo7: TComboBox Left = 232 Top = 176 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 26 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck6: TCheckBox Left = 8 Top = 152 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 27 OnClick = ChannelCheckClick end object NameEdit6: TEdit Left = 104 Top = 152 Width = 121 Height = 21 TabOrder = 28 end object RangeCombo6: TComboBox Left = 232 Top = 152 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 29 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck5: TCheckBox Left = 8 Top = 128 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 30 OnClick = ChannelCheckClick end object NameEdit5: TEdit Left = 104 Top = 128 Width = 121 Height = 21 TabOrder = 31 end object RangeCombo5: TComboBox Left = 232 Top = 128 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 32 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck4: TCheckBox Left = 8 Top = 104 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 33 OnClick = ChannelCheckClick end object NameEdit4: TEdit Left = 104 Top = 104 Width = 121 Height = 21 TabOrder = 34 end object RangeCombo4: TComboBox Left = 232 Top = 104 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 35 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck3: TCheckBox Left = 8 Top = 80 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 36 OnClick = ChannelCheckClick end object NameEdit3: TEdit Left = 104 Top = 80 Width = 121 Height = 21 TabOrder = 37 end object RangeCombo3: TComboBox Left = 232 Top = 80 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 38 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck2: TCheckBox Left = 8 Top = 56 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 39 OnClick = ChannelCheckClick end object NameEdit2: TEdit Left = 104 Top = 56 Width = 121 Height = 21 TabOrder = 40 end object RangeCombo2: TComboBox Left = 232 Top = 56 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 41 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck1: TCheckBox Left = 8 Top = 32 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 42 OnClick = ChannelCheckClick end object NameEdit1: TEdit Left = 104 Top = 32 Width = 121 Height = 21 TabOrder = 43 end object RangeCombo1: TComboBox Left = 232 Top = 32 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 44 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object ChannelCheck0: TCheckBox Left = 8 Top = 8 Width = 97 Height = 17 Checked = True State = cbChecked TabOrder = 45 OnClick = ChannelCheckClick end object NameEdit0: TEdit Left = 104 Top = 8 Width = 121 Height = 21 TabOrder = 46 end object RangeCombo0: TComboBox Left = 232 Top = 8 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 47 Items.Strings = ( '±10v' '±5v' '±2.5v' '±1.25v' '0-10v' '0-5v' '1.25-3.75v' '4-20mA') end object RateScroll: TScrollBar Left = 336 Top = 208 Width = 281 Height = 16 LargeChange = 10 Max = 600 Min = 1 PageSize = 0 Position = 1 TabOrder = 48 OnChange = RateScrollChange end object CardCombo: TComboBox Left = 400 Top = 144 Width = 137 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 49 OnChange = CardComboChange end object LogCheck: TCheckBox Left = 336 Top = 264 Width = 281 Height = 17 Caption = 'Log To File' TabOrder = 50 OnClick = LogCheckClick end object StartButton: TButton Left = 432 Top = 328 Width = 81 Height = 25 Caption = '&Start' Enabled = False TabOrder = 51 OnClick = StartButtonClick end object ExitButton: TButton Left = 536 Top = 328 Width = 81 Height = 25 Caption = ' E&xit Program' TabOrder = 52 OnClick = ExitButtonClick end object SaveEm: TSaveDialog DefaultExt = 'csv' Filter = 'Comma Delimited Text (*.csv)|*.csv|All Files (*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing] Title = 'Log To...' Left = 592 Top = 264 end object AcqTime: TTimer Tag = 10 Enabled = False Interval = 75 OnTimer = AcqTimeTimer Left = 352 Top = 88 end end