PC World Komputer 1998 October A/Pcwk10a98.iso/Inprise/TRIAL/INTRBASE/DATA.Z/comdg32.exe/0/RCDATA/TCOMDIAG/TCOMDIAG.txt

Text File | 1998-03-15 | 9.0 KB | 391 lines

object Comdiag: TComdiag
  Left = 194
  Top = 109
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Communication Diagnostic Tool'
  ClientHeight = 435
  ClientWidth = 319
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 5
    Top = 4
    Width = 307
    Height = 397
    ActivePage = DBConnection
    TabOrder = 0
    OnChange = PageControl1Change
    object DBConnection: TTabSheet
      Caption = 'DB Connection'
      object DBResultslbl: TLabel
        Left = 10
        Top = 213
        Width = 38
        Height = 13
        Caption = 'Results:'
        FocusControl = DBResultsEdit
      end
      object DBResultsEdit: TMemo
        Left = 10
        Top = 229
        Width = 279
        Height = 132
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 2
        WordWrap = False
      end
      object LocationGrp: TGroupBox
        Left = 10
        Top = 6
        Width = 278
        Height = 92
        Caption = 'Location &Info'
        TabOrder = 0
        object ServerLbl: TLabel
          Left = 16
          Top = 41
          Width = 34
          Height = 13
          Caption = '&Server:'
          Enabled = False
          FocusControl = ServerEdit
        end
        object ProtocolLbl: TLabel
          Left = 169
          Top = 41
          Width = 85
          Height = 13
          Caption = '&Network Protocol:'
          Enabled = False
          FocusControl = ProtocolEdit
        end
        object LocalBtn: TRadioButton
          Left = 38
          Top = 20
          Width = 93
          Height = 17
          Caption = '&Local Engine'
          Checked = True
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 0
          TabStop = True
          OnClick = LocalBtnClick
        end
        object RemoteBtn: TRadioButton
          Left = 146
          Top = 20
          Width = 113
          Height = 17
          Caption = '&Remote Server'
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 1
          OnClick = RemoteBtnClick
        end
        object ServerEdit: TComboBox
          Left = 15
          Top = 58
          Width = 130
          Height = 21
          Enabled = False
          ItemHeight = 13
          TabOrder = 2
          OnChange = ServerEditChange
        end
        object ProtocolEdit: TComboBox
          Left = 168
          Top = 58
          Width = 96
          Height = 21
          Style = csDropDownList
          DropDownCount = 3
          Enabled = False
          ItemHeight = 13
          Items.Strings = (
            'NetBEUI'
            'Novell SPX'
            'TCP/IP')
          TabOrder = 3
          OnChange = EditChange
        end
      end
      object DatabaseGrp: TGroupBox
        Left = 10
        Top = 105
        Width = 278
        Height = 104
        Caption = 'D&atabase Info'
        TabOrder = 1
        object Databaselbl: TLabel
          Left = 18
          Top = 21
          Width = 49
          Height = 13
          Caption = '&Database:'
          FocusControl = DatabaseEdit
        end
        object Namelbl: TLabel
          Left = 18
          Top = 48
          Width = 56
          Height = 13
          Caption = '&User Name:'
          FocusControl = NameEdit
        end
        object Passwordlbl: TLabel
          Left = 18
          Top = 76
          Width = 49
          Height = 13
          Caption = '&Password:'
          FocusControl = PasswordEdit
        end
        object DatabaseEdit: TComboBox
          Left = 88
          Top = 18
          Width = 176
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          OnChange = EditChange
        end
        object NameEdit: TEdit
          Left = 88
          Top = 45
          Width = 96
          Height = 21
          CharCase = ecUpperCase
          TabOrder = 1
          OnChange = EditChange
        end
        object PasswordEdit: TEdit
          Left = 88
          Top = 72
          Width = 96
          Height = 21
          TabOrder = 2
          OnChange = EditChange
          OnKeyPress = PasswordEditKeyPress
        end
        object BrowseBtn: TButton
          Left = 198
          Top = 57
          Width = 69
          Height = 25
          Caption = '&Browse...'
          TabOrder = 3
          OnClick = BrowseBtnClick
        end
      end
    end
    object NetBEUI: TTabSheet
      Caption = 'NetBEUI'
      object BEUIResultslbl: TLabel
        Left = 10
        Top = 63
        Width = 38
        Height = 13
        Caption = 'Results:'
        FocusControl = NetBeuiResultsEdit
      end
      object NetBeuiResultsEdit: TMemo
        Left = 10
        Top = 79
        Width = 279
        Height = 282
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
      end
      object NTServerGrp: TGroupBox
        Left = 10
        Top = 6
        Width = 278
        Height = 52
        Caption = 'Server &Info'
        TabOrder = 0
        object NTServerlbl: TLabel
          Left = 32
          Top = 23
          Width = 83
          Height = 13
          Caption = '&NT Server Name:'
          FocusControl = NTServerEdit
        end
        object NTServerEdit: TComboBox
          Left = 121
          Top = 19
          Width = 131
          Height = 21
          ItemHeight = 0
          TabOrder = 0
          OnChange = EditChange
          OnDropDown = NTServerEditDropDown
        end
      end
    end
    object SPX: TTabSheet
      Caption = 'SPX'
      object SPXResultsLbl: TLabel
        Left = 10
        Top = 63
        Width = 38
        Height = 13
        Caption = 'Results:'
        FocusControl = SPXResultsEdit
      end
      object NovellServerGrp: TGroupBox
        Left = 10
        Top = 6
        Width = 278
        Height = 52
        Caption = 'Server &Info'
        TabOrder = 0
        object NovellServerlbl: TLabel
          Left = 25
          Top = 23
          Width = 98
          Height = 13
          Caption = '&Novell Server Name:'
        end
        object NovellServerEdit: TComboBox
          Left = 128
          Top = 19
          Width = 131
          Height = 21
          ItemHeight = 0
          TabOrder = 0
          OnChange = EditChange
        end
      end
      object SPXResultsEdit: TMemo
        Left = 10
        Top = 79
        Width = 279
        Height = 282
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
      end
    end
    object WinSock: TTabSheet
      Caption = 'WinSock'
      object WSResultslbl: TLabel
        Left = 10
        Top = 81
        Width = 38
        Height = 13
        Caption = 'Results:'
        FocusControl = WinSockResultsEdit
      end
      object WinSockResultsEdit: TMemo
        Left = 10
        Top = 97
        Width = 279
        Height = 264
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
      end
      object ServiceGrp: TGroupBox
        Left = 10
        Top = 6
        Width = 278
        Height = 69
        Caption = 'Service &Info'
        TabOrder = 0
        object Hostlbl: TLabel
          Left = 16
          Top = 18
          Width = 25
          Height = 13
          Caption = 'H&ost:'
          FocusControl = HostEdit
        end
        object Servicelbl: TLabel
          Left = 169
          Top = 17
          Width = 39
          Height = 13
          Caption = '&Service:'
          FocusControl = ServiceEdit
        end
        object HostEdit: TComboBox
          Left = 14
          Top = 35
          Width = 130
          Height = 21
          ItemHeight = 0
          TabOrder = 0
          OnChange = EditChange
          OnDropDown = HostEditDropDown
        end
        object ServiceEdit: TComboBox
          Left = 168
          Top = 35
          Width = 96
          Height = 21
          ItemHeight = 0
          TabOrder = 1
          OnChange = EditChange
          OnDropDown = ServiceEditDropDown
          OnKeyPress = EnterKeyPresse
        end
      end
    end
  end
  object TestBtn: TButton
    Left = 72
    Top = 406
    Width = 75
    Height = 25
    Caption = '&Test'
    Default = True
    Enabled = False
    TabOrder = 1
    OnClick = TestBtnClick
  end
  object ExitBtn: TButton
    Left = 155
    Top = 406
    Width = 75
    Height = 25
    Caption = 'E&xit'
    TabOrder = 2
    OnClick = ExitBtnClick
  end
  object HelpBtn: TButton
    Left = 239
    Top = 406
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 3
    OnClick = HelpBtnClick
  end
  object BrowseDlg: TOpenDialog
    DefaultExt = 'gdb'
    FileEditStyle = fsEdit
    Filter = 'Database File (*.gdb)|*.gdb|All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Browse Database'
    Left = 270
    Top = 4
  end
end