1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
object ExternalToolDialog: TExternalToolDialog
Left = 334
Height = 347
Top = 226
Width = 451
ActiveControl = ListBox
BorderIcons = [biSystemMenu]
Caption = 'ExternalToolDialog'
ClientHeight = 347
ClientWidth = 451
Position = poScreenCenter
LCLVersion = '1.5'
object ToolBar: TToolBar
Left = 0
Height = 94
Top = 0
Width = 451
AutoSize = True
ButtonHeight = 46
ButtonWidth = 47
Caption = 'ToolBar'
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
object MoveDownButton: TToolButton
Left = 312
Top = 2
Caption = 'MoveDownButton'
ImageIndex = 4
OnClick = MoveDownButtonClick
end
object MoveUpButton: TToolButton
Left = 223
Top = 2
Caption = 'MoveUpButton'
ImageIndex = 3
OnClick = MoveUpButtonClick
end
object EditButton: TToolButton
Left = 154
Top = 2
Caption = 'EditButton'
ImageIndex = 2
OnClick = EditButtonClick
end
object RemoveButton: TToolButton
Left = 67
Top = 2
Caption = 'RemoveButton'
ImageIndex = 1
OnClick = RemoveButtonClick
end
object AddButton: TToolButton
Left = 1
Top = 2
Caption = 'AddButton'
ImageIndex = 0
OnClick = AddButtonClick
end
object tbSeparator: TToolButton
Left = 218
Height = 46
Top = 2
Width = 5
Caption = 'tbSeparator'
Style = tbsDivider
end
object tbSeparator2: TToolButton
Left = 417
Height = 46
Top = 2
Width = 5
Caption = 'tbSeparator2'
Style = tbsDivider
end
object ExtraButton: TToolButton
Left = 1
Top = 48
Caption = 'ExtraButton'
DropdownMenu = PopupDropdownMenu
end
end
object ListBox: TListBox
Left = 0
Height = 215
Top = 94
Width = 451
Align = alClient
BorderSpacing.Bottom = 6
ItemHeight = 0
OnClick = ListboxClick
TabOrder = 1
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 315
Width = 439
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end
object PopupDropdownMenu: TPopupMenu
left = 224
top = 48
object MenuItemClone: TMenuItem
Caption = 'MenuItemClone'
OnClick = MenuItemCloneClick
end
object MenuItemSeparator: TMenuItem
Caption = '-'
end
object MenuItemExport: TMenuItem
Caption = 'MenuItemExport'
OnClick = MenuItemExportClick
end
object MenuItemImport: TMenuItem
Caption = 'MenuItemImport'
OnClick = MenuItemImportClick
end
end
object SaveDialog1: TSaveDialog
Filter = 'XML configuration file (*.xml)|*.xml|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
left = 312
top = 40
end
object OpenDialog1: TOpenDialog
Filter = 'XML configuration file (*.xml)|*.xml|All files (*.*)|*.*'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 384
top = 48
end
end
|
