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

Text File | 1998-06-16 | 4KB | 186 lines

inherited ModulesView: TModulesView
  Left = 197
  Top = 130
  Width = 596
  Height = 356
  Caption = 'Modules'
  PopupMenu = MainPopupMenu
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 385
    Top = 0
    Width = 3
    Height = 329
    Cursor = crHSplit
    Align = alRight
    Beveled = False
    ResizeStyle = rsUpdate
  end
  object EPPanel: TPanel [1]
    Left = 388
    Top = 0
    Width = 200
    Height = 329
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object EntryPointListView: TListBox
      Left = 0
      Top = 0
      Width = 200
      Height = 329
      Align = alClient
      ItemHeight = 13
      PopupMenu = EPPopupMenu
      TabOrder = 0
      OnDblClick = GotoEntryPoint1Click
    end
  end
  object LeftPanel: TPanel [2]
    Left = 0
    Top = 0
    Width = 385
    Height = 329
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 0
      Top = 222
      Width = 385
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Beveled = False
      ResizeStyle = rsUpdate
    end
    object CUPanel: TPanel
      Left = 0
      Top = 225
      Width = 385
      Height = 104
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object CompUnitTree: TTreeView
        Left = 0
        Top = 0
        Width = 385
        Height = 104
        Align = alClient
        ChangeDelay = 1000
        Indent = 19
        PopupMenu = SourcePopupMenu
        ReadOnly = True
        SortType = stText
        TabOrder = 0
        OnDblClick = EditSource1Click
      end
    end
    object ModPanel: TPanel
      Left = 0
      Top = 0
      Width = 385
      Height = 222
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object ModuleView: TListView
        Left = 0
        Top = 0
        Width = 385
        Height = 222
        Align = alClient
        ColumnClick = False
        Columns = <
          item
            Caption = 'Name'
            Width = 125
          end
          item
            Caption = 'Base Address'
            Width = 100
          end
          item
            Caption = 'Path'
            Width = 155
          end>
        HideSelection = False
        HotTrackStyles = []
        LargeImages = EnvironmentOptions.LargeGutterImages
        ReadOnly = True
        RowSelect = True
        PopupMenu = ModViewPopupMenu
        SmallImages = EnvironmentOptions.SmallGutterImages
        TabOrder = 0
        ViewStyle = vsReport
        OnMouseDown = ModuleViewMouseDown
        OnSelectItem = ModuleViewSelectItem
      end
    end
  end
  object SourcePopupMenu: TPopupMenu
    HelpContext = 4765
    OnPopup = SourcePopupMenuPopup
    Left = 25
    Top = 240
    object ViewSource1: TMenuItem
      Caption = '&View Source'
      ShortCut = 16470
      OnClick = ViewSource1Click
    end
    object EditSource1: TMenuItem
      Caption = 'Edit &Source'
      ShortCut = 16467
      OnClick = EditSource1Click
    end
  end
  object EPPopupMenu: TPopupMenu
    HelpContext = 4770
    OnPopup = EPPopupMenuPopup
    Left = 398
    Top = 16
    object GotoEntryPoint1: TMenuItem
      Caption = '&Go to Entry Point'
      OnClick = GotoEntryPoint1Click
    end
  end
  object ModViewPopupMenu: TPopupMenu
    HelpContext = 4760
    OnPopup = ModViewPopupMenuPopup
    Left = 25
    Top = 73
    object BreakonLoad1: TMenuItem
      Caption = '&Break On Load'
      OnClick = BreakonLoad1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object AddModule1: TMenuItem
      Caption = '&Add Module...'
      OnClick = AddModule1Click
    end
    object N01: TMenuItem
      Caption = '-'
    end
    object DockableItem: TMenuItem
      Action = DockableCmd
    end
  end
  object MainPopupMenu: TPopupMenu
    Left = 25
    Top = 113
    object LocalMenuItem: TMenuItem
      Caption = 'Local Menu'
      Visible = False
      OnClick = LocalMenuItemClick
    end
    object ZoomWindowItem: TMenuItem
      Caption = 'Zoom Window'
      OnClick = ZoomWindowItemClick
    end
  end
end