Support VSCode mouse behavior. 💪

jrsoftware · Jun 23, 2024 · dd69134 · dd69134
1 parent 315ab3e
commit dd69134
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 5 deletions.
diff --git a/Files/isscint.dll b/Files/isscint.dll
diff --git a/ISHelp/isetup.xml b/ISHelp/isetup.xml
@@ -3255,16 +3255,16 @@ Filename: "{win}\MYPROG.INI"; Section: "InstallSettings"; Key: "InstallPath"; St
   <td>Select all.</td><td>Ctrl+A or Ctrl+Click on line number</td>
 </tr>
 <tr>
-  <td>Add additional caret or selection.</td><td>Ctrl+Click or Ctrl+Drag</td>
+  <td>Add additional caret or selection.</td><td>Ctrl+Click or Ctrl+Drag</td><td>Alt+Click or Alt+Drag</td>
 </tr>
 <tr>
-  <td>Remove a selection by clicking it.</td><td>Ctrl+Click</td>
+  <td>Remove a selection by clicking it.</td><td>Ctrl+Click</td><td>Alt+Click</td>
 </tr>
 <tr>
-  <td>Add word as additional selection.</td><td>Ctrl+DoubleClick</td>
+  <td>Add word as additional selection.</td><td>Ctrl+DoubleClick</td><td>Alt+DoubleClick</td>
 </tr>
 <tr>
-  <td>Add line as additional selection.</td><td>Ctrl+TripleClick</td>
+  <td>Add line as additional selection.</td><td>Ctrl+TripleClick</td><td>Alt+TripleClick</td>
 </tr>
 <tr>
   <td>&nbsp;</td>
@@ -3285,7 +3285,7 @@ Filename: "{win}\MYPROG.INI"; Section: "InstallSettings"; Key: "InstallPath"; St
   <td>&nbsp;</td>
 </tr>
 <tr>
-  <td>Perform rectangular block selection (mouse). Shift extends selection.</td><td>Alt+Drag</td>
+  <td>Perform rectangular block selection (mouse). Shift extends selection.</td><td>Alt+Drag</td><td>Shift+Alt+Drag</td>
 </tr>
 <tr>
   <td>Perform rectangular block selection (keyboard).</td><td>Shift+Alt+Arrow</td><td>Ctrl+Shift+Alt+Arrow</td>

diff --git a/Projects/Src/CompScintEdit.pas b/Projects/Src/CompScintEdit.pas
@@ -404,6 +404,8 @@ procedure TCompScintEdit.SetKeyMappingType(
     end;
 
     UpdateComplexCommands;
+
+    Call(SCI_SETMOUSEVSCODE, Ord(FKeyMappingType = kmtVSCode), 0);
   end;
 end;
 

diff --git a/Projects/Src/IsscintInt.pas b/Projects/Src/IsscintInt.pas
@@ -18,6 +18,8 @@ interface
   SCI_AUTOGSETSTYLEOFFSET = 2807;
   SCI_LINETAB = 2808;
   SCI_LINEBACKTAB = 2809;
+  SCI_SETMOUSEVSCODE = 2810;
+  SCI_GETMOUSEVSCODE = 2811;
   SC_MASK_HISTORY = $01E00000;
 
 implementation
-Original file line number
+Diff line change
@@ Expand Up / @@ -404,6 +404,8 @@ procedure TCompScintEdit.SetKeyMappingType( @@
         end;
         UpdateComplexCommands;
+        Call(SCI_SETMOUSEVSCODE, Ord(FKeyMappingType = kmtVSCode), 0);
       end;
     end;
@@ Expand Down @@