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: Move clipboard IDE commands to a separate category. Merge request !400.

Browse Source
This commit is contained in:
n7800 2024-12-10 23:34:29 +05:00 committed by Juha
parent 0ae105c41b
commit e06e4ac58b
2 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/keymapping.pp
View File

@ -2865,17 +2865,6 @@ begin
AddDefault(C, 'Select cursor up', srkmecSelUp, ecSelUp);
AddDefault(C, 'Select cursor down', srkmecSelDown, ecSelDown);
AddDefault(C, 'Copy selection to clipboard', srkmecCopy, ecCopy);
AddDefault(C, 'Cut selection to clipboard', srkmecCut, ecCut);
AddDefault(C, 'Paste clipboard to current position', srkmecPaste, ecPaste);
AddDefault(C, 'Paste clipboard (as columns) to current position', srkmecPasteAsColumns, ecPasteAsColumns);
AddDefault(C, 'Copy - Add to Clipboard', srkmecCopyAdd, ecCopyAdd);
AddDefault(C, 'Cut - Add to Clipboard', srkmecCutAdd, ecCutAdd);
AddDefault(C, 'Copy current line', srkmecCopyCurrentLine, ecCopyCurrentLine);
AddDefault(C, 'Copy current line - Add to Clipboard', srkmecCopyAddCurrentLine, ecCopyAddCurrentLine);
AddDefault(C, 'Cut current line', srkmecCutCurrentLine, ecCutCurrentLine);
AddDefault(C, 'Cut current line - Add to Clipboard', srkmecCutAddCurrentLine, ecCutAddCurrentLine);
AddDefault(C, 'Multi paste clipboard to current position', srkmecMultiPaste, ecMultiPaste);
AddDefault(C, 'Normal selection mode', srkmecNormalSelect, ecNormalSelect);
AddDefault(C, 'Column selection mode', srkmecColumnSelect, ecColumnSelect);
AddDefault(C, 'Line selection mode', srkmecLineSelect, ecLineSelect);
@ -3006,6 +2995,20 @@ begin
AddDefault(C, 'Insert a GUID',srkmecInsertGUID, ecInsertGUID);
AddDefault(C, 'Insert full Filename',srkmecInsertFilename, ecInsertFilename);
// clipboard commands
C:=Categories[AddCategory('Clipboard',srkmCatClipboard,IDECmdScopeSrcEditOnly)];
AddDefault(C, 'Copy selection to clipboard', srkmecCopy, ecCopy);
AddDefault(C, 'Cut selection to clipboard', srkmecCut, ecCut);
AddDefault(C, 'Paste clipboard to current position', srkmecPaste, ecPaste);
AddDefault(C, 'Paste clipboard (as columns) to current position', srkmecPasteAsColumns, ecPasteAsColumns);
AddDefault(C, 'Copy - Add to Clipboard', srkmecCopyAdd, ecCopyAdd);
AddDefault(C, 'Cut - Add to Clipboard', srkmecCutAdd, ecCutAdd);
AddDefault(C, 'Copy current line', srkmecCopyCurrentLine, ecCopyCurrentLine);
AddDefault(C, 'Copy current line - Add to Clipboard', srkmecCopyAddCurrentLine, ecCopyAddCurrentLine);
AddDefault(C, 'Cut current line', srkmecCutCurrentLine, ecCutCurrentLine);
AddDefault(C, 'Cut current line - Add to Clipboard', srkmecCutAddCurrentLine, ecCutAddCurrentLine);
AddDefault(C, 'Multi paste clipboard to current position', srkmecMultiPaste, ecMultiPaste);
// command commands
C:=Categories[AddCategory('CommandCommands',srkmCatCmdCmd,nil)];
AddDefault(C, 'Undo', lisUndo, ecUndo);

1
ide/lazarusidestrconsts.pas
View File

@ -3431,6 +3431,7 @@ resourcestring
srkmCatSelection = 'Text selection commands';
srkmCatColSelection = 'Text column selection commands';
srkmCatEditing = 'Text editing commands';
srkmCatClipboard = 'Clipboard commands';
lisKMDeleteLastChar = 'Delete last char';
srkmCatCmdCmd = 'Command commands';
srkmCatMultiCaret = 'Multi caret commands';