home *** CD-ROM | disk | FTP | other *** search
- object RtsDtr: TRtsDtr
- Left = 201
- Top = 156
- BorderStyle = bsDialog
- Caption = 'Static Echo Tests'
- ClientHeight = 273
- ClientWidth = 552
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = SetupWindow
- OnClose = Cleanup
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 24
- Top = 56
- Width = 185
- Height = 41
- end
- object DtrLedOn: TImage
- Left = 88
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object RtsLedOn: TImage
- Left = 48
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object RtsLedOff: TImage
- Left = 48
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image002.bmp>}
- end
- object DtrLedOff: TImage
- Left = 88
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image003.bmp>}
- end
- object DDSRLedOn: TImage
- Left = 168
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image004.bmp>}
- Visible = False
- end
- object DCTSLedOn: TImage
- Left = 128
- Top = 64
- Width = 20
- Height = 25
- Picture.Data = {<image005.bmp>}
- Visible = False
- end
- object DCTSLedOff: TImage
- Left = 128
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image006.bmp>}
- end
- object DDSRLedOff: TImage
- Left = 168
- Top = 64
- Width = 20
- Height = 20
- Picture.Data = {<image007.bmp>}
- end
- object Bevel2: TBevel
- Left = 240
- Top = 112
- Width = 209
- Height = 113
- end
- object Bevel3: TBevel
- Left = 240
- Top = 32
- Width = 209
- Height = 65
- end
- object RadioGroup1: TRadioGroup
- Left = 256
- Top = 128
- Width = 81
- Height = 73
- Caption = 'Modes'
- TabOrder = 7
- end
- object Panel1: TPanel
- Left = 24
- Top = 32
- Width = 185
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvRaised
- BevelOuter = bvNone
- Caption = ' RTS DTR DCTS DDSR'
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 0
- end
- object StaticModemControl: TMemo
- Left = 32
- Top = 16
- Width = 169
- Height = 15
- Alignment = taCenter
- Color = clBtnFace
- Ctl3D = False
- Lines.Strings = (
- 'Modem Flow Control/Status')
- ParentCtl3D = False
- TabOrder = 1
- OnClick = SpeedFocus
- end
- object DialogWindow: TMemo
- Left = 8
- Top = 112
- Width = 217
- Height = 113
- Alignment = taCenter
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 2
- OnClick = SpeedFocus
- end
- object TestStatic: TMemo
- Left = 264
- Top = 16
- Width = 169
- Height = 15
- Alignment = taCenter
- Color = clBtnFace
- Ctl3D = False
- Lines.Strings = (
- 'Testing Controls')
- ParentCtl3D = False
- TabOrder = 3
- OnClick = SpeedFocus
- end
- object InfoWindow: TMemo
- Left = 256
- Top = 42
- Width = 177
- Height = 45
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- TabOrder = 4
- OnClick = SpeedFocus
- end
- object AutoMode: TRadioButton
- Left = 264
- Top = 144
- Width = 57
- Height = 17
- Caption = 'Auto'
- TabOrder = 5
- OnClick = AutoClicked
- end
- object ManualMode: TRadioButton
- Left = 264
- Top = 168
- Width = 65
- Height = 17
- Caption = 'Manual'
- TabOrder = 6
- OnClick = ManualClicked
- end
- object RtsTest: TButton
- Left = 352
- Top = 128
- Width = 75
- Height = 33
- Caption = 'RTS Echo'
- TabOrder = 8
- OnClick = RtsPressed
- end
- object DtrTest: TButton
- Left = 352
- Top = 168
- Width = 75
- Height = 33
- Caption = 'DTR Echo'
- TabOrder = 9
- OnClick = Dtrpressed
- end
- object OkButton: TBitBtn
- Left = 464
- Top = 80
- Width = 75
- Height = 33
- Caption = 'Done'
- TabOrder = 10
- Kind = bkOK
- end
- object HelpButton: TBitBtn
- Left = 464
- Top = 128
- Width = 75
- Height = 33
- TabOrder = 11
- OnClick = HelpClicked
- Kind = bkHelp
- end
- object STARTIT: TTimer
- Enabled = False
- OnTimer = StartTimer
- Left = 280
- Top = 240
- end
- object PAUSE: TTimer
- Enabled = False
- Interval = 100
- OnTimer = PauseTimer
- Left = 320
- Top = 240
- end
- end
-