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

IDE: fix the proper loading keyschema flags, issue #39817

Browse Source
This commit is contained in:
Dmitry Boyarintsev 2022-07-20 16:18:59 -04:00 committed by Maxim Ganetsky
parent f139def054
commit b1822df52c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_keymapping_options.pas
View File

@ -288,7 +288,7 @@ begin
exp.DefineCommandCategories; // default Relations
nm := xml.GetValue('Name/Value','');
if nm = '' then nm := ExtractFileName(xml.FileName);
exp.LoadFromXMLConfig(xml, 'KeyMapping/', true);
exp.LoadFromXMLConfig(xml, 'KeyMapping/', false);
for i:=0 to exp.RelationCount-1 do begin
src := exp.Relations[i];
dst := FEditingKeyMap.FindByCommand(src.Command);

2
ide/keymapping.pp
View File

@ -4367,7 +4367,7 @@ begin
if nm = '' then nm := ExtractFileName(fn[i]);
if (dst.IndexOf(nm)<0) then begin
exp.DefineCommandCategories; // default Relations
exp.LoadFromXMLConfig(xml, 'KeyMapping/', true);
exp.LoadFromXMLConfig(xml, 'KeyMapping/', false);
dst.AddObject(nm, exp);
end;
except