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
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
object ActionListEditor: TActionListEditor
Left = 497
Height = 315
Top = 189
Width = 404
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
Caption = 'ActionListEditor'
ClientHeight = 315
ClientWidth = 404
KeyPreview = True
Position = poScreenCenter
LCLVersion = '4.99.0.0'
OnClose = ActionListEditorClose
OnCreate = FormCreate
OnHide = FormHide
OnKeyDown = ActionListEditorKeyDown
OnKeyPress = ActionListEditorKeyPress
OnShow = FormShow
object PanelDescr: TPanel
Left = 0
Height = 26
Top = 28
Width = 404
Align = alTop
BevelOuter = bvNone
ClientHeight = 26
ClientWidth = 404
FullRepaint = False
PopupMenu = PopMenuActions
TabOrder = 0
object lblCategory: TLabel
Left = 6
Height = 15
Top = 6
Width = 59
Caption = 'Categories:'
end
object lblName: TLabel
Left = 162
Height = 15
Top = 6
Width = 43
Caption = 'Actions:'
end
end
object Splitter: TSplitter
Left = 152
Height = 261
Top = 54
Width = 5
AutoSnap = False
OnCanResize = SplitterCanResize
end
object lstCategory: TListBox
Left = 0
Height = 261
Top = 54
Width = 152
Align = alLeft
ItemHeight = 0
PopupMenu = PopMenuActions
TabOrder = 1
OnClick = lstCategoryClick
OnMouseDown = lstActionNameMouseDown
end
object ToolBar1: TToolBar
Left = 0
Height = 28
Top = 0
Width = 404
ButtonHeight = 26
ButtonWidth = 26
Caption = 'ToolBar1'
EdgeBorders = []
EdgeInner = esNone
EdgeOuter = esNone
ParentShowHint = False
ShowHint = True
TabOrder = 3
object btnAdd: TToolButton
Left = 1
Top = 0
Action = ActNew
DropdownMenu = PopMenuToolBarActions
Style = tbsDropDown
end
object btnDelete: TToolButton
Left = 39
Top = 0
Action = ActDelete
end
object ToolButton4: TToolButton
Left = 65
Height = 26
Top = 0
Caption = 'ToolButton4'
Style = tbsDivider
end
object btnUp: TToolButton
Left = 68
Top = 0
Action = ActMoveUp
end
object btnDown: TToolButton
Left = 94
Top = 0
Action = ActMoveDown
end
end
object ActionListSelf: TActionList
Left = 56
Top = 260
object ActDelete: TAction
Category = 'AddDelete'
ShortCut = 46
OnExecute = ActDeleteExecute
OnUpdate = ActDeleteUpdate
end
object ActNew: TAction
Category = 'AddDelete'
ShortCut = 45
OnExecute = ActNewExecute
end
object ActNewStd: TAction
Category = 'AddDelete'
ShortCut = 16429
OnExecute = ActNewStdExecute
end
object ActMoveUp: TAction
Category = 'MoveUpDown'
ShortCut = 16422
OnExecute = ActMoveUpDownExecute
OnUpdate = ActMoveUpUpdate
end
object ActMoveDown: TAction
Category = 'MoveUpDown'
ShortCut = 16424
OnExecute = ActMoveUpDownExecute
OnUpdate = ActMoveDownUpdate
end
object ActPanelDescr: TAction
Category = 'Panels'
AutoCheck = True
Caption = 'ActPanelDescr'
Checked = True
OnExecute = ActPanelDescrExecute
end
object ActPanelToolBar: TAction
Category = 'Panels'
AutoCheck = True
Caption = 'ActPanelToolBar'
Checked = True
OnExecute = ActPanelToolBarExecute
end
end
object PopMenuActions: TPopupMenu
Left = 56
Top = 216
object mItemActListNewAction: TMenuItem
Action = ActNew
Caption = 'New Action'
OnClick = ActNewExecute
end
object mItemActListNewStdAction: TMenuItem
Action = ActNewStd
OnClick = ActNewStdExecute
end
object MenuItem8: TMenuItem
Caption = '-'
end
object mItemActListMoveUpAction: TMenuItem
Action = ActMoveUp
Caption = 'Move Up'
OnClick = ActMoveUpDownExecute
end
object mItemActListMoveDownAction: TMenuItem
Action = ActMoveDown
Caption = 'Move Down'
OnClick = ActMoveUpDownExecute
end
object MenuItem6: TMenuItem
Caption = '-'
end
object mItemActListDelAction: TMenuItem
Action = ActDelete
Caption = 'Delete'
OnClick = ActDeleteExecute
end
object MenuItem1: TMenuItem
Caption = '-'
end
object mItemActListPanelDescr: TMenuItem
Action = ActPanelDescr
AutoCheck = True
OnClick = ActPanelDescrExecute
end
object MenuItem2: TMenuItem
Action = ActPanelToolBar
AutoCheck = True
OnClick = ActPanelToolBarExecute
end
end
object PopMenuToolBarActions: TPopupMenu
Left = 56
Top = 164
object mItemToolBarNewAction: TMenuItem
Action = ActNew
Default = True
OnClick = ActNewExecute
end
object mItemToolBarNewStdAction: TMenuItem
Action = ActNewStd
OnClick = ActNewStdExecute
end
end
end
|
