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
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
Left = 0
Height = 424
Top = 0
Width = 459
ClientHeight = 424
ClientWidth = 459
ParentFont = False
TabOrder = 0
Visible = False
DesignLeft = 312
DesignTop = 191
object FilterEdit: TTreeFilterEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FindKeyButton
Left = 0
Height = 23
Top = 6
Width = 299
OnAfterFilter = FilterEditAfterFilter
OnFilterItem = FilterEditFilterItem
ButtonWidth = 23
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
NumGlyphs = 1
MaxLength = 0
ParentFont = False
TabOrder = 0
OnKeyPress = FilterEditKeyPress
FilteredTreeview = TreeView
ExpandAllInitially = True
end
object FindKeyButton: TBitBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ResetKeyFilterBtn
Left = 318
Height = 25
Top = 5
Width = 104
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 19
BorderSpacing.Right = 2
Caption = 'FindKeyButton'
TabOrder = 1
OnClick = FindKeyButtonClick
end
object ResetKeyFilterBtn: TSpeedButton
AnchorSideTop.Control = FindKeyButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FindKeyButton
AnchorSideBottom.Side = asrBottom
Left = 424
Height = 25
Top = 5
Width = 29
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
OnClick = ResetKeyFilterBtnClick
end
object KeyMapTreePanel: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FindKeyButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 392
Top = 30
Width = 459
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 2
BevelOuter = bvNone
ClientHeight = 392
ClientWidth = 459
TabOrder = 2
object pnlKeys: TPanel
Left = 0
Height = 207
Top = 0
Width = 459
Align = alClient
BevelOuter = bvNone
ClientHeight = 207
ClientWidth = 459
TabOrder = 2
object TreeView: TTreeView
Left = 0
Height = 147
Top = 3
Width = 459
Align = alClient
BorderSpacing.Top = 3
BorderWidth = 1
PopupMenu = PopupMenu1
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
OnDblClick = TreeViewDblClick
OnKeyPress = TreeViewKeyPress
OnSelectionChanged = TreeViewSelectionChanged
end
object BtnPanel: TPanel
Left = 0
Height = 57
Top = 150
Width = 459
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 57
ClientWidth = 459
TabOrder = 1
object ChooseSchemeButton: TBitBtn
AnchorSideLeft.Control = BtnPanel
AnchorSideTop.Control = EditButton
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 25
Top = 31
Width = 144
AutoSize = True
Caption = 'ChooseSchemeButton'
TabOrder = 0
OnClick = ChooseSchemeButtonClick
end
object SchemeLabel: TLabel
AnchorSideLeft.Control = ChooseSchemeButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ChooseSchemeButton
AnchorSideTop.Side = asrCenter
Left = 150
Height = 15
Top = 36
Width = 70
BorderSpacing.Around = 6
Caption = 'SchemeLabel'
ParentColor = False
end
object ClearButton: TBitBtn
AnchorSideLeft.Control = EditButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnPanel
AnchorSideRight.Control = BtnPanel
AnchorSideRight.Side = asrBottom
Left = 179
Height = 25
Top = 0
Width = 89
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'ClearButton'
TabOrder = 1
OnClick = ClearButtonClick
end
object EditButton: TBitBtn
AnchorSideLeft.Control = CommandLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnPanel
Left = 91
Height = 25
Top = 0
Width = 82
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'EditButton'
TabOrder = 2
OnClick = EditButtonClick
end
object CommandLabel: TLabel
AnchorSideLeft.Control = BtnPanel
AnchorSideTop.Control = EditButton
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 5
Width = 85
BorderSpacing.Right = 6
Caption = 'CommandLabel'
ParentColor = False
end
object ExportButton: TButton
AnchorSideLeft.Control = ClearButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ClearButton
AnchorSideTop.Side = asrCenter
Left = 288
Height = 25
Top = 0
Width = 96
AutoSize = True
BorderSpacing.Left = 20
Caption = 'ExportButton'
TabOrder = 3
OnClick = ExportButtonClick
end
end
end
object KeyMapSplitter: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 207
Width = 459
Align = alBottom
ResizeAnchor = akBottom
OnMoved = KeyMapSplitterMoved
end
object ConflictsTreeView: TTreeView
Left = 0
Height = 180
Top = 212
Width = 459
Align = alBottom
BorderWidth = 1
PopupMenu = PopupMenu1
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
OnMouseDown = ConflictsTreeViewMouseDown
end
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 352
Top = 48
object EditMenuItem: TMenuItem
Caption = 'Edit Key Mapping'
OnClick = EditMenuItemClick
end
object ClearMenuItem: TMenuItem
Caption = 'Clear Key Mapping'
OnClick = ClearMenuItemClick
end
end
end
|
