1object ProjectInspectorForm: TProjectInspectorForm 2 Left = 564 3 Height = 485 4 Top = 166 5 Width = 463 6 ActiveControl = ItemsTreeView 7 AllowDropFiles = True 8 BorderIcons = [biSystemMenu] 9 Caption = 'ProjectInspectorForm' 10 ClientHeight = 485 11 ClientWidth = 463 12 OnActivate = FormActivate 13 OnCreate = FormCreate 14 OnDeactivate = FormDeactivate 15 OnDestroy = FormDestroy 16 OnDropFiles = FormDropFiles 17 LCLVersion = '2.1.0.0' 18 object ItemsTreeView: TTreeView 19 Left = 0 20 Height = 261 21 Top = 78 22 Width = 463 23 Align = alClient 24 Anchors = [akTop, akLeft, akBottom] 25 BorderSpacing.Top = 2 26 DragMode = dmAutomatic 27 MultiSelect = True 28 PopupMenu = ItemsPopupMenu 29 ReadOnly = True 30 RightClickSelect = True 31 TabOrder = 0 32 OnAdvancedCustomDrawItem = ItemsTreeViewAdvancedCustomDrawItem 33 OnDblClick = ItemsTreeViewDblClick 34 OnDragDrop = ItemsTreeViewDragDrop 35 OnDragOver = ItemsTreeViewDragOver 36 OnKeyDown = ItemsTreeViewKeyDown 37 Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] 38 end 39 object FilterPanel: TPanel 40 Left = 0 41 Height = 28 42 Top = 48 43 Width = 463 44 Align = alTop 45 BevelOuter = bvNone 46 ClientHeight = 28 47 ClientWidth = 463 48 TabOrder = 1 49 object OpenButton: TSpeedButton 50 AnchorSideLeft.Control = FilterPanel 51 AnchorSideTop.Control = FilterPanel 52 AnchorSideTop.Side = asrCenter 53 Left = 2 54 Height = 25 55 Top = 2 56 Width = 25 57 Align = alLeft 58 AllowAllUp = True 59 AutoSize = True 60 BorderSpacing.Around = 2 61 Constraints.MinHeight = 25 62 Constraints.MinWidth = 25 63 OnClick = OpenButtonClick 64 ShowHint = True 65 ParentShowHint = False 66 end 67 object DirectoryHierarchyButton: TSpeedButton 68 AnchorSideLeft.Control = OpenButton 69 AnchorSideLeft.Side = asrBottom 70 AnchorSideTop.Control = OpenButton 71 AnchorSideTop.Side = asrCenter 72 Left = 40 73 Height = 25 74 Top = 2 75 Width = 25 76 AllowAllUp = True 77 AutoSize = True 78 BorderSpacing.Left = 11 79 BorderSpacing.Around = 2 80 Constraints.MinHeight = 25 81 Constraints.MinWidth = 25 82 GroupIndex = 1 83 OnClick = DirectoryHierarchyButtonClick 84 ShowHint = True 85 ParentShowHint = False 86 end 87 object SortAlphabeticallyButton: TSpeedButton 88 AnchorSideLeft.Control = DirectoryHierarchyButton 89 AnchorSideLeft.Side = asrBottom 90 AnchorSideTop.Control = OpenButton 91 AnchorSideTop.Side = asrCenter 92 Left = 67 93 Height = 25 94 Top = 2 95 Width = 25 96 AllowAllUp = True 97 AutoSize = True 98 BorderSpacing.Around = 2 99 Constraints.MinHeight = 25 100 Constraints.MinWidth = 25 101 GroupIndex = 2 102 OnClick = SortAlphabeticallyButtonClick 103 ShowHint = True 104 ParentShowHint = False 105 end 106 object FilterEdit: TTreeFilterEdit 107 AnchorSideLeft.Control = SortAlphabeticallyButton 108 AnchorSideLeft.Side = asrBottom 109 AnchorSideTop.Control = SortAlphabeticallyButton 110 AnchorSideTop.Side = asrCenter 111 Left = 95 112 Height = 32 113 Top = -2 114 Width = 365 115 ButtonWidth = 23 116 Anchors = [akTop, akLeft, akRight] 117 BorderSpacing.Left = 3 118 NumGlyphs = 1 119 MaxLength = 0 120 ParentFont = False 121 TabOrder = 0 122 OnKeyDown = FilterEditKeyDown 123 FilteredTreeview = ItemsTreeView 124 end 125 end 126 object ToolBar: TToolBar 127 Left = 0 128 Height = 48 129 Top = 0 130 Width = 463 131 AutoSize = True 132 ButtonHeight = 46 133 ButtonWidth = 23 134 ShowCaptions = True 135 TabOrder = 2 136 end 137 object PropsGroupBox: TGroupBox 138 Left = 0 139 Height = 141 140 Top = 344 141 Width = 463 142 Align = alBottom 143 Caption = 'PropsGroupBox' 144 TabOrder = 3 145 end 146 object Splitter1: TSplitter 147 Cursor = crVSplit 148 Left = 0 149 Height = 5 150 Top = 339 151 Width = 463 152 Align = alBottom 153 ResizeAnchor = akBottom 154 end 155 object ItemsPopupMenu: TPopupMenu 156 OnPopup = ItemsPopupMenuPopup 157 Left = 72 158 Top = 112 159 object MenuItem1: TMenuItem 160 Caption = 'New Item1' 161 end 162 end 163 object AddPopupMenu: TPopupMenu 164 Left = 74 165 Top = 163 166 object mnuAddDiskFile: TMenuItem 167 Caption = 'Add file from disk' 168 Default = True 169 OnClick = mnuAddDiskFileClick 170 end 171 object MenuItem2: TMenuItem 172 Caption = '-' 173 end 174 object mnuAddEditorFiles: TMenuItem 175 Caption = 'Add editor files' 176 OnClick = mnuAddEditorFilesClick 177 end 178 object mnuAddReq: TMenuItem 179 Caption = 'Add requirement' 180 OnClick = mnuAddReqClick 181 end 182 object mnuAddFPMakeReq: TMenuItem 183 Caption = 'Add FPMake requirement' 184 OnClick = mnuAddFPMakeReqClick 185 end 186 end 187end 188