1object MacroListView: TMacroListView
2  Left = 390
3  Height = 387
4  Top = 249
5  Width = 424
6  Caption = 'MacroListView'
7  ClientHeight = 387
8  ClientWidth = 424
9  Constraints.MinHeight = 365
10  Constraints.MinWidth = 300
11  OnActivate = FormActivate
12  OnDeactivate = FormActivate
13  LCLVersion = '2.1.0.0'
14  object Panel1: TPanel
15    AnchorSideRight.Control = pnlButtons
16    Left = 6
17    Height = 313
18    Top = 6
19    Width = 295
20    Align = alLeft
21    Anchors = [akTop, akLeft, akRight, akBottom]
22    BorderSpacing.Left = 6
23    BorderSpacing.Top = 6
24    BorderSpacing.Right = 6
25    BevelOuter = bvNone
26    ClientHeight = 313
27    ClientWidth = 295
28    TabOrder = 0
29    object lbMacroView: TListView
30      Left = 0
31      Height = 266
32      Top = 22
33      Width = 295
34      Align = alClient
35      AutoWidthLastColumn = True
36      Columns = <
37        item
38          Width = 291
39        end>
40      PopupMenu = PopupMenu1
41      RowSelect = True
42      ShowColumnHeaders = False
43      SortType = stText
44      TabOrder = 1
45      ViewStyle = vsReport
46      OnSelectItem = lbMacroViewSelectItem
47    end
48    object ToolBar1: TToolBar
49      Left = 0
50      Height = 22
51      Top = 0
52      Width = 295
53      AutoSize = True
54      BorderSpacing.InnerBorder = 1
55      EdgeBorders = []
56      ParentShowHint = False
57      ShowCaptions = True
58      ShowHint = True
59      TabOrder = 0
60      object tbRecorded: TToolButton
61        Tag = 1
62        Left = 1
63        Top = 0
64        Caption = 'tbRecorded'
65        Down = True
66        Grouped = True
67        OnClick = tbRecordedClick
68        Style = tbsCheck
69      end
70      object tbProject: TToolButton
71        Tag = 1
72        Left = 78
73        Top = 0
74        Caption = 'tbProject'
75        Grouped = True
76        OnClick = tbProjectClick
77        Style = tbsCheck
78      end
79      object tbIDE: TToolButton
80        Tag = 1
81        Left = 142
82        Top = 0
83        Caption = 'tbIDE'
84        Grouped = True
85        OnClick = tbIDEClick
86        Style = tbsCheck
87      end
88      object ToolButton3: TToolButton
89        Left = 70
90        Height = 22
91        Top = 0
92        Caption = 'ToolButton3'
93        Style = tbsSeparator
94      end
95      object ToolButton4: TToolButton
96        Left = 134
97        Height = 22
98        Top = 0
99        Caption = 'ToolButton4'
100        Style = tbsSeparator
101      end
102    end
103    object ToolBar2: TToolBar
104      Left = 0
105      Height = 22
106      Top = 291
107      Width = 295
108      Align = alBottom
109      AutoSize = True
110      BorderSpacing.Top = 3
111      EdgeBorders = []
112      Flat = False
113      ShowCaptions = True
114      TabOrder = 2
115      object lbMoveTo: TLabel
116        Left = 1
117        Height = 22
118        Top = 0
119        Width = 52
120        Align = alLeft
121        Caption = 'lbMoveTo'
122        Layout = tlCenter
123        ParentColor = False
124      end
125      object tbMoveProject: TToolButton
126        Left = 53
127        Top = 0
128        Caption = 'tbMoveProject'
129        OnClick = tbMoveProjectClick
130      end
131      object tbMoveIDE: TToolButton
132        Left = 139
133        Top = 0
134        Caption = 'tbMoveIDE'
135        OnClick = tbMoveIDEClick
136      end
137    end
138  end
139  object ButtonPanel1: TButtonPanel
140    Left = 6
141    Height = 34
142    Top = 347
143    Width = 412
144    OKButton.Name = 'OKButton'
145    OKButton.DefaultCaption = True
146    HelpButton.Name = 'HelpButton'
147    HelpButton.DefaultCaption = True
148    HelpButton.OnClick = HelpButtonClick
149    CloseButton.Name = 'CloseButton'
150    CloseButton.DefaultCaption = True
151    CancelButton.Name = 'CancelButton'
152    CancelButton.DefaultCaption = True
153    TabOrder = 2
154    ShowButtons = [pbClose, pbHelp]
155  end
156  object pnlButtons: TPanel
157    Left = 307
158    Height = 319
159    Top = 0
160    Width = 117
161    Align = alRight
162    AutoSize = True
163    BevelOuter = bvNone
164    ClientHeight = 319
165    ClientWidth = 117
166    Constraints.MinHeight = 250
167    TabOrder = 1
168    object btnSelect: TButton
169      AnchorSideLeft.Control = pnlButtons
170      AnchorSideTop.Control = pnlButtons
171      AnchorSideRight.Control = pnlButtons
172      AnchorSideRight.Side = asrBottom
173      AnchorSideBottom.Side = asrBottom
174      Left = 6
175      Height = 25
176      Top = 6
177      Width = 105
178      Anchors = [akTop, akLeft, akRight]
179      AutoSize = True
180      BorderSpacing.Left = 6
181      BorderSpacing.Top = 6
182      BorderSpacing.Right = 6
183      Caption = 'btnSelect'
184      OnClick = btnSelectClick
185      TabOrder = 0
186    end
187    object btnRename: TButton
188      AnchorSideLeft.Control = pnlButtons
189      AnchorSideTop.Control = btnSelect
190      AnchorSideTop.Side = asrBottom
191      AnchorSideRight.Control = pnlButtons
192      AnchorSideRight.Side = asrBottom
193      AnchorSideBottom.Side = asrBottom
194      Left = 6
195      Height = 25
196      Top = 37
197      Width = 105
198      Anchors = [akTop, akLeft, akRight]
199      AutoSize = True
200      BorderSpacing.Left = 6
201      BorderSpacing.Top = 6
202      BorderSpacing.Right = 6
203      Caption = 'btnRename'
204      OnClick = btnRenameClick
205      TabOrder = 1
206    end
207    object btnPlay: TButton
208      AnchorSideLeft.Control = pnlButtons
209      AnchorSideTop.Side = asrBottom
210      AnchorSideRight.Control = pnlButtons
211      AnchorSideRight.Side = asrBottom
212      AnchorSideBottom.Control = PanelRepeat
213      Left = 6
214      Height = 25
215      Top = 178
216      Width = 105
217      Anchors = [akLeft, akRight, akBottom]
218      AutoSize = True
219      BorderSpacing.Left = 6
220      BorderSpacing.Right = 6
221      BorderSpacing.Bottom = 3
222      Caption = 'btnPlay'
223      OnClick = btnPlayClick
224      TabOrder = 5
225    end
226    object btnRecord: TButton
227      AnchorSideLeft.Control = pnlButtons
228      AnchorSideTop.Control = btnRename
229      AnchorSideTop.Side = asrBottom
230      AnchorSideRight.Control = pnlButtons
231      AnchorSideRight.Side = asrBottom
232      AnchorSideBottom.Control = btnRecordStop
233      Left = 6
234      Height = 25
235      Top = 263
236      Width = 105
237      Anchors = [akLeft, akRight, akBottom]
238      AutoSize = True
239      BorderSpacing.Left = 6
240      BorderSpacing.Right = 6
241      BorderSpacing.Bottom = 6
242      Caption = 'btnRecord'
243      OnClick = btnRecordClick
244      TabOrder = 6
245    end
246    object btnRecordStop: TButton
247      AnchorSideLeft.Control = pnlButtons
248      AnchorSideTop.Control = btnRename
249      AnchorSideTop.Side = asrBottom
250      AnchorSideRight.Control = pnlButtons
251      AnchorSideRight.Side = asrBottom
252      AnchorSideBottom.Control = pnlButtons
253      AnchorSideBottom.Side = asrBottom
254      Left = 6
255      Height = 25
256      Top = 294
257      Width = 105
258      Anchors = [akLeft, akRight, akBottom]
259      AutoSize = True
260      BorderSpacing.Left = 6
261      BorderSpacing.Right = 6
262      Caption = 'btnRecordStop'
263      OnClick = btnRecordStopClick
264      TabOrder = 7
265    end
266    object btnDelete: TButton
267      AnchorSideLeft.Control = pnlButtons
268      AnchorSideTop.Control = btnEdit
269      AnchorSideTop.Side = asrBottom
270      AnchorSideRight.Control = pnlButtons
271      AnchorSideRight.Side = asrBottom
272      AnchorSideBottom.Side = asrBottom
273      Left = 6
274      Height = 25
275      Top = 130
276      Width = 105
277      Anchors = [akTop, akLeft, akRight]
278      AutoSize = True
279      BorderSpacing.Left = 6
280      BorderSpacing.Top = 6
281      BorderSpacing.Right = 6
282      Caption = 'btnDelete'
283      OnClick = btnDeleteClick
284      TabOrder = 4
285    end
286    object btnSetKeys: TButton
287      AnchorSideLeft.Control = pnlButtons
288      AnchorSideTop.Control = btnRename
289      AnchorSideTop.Side = asrBottom
290      AnchorSideRight.Control = pnlButtons
291      AnchorSideRight.Side = asrBottom
292      AnchorSideBottom.Side = asrBottom
293      Left = 6
294      Height = 25
295      Top = 68
296      Width = 105
297      Anchors = [akTop, akLeft, akRight]
298      AutoSize = True
299      BorderSpacing.Left = 6
300      BorderSpacing.Top = 6
301      BorderSpacing.Right = 6
302      Caption = 'btnSetKeys'
303      OnClick = btnSetKeysClick
304      TabOrder = 2
305    end
306    object btnEdit: TButton
307      AnchorSideLeft.Control = pnlButtons
308      AnchorSideTop.Control = btnSetKeys
309      AnchorSideTop.Side = asrBottom
310      AnchorSideRight.Control = pnlButtons
311      AnchorSideRight.Side = asrBottom
312      AnchorSideBottom.Side = asrBottom
313      Left = 6
314      Height = 25
315      Top = 99
316      Width = 105
317      Anchors = [akTop, akLeft, akRight]
318      AutoSize = True
319      BorderSpacing.Left = 6
320      BorderSpacing.Top = 6
321      BorderSpacing.Right = 6
322      Caption = 'btnEdit'
323      OnClick = btnEditClick
324      TabOrder = 3
325    end
326    object PanelRepeat: TPanel
327      AnchorSideLeft.Control = pnlButtons
328      AnchorSideTop.Control = btnPlay
329      AnchorSideTop.Side = asrBottom
330      AnchorSideRight.Control = pnlButtons
331      AnchorSideRight.Side = asrBottom
332      AnchorSideBottom.Control = btnRecord
333      Left = 6
334      Height = 54
335      Top = 206
336      Width = 105
337      Anchors = [akLeft, akRight, akBottom]
338      AutoSize = True
339      BorderSpacing.Left = 6
340      BorderSpacing.Top = 3
341      BorderSpacing.Right = 6
342      BorderSpacing.Bottom = 3
343      BevelOuter = bvNone
344      BorderStyle = bsSingle
345      ClientHeight = 50
346      ClientWidth = 101
347      TabOrder = 8
348      object edRepeat: TSpinEdit
349        AnchorSideLeft.Control = PanelRepeat
350        AnchorSideTop.Control = chkRepeat
351        AnchorSideTop.Side = asrBottom
352        AnchorSideRight.Control = PanelRepeat
353        AnchorSideRight.Side = asrBottom
354        Left = 3
355        Height = 23
356        Top = 24
357        Width = 95
358        Anchors = [akTop, akLeft, akRight]
359        BorderSpacing.Left = 3
360        BorderSpacing.Top = 3
361        BorderSpacing.Right = 3
362        BorderSpacing.Bottom = 3
363        MaxValue = 999
364        MinValue = 1
365        TabOrder = 0
366        Value = 1
367      end
368      object chkRepeat: TCheckBox
369        AnchorSideLeft.Control = PanelRepeat
370        AnchorSideTop.Side = asrBottom
371        AnchorSideRight.Control = PanelRepeat
372        AnchorSideRight.Side = asrBottom
373        AnchorSideBottom.Control = edRepeat
374        Left = 3
375        Height = 19
376        Top = 2
377        Width = 95
378        Anchors = [akLeft, akRight]
379        BorderSpacing.Left = 3
380        BorderSpacing.Right = 3
381        BorderSpacing.Bottom = 3
382        Caption = 'chkRepeat'
383        TabOrder = 1
384      end
385    end
386  end
387  object PanelWarnings: TPanel
388    Left = 0
389    Height = 22
390    Top = 319
391    Width = 424
392    Align = alBottom
393    AutoSize = True
394    BevelOuter = bvNone
395    ClientHeight = 22
396    ClientWidth = 424
397    TabOrder = 3
398    Visible = False
399    object LabelWarning: TLabel
400      Left = 0
401      Height = 22
402      Top = 0
403      Width = 401
404      Align = alClient
405      Font.Color = clRed
406      ParentColor = False
407      ParentFont = False
408      WordWrap = True
409    end
410    object PnlWarnClose: TPanel
411      Left = 401
412      Height = 22
413      Top = 0
414      Width = 23
415      Align = alRight
416      AutoSize = True
417      BevelOuter = bvNone
418      ClientHeight = 22
419      ClientWidth = 23
420      TabOrder = 0
421      object BtnWarnClose: TSpeedButton
422        Left = 0
423        Height = 22
424        Top = 0
425        Width = 23
426        OnClick = BtnWarnCloseClick
427      end
428    end
429  end
430  object PopupMenu1: TPopupMenu
431    left = 144
432    top = 72
433    object mnExport: TMenuItem
434      Caption = 'New Item1'
435      OnClick = mnExportClick
436    end
437    object mnImport: TMenuItem
438      Caption = 'New Item2'
439      OnClick = mnImportClick
440    end
441  end
442  object SaveDialog1: TSaveDialog
443    DefaultExt = '.xml'
444    Filter = 'xml|*.xml|*|*'
445    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail]
446    left = 24
447    top = 56
448  end
449  object OpenDialog1: TOpenDialog
450    DefaultExt = '.xml'
451    Filter = 'xml|*.xml|*|*'
452    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
453    left = 88
454    top = 64
455  end
456end
457