PC Expert 29/Pce29cd.iso/RUNIMAGE/DELPHI40/BIN/CORIDE40.BPL/0/RCDATA/TDEBUGINSPECTOR/TDEBUGINSPECTOR.txt

Text File | 1998-06-16 | 6KB | 249 lines

inherited DebugInspector: TDebugInspector
  Left = 196
  Top = 131
  Width = 264
  Height = 406
  BorderStyle = bsSizeToolWin
  BorderWidth = 1
  Caption = 'Debug Inspector'
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  PopupMenu = LocalPopupMenu
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 22
    Width = 254
    Height = 2
    Align = alTop
    Shape = bsSpacer
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 359
    Width = 254
    Height = 18
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = True
  end
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 254
    Height = 22
    Align = alTop
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWindow
    TabOrder = 1
    OnResize = TopPanelResize
    object InstanceLabel: TLabel
      Left = 0
      Top = 0
      Width = 233
      Height = 18
      Align = alClient
      AutoSize = False
      ParentColor = False
      ShowAccelChar = False
    end
    object InstanceList: TListButton
      Left = 233
      Top = 0
      Width = 17
      Height = 18
      Align = alRight
      AutoWidth = False
      DropAlign = daRight
      Glyph.Data = {
        62010000424D620100000000000042000000280000000C0000000C0000000100
        1000030000002001000000000000000000000000000000000000007C0000E003
        00001F0000001863186318631863186318631863186318631863186318631863
        1863186318631863186318631863186318631863186318631863186318631863
        1863186318631863186318631863186318631863186318631863186318631863
        1863186318631863186318631863186300001863186318631863186318631863
        1863186318630000000000001863186318631863186318631863186300000000
        0000000000001863186318631863186318630000000000000000000000000000
        1863186318631863186318631863186318631863186318631863186318631863
        1863186318631863186318631863186318631863186318631863186318631863
        1863186318631863186318631863186318631863186318631863186318631863
        186318631863}
      ItemIndex = -1
      ListWidth = 100
      MaxListWidth = 0
      MinListWidth = 0
      Sorted = True
      OnAccept = InstanceAccept
      OnCancel = InstanceCancel
      OnDropDown = InstanceDropDown
    end
  end
  object TabControl: TXTabControl
    Left = 0
    Top = 24
    Width = 254
    Height = 25
    Align = alTop
    HotTrack = True
    TabOrder = 2
    Tabs.Strings = (
      'Data'
      'Methods'
      'Properties')
    TabIndex = 0
    OnChange = TabControlClick
    OnChanging = TabControlChanging
    BorderStyle = bsNone
  end
  object Panel1: TPanel
    Left = 0
    Top = 49
    Width = 254
    Height = 310
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 3
    object PropertyPropList: TInspListBox
      Left = 1
      Top = 1
      Width = 252
      Height = 308
      Align = alClient
      CurIndex = -1
      Middle = 123
      ShowHint = True
      TabOrder = 0
      OnDblClick = EditDblClick
      OnEditDblClick = EditDblClick
      OnGetProperties = PropListGetProperties
      OnKeyDown = PropListKeyDown
      OnListButtonClick = PropListButtonClick
      OnNCHitTest = PropNCHitTest
      OnQueryButtonClick = PropQueryButtonClick
      OnSelectItem = SelectItemClick
      OnUpdateDirtyData = PropListUpdateDirtyData
    end
    object MethodPropList: TInspListBox
      Left = 1
      Top = 1
      Width = 252
      Height = 308
      Align = alClient
      CurIndex = -1
      Middle = 123
      ShowHint = True
      TabOrder = 1
      OnDblClick = EditDblClick
      OnEditDblClick = EditDblClick
      OnGetProperties = PropListGetProperties
      OnKeyDown = PropListKeyDown
      OnListButtonClick = PropListButtonClick
      OnNCHitTest = PropNCHitTest
      OnSelectItem = SelectItemClick
      OnUpdateDirtyData = PropListUpdateDirtyData
    end
    object DataPropList: TInspListBox
      Left = 1
      Top = 1
      Width = 252
      Height = 308
      Align = alClient
      CurIndex = -1
      Middle = 121
      ParentColor = False
      ShowHint = True
      TabOrder = 2
      OnDblClick = EditDblClick
      OnEditDblClick = EditDblClick
      OnGetProperties = PropListGetProperties
      OnKeyDown = PropListKeyDown
      OnListButtonClick = PropListButtonClick
      OnNCHitTest = PropNCHitTest
      OnSelectItem = SelectItemClick
      OnUpdateDirtyData = PropListUpdateDirtyData
    end
  end
  object LocalPopupMenu: TPopupMenu
    OnPopup = LocalPopupMenuPopup
    Left = 48
    Top = 150
    object RangeItem: TMenuItem
      Caption = '&Range...'
      HelpContext = 5450
      OnClick = RangeItemClick
    end
    object ChangeItem: TMenuItem
      Caption = '&Change...'
      HelpContext = 5451
      OnClick = ChangeItemClick
    end
    object ShowInheritedItem: TMenuItem
      Caption = '&Show Inherited'
      HelpContext = 5452
      OnClick = ShowInheritedItemClick
    end
    object ShowGetterPropsItem: TMenuItem
      Caption = '&Show Dynamic Properties'
      HelpContext = 5457
      Visible = False
      OnClick = ShowGetterPropsItemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object LocalInspectItem: TMenuItem
      Caption = '&Inspect'
      HelpContext = 5453
      OnClick = LocalInspectItemClick
    end
    object DescendItem: TMenuItem
      Caption = '&Descend'
      HelpContext = 5454
      OnClick = DescendItemClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object NewExpressionItem: TMenuItem
      Caption = '&New Expression...'
      HelpContext = 5455
      OnClick = NewExpressionItemClick
    end
    object TypeCastItem: TMenuItem
      Caption = '&Type Cast...'
      HelpContext = 5456
      OnClick = TypeCastItemClick
    end
    object LocalMenuItem: TMenuItem
      Caption = 'Local Menu'
      Visible = False
      OnClick = LocalMenuItemClick
    end
    object ZoomWindowItem: TMenuItem
      Caption = 'Zoom Window'
      Visible = False
      OnClick = ZoomWindowItemClick
    end
    object CloseWindowItem: TMenuItem
      Caption = 'Close Window'
      Visible = False
      OnClick = CloseWindowItemClick
    end
    object AltInspectItem: TMenuItem
      Caption = 'AltInspectItem'
      Visible = False
      OnClick = LocalInspectItemClick
    end
  end
end