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
Wrap
Text File
|
1999-08-11
|
5KB
|
229 lines
inherited ModulesView: TModulesView
Left = 197
Top = 130
Width = 638
Height = 355
Caption = 'Modules'
PopupMenu = MainPopupMenu
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter [0]
Left = 402
Top = 0
Width = 3
Height = 328
Cursor = crHSplit
Align = alRight
ResizeStyle = rsUpdate
end
object EPPanel: TPanel [1]
Left = 405
Top = 0
Width = 225
Height = 328
Align = alRight
BevelOuter = bvNone
FullRepaint = False
TabOrder = 1
object EntryPointListView: TListView
Left = 0
Top = 0
Width = 225
Height = 328
Align = alClient
Columns = <
item
Caption = 'Entry Point'
Width = 120
end
item
Caption = 'Address'
Width = 85
end>
HotTrackStyles = []
MultiSelect = True
OwnerData = True
ReadOnly = True
RowSelect = True
PopupMenu = EPPopupMenu
TabOrder = 0
ViewStyle = vsReport
OnColumnClick = EntryPointListViewColumnClick
OnData = EntryPointListViewData
OnDblClick = GotoEntryPointitemClick
end
end
object LeftPanel: TPanel [2]
Left = 0
Top = 0
Width = 402
Height = 328
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Splitter2: TSplitter
Left = 0
Top = 221
Width = 402
Height = 3
Cursor = crVSplit
Align = alBottom
ResizeStyle = rsUpdate
end
object CUPanel: TPanel
Left = 0
Top = 224
Width = 402
Height = 104
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object CompUnitTree: TTreeView
Left = 0
Top = 0
Width = 402
Height = 104
Align = alClient
ChangeDelay = 1000
Indent = 19
PopupMenu = SourcePopupMenu
ReadOnly = True
SortType = stText
TabOrder = 0
OnDblClick = EditSourceItemClick
end
end
object ModPanel: TPanel
Left = 0
Top = 0
Width = 402
Height = 221
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object ModuleView: TListView
Left = 0
Top = 0
Width = 402
Height = 221
Align = alClient
Columns = <
item
Caption = 'Name'
Width = 125
end
item
Caption = 'Base Address'
Width = 100
end
item
Caption = 'Path'
Width = 155
end>
ColumnClick = False
HideSelection = False
HotTrackStyles = []
LargeImages = EnvironmentOptions.LargeGutterImages
MultiSelect = True
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 ViewSourceItem: TMenuItem
Caption = '&View Source'
OnClick = ViewSourceItemClick
end
object EditSourceItem: TMenuItem
Caption = 'Edit &Source'
OnClick = EditSourceItemClick
end
object AltEditSourceItem: TMenuItem
Caption = 'AltEditSource'
Visible = False
OnClick = EditSourceItemClick
end
end
object EPPopupMenu: TPopupMenu
HelpContext = 4770
OnPopup = EPPopupMenuPopup
Left = 422
Top = 24
object GotoEntryPointitem: TMenuItem
Caption = '&Go to Entry Point'
OnClick = GotoEntryPointitemClick
end
end
object ModViewPopupMenu: TPopupMenu
HelpContext = 4760
OnPopup = ModViewPopupMenuPopup
Left = 25
Top = 73
object BreakonLoadItem: TMenuItem
Caption = '&Break On Load'
OnClick = BreakonLoadItemClick
end
object ReloadSymbolsItem: TMenuItem
Caption = '&Reload Symbol Table...'
OnClick = ReloadSymbolsItemClick
end
object N1: TMenuItem
Caption = '-'
end
object AddModuleItem: TMenuItem
Caption = '&Add Module...'
OnClick = AddModuleItemClick
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
Action = ZoomWindowCmd
end
object CloseWindowItem: TMenuItem
Caption = 'Close Window'
Visible = False
OnClick = CloseWindowItemClick
end
object DownPaneItem: TMenuItem
Caption = 'Down Pane'
OnClick = DownPaneItemClick
end
object UpPaneItem: TMenuItem
Caption = 'Up Pane'
OnClick = UpPaneItemClick
end
object LeftPaneItem: TMenuItem
Caption = 'Left Pane'
OnClick = LeftPaneItemClick
end
object RightPaneItem: TMenuItem
Caption = 'Right Pane'
OnClick = RightPaneItemClick
end
end
end