paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: adding Export/Import key mapping, issue #39797

Browse Source
This commit is contained in:
Dmitry Boyarintsev 2022-06-14 13:31:47 -04:00 committed by Maxim Ganetsky
parent 59fbc4f9ee
commit 0b9dbd2a6d
2 changed files with 101 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/frames/editor_keymapping_options.lfm
View File

@ -208,6 +208,34 @@ object EditorKeymappingOptionsFrame: TEditorKeymappingOptionsFrame
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 = 75
BorderSpacing.Left = 20
Caption = 'ExportButton'
OnClick = ExportButtonClick
TabOrder = 3
end
object ImportButton: TButton
AnchorSideLeft.Control = ExportButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExportButton
AnchorSideTop.Side = asrCenter
Left = 369
Height = 25
Top = 0
Width = 75
BorderSpacing.Left = 6
Caption = 'ImportButton'
OnClick = ImportButtonClick
TabOrder = 4
end
end
end
object PopupMenu1: TPopupMenu

74
ide/frames/editor_keymapping_options.pas
View File

@ -37,7 +37,7 @@ uses
IDEOptEditorIntf, IDEImagesIntf, SrcEditorIntf, IDECommands,
// IDE
EditorOptions, LazarusIDEStrConsts, editor_general_options,
KeymapSchemeDlg, KeyMapping, KeyMapShortCutDlg;
KeymapSchemeDlg, KeyMapping, KeyMapShortCutDlg, Laz2_XMLCfg;
type
@ -45,6 +45,8 @@ type
TEditorKeymappingOptionsFrame = class(TAbstractIDEOptionsEditor)
BtnPanel: TPanel;
ExportButton: TButton;
ImportButton: TButton;
ChooseSchemeButton: TBitBtn;
ClearButton: TBitBtn;
EditButton: TBitBtn;
@ -67,6 +69,8 @@ type
procedure EditMenuItemClick(Sender: TObject);
procedure ChooseSchemeButtonClick(Sender: TObject);
procedure ClearButtonClick(Sender: TObject);
procedure ExportButtonClick(Sender: TObject);
procedure ImportButtonClick(Sender: TObject);
procedure FilterEditAfterFilter(Sender: TObject);
function FilterEditFilterItem(ItemData: Pointer; out Done: Boolean): Boolean;
procedure FilterEditKeyPress(Sender: TObject; var {%H-}Key: char);
@ -229,6 +233,72 @@ begin
ClearCommandMapping(TreeView.Selected)
end;
procedure TEditorKeymappingOptionsFrame.ExportButtonClick(Sender: TObject);
var
dlg : TSaveDialog;
xml : TXMLConfig;
exp : TKeyCommandRelationList;
i : integer;
begin
xml := nil;
dlg := TSaveDialog.Create(Self);
exp := TKeyCommandRelationList.Create;
try
if not dlg.Execute then Exit;
xml := TXMLConfig.CreateClean(dlg.FileName);
exp.Assign(FEditingKeyMap);
for i:=0 to exp.RelationCount-1 do begin
exp.Relations[i].SkipSaving := false;
// default must be reset to zero, otherwise it will not be saved by SaveToXmlConfig
// aveToXMLConfig omits any shortcuts matching defaults
exp.Relations[i].DefaultShortcutA := CleanIDEShortCut;
exp.Relations[i].DefaultShortcutB := CleanIDEShortCut;
end;
exp.SaveToXMLConfig(xml, 'KeyMapping/');
finally
exp.Free;
dlg.Free;
xml.Free;
end;
end;
procedure TEditorKeymappingOptionsFrame.ImportButtonClick(Sender: TObject);
var
dlg : TOpenDialog;
xml : TXMLConfig;
exp : TKeyCommandRelationList;
src : TKeyCommandRelation;
dst : TKeyCommandRelation;
i : integer;
begin
xml := nil;
dlg := TSaveDialog.Create(Self);
exp := TKeyCommandRelationList.Create;
try
if not dlg.Execute then Exit;
xml := TXMLConfig.Create(dlg.FileName);
exp.DefineCommandCategories; // default Relations
exp.LoadFromXMLConfig(xml, 'KeyMapping/');
for i:=0 to exp.RelationCount-1 do begin
src := exp.Relations[i];
dst := FEditingKeyMap.FindByCommand(src.Command);
if Assigned(dst) then begin
dst.ShortcutA := src.ShortcutA;
dst.ShortcutB := src.ShortcutB;
end;
end;
FillKeyMappingTreeView;
fModified:=True;
UpdateSchemeLabel;
UpdateConflictTree;
finally
exp.Free;
dlg.Free;
xml.Free;
end;
end;
function TEditorKeymappingOptionsFrame.FilterEditFilterItem(ItemData: Pointer;
out Done: Boolean): Boolean;
var
@ -388,6 +458,8 @@ begin
ClearButton.Caption := lisClear;
EditMenuItem.Caption := lisEdit;
ClearMenuItem.Caption := lisClear;
ImportButton.Caption := lisImport;
ExportButton.Caption := lisExport;
TreeView.Images := IDEImages.Images_16;
ConflictsTreeView.Images := IDEImages.Images_16;