editor: hold middle mouse button while selecting for multi caret (in column mode)

Author: ollydev

.github/workflows/archive.yml

@@ -63,6 +63,7 @@ jobs:
           echo "https://github.com/Villavu/Simba-Build-Archive/blob/main/$date_year/$date_month_day%20$branch%20$commit/Win32.zip?raw=true" > latest.win32
           echo "https://github.com/Villavu/Simba-Build-Archive/blob/main/$date_year/$date_month_day%20$branch%20$commit/Win64.zip?raw=true" > latest.win64
           echo "https://github.com/Villavu/Simba-Build-Archive/blob/main/$date_year/$date_month_day%20$branch%20$commit/Win64%20DebugInfo.zip?raw=true" > latest.win64debuginfo
+          echo "https://github.com/Villavu/Simba-Build-Archive/blob/main/$date_year/$date_month_day%20$branch%20$commit/Linux64.zip?raw=true" > latest.linux64
           echo "https://github.com/Villavu/Simba-Build-Archive/blob/main/$date_year/$date_month_day%20$branch%20$commit/Mac.zip?raw=true" > latest.mac
           echo "https://github.com/Villavu/Simba-Build-Archive/blob/main/$date_year/$date_month_day%20$branch%20$commit/Mac%20Arm.zip?raw=true" > latest.macarm
 

Source/ide/simba.ide_editor_multicaret.pas

@@ -30,20 +30,32 @@ implementation
 
 function TSimbaEditorPlugin_MultiCaret.DoSimbaHandleMouseAction(AnAction: TSynEditMouseAction; var AnInfo: TSynEditMouseActionInfo): Boolean;
 begin
+  // default to adding in selection if available
   if (AnAction.Command = emcPluginMultiCaretToggleCaret) and Editor.SelAvail then
     AnAction.Command := emcPluginMultiCaretSelectionToCarets;
 
   Result := DoHandleMouseAction(AnAction, AnInfo);
 end;
 
 procedure TSimbaEditorPlugin_MultiCaret.DoEditorAdded(AValue: TCustomSynEdit);
+var
+  I: Integer;
 begin
   inherited DoEditorAdded(AValue);
 
   if (AValue <> nil) then
   begin
     AValue.UnRegisterMouseActionExecHandler(@DoHandleMouseAction);
     AValue.RegisterMouseActionExecHandler(@DoSimbaHandleMouseAction);
+
+    // middle mouse click and selection does multi caret in column mode
+    for I := 0 to AValue.MouseTextActions.Count - 1 do
+      if (AValue.MouseTextActions[I].Command = emcPasteSelection) then
+      begin
+        AValue.MouseTextActions.Delete(I);
+        Break;
+      end;
+    AValue.MouseTextActions.AddCommand(emcStartColumnSelections, True, mbXMiddle, ccSingle, cdDown, [], []);
   end;
 end;