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
|
object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
Left = 0
Height = 424
Top = 0
Width = 459
ClientHeight = 424
ClientWidth = 459
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 = 305
OnAfterFilter = FilterEditAfterFilter
OnFilterItem = FilterEditFilterItem
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
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 = 324
Height = 29
Top = 3
Width = 98
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 19
BorderSpacing.Right = 2
Caption = 'FindKeyButton'
OnClick = FindKeyButtonClick
TabOrder = 1
end
object ResetKeyFilterBtn: TSpeedButton
AnchorSideTop.Control = FindKeyButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FindKeyButton
AnchorSideBottom.Side = asrBottom
Left = 424
Height = 29
Top = 3
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 = 390
Top = 32
Width = 459
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 2
BevelOuter = bvNone
ClientHeight = 390
ClientWidth = 459
TabOrder = 2
object ConflictsTreeView: TTreeView
Left = 0
Height = 137
Top = 253
Width = 459
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderWidth = 1
PopupMenu = PopupMenu1
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
OnMouseDown = ConflictsTreeViewMouseDown
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object KeyMapSplitter: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 248
Width = 459
Align = alBottom
OnMoved = KeyMapSplitterMoved
ResizeAnchor = akBottom
end
object TreeView: TTreeView
Left = 0
Height = 181
Top = 3
Width = 459
Align = alClient
BorderSpacing.Top = 3
BorderWidth = 1
PopupMenu = PopupMenu1
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 2
OnDblClick = TreeViewDblClick
OnKeyPress = TreeViewKeyPress
OnSelectionChanged = TreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object BtnPanel: TPanel
Left = 0
Height = 64
Top = 184
Width = 459
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 64
ClientWidth = 459
TabOrder = 3
object ChooseSchemeButton: TBitBtn
AnchorSideLeft.Control = BtnPanel
AnchorSideTop.Control = EditButton
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 29
Top = 35
Width = 139
AutoSize = True
Caption = 'ChooseSchemeButton'
OnClick = ChooseSchemeButtonClick
TabOrder = 0
end
object SchemeLabel: TLabel
AnchorSideLeft.Control = ChooseSchemeButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ChooseSchemeButton
AnchorSideTop.Side = asrCenter
Left = 145
Height = 17
Top = 41
Width = 78
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 = 177
Height = 29
Top = 0
Width = 83
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'ClearButton'
OnClick = ClearButtonClick
TabOrder = 1
end
object EditButton: TBitBtn
AnchorSideLeft.Control = CommandLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnPanel
Left = 97
Height = 29
Top = 0
Width = 74
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'EditButton'
OnClick = EditButtonClick
TabOrder = 2
end
object CommandLabel: TLabel
AnchorSideLeft.Control = BtnPanel
AnchorSideTop.Control = EditButton
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 6
Width = 91
BorderSpacing.Right = 6
Caption = 'CommandLabel'
ParentColor = False
end
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
|
