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

IDE: Add ec-commands for "move line up/down", "duplicate line", "copy/cut add to existing clipboard", "copy/cut (add) line/sel to clip"

Browse Source 
git-svn-id: trunk@62186 -
This commit is contained in:
martin 2019-11-04 00:09:26 +00:00
parent dde5b39675
commit 2ddafa3c8b
3 changed files with 41 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ide/keymapping.pp
View File

@ -414,6 +414,15 @@ begin
ecCut : Result:= srkmecCut; ecCut : Result:= srkmecCut;
ecCopy : Result:= srkmecCopy; ecCopy : Result:= srkmecCopy;
ecPaste : Result:= srkmecPaste; ecPaste : Result:= srkmecPaste;
ecCopyAdd : Result:= srkmecCopyAdd;
ecCutAdd : Result:= srkmecCutAdd;
ecCopyCurrentLine : Result:= srkmecCopyCurrentLine;
ecCopyAddCurrentLine : Result:= srkmecCopyAddCurrentLine;
ecCutCurrentLine : Result:= srkmecCutCurrentLine;
ecCutAddCurrentLine : Result:= srkmecCutAddCurrentLine;
ecMoveLineUp : Result:= srkmecMoveLineUp;
ecMoveLineDown : Result:= srkmecMoveLineDown;
ecDuplicateLine : Result:= srkmecDuplicateLine;
ecMultiPaste : Result:= srkmecMultiPaste; ecMultiPaste : Result:= srkmecMultiPaste;
ecScrollUp : Result:= srkmecScrollUp; ecScrollUp : Result:= srkmecScrollUp;
ecScrollDown : Result:= srkmecScrollDown; ecScrollDown : Result:= srkmecScrollDown;
@ -1008,6 +1017,18 @@ begin
ecCopy: SetSingle(VK_C,[XCtrl], VK_Insert,[XCtrl]); ecCopy: SetSingle(VK_C,[XCtrl], VK_Insert,[XCtrl]);
ecCut: SetSingle(VK_X,[XCtrl], VK_Delete,[ssShift]); ecCut: SetSingle(VK_X,[XCtrl], VK_Delete,[ssShift]);
ecPaste: SetSingle(VK_V,[XCtrl], VK_Insert,[ssShift]); ecPaste: SetSingle(VK_V,[XCtrl], VK_Insert,[ssShift]);
ecCopyAdd: SetSingle(VK_C,[XCtrl, ssAlt]);
ecCutAdd: SetSingle(VK_X,[XCtrl, ssAlt]);
ecCopyCurrentLine: SetSingle(VK_Y,[ssAlt]);
ecCopyAddCurrentLine: SetSingle(VK_Y,[ssAlt, ssShift]);
ecCutCurrentLine: SetSingle(VK_D,[ssAlt]);
ecCutAddCurrentLine: SetSingle(VK_D,[ssAlt, ssShift]);
ecMoveLineUp: SetSingle(VK_UP,[XCtrl, ssShift, ssAlt]);
ecMoveLineDown: SetSingle(VK_DOWN,[XCtrl, ssShift, ssAlt]);
ecDuplicateLine: SetSingle(VK_INSERT,[XCtrl, ssShift, ssAlt]);
ecMultiPaste: SetSingle(VK_UNKNOWN,[]); ecMultiPaste: SetSingle(VK_UNKNOWN,[]);
ecNormalSelect: SetSingle(VK_UNKNOWN,[]); ecNormalSelect: SetSingle(VK_UNKNOWN,[]);
ecColumnSelect: SetSingle(VK_UNKNOWN,[]); ecColumnSelect: SetSingle(VK_UNKNOWN,[]);
@ -2669,6 +2690,12 @@ begin
AddDefault(C, 'Copy selection to clipboard', srkmecCopy, ecCopy); AddDefault(C, 'Copy selection to clipboard', srkmecCopy, ecCopy);
AddDefault(C, 'Cut selection to clipboard', srkmecCut, ecCut); AddDefault(C, 'Cut selection to clipboard', srkmecCut, ecCut);
AddDefault(C, 'Paste clipboard to current position', srkmecPaste, ecPaste); AddDefault(C, 'Paste clipboard to current position', srkmecPaste, ecPaste);
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, 'Multi paste clipboard to current position', srkmecMultiPaste, ecMultiPaste);
AddDefault(C, 'Normal selection mode', srkmecNormalSelect, ecNormalSelect); AddDefault(C, 'Normal selection mode', srkmecNormalSelect, ecNormalSelect);
AddDefault(C, 'Column selection mode', srkmecColumnSelect, ecColumnSelect); AddDefault(C, 'Column selection mode', srkmecColumnSelect, ecColumnSelect);
@ -2766,6 +2793,9 @@ begin
AddDefault(C, 'Delete whole text', srkmecClearAll, ecClearAll); AddDefault(C, 'Delete whole text', srkmecClearAll, ecClearAll);
AddDefault(C, 'Break line and move cursor', srkmecLineBreak, ecLineBreak); AddDefault(C, 'Break line and move cursor', srkmecLineBreak, ecLineBreak);
AddDefault(C, 'Break line, leave cursor', srkmecInsertLine, ecInsertLine); AddDefault(C, 'Break line, leave cursor', srkmecInsertLine, ecInsertLine);
AddDefault(C, 'Move one line up', srkmecMoveLineUp, ecMoveLineUp);
AddDefault(C, 'Move one line down', srkmecMoveLineDown, ecMoveLineDown);
AddDefault(C, 'Duplicate line or lines in selection', srkmecDuplicateLine, ecDuplicateLine);
AddDefault(C, 'Enclose in $IFDEF', lisEncloseInIFDEF, ecSelectionEncloseIFDEF); AddDefault(C, 'Enclose in $IFDEF', lisEncloseInIFDEF, ecSelectionEncloseIFDEF);
AddDefault(C, 'Insert from Character Map', lisMenuInsertCharacter, ecInsertCharacter); AddDefault(C, 'Insert from Character Map', lisMenuInsertCharacter, ecInsertCharacter);
AddDefault(C, 'Insert GPL notice', srkmecInsertGPLNotice, ecInsertGPLNotice); AddDefault(C, 'Insert GPL notice', srkmecInsertGPLNotice, ecInsertGPLNotice);

