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

IDE/Keymap: missing entries for select+cursor-keys

Browse Source 
git-svn-id: trunk@37935 -
This commit is contained in:
martin 2012-07-13 17:33:54 +00:00
parent a0b2cea175
commit d8c6d6b842
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/keymapping.pp
View File

@ -891,6 +891,10 @@ begin
ecScrollRight: SetSingle(VK_UNKNOWN,[]);
// selection
ecSelLeft: SetSingle(VK_LEFT,[ssShift]);
ecSelRight: SetSingle(VK_RIGHT,[ssShift]);
ecSelUp: SetSingle(VK_UP,[ssShift]);
ecSelDown: SetSingle(VK_DOWN,[ssShift]);
ecCopy: SetSingle(VK_C,[ssCtrl], VK_Insert,[ssCtrl]);
ecCut: SetSingle(VK_X,[ssCtrl], VK_Delete,[ssShift]);
ecPaste: SetSingle(VK_V,[ssCtrl], VK_Insert,[ssShift]);
@ -1339,6 +1343,10 @@ begin
ecScrollRight: SetSingle(VK_UNKNOWN,[]);
// selection
ecSelLeft: SetSingle(VK_LEFT,[ssShift]);
ecSelRight: SetSingle(VK_RIGHT,[ssShift]);
ecSelUp: SetSingle(VK_UP,[ssShift]);
ecSelDown: SetSingle(VK_DOWN,[ssShift]);
ecCopy: SetSingle(VK_Insert,[ssCtrl]);
ecCut: SetSingle(VK_Delete,[ssShift]);
ecPaste: SetSingle(VK_Insert,[ssShift]);
@ -1946,6 +1954,10 @@ begin
ecScrollRight: SetSingle(VK_UNKNOWN,[]);
// selection
ecSelLeft: SetSingle(VK_LEFT,[ssShift]);
ecSelRight: SetSingle(VK_RIGHT,[ssShift]);
ecSelUp: SetSingle(VK_UP,[ssShift]);
ecSelDown: SetSingle(VK_DOWN,[ssShift]);
ecCopy: SetSingle(VK_C,[ssMeta], VK_Insert,[ssCtrl]);
ecCut: SetSingle(VK_X,[ssMeta], VK_Delete,[ssShift]);
ecPaste: SetSingle(VK_V,[ssMeta], VK_Insert,[ssShift]);
@ -2371,6 +2383,10 @@ begin
ecEditorBottom: SetSingle(VK_DOWN,[ssMeta]);
// selection
ecSelLeft: SetSingle(VK_LEFT,[ssShift]);
ecSelRight: SetSingle(VK_RIGHT,[ssShift]);
ecSelUp: SetSingle(VK_UP,[ssShift]);
ecSelDown: SetSingle(VK_DOWN,[ssShift]);
ecSelLineStart: SetSingle(VK_HOME,[ssShift], VK_LEFT,[ssMeta,ssShift]);
ecSelLineEnd: SetSingle(VK_END,[ssShift], VK_RIGHT,[ssMeta,ssShift]);
ecSelEditorTop: SetSingle(VK_HOME,[ssShift,ssCtrl]);
@ -2463,6 +2479,11 @@ begin
// selection
C:=Categories[AddCategory('Selection',srkmCatSelection, IDECmdScopeSrcEditOnly)];
AddDefault(C, 'Select cursor left', srkmecSelLeft, ecSelLeft);
AddDefault(C, 'Select cursor right', srkmecSelRight, ecSelRight);
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);

4
ide/lazarusidestrconsts.pas
View File

@ -2536,8 +2536,8 @@ resourcestring
srkmecSelStickyCol = 'Start sticky selecting (Columns)';
srkmecSelStickyLine = 'Start sticky selecting (Line)';
srkmecSelStickyStop = 'Stop sticky selecting';
srkmecSelLeft = 'SelLeft';
srkmecSelRight = 'SelRight';
srkmecSelLeft = 'Select Left';
srkmecSelRight = 'Select Right';
srkmecSelUp = 'Select Up';
srkmecSelDown = 'Select Down';
srkmecSelWordLeft = 'Select Word Left';