object DesktopForm: TDesktopForm Left = 334 Height = 292 Top = 319 Width = 377 BorderIcons = [biSystemMenu] Caption = 'DesktopForm' ClientHeight = 292 ClientWidth = 377 OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter LCLVersion = '1.5' object ButtonPanel1: TButtonPanel Left = 6 Height = 34 Top = 252 Width = 365 OKButton.Name = 'OKButton' OKButton.Caption = 'OK' OKButton.DefaultCaption = False HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True HelpButton.OnClick = HelpButtonClick CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.Caption = 'Close' CancelButton.DefaultCaption = False TabOrder = 3 ShowButtons = [pbClose, pbHelp] object ExportBitBtn: TBitBtn Left = 93 Height = 26 Top = 8 Width = 91 Align = alCustom AutoSize = True Caption = 'ExportBitBtn' Constraints.MinWidth = 25 OnClick = ExportBitBtnClick TabOrder = 4 end object ImportBitBtn: TBitBtn Left = 190 Height = 26 Top = 8 Width = 94 Align = alCustom AutoSize = True Caption = 'ImportBitBtn' Constraints.MinWidth = 25 OnClick = ImportActionClick TabOrder = 5 end end object DesktopListBox: TListBox AnchorSideLeft.Control = LblGrayedInfo AnchorSideRight.Control = LblGrayedInfo AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = AutoSaveActiveDesktopCheckBox Left = 11 Height = 190 Top = 8 Width = 320 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Bottom = 6 ItemHeight = 18 OnDblClick = SetActiveDesktopActionClick OnDrawItem = DesktopListBoxDrawItem OnKeyPress = DesktopListBoxKeyPress OnSelectionChange = DesktopListBoxSelectionChange Style = lbOwnerDrawFixed TabOrder = 0 end object AutoSaveActiveDesktopCheckBox: TCheckBox AnchorSideLeft.Control = LblGrayedInfo AnchorSideTop.Side = asrBottom AnchorSideBottom.Control = LblGrayedInfo Left = 11 Height = 19 Top = 204 Width = 151 Anchors = [akLeft, akBottom] BorderSpacing.Top = 6 BorderSpacing.Bottom = 6 Caption = 'Auto save active desktop' ParentShowHint = False ShowHint = True TabOrder = 1 end object ToolBar1: TToolBar Left = 340 Height = 241 Top = 8 Width = 30 Align = alNone Anchors = [akTop, akRight, akBottom] Caption = 'ToolBar1' EdgeBorders = [] TabOrder = 2 object SaveTB: TToolButton Left = 1 Top = 0 Action = SaveAction OnClick = SaveActionClick ParentShowHint = False ShowHint = True end object ToolButton1: TToolButton Left = 1 Height = 5 Top = 22 Width = 23 Caption = 'ToolButton1' Style = tbsDivider end object SetActiveDesktopTB: TToolButton Left = 1 Top = 27 Action = SetActiveDesktopAction OnClick = SetActiveDesktopActionClick ParentShowHint = False ShowHint = True end object SetDebugDesktopTB: TToolButton Left = 1 Top = 54 Action = SetDebugDesktopAction OnClick = SetDebugDesktopActionClick ParentShowHint = False ShowHint = True end object RenameTB: TToolButton Left = 1 Top = 76 Action = RenameAction OnClick = RenameActionClick ParentShowHint = False ShowHint = True end object DeleteTB: TToolButton Left = 1 Top = 98 Action = DeleteAction OnClick = DeleteActionClick ParentShowHint = False ShowHint = True end object MoveUpTB: TToolButton Tag = -1 Left = 1 Top = 125 Action = MoveUpAction OnClick = MoveUpDownActionClick ParentShowHint = False ShowHint = True end object MoveDownTB: TToolButton Tag = 1 Left = 1 Top = 147 Action = MoveDownAction OnClick = MoveUpDownActionClick ParentShowHint = False ShowHint = True end object ToolButton2: TToolButton Left = 1 Height = 5 Top = 120 Width = 23 Caption = 'ToolButton2' Style = tbsDivider end object ToolButton3: TToolButton Left = 1 Height = 5 Top = 49 Width = 23 Caption = 'ToolButton3' Style = tbsDivider end end object LblGrayedInfo: TLabel AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 11 Height = 15 Top = 229 Width = 320 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Top = 3 Caption = 'Grayed desktops are for undocked environment.' ParentColor = False WordWrap = True end object ExportMenu: TPopupMenu left = 48 top = 24 object ExportItem: TMenuItem Action = ExportAction OnClick = ExportActionClick end object ExportAllItem: TMenuItem Action = ExportAllAction OnClick = ExportAllActionClick end end object ActionList1: TActionList left = 128 top = 32 object SaveAction: TAction Caption = 'SaveAction' OnExecute = SaveActionClick ShortCut = 16467 end object SetActiveDesktopAction: TAction Caption = 'SetActiveDesktopAction' OnExecute = SetActiveDesktopActionClick ShortCut = 16397 end object SetDebugDesktopAction: TAction Caption = 'SetDebugDesktopAction' OnExecute = SetDebugDesktopActionClick ShortCut = 16452 end object RenameAction: TAction Caption = 'RenameAction' OnExecute = RenameActionClick ShortCut = 16466 end object DeleteAction: TAction Caption = 'DeleteAction' OnExecute = DeleteActionClick ShortCut = 16430 end object MoveUpAction: TAction Tag = -1 Caption = 'MoveUpAction' OnExecute = MoveUpDownActionClick ShortCut = 16422 end object MoveDownAction: TAction Tag = 1 Caption = 'MoveDownAction' OnExecute = MoveUpDownActionClick ShortCut = 16424 end object ExportAction: TAction Caption = 'ExportAction' OnExecute = ExportActionClick ShortCut = 16453 end object ExportAllAction: TAction Caption = 'ExportAllAction' OnExecute = ExportAllActionClick ShortCut = 24645 end object ImportAction: TAction Caption = 'ImportAction' OnExecute = ImportActionClick ShortCut = 16457 end end end