object Sample1Form: TSample1Form Left = 42 Top = 472 Width = 449 Height = 346 Caption = 'Sample 1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object CardName: TLabel Left = 0 Top = 0 Width = 441 Height = 20 Hint = 'If a PCI DAC card was installed, this would show the product nam' + 'e.' 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.' 'Board Configuration Requirements:' 'RANGE: 5 Volt Range' 'POLARITY: Bipolar' '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 = 62 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 = 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 = 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 = 156 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 PortAOut: TPanel Left = 15 Top = 39 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 0 end object PortAIn: TPanel Left = 156 Top = 39 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 1 end object PortBIn: TPanel Left = 289 Top = 39 Width = 121 Height = 21 BevelOuter = bvLowered Caption = '0000000000000000' TabOrder = 2 end end object ErrorStatus: TStatusBar Left = 0 Top = 300 Width = 441 Height = 19 Panels = <> SimplePanel = False end object TestTimer: TTimer Enabled = False Interval = 100 OnTimer = TestTimerTimer Left = 344 Top = 8 end end