object Sample1Form: TSample1Form Left = 434 Top = 320 AutoScroll = False Caption = 'Sample 1' ClientHeight = 381 ClientWidth = 441 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object CardName: TLabel Left = 0 Top = 0 Width = 441 Height = 20 Align = alTop Alignment = taCenter Caption = 'IDO-48' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Memo1: TMemo Left = 8 Top = 24 Width = 425 Height = 113 TabStop = False Color = clBtnFace Lines.Strings = ( 'Sample 1:' 'This program will perform a walking bit on each of the IDO-48'#39's ' + 'ports.' 'For PCI cards select the card from a drop down list. For ISA car' + 'ds select the ISA option' 'from the drop down box and enter the Base Address in hex for the' + ' card.') ReadOnly = True TabOrder = 0 end object ExitButton: TButton Left = 324 Top = 320 Width = 97 Height = 25 Hint = 'Click here to exit this program. The DACs will remain at their ' + 'current output values after the program closes.' Caption = 'E&xit Program' TabOrder = 1 OnClick = ExitButtonClick end object ISAPanel: TGroupBox Left = 20 Top = 299 Width = 125 Height = 58 Hint = 'Set the Base Address of the ISA board you want to use this sampl' + 'e with, in Hexadecimal.' Caption = 'Base Address for Card' TabOrder = 2 object HexLabel: TLabel Left = 16 Top = 28 Width = 22 Height = 13 Caption = 'Hex:' end object BaseEdit: TEdit Left = 44 Top = 24 Width = 58 Height = 21 TabOrder = 0 Text = '300' end end object TestButton: TButton Left = 196 Top = 320 Width = 97 Height = 25 Caption = 'Start Test' TabOrder = 3 OnClick = TestButtonClick end object ChannelBox: TGroupBox Left = 8 Top = 144 Width = 425 Height = 81 Caption = 'Output' TabOrder = 4 object Label2: TLabel Left = 15 Top = 24 Width = 121 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Port 0' end object Label3: TLabel Left = 152 Top = 24 Width = 121 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Port 1' end object Label4: TLabel Left = 289 Top = 24 Width = 121 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Port 2' end object Port0Text: TPanel Left = 15 Top = 39 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 0 end object Port1Text: TPanel Left = 152 Top = 39 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 1 end object Port2Text: TPanel Left = 289 Top = 39 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 2 end end object deviceList: TComboBox Left = 80 Top = 240 Width = 297 Height = 21 ItemHeight = 13 TabOrder = 5 Text = 'deviceList' OnChange = deviceListChange end object TestTimer: TTimer Enabled = False Interval = 500 OnTimer = TestTimerTimer Left = 336 end end