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