1object ComponentListForm: TComponentListForm 2 Left = 467 3 Height = 467 4 Top = 200 5 Width = 300 6 Caption = 'Components' 7 ClientHeight = 467 8 ClientWidth = 300 9 KeyPreview = True 10 OnActivate = FormActivate 11 OnClose = FormClose 12 OnKeyDown = FormKeyDown 13 OnShow = FormShow 14 LCLVersion = '1.9.0.0' 15 object PageControl: TPageControl 16 Left = 0 17 Height = 397 18 Top = 27 19 Width = 300 20 ActivePage = TabSheetList 21 Align = alClient 22 TabIndex = 0 23 TabOrder = 1 24 OnChange = PageControlChange 25 object TabSheetList: TTabSheet 26 Caption = 'List' 27 ClientHeight = 369 28 ClientWidth = 292 29 object Panel7: TPanel 30 Left = 0 31 Height = 369 32 Top = 0 33 Width = 292 34 Align = alClient 35 BevelOuter = bvNone 36 BorderWidth = 2 37 ClientHeight = 369 38 ClientWidth = 292 39 TabOrder = 0 40 object ListTree: TTreeView 41 Left = 2 42 Height = 365 43 Top = 2 44 Width = 288 45 Align = alClient 46 Indent = 25 47 ReadOnly = True 48 RowSelect = True 49 ScrollBars = ssAutoBoth 50 ShowButtons = False 51 ShowLines = False 52 ShowRoot = False 53 TabOrder = 0 54 OnDblClick = ComponentsDblClick 55 OnKeyPress = TreeKeyPress 56 OnSelectionChanged = ListTreeSelectionChanged 57 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoToolTips] 58 end 59 end 60 end 61 object TabSheetPaletteTree: TTabSheet 62 Caption = 'Palette' 63 ClientHeight = 369 64 ClientWidth = 292 65 object pnPaletteTree: TPanel 66 Left = 0 67 Height = 369 68 Top = 0 69 Width = 292 70 Align = alClient 71 BevelOuter = bvNone 72 BorderWidth = 5 73 ClientHeight = 369 74 ClientWidth = 292 75 TabOrder = 0 76 object PalletteTree: TTreeView 77 Left = 5 78 Height = 359 79 Top = 5 80 Width = 282 81 Align = alClient 82 PopupMenu = pmCollapseExpand 83 ReadOnly = True 84 RightClickSelect = True 85 RowSelect = True 86 ScrollBars = ssAutoBoth 87 ShowLines = False 88 TabOrder = 0 89 OnDblClick = ComponentsDblClick 90 OnKeyPress = TreeKeyPress 91 OnSelectionChanged = ListTreeSelectionChanged 92 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowRoot, tvoToolTips] 93 end 94 end 95 end 96 object TabSheetInheritance: TTabSheet 97 Caption = 'Inheritance' 98 ClientHeight = 369 99 ClientWidth = 292 100 object Panel6: TPanel 101 Left = 0 102 Height = 369 103 Top = 0 104 Width = 292 105 Align = alClient 106 BevelOuter = bvNone 107 BorderWidth = 5 108 ClientHeight = 369 109 ClientWidth = 292 110 TabOrder = 0 111 object InheritanceTree: TTreeView 112 Left = 5 113 Height = 359 114 Top = 5 115 Width = 282 116 Align = alClient 117 Indent = 20 118 PopupMenu = pmCollapseExpand 119 ReadOnly = True 120 RightClickSelect = True 121 RowSelect = True 122 ScrollBars = ssAutoBoth 123 TabOrder = 0 124 OnDblClick = ComponentsDblClick 125 OnKeyPress = TreeKeyPress 126 OnSelectionChanged = ListTreeSelectionChanged 127 Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] 128 end 129 end 130 end 131 end 132 object FilterPanel: TPanel 133 Left = 0 134 Height = 27 135 Top = 0 136 Width = 300 137 Align = alTop 138 AutoSize = True 139 BevelOuter = bvNone 140 ClientHeight = 27 141 ClientWidth = 300 142 TabOrder = 0 143 object SelectionToolButton: TSpeedButton 144 AnchorSideLeft.Control = FilterPanel 145 AnchorSideTop.Control = FilterPanel 146 AnchorSideBottom.Control = FilterPanel 147 AnchorSideBottom.Side = asrBottom 148 Left = 0 149 Height = 27 150 Top = 0 151 Width = 32 152 AllowAllUp = True 153 Anchors = [akTop, akLeft, akBottom] 154 Down = True 155 Flat = True 156 GroupIndex = 1 157 OnClick = SelectionToolButtonClick 158 end 159 object LabelSearch: TLabel 160 AnchorSideLeft.Control = SelectionToolButton 161 AnchorSideLeft.Side = asrBottom 162 AnchorSideTop.Control = FilterPanel 163 Left = 38 164 Height = 15 165 Top = 6 166 Width = 63 167 BorderSpacing.Around = 6 168 Caption = 'LabelSearch' 169 ParentColor = False 170 end 171 object TreeFilterEd: TTreeFilterEdit 172 AnchorSideLeft.Control = LabelSearch 173 AnchorSideLeft.Side = asrBottom 174 AnchorSideTop.Control = LabelSearch 175 AnchorSideTop.Side = asrCenter 176 Left = 75 177 Height = 23 178 Top = 2 179 Width = 221 180 OnAfterFilter = TreeFilterEdAfterFilter 181 ButtonWidth = 23 182 Anchors = [akTop, akLeft, akRight] 183 BorderSpacing.Left = 5 184 NumGlyphs = 1 185 MaxLength = 0 186 TabOrder = 0 187 FilteredTreeview = ListTree 188 end 189 end 190 object ButtonPanel: TPanel 191 Left = 0 192 Height = 43 193 Top = 424 194 Width = 300 195 Align = alBottom 196 BevelOuter = bvNone 197 ClientHeight = 43 198 ClientWidth = 300 199 TabOrder = 2 200 object chbKeepOpen: TCheckBox 201 Left = 8 202 Height = 19 203 Top = 10 204 Width = 95 205 Caption = 'chbKeepOpen' 206 OnChange = chbKeepOpenChange 207 TabOrder = 0 208 end 209 object OKButton: TButton 210 Left = 215 211 Height = 25 212 Top = 8 213 Width = 78 214 Anchors = [akTop, akRight] 215 AutoSize = True 216 Caption = 'OKButton' 217 Default = True 218 ModalResult = 1 219 OnClick = OKButtonClick 220 TabOrder = 1 221 end 222 end 223 object pmCollapseExpand: TPopupMenu 224 OnPopup = pmCollapseExpandPopup 225 Left = 160 226 Top = 112 227 object miExpand: TMenuItem 228 Caption = 'Expand' 229 OnClick = miExpandClick 230 end 231 object miExpandAll: TMenuItem 232 Caption = 'Expand All' 233 OnClick = miExpandAllClick 234 end 235 object MenuItem1: TMenuItem 236 Caption = '-' 237 end 238 object miCollapse: TMenuItem 239 Caption = 'Collapse' 240 OnClick = miCollapseClick 241 end 242 object miCollapseAll: TMenuItem 243 Caption = 'Collapse All' 244 OnClick = miCollapseAllClick 245 end 246 end 247 object tmDeselect: TTimer 248 Enabled = False 249 Interval = 100 250 OnTimer = tmDeselectTimer 251 Left = 155 252 Top = 172 253 end 254end 255