home *** CD-ROM | disk | FTP | other *** search
- inherited PasModExpForm: TPasModExpForm
- Left = 204
- Top = 162
- Width = 140
- Height = 305
- HelpContext = 1395
- HorzScrollBar.Increment = 13
- VertScrollBar.Increment = 25
- ActiveControl = Explorer
- BorderIcons = [biSystemMenu]
- Caption = 'Module Explorer'
- PixelsPerInch = 96
- TextHeight = 13
- object Explorer: TTreeControl [0]
- Left = 0
- Top = 0
- Width = 132
- Height = 278
- HorzScrollBar.Increment = 16
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- Color = clWindow
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnExit = ExplorerExit
- Images = ExplorerItemImages
- ReadOnly = False
- PostOnEndEdit = False
- ShowFocus = True
- DragSubfocus = True
- SnapOrigin = True
- HorzSnap = False
- DoubleBuffer = True
- EditInPlace = True
- AutoEdit = False
- BatchMode = False
- ShowRoot = False
- ShowRootLines = True
- ExpandByDefault = True
- Style = tvsPluses
- Alignment = [aLeft, aMiddle]
- ItemMargins.Left = 2
- ItemMargins.Top = 2
- ItemMargins.Right = 2
- ItemMargins.Bottom = 1
- LeftMargin = 2
- TopMargin = 0
- BoxWidth = 9
- BoxHeight = 9
- VertGap = 0
- Indent = 19
- ItemOffset = 14
- MultiSelect = False
- OnKeyPressed = ExplorerKeyPressed
- OnActionPerformed = ExplorerActionPerformed
- OnSubfocusChanged = ExplorerSubfocusChanged
- EnableDropFiles = False
- end
- inherited DockActionList: TActionList
- Left = 72
- end
- inherited ExplorerItemImages: TImageList
- Left = 18
- end
- object ActionList1: TActionList [3]
- Left = 10
- Top = 42
- object NewAction: TAction
- Caption = '&New'
- ShortCut = 45
- OnExecute = NewActionExecute
- OnUpdate = NewActionUpdate
- end
- object RenameAction: TAction
- Caption = '&Rename'
- ShortCut = 16466
- OnExecute = RenameActionExecute
- OnUpdate = RenameActionUpdate
- end
- object PropertiesAction: TAction
- Caption = 'Properties'
- OnExecute = PropertiesActionExecute
- end
- end
- inherited LocalMenu: TPopupMenu
- object N1: TMenuItem [0]
- Action = NewAction
- end
- object N3: TMenuItem [1]
- Action = RenameAction
- end
- object N4: TMenuItem [2]
- Caption = '-'
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object Properties1: TMenuItem
- Action = PropertiesAction
- end
- object SearchAgainItem: TMenuItem
- Caption = 'Search again'
- Visible = False
- OnClick = SearchAgainItemClick
- end
- object LocalMenuItem: TMenuItem
- Caption = 'Local Menu'
- Visible = False
- OnClick = LocalMenuItemClick
- end
- end
- end
-