1object DesktopForm: TDesktopForm 2 Left = 334 3 Height = 310 4 Top = 319 5 Width = 450 6 BorderIcons = [biSystemMenu] 7 Caption = 'DesktopForm' 8 ClientHeight = 310 9 ClientWidth = 450 10 Constraints.MinHeight = 310 11 Constraints.MinWidth = 350 12 OnClose = FormClose 13 OnCreate = FormCreate 14 OnShow = FormShow 15 Position = poScreenCenter 16 LCLVersion = '2.1.0.0' 17 object ButtonPanel1: TButtonPanel 18 Left = 6 19 Height = 34 20 Top = 270 21 Width = 438 22 BorderSpacing.Left = 6 23 BorderSpacing.Right = 6 24 BorderSpacing.Bottom = 6 25 BorderSpacing.Around = 0 26 OKButton.Name = 'OKButton' 27 OKButton.Caption = 'OK' 28 OKButton.DefaultCaption = False 29 HelpButton.Name = 'HelpButton' 30 HelpButton.DefaultCaption = True 31 HelpButton.OnClick = HelpButtonClick 32 CloseButton.Name = 'CloseButton' 33 CloseButton.DefaultCaption = True 34 CancelButton.Name = 'CancelButton' 35 CancelButton.Caption = 'Close' 36 CancelButton.DefaultCaption = False 37 TabOrder = 4 38 ShowButtons = [pbClose, pbHelp] 39 object ExportBitBtn: TBitBtn 40 Left = 179 41 Height = 26 42 Top = 8 43 Width = 0 44 Align = alCustom 45 AutoSize = True 46 Caption = 'ExportBitBtn' 47 Constraints.MinWidth = 25 48 OnClick = ExportBitBtnClick 49 TabOrder = 4 50 end 51 object ImportBitBtn: TBitBtn 52 Left = 271 53 Height = 26 54 Top = 8 55 Width = 0 56 Align = alCustom 57 AutoSize = True 58 Caption = 'ImportBitBtn' 59 Constraints.MinWidth = 25 60 OnClick = ImportActionClick 61 TabOrder = 5 62 end 63 end 64 object DesktopListBox: TListBox 65 AnchorSideLeft.Control = Owner 66 AnchorSideTop.Control = Owner 67 AnchorSideRight.Control = Panel1 68 AnchorSideBottom.Control = AssociatedDebugDesktopLabel 69 Left = 6 70 Height = 178 71 Top = 6 72 Width = 290 73 Anchors = [akTop, akLeft, akRight, akBottom] 74 BorderSpacing.Left = 6 75 BorderSpacing.Top = 6 76 BorderSpacing.Right = 6 77 BorderSpacing.Bottom = 4 78 ItemHeight = 18 79 OnDblClick = SetActiveDesktopActionClick 80 OnDrawItem = DesktopListBoxDrawItem 81 OnKeyPress = DesktopListBoxKeyPress 82 OnSelectionChange = DesktopListBoxSelectionChange 83 Style = lbOwnerDrawFixed 84 TabOrder = 0 85 end 86 object AutoSaveActiveDesktopCheckBox: TCheckBox 87 AnchorSideLeft.Control = DesktopListBox 88 AnchorSideTop.Side = asrBottom 89 AnchorSideBottom.Control = LblGrayedInfo 90 Left = 6 91 Height = 17 92 Top = 230 93 Width = 140 94 Anchors = [akLeft, akBottom] 95 BorderSpacing.Bottom = 6 96 Caption = 'Auto save active desktop' 97 ParentShowHint = False 98 ShowHint = True 99 TabOrder = 2 100 end 101 object LblGrayedInfo: TLabel 102 AnchorSideLeft.Control = DesktopListBox 103 AnchorSideTop.Side = asrBottom 104 AnchorSideRight.Control = Panel1 105 AnchorSideRight.Side = asrBottom 106 AnchorSideBottom.Control = ButtonPanel1 107 Left = 6 108 Height = 13 109 Top = 253 110 Width = 438 111 Anchors = [akLeft, akRight, akBottom] 112 BorderSpacing.Bottom = 4 113 Caption = 'Grayed desktops are for undocked environment.' 114 ParentColor = False 115 WordWrap = True 116 end 117 object AssociatedDebugDesktopComboBox: TComboBox 118 AnchorSideLeft.Control = DesktopListBox 119 AnchorSideRight.Control = DesktopListBox 120 AnchorSideRight.Side = asrBottom 121 AnchorSideBottom.Control = AutoSaveActiveDesktopCheckBox 122 Left = 6 123 Height = 21 124 Top = 203 125 Width = 290 126 Anchors = [akLeft, akRight, akBottom] 127 BorderSpacing.Bottom = 6 128 ItemHeight = 13 129 OnChange = AssociatedDebugDesktopComboBoxChange 130 Style = csDropDownList 131 TabOrder = 1 132 end 133 object AssociatedDebugDesktopLabel: TLabel 134 AnchorSideLeft.Control = DesktopListBox 135 AnchorSideTop.Side = asrCenter 136 AnchorSideRight.Control = DesktopListBox 137 AnchorSideRight.Side = asrBottom 138 AnchorSideBottom.Control = AssociatedDebugDesktopComboBox 139 Left = 6 140 Height = 13 141 Top = 188 142 Width = 290 143 Anchors = [akLeft, akRight, akBottom] 144 BorderSpacing.Bottom = 2 145 Caption = 'AssociatedDebugDesktopLabel' 146 ParentColor = False 147 ParentShowHint = False 148 ShowHint = True 149 WordWrap = True 150 end 151 object Panel1: TPanel 152 AnchorSideTop.Control = DesktopListBox 153 AnchorSideRight.Control = Owner 154 AnchorSideRight.Side = asrBottom 155 AnchorSideBottom.Control = LblGrayedInfo 156 Left = 302 157 Height = 247 158 Top = 6 159 Width = 142 160 Anchors = [akTop, akRight, akBottom] 161 AutoSize = True 162 BorderSpacing.Right = 6 163 BevelOuter = bvNone 164 ChildSizing.VerticalSpacing = 2 165 ChildSizing.Layout = cclLeftToRightThenTopToBottom 166 ChildSizing.ControlsPerLine = 1 167 ClientHeight = 247 168 ClientWidth = 142 169 TabOrder = 3 170 object SaveAsButton: TBitBtn 171 Left = 0 172 Height = 24 173 Top = 0 174 Width = 142 175 Action = SaveAsAction 176 AutoSize = True 177 Constraints.MinHeight = 24 178 Constraints.MinWidth = 24 179 ParentShowHint = False 180 ShowHint = True 181 TabOrder = 0 182 end 183 object SetActiveDesktopButton: TBitBtn 184 Left = 0 185 Height = 24 186 Top = 26 187 Width = 142 188 Action = SetActiveDesktopAction 189 AutoSize = True 190 Constraints.MinHeight = 24 191 Constraints.MinWidth = 24 192 ParentShowHint = False 193 ShowHint = True 194 TabOrder = 1 195 end 196 object SetDebugDesktopButton: TBitBtn 197 Left = 0 198 Height = 24 199 Top = 52 200 Width = 142 201 Action = SetDebugDesktopAction 202 AutoSize = True 203 Constraints.MinHeight = 24 204 Constraints.MinWidth = 24 205 ParentShowHint = False 206 ShowHint = True 207 TabOrder = 2 208 end 209 object RenameButton: TBitBtn 210 Left = 0 211 Height = 24 212 Top = 78 213 Width = 142 214 Action = RenameAction 215 AutoSize = True 216 Constraints.MinHeight = 24 217 Constraints.MinWidth = 24 218 ParentShowHint = False 219 ShowHint = True 220 TabOrder = 3 221 end 222 object DeleteButton: TBitBtn 223 Left = 0 224 Height = 24 225 Top = 104 226 Width = 142 227 Action = DeleteAction 228 AutoSize = True 229 Constraints.MinHeight = 24 230 Constraints.MinWidth = 24 231 ParentShowHint = False 232 ShowHint = True 233 TabOrder = 4 234 end 235 object MoveUpButton: TBitBtn 236 Tag = -1 237 Left = 0 238 Height = 24 239 Top = 130 240 Width = 142 241 Action = MoveUpAction 242 AutoSize = True 243 Constraints.MinHeight = 24 244 Constraints.MinWidth = 24 245 ParentShowHint = False 246 ShowHint = True 247 TabOrder = 5 248 end 249 object MoveDownButton: TBitBtn 250 Tag = 1 251 Left = 0 252 Height = 24 253 Top = 156 254 Width = 142 255 Action = MoveDownAction 256 AutoSize = True 257 Constraints.MinHeight = 24 258 Constraints.MinWidth = 24 259 ParentShowHint = False 260 ShowHint = True 261 TabOrder = 6 262 end 263 end 264 object ExportMenu: TPopupMenu 265 left = 28 266 top = 24 267 object ExportItem: TMenuItem 268 Action = ExportAction 269 OnClick = ExportActionClick 270 end 271 object ExportAllItem: TMenuItem 272 Action = ExportAllAction 273 OnClick = ExportAllActionClick 274 end 275 end 276 object ActionList1: TActionList 277 left = 89 278 top = 24 279 object SaveAsAction: TAction 280 Caption = 'SaveAsAction' 281 OnExecute = SaveAsActionClick 282 ShortCut = 16467 283 end 284 object SetActiveDesktopAction: TAction 285 Caption = 'SetActiveDesktopAction' 286 OnExecute = SetActiveDesktopActionClick 287 ShortCut = 16397 288 end 289 object SetDebugDesktopAction: TAction 290 Caption = 'SetDebugDesktopAction' 291 OnExecute = SetDebugDesktopActionClick 292 ShortCut = 16452 293 end 294 object RenameAction: TAction 295 Caption = 'RenameAction' 296 OnExecute = RenameActionClick 297 ShortCut = 16466 298 end 299 object DeleteAction: TAction 300 Caption = 'DeleteAction' 301 OnExecute = DeleteActionClick 302 ShortCut = 16430 303 end 304 object MoveUpAction: TAction 305 Tag = -1 306 Caption = 'MoveUpAction' 307 OnExecute = MoveUpDownActionClick 308 ShortCut = 16422 309 end 310 object MoveDownAction: TAction 311 Tag = 1 312 Caption = 'MoveDownAction' 313 OnExecute = MoveUpDownActionClick 314 ShortCut = 16424 315 end 316 object ExportAction: TAction 317 Caption = 'ExportAction' 318 OnExecute = ExportActionClick 319 ShortCut = 16453 320 end 321 object ExportAllAction: TAction 322 Caption = 'ExportAllAction' 323 OnExecute = ExportAllActionClick 324 ShortCut = 24645 325 end 326 object ImportAction: TAction 327 Caption = 'ImportAction' 328 OnExecute = ImportActionClick 329 ShortCut = 16457 330 end 331 end 332end 333