object Sample1Form: TSample1Form Left = 192 Top = 121 Width = 449 Height = 331 Caption = 'Sample 1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -10 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 0' 'This sample writes to each of the IDO-48'#39's input ports'#39' 16 input' + ' channels and displays ' 'on/off status of what it writes to those channels.' '' '' 'Please enter the base address (in hex) in the text box below, an' + 'd click the '#39'Start Test'#39' ' 'button to begin.' '') ReadOnly = True TabOrder = 0 end object ExitButton: TButton Left = 324 Top = 256 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 = 235 Width = 153 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 ISA Card' TabOrder = 2 object HexLabel: TLabel Left = 32 Top = 28 Width = 22 Height = 13 Caption = 'Hex:' end object BaseEdit: TEdit Left = 60 Top = 24 Width = 58 Height = 21 TabOrder = 0 Text = '300' end end object TestButton: TButton Left = 196 Top = 256 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 TestTimer: TTimer Enabled = False Interval = 100 OnTimer = TestTimerTimer Left = 336 end end