10
ide/lazarusidestrconsts.pas
View File

@ -3115,6 +3115,16 @@ resourcestring
srkmecCut = 'Cut'; srkmecCut = 'Cut';
srkmecCopy = 'Copy'; srkmecCopy = 'Copy';
srkmecPaste = 'Paste'; srkmecPaste = 'Paste';
srkmecCopyAdd = 'Copy (Add to Clipboard)';
srkmecCutAdd = 'Cut (Add to Clipboard)';
srkmecCopyCurrentLine = 'Copy current line';
srkmecCopyAddCurrentLine = 'Copy current line (Add to Clipboard)';
srkmecCutCurrentLine = 'Cut current line';
srkmecCutAddCurrentLine = 'Cut current line (Add to Clipboard)';
srkmecMoveLineUp = 'Move one line up';
srkmecMoveLineDown = 'Move one line down';
srkmecDuplicateLine = 'Duplicate line (or lines in selection)';
srkmecMultiPaste = 'MultiPaste'; srkmecMultiPaste = 'MultiPaste';
srkmecScrollUp = 'Scroll up one line'; srkmecScrollUp = 'Scroll up one line';
srkmecScrollDown = 'Scroll down one line'; srkmecScrollDown = 'Scroll down one line';

2
ide/sourceeditor.pp
View File

@ -3934,7 +3934,7 @@ begin
Manager.AddJumpPointClicked(Self); Manager.AddJumpPointClicked(Self);
end; end;
ecCopy,ecCut: ecCopy,ecCut,ecCopyAdd,ecCutAdd:
begin begin
if (not FEditor.SelAvail) then begin if (not FEditor.SelAvail) then begin
// nothing selected // nothing selected