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

IDE: removed a number of keymappings-related duplicate resource strings

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-02-23 12:13:26 +03:00
parent 945b69cf99
commit a356cd0957
2 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/keymapping.pp
View File

@ -3049,15 +3049,8 @@ begin
// folding
C:=Categories[AddCategory('Folding',srkmCatFold,IDECmdScopeSrcEditOnly)];
AddDefault(C, 'Fold to Level 1', Format(srkmEcFoldLevel,[1]), EcFoldLevel1);
AddDefault(C, 'Fold to Level 2', Format(srkmEcFoldLevel,[2]), EcFoldLevel2);
AddDefault(C, 'Fold to Level 3', Format(srkmEcFoldLevel,[3]), EcFoldLevel3);
AddDefault(C, 'Fold to Level 4', Format(srkmEcFoldLevel,[4]), EcFoldLevel4);
AddDefault(C, 'Fold to Level 5', Format(srkmEcFoldLevel,[5]), EcFoldLevel5);
AddDefault(C, 'Fold to Level 6', Format(srkmEcFoldLevel,[6]), EcFoldLevel6);
AddDefault(C, 'Fold to Level 7', Format(srkmEcFoldLevel,[7]), EcFoldLevel7);
AddDefault(C, 'Fold to Level 8', Format(srkmEcFoldLevel,[8]), EcFoldLevel8);
AddDefault(C, 'Fold to Level 9', Format(srkmEcFoldLevel,[9]), EcFoldLevel9);
for i:=0 to 8 do
AddDefault(C, Format('Fold to Level %d', [i+1]), Format(srkmEcFoldLevel,[i+1]), EcFoldLevel1+i);
AddDefault(C, 'Unfold all', srkmecUnFoldAll, EcFoldLevel0);
AddDefault(C, 'Fold at Cursor', srkmecFoldCurrent, EcFoldCurrent);
AddDefault(C, 'Unfold at Cursor', srkmecUnFoldCurrent, EcUnFoldCurrent);
@ -3238,16 +3231,9 @@ begin
AddDefault(C, 'Move editor right', srkmecMoveEditorRight, ecMoveEditorRight);
AddDefault(C, 'Move editor leftmost', srkmecMoveEditorLeftmost, ecMoveEditorLeftmost);
AddDefault(C, 'Move editor rightmoust', srkmecMoveEditorRightmost, ecMoveEditorRightmost);
AddDefault(C, 'Go to source editor 1', lisKMGoToSourceEditor1, ecGotoEditor1);
AddDefault(C, 'Go to source editor 2', lisKMGoToSourceEditor2, ecGotoEditor2);
AddDefault(C, 'Go to source editor 3', lisKMGoToSourceEditor3, ecGotoEditor3);
AddDefault(C, 'Go to source editor 4', lisKMGoToSourceEditor4, ecGotoEditor4);
AddDefault(C, 'Go to source editor 5', lisKMGoToSourceEditor5, ecGotoEditor5);
AddDefault(C, 'Go to source editor 6', lisKMGoToSourceEditor6, ecGotoEditor6);
AddDefault(C, 'Go to source editor 7', lisKMGoToSourceEditor7, ecGotoEditor7);
AddDefault(C, 'Go to source editor 8', lisKMGoToSourceEditor8, ecGotoEditor8);
AddDefault(C, 'Go to source editor 9', lisKMGoToSourceEditor9, ecGotoEditor9);
AddDefault(C, 'Go to source editor 10', lisKMGoToSourceEditor10, ecGotoEditor0);
for i:=0 to 9 do
AddDefault(C, Format('Go to source editor %d', [i+1]), Format(srkmecGotoEditor, [i+1]), ecGotoEditor1+i);
AddDefault(C, 'Go to next shared editor', srkmecNextSharedEditor, ecNextSharedEditor);
AddDefault(C, 'Go to prior shared editor', srkmecPrevSharedEditor, ecPrevSharedEditor);

12
ide/lazarusidestrconsts.pas
View File

@ -3188,16 +3188,7 @@ resourcestring
srkmecCopyEditorNewWindow = 'Copy editor to new window';
srkmecLockEditor = 'Lock Editor';
lisKMGoToSourceEditor1 = 'Go to source editor 1';
lisKMGoToSourceEditor2 = 'Go to source editor 2';
lisKMGoToSourceEditor3 = 'Go to source editor 3';
lisKMGoToSourceEditor4 = 'Go to source editor 4';
lisKMGoToSourceEditor5 = 'Go to source editor 5';
lisKMGoToSourceEditor6 = 'Go to source editor 6';
lisKMGoToSourceEditor7 = 'Go to source editor 7';
lisKMGoToSourceEditor8 = 'Go to source editor 8';
lisKMGoToSourceEditor9 = 'Go to source editor 9';
srkmecGotoEditor = 'Go to editor %d';
srkmecGotoEditor = 'Go to source editor %d';
srkmEcFoldLevel = 'Fold to Level %d';
srkmecUnFoldAll = 'Unfold all';
srkmecFoldCurrent = 'Fold at Cursor';
@ -3447,7 +3438,6 @@ resourcestring
srkmCatSrcNoteBook = 'Source Notebook commands';
srkmCatFileMenu = 'File menu commands';
lisKMGoToSourceEditor10 = 'Go to source editor 10';
srkmCatViewMenu = 'View menu commands';
lisKMToggleViewObjectInspector = 'Toggle view Object Inspector';
lisKMToggleViewSourceEditor = 'Toggle view Source Editor';