diff --git a/ISHelp/isetup.xml b/ISHelp/isetup.xml index d3226eeb1..c8c2a1b62 100644 --- a/ISHelp/isetup.xml +++ b/ISHelp/isetup.xml @@ -3188,12 +3188,6 @@ Filename: "{win}\MYPROG.INI"; Section: "InstallSettings"; Key: "InstallPath"; St Go to next word. Shift extends selection.Ctrl+Right - - Go to previous word part. Shift extends selection.Ctrl+/ - - - Go to next word part. Shift extends selection.Ctrl+\ - Scroll up.Ctrl+Up diff --git a/Projects/Src/CompScintEdit.pas b/Projects/Src/CompScintEdit.pas index 81a732e5d..8caf52c94 100644 --- a/Projects/Src/CompScintEdit.pas +++ b/Projects/Src/CompScintEdit.pas @@ -341,6 +341,8 @@ procedure TCompScintEdit.SetKeyMappingType( AssignCmdKey(SCK_DOWN, [ssAlt], SCI_MOVESELECTEDLINESDOWN); end; Call(SCI_SETMOUSEMAPPING, Ord(FKeyMappingType = kmtVSCode), 0); + ClearCmdKey('/', [ssCtrl]); + ClearCmdKey('\', [ssCtrl]); UpdateComplexCommands; end; end; @@ -350,6 +352,9 @@ procedure TCompScintEdit.UpdateComplexCommands; FComplexCommands.Clear; FComplexCommandsReversed.Clear; + { VK_OEM_1 is ;, VK_OEM_6 is ], VK_OEM_4 is [, VK_OEM_2 is / + See https://code.visualstudio.com/docs/getstarted/keybindings#_keyboard-layouts } + if FKeyMappingType = kmtVSCode then begin { Use freed Ctrl+D and Ctrl+Shift+L } AddComplexCommand(ShortCut(KeyToKeyCode('D'), [ssCtrl]), ccSelectNextOccurrence); @@ -364,6 +369,7 @@ procedure TCompScintEdit.UpdateComplexCommands; AddComplexCommand(ShortCut(VK_ESCAPE, []), ccSimplifySelection); AddComplexCommand(ShortCut(VK_OEM_6, [ssShift, ssCtrl]), ccUnfoldLine); AddComplexCommand(ShortCut(VK_OEM_4, [ssShift, ssCtrl]), ccFoldLine); + { Use freed Ctrl+/ } AddComplexCommand(ShortCut(VK_OEM_2, [ssCtrl]), ccToggleLinesComment); end;