object Sample1Form: TSample1Form Left = 226 Top = 121 AutoScroll = False Caption = 'Sample 1' ClientHeight = 350 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 = 'IDI-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 0' 'This sample reads each of the IDI-48'#39's input ports'#39' 16 input cha' + 'nnels and displays on/off ' 'status of those channels.' '' 'Select your device from the device list below. If you have an IS' + 'A version, enter the ' 'BASE address in the box provided.') ReadOnly = True TabOrder = 0 end object ExitButton: TButton Left = 325 Top = 282 Width = 98 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 = 2 OnClick = ExitButtonClick end object ISAPanel: TGroupBox Left = 20 Top = 263 Width = 153 Height = 52 Hint = 'Set the Base Address of the ISA board you want to use this sampl' + 'e with, in Hexadecimal.' Caption = 'Base Address for ISA Card' TabOrder = 3 object HexLabel: TLabel Left = 6 Top = 28 Width = 68 Height = 13 Caption = 'Base Address:' end object BaseEdit: TEdit Left = 80 Top = 24 Width = 57 Height = 21 TabOrder = 0 Text = '300' end end object TestButton: TButton Left = 195 Top = 282 Width = 98 Height = 25 Caption = 'Start Test' TabOrder = 1 OnClick = TestButtonClick end object ChannelBox: TGroupBox Left = 8 Top = 144 Width = 425 Height = 65 Caption = 'Output' TabOrder = 4 object Label2: TLabel Left = 15 Top = 18 Width = 121 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Port 0' end object Label3: TLabel Left = 156 Top = 18 Width = 121 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Port 1' end object Label4: TLabel Left = 289 Top = 18 Width = 121 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Port 2' end object Port0Text: TPanel Left = 15 Top = 33 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 0 end object Port1Text: TPanel Left = 156 Top = 33 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 1 end object Port2Text: TPanel Left = 289 Top = 33 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 2 end end object deviceList: TComboBox Left = 120 Top = 224 Width = 217 Height = 21 ItemHeight = 13 TabOrder = 5 Text = 'deviceList' OnChange = deviceListChange end object TestTimer: TTimer Enabled = False Interval = 100 OnTimer = TestTimerTimer Left = 336 end end