home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Bin / CORIDE50.BPL / 0 / RCDATA / TMODULESVIEW / TMODULESVIEW.txt
Text File  |  1999-08-11  |  5KB  |  229 lines

  1. inherited ModulesView: TModulesView
  2.   Left = 197
  3.   Top = 130
  4.   Width = 638
  5.   Height = 355
  6.   Caption = 'Modules'
  7.   PopupMenu = MainPopupMenu
  8.   PixelsPerInch = 96
  9.   TextHeight = 13
  10.   object Splitter1: TSplitter [0]
  11.     Left = 402
  12.     Top = 0
  13.     Width = 3
  14.     Height = 328
  15.     Cursor = crHSplit
  16.     Align = alRight
  17.     ResizeStyle = rsUpdate
  18.   end
  19.   object EPPanel: TPanel [1]
  20.     Left = 405
  21.     Top = 0
  22.     Width = 225
  23.     Height = 328
  24.     Align = alRight
  25.     BevelOuter = bvNone
  26.     FullRepaint = False
  27.     TabOrder = 1
  28.     object EntryPointListView: TListView
  29.       Left = 0
  30.       Top = 0
  31.       Width = 225
  32.       Height = 328
  33.       Align = alClient
  34.       Columns = <
  35.         item
  36.           Caption = 'Entry Point'
  37.           Width = 120
  38.         end
  39.         item
  40.           Caption = 'Address'
  41.           Width = 85
  42.         end>
  43.       HotTrackStyles = []
  44.       MultiSelect = True
  45.       OwnerData = True
  46.       ReadOnly = True
  47.       RowSelect = True
  48.       PopupMenu = EPPopupMenu
  49.       TabOrder = 0
  50.       ViewStyle = vsReport
  51.       OnColumnClick = EntryPointListViewColumnClick
  52.       OnData = EntryPointListViewData
  53.       OnDblClick = GotoEntryPointitemClick
  54.     end
  55.   end
  56.   object LeftPanel: TPanel [2]
  57.     Left = 0
  58.     Top = 0
  59.     Width = 402
  60.     Height = 328
  61.     Align = alClient
  62.     BevelOuter = bvNone
  63.     TabOrder = 0
  64.     object Splitter2: TSplitter
  65.       Left = 0
  66.       Top = 221
  67.       Width = 402
  68.       Height = 3
  69.       Cursor = crVSplit
  70.       Align = alBottom
  71.       ResizeStyle = rsUpdate
  72.     end
  73.     object CUPanel: TPanel
  74.       Left = 0
  75.       Top = 224
  76.       Width = 402
  77.       Height = 104
  78.       Align = alBottom
  79.       BevelOuter = bvNone
  80.       TabOrder = 0
  81.       object CompUnitTree: TTreeView
  82.         Left = 0
  83.         Top = 0
  84.         Width = 402
  85.         Height = 104
  86.         Align = alClient
  87.         ChangeDelay = 1000
  88.         Indent = 19
  89.         PopupMenu = SourcePopupMenu
  90.         ReadOnly = True
  91.         SortType = stText
  92.         TabOrder = 0
  93.         OnDblClick = EditSourceItemClick
  94.       end
  95.     end
  96.     object ModPanel: TPanel
  97.       Left = 0
  98.       Top = 0
  99.       Width = 402
  100.       Height = 221
  101.       Align = alClient
  102.       BevelOuter = bvNone
  103.       TabOrder = 1
  104.       object ModuleView: TListView
  105.         Left = 0
  106.         Top = 0
  107.         Width = 402
  108.         Height = 221
  109.         Align = alClient
  110.         Columns = <
  111.           item
  112.             Caption = 'Name'
  113.             Width = 125
  114.           end
  115.           item
  116.             Caption = 'Base Address'
  117.             Width = 100
  118.           end
  119.           item
  120.             Caption = 'Path'
  121.             Width = 155
  122.           end>
  123.         ColumnClick = False
  124.         HideSelection = False
  125.         HotTrackStyles = []
  126.         LargeImages = EnvironmentOptions.LargeGutterImages
  127.         MultiSelect = True
  128.         ReadOnly = True
  129.         RowSelect = True
  130.         PopupMenu = ModViewPopupMenu
  131.         SmallImages = EnvironmentOptions.SmallGutterImages
  132.         TabOrder = 0
  133.         ViewStyle = vsReport
  134.         OnMouseDown = ModuleViewMouseDown
  135.         OnSelectItem = ModuleViewSelectItem
  136.       end
  137.     end
  138.   end
  139.   object SourcePopupMenu: TPopupMenu
  140.     HelpContext = 4765
  141.     OnPopup = SourcePopupMenuPopup
  142.     Left = 25
  143.     Top = 240
  144.     object ViewSourceItem: TMenuItem
  145.       Caption = '&View Source'
  146.       OnClick = ViewSourceItemClick
  147.     end
  148.     object EditSourceItem: TMenuItem
  149.       Caption = 'Edit &Source'
  150.       OnClick = EditSourceItemClick
  151.     end
  152.     object AltEditSourceItem: TMenuItem
  153.       Caption = 'AltEditSource'
  154.       Visible = False
  155.       OnClick = EditSourceItemClick
  156.     end
  157.   end
  158.   object EPPopupMenu: TPopupMenu
  159.     HelpContext = 4770
  160.     OnPopup = EPPopupMenuPopup
  161.     Left = 422
  162.     Top = 24
  163.     object GotoEntryPointitem: TMenuItem
  164.       Caption = '&Go to Entry Point'
  165.       OnClick = GotoEntryPointitemClick
  166.     end
  167.   end
  168.   object ModViewPopupMenu: TPopupMenu
  169.     HelpContext = 4760
  170.     OnPopup = ModViewPopupMenuPopup
  171.     Left = 25
  172.     Top = 73
  173.     object BreakonLoadItem: TMenuItem
  174.       Caption = '&Break On Load'
  175.       OnClick = BreakonLoadItemClick
  176.     end
  177.     object ReloadSymbolsItem: TMenuItem
  178.       Caption = '&Reload Symbol Table...'
  179.       OnClick = ReloadSymbolsItemClick
  180.     end
  181.     object N1: TMenuItem
  182.       Caption = '-'
  183.     end
  184.     object AddModuleItem: TMenuItem
  185.       Caption = '&Add Module...'
  186.       OnClick = AddModuleItemClick
  187.     end
  188.     object N01: TMenuItem
  189.       Caption = '-'
  190.     end
  191.     object DockableItem: TMenuItem
  192.       Action = DockableCmd
  193.     end
  194.   end
  195.   object MainPopupMenu: TPopupMenu
  196.     Left = 25
  197.     Top = 113
  198.     object LocalMenuItem: TMenuItem
  199.       Caption = 'Local Menu'
  200.       Visible = False
  201.       OnClick = LocalMenuItemClick
  202.     end
  203.     object ZoomWindowItem: TMenuItem
  204.       Action = ZoomWindowCmd
  205.     end
  206.     object CloseWindowItem: TMenuItem
  207.       Caption = 'Close Window'
  208.       Visible = False
  209.       OnClick = CloseWindowItemClick
  210.     end
  211.     object DownPaneItem: TMenuItem
  212.       Caption = 'Down Pane'
  213.       OnClick = DownPaneItemClick
  214.     end
  215.     object UpPaneItem: TMenuItem
  216.       Caption = 'Up Pane'
  217.       OnClick = UpPaneItemClick
  218.     end
  219.     object LeftPaneItem: TMenuItem
  220.       Caption = 'Left Pane'
  221.       OnClick = LeftPaneItemClick
  222.     end
  223.     object RightPaneItem: TMenuItem
  224.       Caption = 'Right Pane'
  225.       OnClick = RightPaneItemClick
  226.     end
  227.   end
  228. end
  229.