home *** CD-ROM | disk | FTP | other *** search
- object CarrierInfoWindow: TCarrierInfoWindow
- Left = 194
- Top = 148
- BorderStyle = bsDialog
- Caption = 'Carrier Test Info'
- ClientHeight = 219
- ClientWidth = 470
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnActivate = SetupWindow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 16
- Width = 153
- Height = 121
- end
- object Bevel2: TBevel
- Left = 8
- Top = 152
- Width = 153
- Height = 33
- Shape = bsFrame
- Style = bsRaised
- end
- object Bevel3: TBevel
- Left = 168
- Top = 16
- Width = 193
- Height = 169
- end
- object TestSelector: TRadioGroup
- Left = 16
- Top = 24
- Width = 137
- Height = 105
- Caption = 'Test Modes'
- TabOrder = 1
- end
- object DoCarrier: TRadioButton
- Left = 24
- Top = 48
- Width = 113
- Height = 17
- Caption = 'Burst ASCII Pattern'
- TabOrder = 2
- OnClick = ExplainAscii
- end
- object DoTest1: TRadioButton
- Left = 24
- Top = 72
- Width = 113
- Height = 17
- Caption = 'Data Test Pattern'
- TabOrder = 3
- OnClick = Test1Clicked
- end
- object DoTest2: TRadioButton
- Left = 24
- Top = 96
- Width = 113
- Height = 17
- Caption = 'Alt Data Patter Test'
- TabOrder = 4
- OnClick = Test2Clicked
- end
- object DisplayWindow: TMemo
- Left = 176
- Top = 24
- Width = 177
- Height = 153
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Lines.Strings = (
- '')
- ParentFont = False
- ReadOnly = True
- TabOrder = 5
- OnClick = SetOkFocus
- end
- object OkButton: TBitBtn
- Left = 376
- Top = 32
- Width = 75
- Height = 33
- TabOrder = 0
- Kind = bkOK
- end
- object CancelButton: TBitBtn
- Left = 376
- Top = 80
- Width = 75
- Height = 33
- TabOrder = 6
- Kind = bkCancel
- end
- object HelpButton: TBitBtn
- Left = 376
- Top = 128
- Width = 75
- Height = 33
- TabOrder = 7
- OnClick = HelpInfo
- Kind = bkHelp
- end
- object Memo2: TMemo
- Left = 16
- Top = 160
- Width = 129
- Height = 17
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Lines.Strings = (
- 'Select a Test, Press OK')
- ReadOnly = True
- TabOrder = 8
- OnClick = SetOkFocus
- end
- end
-