1object SelectPropertiesForm: TSelectPropertiesForm 2 Left = 411 3 Height = 448 4 Top = 175 5 Width = 481 6 ActiveControl = LBProperties 7 Caption = 'Select properties' 8 ClientHeight = 448 9 ClientWidth = 481 10 Constraints.MinHeight = 403 11 Constraints.MinWidth = 350 12 OnClose = SelectPropertiesFormClose 13 OnCreate = SelectPropertiesFormCreate 14 Position = poScreenCenter 15 LCLVersion = '1.7' 16 object PTop: TPanel 17 Left = 0 18 Height = 248 19 Top = 0 20 Width = 481 21 Align = alTop 22 BevelOuter = bvNone 23 ClientHeight = 248 24 ClientWidth = 481 25 FullRepaint = False 26 TabOrder = 0 27 object PProperties: TPanel 28 Left = 243 29 Height = 248 30 Top = 0 31 Width = 238 32 Align = alClient 33 BevelOuter = bvNone 34 ClientHeight = 248 35 ClientWidth = 238 36 FullRepaint = False 37 TabOrder = 0 38 object LProperties: TLabel 39 Left = 6 40 Height = 17 41 Top = 6 42 Width = 226 43 Align = alTop 44 BorderSpacing.Around = 6 45 Caption = '&Properties' 46 FocusControl = LBProperties 47 Layout = tlCenter 48 ParentColor = False 49 end 50 object LBProperties: TListBox 51 Left = 6 52 Height = 213 53 Top = 29 54 Width = 226 55 Align = alClient 56 BorderSpacing.Around = 6 57 ItemHeight = 0 58 MultiSelect = True 59 OnDblClick = LBPropertiesDblClick 60 Sorted = True 61 TabOrder = 0 62 end 63 end 64 object PComponents: TPanel 65 Left = 0 66 Height = 248 67 Top = 0 68 Width = 239 69 Align = alLeft 70 BevelOuter = bvNone 71 Caption = 'PComponents' 72 ClientHeight = 248 73 ClientWidth = 239 74 FullRepaint = False 75 TabOrder = 1 76 object LComponents: TLabel 77 Left = 6 78 Height = 17 79 Top = 6 80 Width = 227 81 Align = alTop 82 BorderSpacing.Around = 6 83 Caption = 'Co&mponents' 84 FocusControl = LBComponents 85 Layout = tlCenter 86 ParentColor = False 87 end 88 object LBComponents: TListBox 89 Left = 6 90 Height = 213 91 Top = 29 92 Width = 227 93 Align = alClient 94 BorderSpacing.Around = 6 95 ItemHeight = 0 96 OnSelectionChange = LBComponentsSelectionChange 97 Sorted = True 98 TabOrder = 0 99 end 100 end 101 object VSplitter: TSplitter 102 Left = 239 103 Height = 248 104 Top = 0 105 Width = 4 106 end 107 end 108 object HSplitter: TSplitter 109 Cursor = crVSplit 110 Left = 0 111 Height = 4 112 Top = 248 113 Width = 481 114 Align = alTop 115 Beveled = True 116 ResizeAnchor = akTop 117 end 118 object PBottom: TPanel 119 Left = 0 120 Height = 196 121 Top = 252 122 Width = 481 123 Align = alClient 124 BevelOuter = bvNone 125 ClientHeight = 196 126 ClientWidth = 481 127 Constraints.MinHeight = 170 128 FullRepaint = False 129 TabOrder = 1 130 object LLBSelected: TLabel 131 Left = 10 132 Height = 17 133 Top = 3 134 Width = 130 135 BorderSpacing.Around = 6 136 Caption = '&Selected Properties' 137 FocusControl = LBSelected 138 ParentColor = False 139 end 140 object LBSelected: TListBox 141 AnchorSideLeft.Control = PBottom 142 AnchorSideTop.Control = LLBSelected 143 AnchorSideTop.Side = asrBottom 144 AnchorSideRight.Control = BAdd 145 AnchorSideBottom.Control = ButtonPanel1 146 Left = 6 147 Height = 114 148 Top = 26 149 Width = 352 150 Anchors = [akTop, akLeft, akRight, akBottom] 151 BorderSpacing.Around = 6 152 ItemHeight = 0 153 MultiSelect = True 154 TabOrder = 0 155 end 156 object ButtonPanel1: TButtonPanel 157 Left = 6 158 Height = 44 159 Top = 146 160 Width = 469 161 OKButton.Name = 'OKButton' 162 OKButton.DefaultCaption = True 163 HelpButton.Name = 'HelpButton' 164 HelpButton.DefaultCaption = True 165 CloseButton.Name = 'CloseButton' 166 CloseButton.DefaultCaption = True 167 CancelButton.Name = 'CancelButton' 168 CancelButton.DefaultCaption = True 169 TabOrder = 1 170 ShowButtons = [pbOK, pbCancel, pbHelp] 171 end 172 object BAdd: TBitBtn 173 AnchorSideTop.Control = LBSelected 174 AnchorSideRight.Control = PBottom 175 AnchorSideRight.Side = asrBottom 176 Left = 364 177 Height = 28 178 Top = 26 179 Width = 111 180 Anchors = [akTop, akRight] 181 BorderSpacing.Right = 6 182 Caption = '&Add' 183 OnClick = BAddClick 184 TabOrder = 2 185 end 186 object BDelete: TBitBtn 187 AnchorSideLeft.Control = BAdd 188 AnchorSideTop.Control = BAdd 189 AnchorSideTop.Side = asrBottom 190 AnchorSideRight.Control = BAdd 191 AnchorSideRight.Side = asrBottom 192 Left = 364 193 Height = 28 194 Top = 60 195 Width = 111 196 Anchors = [akTop, akLeft, akRight] 197 BorderSpacing.Top = 6 198 Caption = '&Delete' 199 OnClick = BDeleteClick 200 TabOrder = 3 201 end 202 object BClear: TBitBtn 203 AnchorSideLeft.Control = BDelete 204 AnchorSideTop.Control = BDelete 205 AnchorSideTop.Side = asrBottom 206 AnchorSideRight.Control = BDelete 207 AnchorSideRight.Side = asrBottom 208 Left = 364 209 Height = 28 210 Top = 94 211 Width = 111 212 Anchors = [akTop, akLeft, akRight] 213 BorderSpacing.Top = 6 214 Caption = 'C&lear' 215 OnClick = BClearClick 216 TabOrder = 4 217 end 218 end 219end 220