1object DlgCompPagesPopup: TDlgCompPagesPopup 2 Left = 375 3 Height = 536 4 Top = 209 5 Width = 293 6 BorderStyle = bsNone 7 Caption = 'DlgCompPagesPopup' 8 ClientHeight = 536 9 ClientWidth = 293 10 OnCreate = FormCreate 11 OnDeactivate = FormDeactivate 12 OnShow = FormShow 13 LCLVersion = '1.9.0.0' 14 object Panel1: TPanel 15 Left = 0 16 Height = 536 17 Top = 0 18 Width = 293 19 Align = alClient 20 BevelWidth = 2 21 Caption = 'Panel1' 22 ClientHeight = 536 23 ClientWidth = 293 24 ParentColor = False 25 TabOrder = 0 26 object TreeView1: TTreeView 27 Left = 2 28 Height = 516 29 Top = 18 30 Width = 289 31 Align = alClient 32 BackgroundColor = clDefault 33 Color = clDefault 34 HotTrack = True 35 ReadOnly = True 36 ScrollBars = ssAutoVertical 37 TabOrder = 0 38 OnClick = TreeView1Click 39 Options = [tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] 40 end 41 object Panel2: TPanel 42 Left = 2 43 Height = 16 44 Top = 2 45 Width = 289 46 Align = alTop 47 BevelOuter = bvNone 48 Caption = 'Panel2' 49 ClientHeight = 16 50 ClientWidth = 289 51 Font.Style = [fsItalic] 52 ParentColor = False 53 ParentFont = False 54 TabOrder = 1 55 object cBtnClose: TSpeedButton 56 Left = 285 57 Height = 16 58 Top = 0 59 Width = 4 60 Align = alRight 61 AutoSize = True 62 Flat = True 63 OnClick = cBtnCloseClick 64 end 65 end 66 end 67end 68