home *** CD-ROM | disk | FTP | other *** search
- object frmDebug: TfrmDebug
- Left = 274
- Top = 170
- Width = 606
- Height = 359
- Caption = 'Communications Diagnostics Extra Information'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object GroupBox1: TGroupBox
- Left = 0
- Top = 288
- Width = 598
- Height = 44
- Align = alBottom
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 0
- object btnInitDLL: TButton
- Left = 10
- Top = 14
- Width = 73
- Height = 22
- Caption = 'Init DLL'
- TabOrder = 0
- OnClick = btnInitDLLClick
- end
- object btnSave: TButton
- Left = 96
- Top = 14
- Width = 75
- Height = 22
- Caption = 'Save'
- TabOrder = 1
- OnClick = btnSaveClick
- end
- object btnCreateSampBtr: TButton
- Left = 182
- Top = 14
- Width = 81
- Height = 22
- Caption = 'Sample.BTR'
- TabOrder = 2
- OnClick = btnCreateSampBtrClick
- end
- end
- object tnDebugTabs: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 598
- Height = 288
- Align = alClient
- PageIndex = 3
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- TabsPerRow = 4
- TabFont.Color = clBtnText
- TabFont.Height = -11
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 1
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'Comm Testing'
- object memDebugCommTesting: TMemo
- Left = 0
- Top = 0
- Width = 588
- Height = 257
- Align = alClient
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- Lines.Strings = (
- 'memDebugCommTesting')
- ParentCtl3D = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'Btrieve API'
- object memDebugBtrApi: TMemo
- Left = 0
- Top = 0
- Width = 588
- Height = 257
- Align = alClient
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- Lines.Strings = (
- 'memDebugBtrApi')
- ParentCtl3D = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'SSQL API'
- object memDebugSqlApi: TMemo
- Left = 0
- Top = 0
- Width = 588
- Height = 257
- Align = alClient
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- Lines.Strings = (
- 'memDebugSqlApi')
- ParentCtl3D = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'Debug Progress'
- object memDebugProgress: TMemo
- Left = 0
- Top = 0
- Width = 588
- Height = 257
- Align = alClient
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = True
- Lines.Strings = (
- 'memDebugSqlApi')
- ParentCtl3D = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- object dlgSave: TSaveDialog
- FileName = 'CMDIAGDB.TXT'
- Filter = 'Text Files|*.TXT|All Files|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
- Title = 'Save Diagnostics Report'
- Left = 409
- Top = 300
- end
- end
-