mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-05 10:07:06 +01:00
190dc4c999
Instead, `Export` button now opens file save dialog in user key scheme subdirectory ('userkeyschemes') of Lazarus settings directory. This behavior is similar to how color schemes are handled.
Thus, user is able to edit scheme, export it and then immediately select it if desired (even without IDE restart). To load an external scheme, user should put it to key scheme subdirectory of Lazarus settings directory and select it in Lazarus settings (no IDE restart needed).
244 lines
6.6 KiB
Plaintext
244 lines
6.6 KiB
Plaintext
object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
|
|
Left = 0
|
|
Height = 530
|
|
Top = 0
|
|
Width = 574
|
|
ClientHeight = 530
|
|
ClientWidth = 574
|
|
DesignTimePPI = 120
|
|
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 = 28
|
|
Top = 8
|
|
Width = 382
|
|
OnAfterFilter = FilterEditAfterFilter
|
|
OnFilterItem = FilterEditFilterItem
|
|
ButtonWidth = 29
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
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 = 406
|
|
Height = 30
|
|
Top = 7
|
|
Width = 122
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Left = 24
|
|
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 = 530
|
|
Height = 30
|
|
Top = 7
|
|
Width = 36
|
|
Anchors = [akTop, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
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 = 491
|
|
Top = 37
|
|
Width = 574
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
BevelOuter = bvNone
|
|
ClientHeight = 491
|
|
ClientWidth = 574
|
|
TabOrder = 2
|
|
object ConflictsTreeView: TTreeView
|
|
Left = 0
|
|
Height = 238
|
|
Top = 253
|
|
Width = 574
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
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
|
|
object KeyMapSplitter: TSplitter
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 6
|
|
Top = 247
|
|
Width = 574
|
|
Align = alBottom
|
|
ResizeAnchor = akBottom
|
|
OnMoved = KeyMapSplitterMoved
|
|
end
|
|
object TreeView: TTreeView
|
|
Left = 0
|
|
Height = 172
|
|
Top = 4
|
|
Width = 574
|
|
Align = alClient
|
|
BorderSpacing.Top = 4
|
|
BorderWidth = 1
|
|
PopupMenu = PopupMenu1
|
|
ReadOnly = True
|
|
RightClickSelect = True
|
|
RowSelect = True
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 2
|
|
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 = 71
|
|
Top = 176
|
|
Width = 574
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 71
|
|
ClientWidth = 574
|
|
TabOrder = 3
|
|
object ChooseSchemeButton: TBitBtn
|
|
AnchorSideLeft.Control = BtnPanel
|
|
AnchorSideTop.Control = EditButton
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 30
|
|
Top = 38
|
|
Width = 171
|
|
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 = 179
|
|
Height = 20
|
|
Top = 43
|
|
Width = 88
|
|
BorderSpacing.Around = 8
|
|
Caption = 'SchemeLabel'
|
|
ParentColor = False
|
|
end
|
|
object ClearButton: TBitBtn
|
|
AnchorSideLeft.Control = EditButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = BtnPanel
|
|
AnchorSideRight.Control = BtnPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 217
|
|
Height = 30
|
|
Top = 0
|
|
Width = 104
|
|
AutoSize = True
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Bottom = 8
|
|
Caption = 'ClearButton'
|
|
TabOrder = 1
|
|
OnClick = ClearButtonClick
|
|
end
|
|
object EditButton: TBitBtn
|
|
AnchorSideLeft.Control = CommandLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = BtnPanel
|
|
Left = 113
|
|
Height = 30
|
|
Top = 0
|
|
Width = 96
|
|
AutoSize = True
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Right = 8
|
|
BorderSpacing.Bottom = 8
|
|
Caption = 'EditButton'
|
|
TabOrder = 2
|
|
OnClick = EditButtonClick
|
|
end
|
|
object CommandLabel: TLabel
|
|
AnchorSideLeft.Control = BtnPanel
|
|
AnchorSideTop.Control = EditButton
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 0
|
|
Height = 20
|
|
Top = 5
|
|
Width = 105
|
|
BorderSpacing.Right = 8
|
|
Caption = 'CommandLabel'
|
|
ParentColor = False
|
|
end
|
|
object ExportButton: TButton
|
|
AnchorSideLeft.Control = ClearButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = ClearButton
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 346
|
|
Height = 30
|
|
Top = 0
|
|
Width = 113
|
|
AutoSize = True
|
|
BorderSpacing.Left = 25
|
|
Caption = 'ExportButton'
|
|
TabOrder = 3
|
|
OnClick = ExportButtonClick
|
|
end
|
|
end
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
OnPopup = PopupMenu1Popup
|
|
Left = 440
|
|
Top = 60
|
|
object EditMenuItem: TMenuItem
|
|
Caption = 'Edit Key Mapping'
|
|
OnClick = EditMenuItemClick
|
|
end
|
|
object ClearMenuItem: TMenuItem
|
|
Caption = 'Clear Key Mapping'
|
|
OnClick = ClearMenuItemClick
|
|
end
|
|
end
|
|
end
|