diff --git a/ide/keymapping.pp b/ide/keymapping.pp index 5a481ac4fb..0cbcf62efb 100644 --- a/ide/keymapping.pp +++ b/ide/keymapping.pp @@ -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); diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index d8578f10b4..a97d73a855 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -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';