home *** CD-ROM | disk | FTP | other *** search
- object UartStatus: TUartStatus
- Left = 202
- Top = 107
- BorderStyle = bsDialog
- Caption = 'Uart / Driver Status Display'
- ClientHeight = 380
- ClientWidth = 582
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = SetupWindow
- OnClick = DFocus
- OnClose = CleanUp
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 16
- Top = 48
- Width = 185
- Height = 41
- end
- object DsrLedOn: TImage
- Left = 160
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object DtrLedOn: TImage
- Left = 120
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object CtsLedOn: TImage
- Left = 80
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- object RtsLedOn: TImage
- Left = 40
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image003.bmp>}
- Visible = False
- end
- object RtsLedOff: TImage
- Left = 40
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image004.bmp>}
- end
- object CtsLedOff: TImage
- Left = 80
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image005.bmp>}
- end
- object DtrLedOff: TImage
- Left = 120
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image006.bmp>}
- end
- object DsrLedOff: TImage
- Left = 160
- Top = 56
- Width = 20
- Height = 20
- Picture.Data = {<image007.bmp>}
- end
- object Bevel2: TBevel
- Left = 16
- Top = 136
- Width = 185
- Height = 41
- end
- object DDSRLedOn: TImage
- Left = 160
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image008.bmp>}
- Visible = False
- end
- object DCTSLedOn: TImage
- Left = 120
- Top = 144
- Width = 20
- Height = 25
- Picture.Data = {<image009.bmp>}
- Visible = False
- end
- object RiLedOn: TImage
- Left = 80
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image010.bmp>}
- Visible = False
- end
- object RlsLedOn: TImage
- Left = 40
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image011.bmp>}
- Visible = False
- end
- object RlsLedOff: TImage
- Left = 40
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image012.bmp>}
- end
- object RiLedOff: TImage
- Left = 80
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image013.bmp>}
- end
- object DCTSLedOff: TImage
- Left = 120
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image014.bmp>}
- end
- object DDSRLedOff: TImage
- Left = 160
- Top = 144
- Width = 20
- Height = 20
- Picture.Data = {<image015.bmp>}
- end
- object Bevel3: TBevel
- Left = 16
- Top = 224
- Width = 185
- Height = 41
- end
- object BINLedOn: TImage
- Left = 160
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image016.bmp>}
- Visible = False
- end
- object PENLedOn: TImage
- Left = 120
- Top = 232
- Width = 20
- Height = 25
- Picture.Data = {<image017.bmp>}
- Visible = False
- end
- object EPSLedOn: TImage
- Left = 80
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image018.bmp>}
- Visible = False
- end
- object StpLedOn: TImage
- Left = 40
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image019.bmp>}
- Visible = False
- end
- object StpLedOff: TImage
- Left = 40
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image020.bmp>}
- end
- object EPSLedOff: TImage
- Left = 80
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image021.bmp>}
- end
- object PENLedOff: TImage
- Left = 120
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image022.bmp>}
- end
- object BINLedOff: TImage
- Left = 160
- Top = 232
- Width = 20
- Height = 20
- Picture.Data = {<image023.bmp>}
- end
- object Bevel4: TBevel
- Left = 16
- Top = 312
- Width = 185
- Height = 41
- end
- object DRLedOn: TImage
- Left = 164
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image024.bmp>}
- Visible = False
- end
- object OELedOn: TImage
- Left = 136
- Top = 320
- Width = 20
- Height = 25
- Picture.Data = {<image025.bmp>}
- Visible = False
- end
- object FELedOn: TImage
- Left = 82
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image026.bmp>}
- Visible = False
- end
- object TXELedOn: TImage
- Left = 28
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image027.bmp>}
- Visible = False
- end
- object TXELedOff: TImage
- Left = 28
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image028.bmp>}
- end
- object FELedOff: TImage
- Left = 82
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image029.bmp>}
- end
- object OELedOff: TImage
- Left = 136
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image030.bmp>}
- end
- object DRLedOff: TImage
- Left = 164
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image031.bmp>}
- end
- object BILedOn: TImage
- Left = 56
- Top = 320
- Width = 18
- Height = 20
- Picture.Data = {<image032.bmp>}
- Visible = False
- end
- object BILedOff: TImage
- Left = 54
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image033.bmp>}
- end
- object PELedOn: TImage
- Left = 108
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image034.bmp>}
- Visible = False
- end
- object PELedOff: TImage
- Left = 108
- Top = 320
- Width = 20
- Height = 20
- Picture.Data = {<image035.bmp>}
- end
- object Bevel5: TBevel
- Left = 464
- Top = 16
- Width = 3
- Height = 169
- end
- object Bevel6: TBevel
- Left = 208
- Top = 48
- Width = 249
- Height = 113
- end
- object OkButton: TBitBtn
- Left = 480
- Top = 40
- Width = 75
- Height = 41
- TabOrder = 0
- Visible = False
- Kind = bkOK
- end
- object Panel1: TPanel
- Left = 16
- Top = 24
- Width = 185
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvRaised
- BevelOuter = bvNone
- Caption = ' RTS CTS DTR DSR'
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 1
- end
- object Panel2: TPanel
- Left = 16
- Top = 112
- Width = 185
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvRaised
- BevelOuter = bvNone
- Caption = ' RLS RI DCTS DDSR'
- TabOrder = 2
- end
- object Panel3: TPanel
- Left = 16
- Top = 200
- Width = 185
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvRaised
- BevelOuter = bvNone
- Caption = ' STP EPS PEN BIN'
- TabOrder = 3
- end
- object Panel4: TPanel
- Left = 16
- Top = 288
- Width = 185
- Height = 25
- Alignment = taLeftJustify
- BevelInner = bvRaised
- BevelOuter = bvNone
- Caption = ' TXE BI FE PE OE DR'
- TabOrder = 4
- end
- object HelpButton: TBitBtn
- Left = 480
- Top = 96
- Width = 75
- Height = 41
- TabOrder = 5
- OnClick = HelpClicked
- Kind = bkHelp
- end
- object SRegButton: TButton
- Left = 472
- Top = 152
- Width = 105
- Height = 25
- Caption = 'Show S Registers'
- TabOrder = 6
- Visible = False
- OnClick = ShowSregs
- end
- object StaticLineStat: TMemo
- Left = 24
- Top = 272
- Width = 169
- Height = 15
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Lines.Strings = (
- 'Line Status')
- TabOrder = 7
- OnClick = SpeedFocus
- end
- object StaticLineControl: TMemo
- Left = 24
- Top = 184
- Width = 169
- Height = 15
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Lines.Strings = (
- 'Line Control Settings')
- TabOrder = 8
- OnClick = SpeedFocus
- end
- object StaticModemStatus: TMemo
- Left = 24
- Top = 96
- Width = 169
- Height = 15
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Lines.Strings = (
- 'Modem Signal Status')
- TabOrder = 9
- OnClick = SpeedFocus
- end
- object StaticModemControl: TMemo
- Left = 24
- Top = 8
- Width = 169
- Height = 15
- Alignment = taCenter
- BorderStyle = bsNone
- Color = clBtnFace
- Lines.Strings = (
- 'Modem Flow Control/Status')
- TabOrder = 10
- OnClick = SpeedFocus
- end
- object DialogInfo: TMemo
- Left = 216
- Top = 200
- Width = 249
- Height = 137
- Alignment = taCenter
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 11
- OnClick = SpeedFocus
- end
- object StaticDriver: TMemo
- Left = 216
- Top = 64
- Width = 97
- Height = 73
- BorderStyle = bsNone
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Lines.Strings = (
- 'Maximum Baud'
- 'Packet Length'
- 'Packet Version'
- 'Provider Type'
- 'Uart Type')
- ParentFont = False
- ReadOnly = True
- TabOrder = 12
- OnClick = SpeedFocus
- end
- object ErrorButton: TButton
- Left = 480
- Top = 232
- Width = 67
- Height = 65
- Caption = 'More Errors'
- TabOrder = 13
- Visible = False
- OnClick = ErrorClickCtl
- end
- object DriverInfo: TMemo
- Left = 320
- Top = 64
- Width = 129
- Height = 81
- BorderStyle = bsNone
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ReadOnly = True
- TabOrder = 14
- OnClick = SpeedFocus
- end
- object Panel5: TPanel
- Left = 208
- Top = 24
- Width = 249
- Height = 25
- Caption = 'Driver Info'
- TabOrder = 15
- end
- object StartTimer: TTimer
- Enabled = False
- Interval = 100
- OnTimer = StartIt
- Left = 208
- Top = 344
- end
- end
-