IDE more mouse options

git-svn-id: trunk@34112 -

ide/editoroptions.pp

@@ -724,39 +724,50 @@ type
     FTextRightMoveCaret: Boolean;
     FUserSchemes: TQuickStringlist;
   private
-    FAltWheel: TMouseOptWheelAction;
-    FCtrlWheel: TMouseOptWheelAction;
     FCustomSavedActions: Boolean;
     FMainActions, FSelActions, FTextActions: TSynEditMouseActions;
-    FShiftWheel: TMouseOptWheelAction;
     FName: String;
     FGutterActions: TSynEditMouseActions;
     FGutterActionsFold, FGutterActionsFoldExp, FGutterActionsFoldCol: TSynEditMouseActions;
     FGutterActionsLines: TSynEditMouseActions;
     FSelectedUserScheme: String;
     // left multi click
-    FTextDoubleLeftClick: TMouseOptButtonActionOld;
-    FTextShiftMiddleClick: TMouseOptButtonAction;
-    FTextTripleLeftClick: TMouseOptButtonActionOld;
-    FTextQuadLeftClick: TMouseOptButtonActionOld;
-    FTextShiftDoubleLeftClick: TMouseOptButtonActionOld;
-    FTextAltDoubleLeftClick: TMouseOptButtonActionOld;
-    FTextCtrlDoubleLeftClick: TMouseOptButtonActionOld;
+    FTextDoubleLeftClick: TMouseOptButtonAction;
+    FTextTripleLeftClick: TMouseOptButtonAction;
+    FTextQuadLeftClick: TMouseOptButtonAction;
+    FTextShiftDoubleLeftClick: TMouseOptButtonAction;
+    FTextAltDoubleLeftClick: TMouseOptButtonAction;
+    FTextCtrlDoubleLeftClick: TMouseOptButtonAction;
     // left + modifier click
-    FTextShiftLeftClick: TMouseOptButtonActionOld;
-    FTextAltLeftClick: TMouseOptButtonActionOld;
+    FTextShiftLeftClick: TMouseOptButtonAction;
+    FTextAltLeftClick: TMouseOptButtonAction;
     FTextCtrlLeftClick: TMouseOptButtonActionOld;
-    FTextCtrlAltLeftClick: TMouseOptButtonActionOld;
-    FTextShiftAltLeftClick: TMouseOptButtonActionOld;
-    FTextShiftCtrlLeftClick: TMouseOptButtonActionOld;
-    FTextShiftCtrlAltLeftClick: TMouseOptButtonActionOld;
+    FTextAltCtrlLeftClick: TMouseOptButtonAction;
+    FTextShiftAltLeftClick: TMouseOptButtonAction;
+    FTextShiftCtrlLeftClick: TMouseOptButtonAction;
+    FTextShiftAltCtrlLeftClick: TMouseOptButtonAction;
     // middle click
     FTextMiddleClick: TMouseOptButtonActionOld;
     FTextAltMiddleClick: TMouseOptButtonAction;
     FTextCtrlMiddleClick: TMouseOptButtonAction;
+    FTextAltCtrlMiddleClick: TMouseOptButtonAction;
+    FTextShiftAltMiddleClick: TMouseOptButtonAction;
+    FTextShiftAltCtrlMiddleClick: TMouseOptButtonAction;
+    FTextShiftCtrlMiddleClick: TMouseOptButtonAction;
+    FTextShiftMiddleClick: TMouseOptButtonAction;
     // extra-1 click
     // extra-2 click
+    // wheel
     FWheel: TMouseOptWheelAction;
+    FAltWheel: TMouseOptWheelAction;
+    FCtrlWheel: TMouseOptWheelAction;
+    FShiftWheel: TMouseOptWheelAction;
+    FShiftAltWheel: TMouseOptWheelAction;
+    FShiftCtrlWheel: TMouseOptWheelAction;
+    FAltCtrlWheel: TMouseOptWheelAction;
+    FShiftAltCtrlWheel: TMouseOptWheelAction;
+
+
     procedure ClearUserSchemes;
     function GetUserSchemeNames(Index: Integer): String;
     function GetUserSchemes(Index: String): TEditorMouseOptions;
@@ -809,32 +820,32 @@ type
     property TextRightMoveCaret: Boolean read FTextRightMoveCaret  write FTextRightMoveCaret
              default False;
     // left multi click
-    property TextDoubleLeftClick: TMouseOptButtonActionOld read FTextDoubleLeftClick write FTextDoubleLeftClick
+    property TextDoubleLeftClick: TMouseOptButtonAction read FTextDoubleLeftClick write FTextDoubleLeftClick
              default mbaSelectSetWord;
-    property TextTripleLeftClick: TMouseOptButtonActionOld read FTextTripleLeftClick write FTextTripleLeftClick
+    property TextTripleLeftClick: TMouseOptButtonAction read FTextTripleLeftClick write FTextTripleLeftClick
              default mbaSelectSetLineSmart;
-    property TextQuadLeftClick: TMouseOptButtonActionOld read FTextQuadLeftClick write FTextQuadLeftClick
+    property TextQuadLeftClick: TMouseOptButtonAction read FTextQuadLeftClick write FTextQuadLeftClick
              default mbaSelectSetPara;
-    property TextShiftDoubleLeftClick: TMouseOptButtonActionOld read FTextShiftDoubleLeftClick write FTextShiftDoubleLeftClick
+    property TextShiftDoubleLeftClick: TMouseOptButtonAction read FTextShiftDoubleLeftClick write FTextShiftDoubleLeftClick
              default mbaNone;
-    property TextCtrlDoubleLeftClick: TMouseOptButtonActionOld read FTextCtrlDoubleLeftClick write FTextCtrlDoubleLeftClick
+    property TextCtrlDoubleLeftClick: TMouseOptButtonAction read FTextCtrlDoubleLeftClick write FTextCtrlDoubleLeftClick
              default mbaNone;
-    property TextAltDoubleLeftClick: TMouseOptButtonActionOld read FTextAltDoubleLeftClick write FTextAltDoubleLeftClick
+    property TextAltDoubleLeftClick: TMouseOptButtonAction read FTextAltDoubleLeftClick write FTextAltDoubleLeftClick
              default mbaNone;
     // left + modifier click
-    property TextShiftLeftClick: TMouseOptButtonActionOld read FTextShiftLeftClick write FTextShiftLeftClick
+    property TextShiftLeftClick: TMouseOptButtonAction read FTextShiftLeftClick write FTextShiftLeftClick
              default mbaNone;  // continue selection
     property TextCtrlLeftClick: TMouseOptButtonActionOld read FTextCtrlLeftClick write SetTextCtrlLeftClick
              default mbaDeclarationJump;
-    property TextAltLeftClick: TMouseOptButtonActionOld read FTextAltLeftClick write FTextAltLeftClick
+    property TextAltLeftClick: TMouseOptButtonAction read FTextAltLeftClick write FTextAltLeftClick
              default mbaSelectColumn;
-    property TextShiftCtrlLeftClick: TMouseOptButtonActionOld read FTextShiftCtrlLeftClick write FTextShiftCtrlLeftClick
+    property TextShiftCtrlLeftClick: TMouseOptButtonAction read FTextShiftCtrlLeftClick write FTextShiftCtrlLeftClick
              default mbaNone;  // continue selection
-    property TextShiftAltLeftClick: TMouseOptButtonActionOld read FTextShiftAltLeftClick write FTextShiftAltLeftClick
+    property TextShiftAltLeftClick: TMouseOptButtonAction read FTextShiftAltLeftClick write FTextShiftAltLeftClick
              default mbaNone;  // continue selection
-    property TextCtrlAltLeftClick: TMouseOptButtonActionOld read FTextCtrlAltLeftClick write FTextCtrlAltLeftClick
+    property TextAltCtrlLeftClick: TMouseOptButtonAction read FTextAltCtrlLeftClick write FTextAltCtrlLeftClick
              default mbaNone;
-    property TextShiftCtrlAltLeftClick: TMouseOptButtonActionOld read FTextShiftCtrlAltLeftClick write FTextShiftCtrlAltLeftClick
+    property TextShiftAltCtrlLeftClick: TMouseOptButtonAction read FTextShiftAltCtrlLeftClick write FTextShiftAltCtrlLeftClick
              default mbaNone;
     // middle click
     property TextMiddleClick: TMouseOptButtonActionOld read FTextMiddleClick write SetTextMiddleClick
@@ -845,6 +856,15 @@ type
              default mbaNone;
     property TextCtrlMiddleClick: TMouseOptButtonAction read FTextCtrlMiddleClick write FTextCtrlMiddleClick
              default mbaZoomReset;
+    property TextShiftAltMiddleClick: TMouseOptButtonAction read FTextShiftAltMiddleClick write FTextShiftAltMiddleClick
+             default mbaNone;
+    property TextShiftCtrlMiddleClick: TMouseOptButtonAction read FTextShiftCtrlMiddleClick write FTextShiftCtrlMiddleClick
+             default mbaNone;
+    property TextAltCtrlMiddleClick: TMouseOptButtonAction read FTextAltCtrlMiddleClick write FTextAltCtrlMiddleClick
+             default mbaNone;
+    property TextShiftAltCtrlMiddleClick: TMouseOptButtonAction read FTextShiftAltCtrlMiddleClick write FTextShiftAltCtrlMiddleClick
+             default mbaNone;
+    // right click
     // extra-1 click
     // extra-2 click
 
@@ -856,6 +876,14 @@ type
              default mwaScrollPageLessOne;
     property ShiftWheel: TMouseOptWheelAction read FShiftWheel write FShiftWheel
              default mwaScrollSingleLine;
+    property ShiftAltWheel: TMouseOptWheelAction read FShiftAltWheel write FShiftAltWheel
+             default mwaNone;
+    property ShiftCtrlWheel: TMouseOptWheelAction read FShiftCtrlWheel write FShiftCtrlWheel
+             default mwaNone;
+    property AltCtrlWheel: TMouseOptWheelAction read FAltCtrlWheel write FAltCtrlWheel
+             default mwaNone;
+    property ShiftAltCtrlWheel: TMouseOptWheelAction read FShiftAltCtrlWheel write FShiftAltCtrlWheel
+             default mwaNone;
 
     // the flag below is set by CalcCustomSavedActions
     property CustomSavedActions: Boolean read FCustomSavedActions write FCustomSavedActions;
@@ -2410,27 +2438,41 @@ procedure TEditorMouseOptions.Reset;
 begin
   FCustomSavedActions  := False;
   FGutterLeft          := moGLDownClick;
+  // left multi
   FTextDoubleLeftClick       := mbaSelectSetWord;
   FTextTripleLeftClick      := mbaSelectSetLineSmart;
   FTextQuadLeftClick         := mbaSelectSetPara;
   FTextShiftDoubleLeftClick  := mbaNone;
   FTextAltDoubleLeftClick    := mbaNone;
   FTextCtrlDoubleLeftClick   := mbaNone;
-  FTextCtrlAltLeftClick      := mbaNone;
+  // left
+  FTextAltCtrlLeftClick      := mbaNone;
   FTextShiftAltLeftClick     := mbaNone;
-  FTextShiftCtrlAltLeftClick := mbaNone;
+  FTextShiftAltCtrlLeftClick := mbaNone;
   FTextShiftCtrlLeftClick    := mbaNone;
   FTextShiftLeftClick        := mbaNone;
   FTextCtrlLeftClick   := mbaDeclarationJump;
   FTextAltLeftClick    := mbaSelectColumn;
-  FTextMiddleClick     := mbaPaste;
-  FTextCtrlMiddleClick := mbaZoomReset;
-  FTextShiftMiddleClick := mbaNone;
-  FTextAltMiddleClick  := mbaNone;
+  // middle
+  FTextMiddleClick             := mbaPaste;
+  FTextCtrlMiddleClick         := mbaZoomReset;
+  FTextShiftMiddleClick        := mbaNone;
+  FTextAltMiddleClick          := mbaNone;
+  FTextAltCtrlMiddleClick      := mbaNone;
+  FTextShiftAltMiddleClick     := mbaNone;
+  FTextShiftAltCtrlMiddleClick := mbaNone;
+  FTextShiftCtrlMiddleClick    := mbaNone;
+  // wheel
   FWheel               := mwaScroll;
   FCtrlWheel           := mwaZoom;
   FAltWheel            := mwaScrollPageLessOne;
   FShiftWheel          := mwaScrollSingleLine;
+  FAltCtrlWheel     := mwaNone;
+  FShiftCtrlWheel       := mwaNone;
+  FShiftAltWheel    := mwaNone;
+  FShiftAltCtrlWheel    := mwaNone;
+
+
   FTextRightMoveCaret  := False;
   FTextDrag            := True;
 end;
@@ -2599,10 +2641,10 @@ begin
     ModKeys := [ssShift];
     if FTextAltLeftClick     <> mbaNone then ModKeys := ModKeys + [ssAlt];
     if FTextCtrlLeftClick    <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
-    if FTextCtrlAltLeftClick <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+    if FTextAltCtrlLeftClick <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
     if FTextShiftAltLeftClick     <> mbaNone then ModKeys := ModKeys + [ssAlt];
     if FTextShiftCtrlLeftClick    <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
-    if FTextShiftCtrlAltLeftClick <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+    if FTextShiftAltCtrlLeftClick <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
     if FTextAltDoubleLeftClick     <> mbaNone then ModKeys := ModKeys + [ssAlt];
     if FTextCtrlDoubleLeftClick    <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
 
@@ -2624,11 +2666,11 @@ begin
     AddBtnClick(FTextAltLeftClick,          mbLeft,   [ssAlt],                 ModKeys, False, SelKey);
     AddBtnClick(FTextShiftAltLeftClick,     mbLeft,   [ssShift, ssAlt],               ModKeys, False, SelKey);
 
-    if FTextShiftCtrlAltLeftClick = mbaNone
+    if FTextShiftAltCtrlLeftClick = mbaNone
     then SelKey := [ssShift]
     else SelKey := [];
-    AddBtnClick(FTextCtrlAltLeftClick,      mbLeft, [ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
-    AddBtnClick(FTextShiftCtrlAltLeftClick, mbLeft, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
+    AddBtnClick(FTextAltCtrlLeftClick,      mbLeft, [ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
+    AddBtnClick(FTextShiftAltCtrlLeftClick, mbLeft, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
 
     SelKey := [];
     AddBtnClick(FTextDoubleLeftClick,        mbLeft,   [], ModKeys, False, SelKey, ccDouble);
@@ -2639,23 +2681,44 @@ begin
     AddBtnClick(FTextAltDoubleLeftClick,     mbLeft,   [ssAlt],                 ModKeys, False, SelKey, ccDouble);
 
 
+    SelKey := [];
     ModKeys := [];
-    if FTextShiftMiddleClick <> mbaNone then ModKeys := ModKeys + [ssShift];
-    if FTextCtrlMiddleClick <> mbaNone then ModKeys := ModKeys + [ssCtrl];
-    if FTextAltMiddleClick  <> mbaNone then ModKeys := ModKeys + [ssAlt];
+    if FTextShiftMiddleClick         <> mbaNone then ModKeys := ModKeys + [ssShift];
+    if FTextCtrlMiddleClick          <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+    if FTextAltMiddleClick           <> mbaNone then ModKeys := ModKeys + [ssAlt];
+    if FTextAltCtrlMiddleClick       <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+    if FTextShiftCtrlMiddleClick     <> mbaNone then ModKeys := ModKeys + [ssShift, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+    if FTextShiftAltMiddleClick      <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt];
+    if FTextShiftAltCtrlMiddleClick  <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
     AddBtnClick(FTextMiddleClick,     mbMiddle, [], ModKeys, FTextCtrlMiddleClick = mbaNone);
     AddBtnClick(FTextShiftMiddleClick,mbMiddle, [ssShift], ModKeys);
     AddBtnClick(FTextAltMiddleClick,  mbMiddle, [ssAlt], ModKeys);
     AddBtnClick(FTextCtrlMiddleClick, mbMiddle, [SYNEDIT_LINK_MODIFIER], ModKeys);
+    AddBtnClick(FTextAltCtrlMiddleClick,      mbMiddle, [ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys);
+    AddBtnClick(FTextShiftCtrlMiddleClick,    mbMiddle, [ssShift, SYNEDIT_LINK_MODIFIER], ModKeys);
+    AddBtnClick(FTextShiftAltMiddleClick,     mbMiddle, [ssShift, ssAlt], ModKeys);
+    AddBtnClick(FTextShiftAltCtrlMiddleClick, mbMiddle, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys);
 
     AddCommand(emcContextMenu, FTextRightMoveCaret, mbRight, ccSingle, cdUp, [], [], emcoSelectionCaretMoveNever);
 
   end;
 
+  ModKeys := [];
+  if FShiftWheel         <> mwaNone then ModKeys := ModKeys + [ssShift];
+  if FCtrlWheel          <> mwaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+  if FAltWheel           <> mwaNone then ModKeys := ModKeys + [ssAlt];
+  if FAltCtrlWheel       <> mwaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+  if FShiftCtrlWheel     <> mwaNone then ModKeys := ModKeys + [ssShift, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
+  if FShiftAltWheel      <> mwaNone then ModKeys := ModKeys + [ssShift, ssAlt];
+  if FShiftAltCtrlWheel  <> mwaNone then ModKeys := ModKeys + [ssShift, ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
   AddWheelAct(FWheel, [], []);
-  AddWheelAct(FCtrlWheel,  [ssCtrl],  [ssShift, ssAlt, ssCtrl]);
-  AddWheelAct(FAltWheel,   [ssAlt],   [ssShift, ssAlt, ssCtrl]);
-  AddWheelAct(FShiftWheel, [ssShift], [ssShift, ssAlt, ssCtrl]);
+  AddWheelAct(FCtrlWheel,  [ssCtrl],  ModKeys);
+  AddWheelAct(FAltWheel,   [ssAlt],   ModKeys);
+  AddWheelAct(FShiftWheel, [ssShift], ModKeys);
+  AddWheelAct(FAltCtrlWheel,      [ssShift], ModKeys);
+  AddWheelAct(FShiftCtrlWheel,    [ssShift], ModKeys);
+  AddWheelAct(FShiftAltWheel,     [ssShift], ModKeys);
+  AddWheelAct(FShiftAltCtrlWheel, [ssShift], ModKeys);
 
   if FTextDrag then
     with FSelActions do begin
@@ -2714,6 +2777,9 @@ begin
   FName                 := Src.FName;
 
   FGutterLeft           := Src.GutterLeft;
+  FTextDrag             := Src.TextDrag;
+  FTextRightMoveCaret   := Src.TextRightMoveCaret;
+  FSelectedUserScheme   := Src.FSelectedUserScheme;
 
     // left multi click
   FTextDoubleLeftClick       := Src.TextDoubleLeftClick;
@@ -2724,28 +2790,36 @@ begin
   FTextCtrlDoubleLeftClick   := Src.TextCtrlDoubleLeftClick;
     // left + modifier click
   FTextAltLeftClick          := Src.TextAltLeftClick;
-  FTextCtrlAltLeftClick      := Src.TextCtrlAltLeftClick;
+  FTextAltCtrlLeftClick      := Src.TextAltCtrlLeftClick;
   FTextShiftAltLeftClick     := Src.TextShiftAltLeftClick;
-  FTextShiftCtrlAltLeftClick := Src.TextShiftCtrlAltLeftClick;
+  FTextShiftAltCtrlLeftClick := Src.TextShiftAltCtrlLeftClick;
   FTextShiftCtrlLeftClick    := Src.TextShiftCtrlLeftClick;
   FTextShiftLeftClick        := Src.TextShiftLeftClick;
   FTextCtrlLeftClick    := Src.TextCtrlLeftClick;
   FTextAltLeftClick     := Src.TextAltLeftClick;
     // middle click
+  FTextMiddleClick           := Src.TextMiddleClick;
+  FTextShiftMiddleClick      := Src.TextShiftMiddleClick;
   FTextAltMiddleClick        := Src.TextAltMiddleClick;
   FTextCtrlMiddleClick       := Src.TextCtrlMiddleClick;
-  FTextMiddleClick      := Src.TextMiddleClick;
-  FTextShiftMiddleClick := Src.TextShiftMiddleClick;
+  FTextAltCtrlMiddleClick      := Src.TextAltCtrlMiddleClick;
+  FTextShiftAltMiddleClick     := Src.TextShiftAltMiddleClick;
+  FTextShiftCtrlMiddleClick    := Src.TextShiftCtrlMiddleClick;
+  FTextShiftAltCtrlMiddleClick := Src.TextShiftAltCtrlMiddleClick;
+  // wheel
   FWheel                := Src.Wheel;
   FCtrlWheel            := Src.CtrlWheel;
   FAltWheel             := Src.AltWheel;
   FShiftWheel           := Src.ShiftWheel;
-  FTextDrag             := Src.TextDrag;
-  FTextRightMoveCaret   := Src.TextRightMoveCaret;
-  FSelectedUserScheme   := Src.FSelectedUserScheme;
+  FAltCtrlWheel         := Src.AltCtrlWheel;
+  FShiftCtrlWheel       := Src.ShiftCtrlWheel;
+  FShiftAltWheel        := Src.ShiftAltWheel;
+  FShiftAltCtrlWheel    := Src.ShiftAltCtrlWheel;
     // extra-1 click
     // extra-2 click
 
+
+
   AssignActions(Src);
 
   if WithUserSchemes then begin

ide/frames/editor_mouseaction_options.lfm

@@ -1,13 +1,13 @@
 inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
-  Height = 583
+  Height = 588
   Width = 636
   HorzScrollBar.Page = 636
   VertScrollBar.Page = 523
   Align = alClient
   Anchors = [akTop]
-  ClientHeight = 583
+  AutoSize = False
+  ClientHeight = 588
   ClientWidth = 636
-  TabOrder = 0
   Visible = False
   DesignLeft = 366
   DesignTop = 237
@@ -17,13 +17,13 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 21
+    Height = 23
     Top = 0
     Width = 636
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 21
+    ClientHeight = 23
     ClientWidth = 636
     TabOrder = 0
     Visible = False
@@ -32,9 +32,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideTop.Control = dropUserSchemes
       AnchorSideTop.Side = asrCenter
       Left = 6
-      Height = 17
+      Height = 19
       Top = 2
-      Width = 123
+      Width = 138
       BorderSpacing.Left = 6
       Caption = 'chkPredefinedScheme'
       OnChange = chkPredefinedSchemeChange
@@ -46,14 +46,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideTop.Control = pnlUserSchemes
       AnchorSideRight.Control = pnlUserSchemes
       AnchorSideRight.Side = asrBottom
-      Left = 135
-      Height = 21
+      Left = 150
+      Height = 23
       Top = 0
       Width = 200
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
       Constraints.MaxWidth = 200
-      ItemHeight = 13
+      ItemHeight = 15
       OnChange = dropUserSchemesChange
       OnExit = dropUserSchemesChange
       OnKeyDown = dropUserSchemesKeyDown
@@ -66,11 +66,10 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideTop.Control = GenericDividerLabel
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 17
-    Top = 50
-    Width = 117
+    Height = 19
+    Top = 52
+    Width = 133
     BorderSpacing.Left = 6
-    BorderSpacing.Top = 6
     Caption = 'HideMouseCheckBox'
     TabOrder = 1
   end
@@ -81,13 +80,13 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 75
-    Top = 96
+    Height = 69
+    Top = 100
     Width = 636
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 75
+    ClientHeight = 69
     ClientWidth = 636
     TabOrder = 2
     object PanelGutter: TPanel
@@ -96,16 +95,15 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Control = pnlAllGutter
       AnchorSideRight.Side = asrBottom
       Left = 6
-      Height = 40
+      Height = 38
       Top = 0
       Width = 624
       Anchors = [akTop, akLeft, akRight]
       AutoSize = True
       BorderSpacing.Left = 6
       BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 6
       BevelOuter = bvNone
-      ClientHeight = 40
+      ClientHeight = 38
       ClientWidth = 624
       TabOrder = 0
       object GutterLeftRadio1: TRadioButton
@@ -114,7 +112,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
         AnchorSideRight.Control = PanelGutter
         AnchorSideRight.Side = asrBottom
         Left = 0
-        Height = 17
+        Height = 19
         Top = 0
         Width = 624
         Anchors = [akTop, akLeft, akRight]
@@ -129,11 +127,10 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
         AnchorSideRight.Control = PanelGutter
         AnchorSideRight.Side = asrBottom
         Left = 0
-        Height = 17
-        Top = 17
+        Height = 19
+        Top = 19
         Width = 624
         Anchors = [akTop, akLeft, akRight]
-        BorderSpacing.Bottom = 6
         Caption = 'GutterLeftRadio2'
         OnChange = CheckOrRadioChange
         TabOrder = 1
@@ -144,14 +141,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = pnlAllGutter
       AnchorSideRight.Side = asrBottom
-      Left = 513
-      Height = 23
-      Top = 46
-      Width = 117
+      Left = 507
+      Height = 25
+      Top = 44
+      Width = 123
       Anchors = [akTop, akRight]
       AutoSize = True
+      BorderSpacing.Top = 6
       BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 6
       Caption = 'ResetGutterButton'
       OnClick = ResetGutterButtonClick
       TabOrder = 1
@@ -165,13 +162,13 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = pnlBottom
     Left = 0
-    Height = 345
-    Top = 200
+    Height = 350
+    Top = 198
     Width = 636
     Anchors = [akTop, akLeft, akRight, akBottom]
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 345
+    ClientHeight = 350
     ClientWidth = 636
     TabOrder = 3
     object PanelTextCheckBox: TPanel
@@ -180,7 +177,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Control = pnlAllText
       AnchorSideRight.Side = asrBottom
       Left = 6
-      Height = 34
+      Height = 38
       Top = 0
       Width = 624
       Anchors = [akTop, akLeft, akRight]
@@ -190,15 +187,15 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       BorderSpacing.Bottom = 6
       BevelOuter = bvNone
       ChildSizing.ControlsPerLine = 2
-      ClientHeight = 34
+      ClientHeight = 38
       ClientWidth = 624
       TabOrder = 0
       object TextDrag: TCheckBox
         AnchorSideLeft.Control = PanelTextCheckBox
         Left = 0
-        Height = 17
+        Height = 19
         Top = 0
-        Width = 63
+        Width = 67
         Caption = 'TextDrag'
         OnChange = CheckOrRadioChange
         TabOrder = 0
@@ -208,9 +205,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
         AnchorSideTop.Control = TextDrag
         AnchorSideTop.Side = asrBottom
         Left = 0
-        Height = 17
-        Top = 17
-        Width = 96
+        Height = 19
+        Top = 19
+        Width = 106
         Caption = 'RightMoveCaret'
         OnChange = CheckOrRadioChange
         TabOrder = 1
@@ -224,7 +221,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Side = asrBottom
       Left = 0
       Height = 26
-      Top = 40
+      Top = 44
       Width = 636
       Align = alNone
       Anchors = [akTop, akLeft, akRight]
@@ -233,7 +230,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       TabOrder = 1
       object ToolButtonMiddle: TToolButton
         Tag = 2
-        Left = 201
+        Left = 230
         Top = 2
         Caption = 'ToolButtonMiddle'
         Grouped = True
@@ -242,7 +239,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       end
       object ToolBtnWheel: TToolButton
         Tag = 3
-        Left = 291
+        Left = 335
         Top = 2
         Caption = 'ToolBtnWheel'
         Grouped = True
@@ -260,7 +257,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       end
       object ToolButtonLeftMulti: TToolButton
         Tag = 1
-        Left = 100
+        Left = 114
         Top = 2
         Caption = 'ToolButtonLeftMulti'
         Grouped = True
@@ -275,15 +272,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Control = pnlAllText
       AnchorSideBottom.Side = asrBottom
-      Left = 522
-      Height = 23
-      Top = 316
-      Width = 108
+      Left = 518
+      Height = 25
+      Top = 325
+      Width = 112
       Anchors = [akRight, akBottom]
       AutoSize = True
       BorderSpacing.Top = 6
       BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 6
       Caption = 'ResetTextButton'
       OnClick = ResetTextButtonClick
       TabOrder = 2
@@ -296,8 +292,8 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Control = ResetTextButton
       Left = 0
-      Height = 244
-      Top = 66
+      Height = 249
+      Top = 70
       Width = 636
       PageIndex = 0
       Anchors = [akTop, akLeft, akRight, akBottom]
@@ -306,14 +302,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       object PageLeftMod: TPage
         object ScrollBox3: TScrollBox
           Left = 0
-          Height = 244
+          Height = 249
           Top = 0
           Width = 636
           HorzScrollBar.Page = 636
-          VertScrollBar.Page = 244
+          VertScrollBar.Page = 249
           Align = alClient
           BorderStyle = bsNone
-          ClientHeight = 244
+          ClientHeight = 249
           ClientWidth = 636
           TabOrder = 0
           object dropCtrlLeft: TComboBox
@@ -323,14 +319,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
-            Top = 33
+            Height = 23
+            Top = 35
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 0
@@ -340,9 +336,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideTop.Control = dropCtrlLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
-            Top = 36
-            Width = 65
+            Height = 16
+            Top = 38
+            Width = 71
             BorderSpacing.Left = 6
             Caption = 'CtrLLeftLabel'
             ParentColor = False
@@ -353,14 +349,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
+            Height = 23
             Top = 6
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 1
@@ -370,9 +366,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideTop.Control = dropAltLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
+            Height = 16
             Top = 9
-            Width = 58
+            Width = 64
             BorderSpacing.Left = 6
             Caption = 'AltLeftLabel'
             ParentColor = False
@@ -384,15 +380,15 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
-            Top = 87
+            Height = 23
+            Top = 93
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Left = 140
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 2
@@ -404,14 +400,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
-            Top = 60
+            Height = 23
+            Top = 64
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 3
@@ -423,14 +419,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
-            Top = 114
+            Height = 23
+            Top = 122
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 4
@@ -442,14 +438,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
-            Top = 141
+            Height = 23
+            Top = 151
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 5
@@ -461,14 +457,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Control = ScrollBox3
             AnchorSideRight.Side = asrBottom
             Left = 140
-            Height = 21
-            Top = 168
+            Height = 23
+            Top = 180
             Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
             DropDownCount = 12
-            ItemHeight = 13
+            ItemHeight = 15
             OnChange = CheckOrRadioChange
             Style = csDropDownList
             TabOrder = 6
@@ -478,9 +474,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideTop.Control = dropShiftLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
-            Top = 90
-            Width = 67
+            Height = 16
+            Top = 96
+            Width = 73
             BorderSpacing.Left = 6
             Caption = 'ShiftLeftLabel'
             ParentColor = False
@@ -490,9 +486,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideTop.Control = dropAltCtrlLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
-            Top = 63
-            Width = 75
+            Height = 16
+            Top = 67
+            Width = 83
             BorderSpacing.Left = 6
             Caption = 'AltCtrlLeftLabel'
             ParentColor = False
@@ -502,9 +498,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideTop.Control = dropShiftCtrlLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
-            Top = 144
-            Width = 84
+            Height = 16
+            Top = 154
+            Width = 92
             BorderSpacing.Left = 6
             Caption = 'ShiftCtrlLeftLabel'
             ParentColor = False
@@ -514,23 +510,23 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideTop.Control = dropShiftAltLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
-            Top = 117
-            Width = 80
+            Height = 16
+            Top = 125
+            Width = 88
             BorderSpacing.Left = 6
             Caption = 'ShiftAltLeftLabel'
             ParentColor = False
           end
-          object ShiftCtrlAltLeftLabel: TLabel
+          object ShiftAltCtrlLeftLabel: TLabel
             AnchorSideLeft.Control = ScrollBox3
             AnchorSideTop.Control = dropShiftAltCtrlLeft
             AnchorSideTop.Side = asrCenter
             Left = 6
-            Height = 14
-            Top = 171
-            Width = 97
+            Height = 16
+            Top = 183
+            Width = 107
             BorderSpacing.Left = 6
-            Caption = 'ShiftCtrlAltLeftLabel'
+            Caption = 'ShiftAltCtrlLeftLabel'
             ParentColor = False
           end
         end
@@ -739,14 +735,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       object PageMiddle: TPage
         object ScrollBox1: TScrollBox
           Left = 0
-          Height = 226
+          Height = 243
           Top = 0
           Width = 636
           HorzScrollBar.Page = 636
-          VertScrollBar.Page = 226
+          VertScrollBar.Page = 243
           Align = alClient
           BorderStyle = bsNone
-          ClientHeight = 226
+          ClientHeight = 243
           ClientWidth = 636
           TabOrder = 0
           object MiddleBtnLabel: TLabel
@@ -797,6 +793,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             ParentColor = False
           end
           object dropCtrlMiddle: TComboBox
+            AnchorSideLeft.Control = dropMiddle
             AnchorSideTop.Control = dropAltMiddle
             AnchorSideTop.Side = asrBottom
             AnchorSideRight.Control = ScrollBox1
@@ -815,6 +812,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             TabOrder = 0
           end
           object dropAltMiddle: TComboBox
+            AnchorSideLeft.Control = dropMiddle
             AnchorSideTop.Control = dropShiftMiddle
             AnchorSideTop.Side = asrBottom
             AnchorSideRight.Control = ScrollBox1
@@ -874,25 +872,157 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             Left = 6
             Height = 16
             Top = 38
-            Width = 71
+            Width = 90
             BorderSpacing.Left = 6
             Caption = 'ShiftMiddleLabel'
             ParentColor = False
           end
+          object dropAltCtrlMiddle: TComboBox
+            AnchorSideLeft.Control = dropMiddle
+            AnchorSideTop.Control = dropCtrlMiddle
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 122
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 4
+          end
+          object dropShiftAltMiddle: TComboBox
+            AnchorSideLeft.Control = dropMiddle
+            AnchorSideTop.Control = dropAltCtrlMiddle
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 151
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 5
+          end
+          object dropShiftCtrlMiddle: TComboBox
+            AnchorSideLeft.Control = dropMiddle
+            AnchorSideTop.Control = dropShiftAltMiddle
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 180
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 6
+          end
+          object dropShiftAltCtrlMiddle: TComboBox
+            AnchorSideLeft.Control = dropMiddle
+            AnchorSideTop.Control = dropShiftCtrlMiddle
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 209
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 7
+          end
+          object AltCtrlMiddleBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox1
+            AnchorSideTop.Control = dropAltCtrlMiddle
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 125
+            Width = 118
+            BorderSpacing.Left = 6
+            Caption = 'AltCtrlMiddleBtnLabel'
+            ParentColor = False
+          end
+          object ShiftAltMiddleBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox1
+            AnchorSideTop.Control = dropShiftAltMiddle
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 154
+            Width = 123
+            BorderSpacing.Left = 6
+            Caption = 'ShiftAltMiddleBtnLabel'
+            ParentColor = False
+          end
+          object ShiftCtrlMiddleBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox1
+            AnchorSideTop.Control = dropShiftCtrlMiddle
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 183
+            Width = 127
+            BorderSpacing.Left = 6
+            Caption = 'ShiftCtrlMiddleBtnLabel'
+            ParentColor = False
+          end
+          object ShiftAltCtrlMiddleBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox1
+            AnchorSideTop.Control = dropShiftAltCtrlMiddle
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox1
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 212
+            Width = 142
+            BorderSpacing.Left = 6
+            Caption = 'ShiftAltCtrlMiddleBtnLabel'
+            ParentColor = False
+          end
         end
       end
       object PageWheel: TPage
         object ScrollBox2: TScrollBox
           Left = 0
-          Height = 150
+          Height = 249
           Top = 0
-          Width = 697
-          HorzScrollBar.Page = 693
-          VertScrollBar.Page = 146
+          Width = 636
+          HorzScrollBar.Page = 636
+          VertScrollBar.Page = 249
           Align = alClient
           BorderStyle = bsNone
-          ClientHeight = 150
-          ClientWidth = 697
+          ClientHeight = 249
+          ClientWidth = 636
           TabOrder = 0
           object dropWheel: TComboBox
             AnchorSideLeft.Control = ScrollBox2
@@ -902,7 +1032,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             Left = 140
             Height = 23
             Top = 6
-            Width = 547
+            Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Left = 140
             BorderSpacing.Top = 6
@@ -915,14 +1045,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
           end
           object dropCtrlWheel: TComboBox
             AnchorSideLeft.Control = dropWheel
-            AnchorSideTop.Control = dropWheel
+            AnchorSideTop.Control = dropAltWheel
             AnchorSideTop.Side = asrBottom
             AnchorSideRight.Control = ScrollBox2
             AnchorSideRight.Side = asrBottom
             Left = 140
             Height = 23
-            Top = 35
-            Width = 547
+            Top = 93
+            Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
@@ -934,14 +1064,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
           end
           object dropAltWheel: TComboBox
             AnchorSideLeft.Control = dropWheel
-            AnchorSideTop.Control = dropCtrlWheel
+            AnchorSideTop.Control = dropShiftWheel
             AnchorSideTop.Side = asrBottom
             AnchorSideRight.Control = ScrollBox2
             AnchorSideRight.Side = asrBottom
             Left = 140
             Height = 23
             Top = 64
-            Width = 547
+            Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
@@ -953,14 +1083,14 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
           end
           object dropShiftWheel: TComboBox
             AnchorSideLeft.Control = dropWheel
-            AnchorSideTop.Control = dropAltWheel
+            AnchorSideTop.Control = dropWheel
             AnchorSideTop.Side = asrBottom
             AnchorSideRight.Control = ScrollBox2
             AnchorSideRight.Side = asrBottom
             Left = 140
             Height = 23
-            Top = 93
-            Width = 547
+            Top = 35
+            Width = 490
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
@@ -992,7 +1122,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Side = asrBottom
             Left = 6
             Height = 16
-            Top = 38
+            Top = 96
             Width = 99
             BorderSpacing.Left = 6
             Caption = 'CtrlWheelBtnLabel'
@@ -1020,12 +1150,144 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
             AnchorSideRight.Side = asrBottom
             Left = 6
             Height = 16
-            Top = 96
+            Top = 38
             Width = 104
             BorderSpacing.Left = 6
             Caption = 'ShiftWheelBtnLabel'
             ParentColor = False
           end
+          object dropAltCtrlWheel: TComboBox
+            AnchorSideLeft.Control = dropWheel
+            AnchorSideTop.Control = dropCtrlWheel
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 122
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 4
+          end
+          object dropShiftAltWheel: TComboBox
+            AnchorSideLeft.Control = dropWheel
+            AnchorSideTop.Control = dropAltCtrlWheel
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 151
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 5
+          end
+          object dropShiftCtrlWheel: TComboBox
+            AnchorSideLeft.Control = dropWheel
+            AnchorSideTop.Control = dropShiftAltWheel
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 180
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 6
+          end
+          object dropShiftAltCtrlWheel: TComboBox
+            AnchorSideLeft.Control = dropWheel
+            AnchorSideTop.Control = dropShiftCtrlWheel
+            AnchorSideTop.Side = asrBottom
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 140
+            Height = 23
+            Top = 209
+            Width = 490
+            Anchors = [akTop, akLeft, akRight]
+            BorderSpacing.Top = 6
+            BorderSpacing.Right = 6
+            DropDownCount = 12
+            ItemHeight = 15
+            OnChange = CheckOrRadioChange
+            Style = csDropDownList
+            TabOrder = 7
+          end
+          object AltCtrlWheelBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox2
+            AnchorSideTop.Control = dropAltCtrlWheel
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 125
+            Width = 114
+            BorderSpacing.Left = 6
+            Caption = 'AltCtrlWheelBtnLabel'
+            ParentColor = False
+          end
+          object ShiftAltWheelBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox2
+            AnchorSideTop.Control = dropShiftAltWheel
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 154
+            Width = 119
+            BorderSpacing.Left = 6
+            Caption = 'ShiftAltWheelBtnLabel'
+            ParentColor = False
+          end
+          object ShiftCtrlWheelBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox2
+            AnchorSideTop.Control = dropShiftCtrlWheel
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 183
+            Width = 123
+            BorderSpacing.Left = 6
+            Caption = 'ShiftCtrlWheelBtnLabel'
+            ParentColor = False
+          end
+          object ShiftAltCtrlWheelBtnLabel: TLabel
+            AnchorSideLeft.Control = ScrollBox2
+            AnchorSideTop.Control = dropShiftAltCtrlWheel
+            AnchorSideTop.Side = asrCenter
+            AnchorSideRight.Control = ScrollBox2
+            AnchorSideRight.Side = asrBottom
+            Left = 6
+            Height = 16
+            Top = 212
+            Width = 138
+            BorderSpacing.Left = 6
+            Caption = 'ShiftAltCtrlWheelBtnLabel'
+            ParentColor = False
+          end
         end
       end
     end
@@ -1037,13 +1299,13 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 38
-    Top = 545
+    Height = 40
+    Top = 548
     Width = 636
     Anchors = [akLeft, akRight, akBottom]
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 38
+    ClientHeight = 40
     ClientWidth = 636
     TabOrder = 4
     object BottomDivider: TBevel
@@ -1066,9 +1328,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Control = ResetAllButton
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 14
+      Height = 16
       Top = 15
-      Width = 521
+      Width = 514
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
       BorderSpacing.Right = 6
@@ -1085,9 +1347,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Control = ResetAllButton
       AnchorSideBottom.Side = asrBottom
       Left = 6
-      Height = 14
+      Height = 16
       Top = 15
-      Width = 521
+      Width = 514
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
       BorderSpacing.Right = 6
@@ -1103,10 +1365,10 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       AnchorSideRight.Control = pnlBottom
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Side = asrBottom
-      Left = 533
-      Height = 23
+      Left = 526
+      Height = 25
       Top = 15
-      Width = 97
+      Width = 104
       Anchors = [akTop, akRight]
       AutoSize = True
       BorderSpacing.Top = 6
@@ -1124,7 +1386,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideRight.Side = asrBottom
     Left = 6
     Height = 17
-    Top = 27
+    Top = 29
     Width = 624
     Caption = 'GenericDividerLabel'
     Anchors = [akTop, akLeft, akRight]
@@ -1140,7 +1402,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideRight.Side = asrBottom
     Left = 6
     Height = 17
-    Top = 73
+    Top = 77
     Width = 624
     Caption = 'GutterDividerLabel'
     Anchors = [akTop, akLeft, akRight]
@@ -1156,7 +1418,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
     AnchorSideRight.Side = asrBottom
     Left = 6
     Height = 17
-    Top = 177
+    Top = 175
     Width = 624
     Caption = 'TextDividerLabel'
     Anchors = [akTop, akLeft, akRight]

ide/frames/editor_mouseaction_options.pas

@@ -33,6 +33,20 @@ type
   { TEditorMouseOptionsFrame }
 
   TEditorMouseOptionsFrame = class(TAbstractIDEOptionsEditor)
+    AltCtrlMiddleBtnLabel: TLabel;
+    AltCtrlWheelBtnLabel: TLabel;
+    ShiftAltWheelBtnLabel: TLabel;
+    ShiftCtrlWheelBtnLabel: TLabel;
+    ShiftAltCtrlWheelBtnLabel: TLabel;
+    dropAltCtrlWheel: TComboBox;
+    dropShiftAltWheel: TComboBox;
+    dropShiftCtrlWheel: TComboBox;
+    dropShiftAltCtrlWheel: TComboBox;
+    ShiftAltMiddleBtnLabel: TLabel;
+    dropAltCtrlMiddle: TComboBox;
+    dropShiftAltMiddle: TComboBox;
+    dropShiftCtrlMiddle: TComboBox;
+    dropShiftAltCtrlMiddle: TComboBox;
     dropShiftMiddle: TComboBox;
     lblLeftDouble: TLabel;
     lblLeftTriple: TLabel;
@@ -46,12 +60,14 @@ type
     dropLeftShiftDouble: TComboBox;
     dropLeftAltDouble: TComboBox;
     dropLeftCtrlDouble: TComboBox;
+    ShiftCtrlMiddleBtnLabel: TLabel;
+    ShiftAltCtrlMiddleBtnLabel: TLabel;
     ShiftMiddleLabel: TLabel;
     ShiftLeftLabel: TLabel;
     AltCtrlLeftLabel: TLabel;
     ShiftCtrlLeftLabel: TLabel;
     ShiftAltLeftLabel: TLabel;
-    ShiftCtrlAltLeftLabel: TLabel;
+    ShiftAltCtrlLeftLabel: TLabel;
     BottomDivider: TBevel;
     chkPredefinedScheme: TCheckBox;
     AltLeftLabel: TLabel;
@@ -265,11 +281,11 @@ begin
 
     (FTempMouseSettings.TextAltLeftClick          = TMouseOptButtonAction(dropAltLeft.ItemIndex)) and
     (FTempMouseSettings.TextCtrlLeftClick         = TMouseOptButtonAction(dropCtrlLeft.ItemIndex)) and
-    (FTempMouseSettings.TextCtrlAltLeftClick      = TMouseOptButtonAction(dropAltCtrlLeft.ItemIndex)) and
+    (FTempMouseSettings.TextAltCtrlLeftClick      = TMouseOptButtonAction(dropAltCtrlLeft.ItemIndex)) and
     (FTempMouseSettings.TextShiftLeftClick        = TMouseOptButtonAction(dropShiftLeft.ItemIndex)) and
     (FTempMouseSettings.TextShiftAltLeftClick     = TMouseOptButtonAction(dropShiftAltLeft.ItemIndex)) and
     (FTempMouseSettings.TextShiftCtrlLeftClick    = TMouseOptButtonAction(dropShiftCtrlLeft.ItemIndex)) and
-    (FTempMouseSettings.TextShiftCtrlAltLeftClick = TMouseOptButtonAction(dropShiftAltCtrlLeft.ItemIndex)) and
+    (FTempMouseSettings.TextShiftAltCtrlLeftClick = TMouseOptButtonAction(dropShiftAltCtrlLeft.ItemIndex)) and
 
     (FTempMouseSettings.TextDoubleLeftClick      = IdxToDoubleMouseOptButtonAction(dropLeftDouble.ItemIndex)) and
     (FTempMouseSettings.TextTripleLeftClick      = IdxToDoubleMouseOptButtonAction(dropLeftTriple.ItemIndex)) and
@@ -282,11 +298,19 @@ begin
     (FTempMouseSettings.TextShiftMiddleClick = TMouseOptButtonAction(dropShiftMiddle.ItemIndex)) and
     (FTempMouseSettings.TextAltMiddleClick   = TMouseOptButtonAction(dropAltMiddle.ItemIndex)) and
     (FTempMouseSettings.TextCtrlMiddleClick  = TMouseOptButtonAction(dropCtrlMiddle.ItemIndex)) and
+    (FTempMouseSettings.TextAltCtrlMiddleClick      = TMouseOptButtonAction(dropAltCtrlMiddle.ItemIndex)) and
+    (FTempMouseSettings.TextShiftAltMiddleClick     = TMouseOptButtonAction(dropShiftAltMiddle.ItemIndex)) and
+    (FTempMouseSettings.TextShiftCtrlMiddleClick    = TMouseOptButtonAction(dropShiftCtrlMiddle.ItemIndex)) and
+    (FTempMouseSettings.TextShiftAltCtrlMiddleClick = TMouseOptButtonAction(dropShiftAltCtrlMiddle.ItemIndex)) and
 
     (FTempMouseSettings.Wheel      = TMouseOptWheelAction(dropWheel.ItemIndex)) and
     (FTempMouseSettings.CtrlWheel  = TMouseOptWheelAction(dropCtrlWheel.ItemIndex)) and
     (FTempMouseSettings.AltWheel   = TMouseOptWheelAction(dropAltWheel.ItemIndex)) and
-    (FTempMouseSettings.ShiftWheel = TMouseOptWheelAction(dropShiftWheel.ItemIndex))
+    (FTempMouseSettings.ShiftWheel = TMouseOptWheelAction(dropShiftWheel.ItemIndex)) and
+    (FTempMouseSettings.AltCtrlWheel        = TMouseOptWheelAction(dropAltCtrlWheel.ItemIndex)) and
+    (FTempMouseSettings.ShiftAltWheel       = TMouseOptWheelAction(dropShiftAltWheel.ItemIndex)) and
+    (FTempMouseSettings.ShiftCtrlWheel      = TMouseOptWheelAction(dropShiftCtrlWheel.ItemIndex)) and
+    (FTempMouseSettings.ShiftAltCtrlWheel   = TMouseOptWheelAction(dropShiftAltCtrlWheel.ItemIndex))
   );
 end;
 
@@ -322,11 +346,11 @@ begin
 
   FTempMouseSettings.TextAltLeftClick          := TMouseOptButtonAction(dropAltLeft.ItemIndex);
   FTempMouseSettings.TextCtrlLeftClick         := TMouseOptButtonAction(dropCtrlLeft.ItemIndex);
-  FTempMouseSettings.TextCtrlAltLeftClick      := TMouseOptButtonAction(dropAltCtrlLeft.ItemIndex);
+  FTempMouseSettings.TextAltCtrlLeftClick      := TMouseOptButtonAction(dropAltCtrlLeft.ItemIndex);
   FTempMouseSettings.TextShiftLeftClick        := TMouseOptButtonAction(dropShiftLeft.ItemIndex);
   FTempMouseSettings.TextShiftAltLeftClick     := TMouseOptButtonAction(dropShiftAltLeft.ItemIndex);
   FTempMouseSettings.TextShiftCtrlLeftClick    := TMouseOptButtonAction(dropShiftCtrlLeft.ItemIndex);
-  FTempMouseSettings.TextShiftCtrlAltLeftClick := TMouseOptButtonAction(dropShiftAltCtrlLeft.ItemIndex);
+  FTempMouseSettings.TextShiftAltCtrlLeftClick := TMouseOptButtonAction(dropShiftAltCtrlLeft.ItemIndex);
 
   FTempMouseSettings.TextDoubleLeftClick      := IdxToDoubleMouseOptButtonAction(dropLeftDouble.ItemIndex);
   FTempMouseSettings.TextTripleLeftClick      := IdxToDoubleMouseOptButtonAction(dropLeftTriple.ItemIndex);
@@ -339,11 +363,19 @@ begin
   FTempMouseSettings.TextShiftMiddleClick := TMouseOptButtonAction(dropShiftMiddle.ItemIndex);
   FTempMouseSettings.TextAltMiddleClick   := TMouseOptButtonAction(dropAltMiddle.ItemIndex);
   FTempMouseSettings.TextCtrlMiddleClick  := TMouseOptButtonAction(dropCtrlMiddle.ItemIndex);
+  FTempMouseSettings.TextAltCtrlMiddleClick      := TMouseOptButtonAction(dropAltCtrlMiddle.ItemIndex);
+  FTempMouseSettings.TextShiftAltMiddleClick     := TMouseOptButtonAction(dropShiftAltMiddle.ItemIndex);
+  FTempMouseSettings.TextShiftCtrlMiddleClick    := TMouseOptButtonAction(dropShiftCtrlMiddle.ItemIndex);
+  FTempMouseSettings.TextShiftAltCtrlMiddleClick := TMouseOptButtonAction(dropShiftAltCtrlMiddle.ItemIndex);
 
   FTempMouseSettings.Wheel               := TMouseOptWheelAction(dropWheel.ItemIndex);
   FTempMouseSettings.CtrlWheel           := TMouseOptWheelAction(dropCtrlWheel.ItemIndex);
   FTempMouseSettings.AltWheel            := TMouseOptWheelAction(dropAltWheel.ItemIndex);
   FTempMouseSettings.ShiftWheel          := TMouseOptWheelAction(dropShiftWheel.ItemIndex);
+  FTempMouseSettings.AltCtrlWheel        := TMouseOptWheelAction(dropAltCtrlWheel.ItemIndex);
+  FTempMouseSettings.ShiftAltWheel       := TMouseOptWheelAction(dropShiftAltWheel.ItemIndex);
+  FTempMouseSettings.ShiftCtrlWheel      := TMouseOptWheelAction(dropShiftCtrlWheel.ItemIndex);
+  FTempMouseSettings.ShiftAltCtrlWheel   := TMouseOptWheelAction(dropShiftAltCtrlWheel.ItemIndex);
 
   FTempMouseSettings.ResetTextToDefault;
   if FDialog.FindEditor(TEditorMouseOptionsAdvFrame) <> nil then
@@ -464,7 +496,6 @@ begin
   ToolButtonLeftMulti.Caption := dlfMouseSimpleTextSectPageLMulti;
   ToolButtonMiddle.Caption := dlfMouseSimpleTextSectPageBtn;
   ToolBtnWheel.Caption := dlfMouseSimpleTextSectPageWheel;
-  ToolBar1.AnchorSide[akTop].Side := asrBottom;
 
     // left multi click
   lblLeftDouble.Caption        := dlfMouseSimpleTextSectLDoubleLabel;
@@ -480,17 +511,25 @@ begin
   ShiftLeftLabel.Caption        := dlfMouseSimpleTextSectShiftLabel;
   ShiftAltLeftLabel.Caption     := dlfMouseSimpleTextSectShiftAltLabel;
   ShiftCtrlLeftLabel.Caption    := dlfMouseSimpleTextSectShiftCtrlLabel;
-  ShiftCtrlAltLeftLabel.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
+  ShiftAltCtrlLeftLabel.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
     // middle click
   MiddleBtnLabel.Caption     := dlfMouseSimpleTextSectMidLabel;
   ShiftMiddleLabel.Caption   := dlfMouseSimpleTextSectShiftLabel;
   AltMiddleBtnLabel.Caption  := dlfMouseSimpleTextSectAltLabel;
   CtrlMiddleBtnLabel.Caption := dlfMouseSimpleTextSectCtrlLabel;
+  AltCtrlMiddleBtnLabel.Caption      := dlfMouseSimpleTextSectAltCtrlLabel;
+  ShiftAltMiddleBtnLabel.Caption     := dlfMouseSimpleTextSectShiftAltLabel;
+  ShiftCtrlMiddleBtnLabel.Caption    := dlfMouseSimpleTextSectShiftCtrlLabel;
+  ShiftAltCtrlMiddleBtnLabel.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
     // wheel
   WheelBtnLabel.Caption      := dlfMouseSimpleTextSectWheelLabel;
   CtrlWheelBtnLabel.Caption  := dlfMouseSimpleTextSectCtrlWheelLabel;
   AltWheelBtnLabel.Caption   := dlfMouseSimpleTextSectAltWheelLabel;
   ShiftWheelBtnLabel.Caption := dlfMouseSimpleTextShiftSectWheelLabel;
+  AltCtrlWheelBtnLabel.Caption      := dlfMouseSimpleTextSectAltCtrlWheelLabel;
+  ShiftAltWheelBtnLabel.Caption     := dlfMouseSimpleTextSectShiftAltWheelLabel;
+  ShiftCtrlWheelBtnLabel.Caption    := dlfMouseSimpleTextSectShiftCtrlWheelLabel;
+  ShiftAltCtrlWheelBtnLabel.Caption := dlfMouseSimpleTextSectShiftAltCtrlWheelLabel;
 
     // left multi click
   SetupButtonCombo(dropLeftDouble, True);
@@ -512,11 +551,19 @@ begin
   SetupButtonCombo(dropShiftMiddle);
   SetupButtonCombo(dropAltMiddle);
   SetupButtonCombo(dropCtrlMiddle);
+  SetupButtonCombo(dropAltCtrlMiddle);
+  SetupButtonCombo(dropShiftCtrlMiddle);
+  SetupButtonCombo(dropShiftAltMiddle);
+  SetupButtonCombo(dropShiftAltCtrlMiddle);
     // wheel
   SetupWheelCombo(dropWheel);
   SetupWheelCombo(dropCtrlWheel);
   SetupWheelCombo(dropAltWheel);
   SetupWheelCombo(dropShiftWheel);
+  SetupWheelCombo(dropAltCtrlWheel);
+  SetupWheelCombo(dropShiftAltWheel);
+  SetupWheelCombo(dropShiftCtrlWheel);
+  SetupWheelCombo(dropShiftAltCtrlWheel);
 
   WarnLabel.Caption := dlfMouseSimpleWarning;
   DiffLabel.Caption := dlfMouseSimpleDiff;
@@ -558,11 +605,11 @@ begin
 
   dropAltLeft.ItemIndex          := ord(FTempMouseSettings.TextAltLeftClick);
   dropCtrlLeft.ItemIndex         := ord(FTempMouseSettings.TextCtrlLeftClick);
-  dropAltCtrlLeft.ItemIndex      := ord(FTempMouseSettings.TextCtrlAltLeftClick);
+  dropAltCtrlLeft.ItemIndex      := ord(FTempMouseSettings.TextAltCtrlLeftClick);
   dropShiftLeft.ItemIndex        := ord(FTempMouseSettings.TextShiftLeftClick);
   dropShiftAltLeft.ItemIndex     := ord(FTempMouseSettings.TextShiftAltLeftClick);
   dropShiftCtrlLeft.ItemIndex    := ord(FTempMouseSettings.TextShiftCtrlLeftClick);
-  dropShiftAltCtrlLeft.ItemIndex := ord(FTempMouseSettings.TextShiftCtrlAltLeftClick);
+  dropShiftAltCtrlLeft.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlLeftClick);
 
   // 1,2&3 are mouse selection, and not avail for double clicks
   dropLeftDouble.ItemIndex      := Max(ord(FTempMouseSettings.TextDoubleLeftClick)-3,0);
@@ -576,11 +623,19 @@ begin
   dropShiftMiddle.ItemIndex := ord(FTempMouseSettings.TextShiftMiddleClick);
   dropAltMiddle.ItemIndex   := ord(FTempMouseSettings.TextAltMiddleClick);
   dropCtrlMiddle.ItemIndex  := ord(FTempMouseSettings.TextCtrlMiddleClick);
+  dropAltCtrlMiddle.ItemIndex      := ord(FTempMouseSettings.TextAltCtrlMiddleClick);
+  dropShiftCtrlMiddle.ItemIndex    := ord(FTempMouseSettings.TextShiftCtrlMiddleClick);
+  dropShiftAltMiddle.ItemIndex     := ord(FTempMouseSettings.TextShiftAltMiddleClick);
+  dropShiftAltCtrlMiddle.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlMiddleClick);
 
   dropWheel.ItemIndex      := ord(FTempMouseSettings.Wheel);
   dropCtrlWheel.ItemIndex  := ord(FTempMouseSettings.CtrlWheel);
   dropAltWheel.ItemIndex   := ord(FTempMouseSettings.AltWheel);
   dropShiftWheel.ItemIndex := ord(FTempMouseSettings.ShiftWheel);
+  dropAltCtrlWheel.ItemIndex      := ord(FTempMouseSettings.AltWheel);
+  dropShiftAltWheel.ItemIndex     := ord(FTempMouseSettings.ShiftAltWheel);
+  dropShiftCtrlWheel.ItemIndex    := ord(FTempMouseSettings.ShiftCtrlWheel);
+  dropShiftAltCtrlWheel.ItemIndex := ord(FTempMouseSettings.ShiftAltCtrlWheel);
 
   Dec(FInClickHandler);
   UpdateButtons;

ide/lazarusidestrconsts.pas

@@ -1326,6 +1326,10 @@ resourcestring
   dlfMouseSimpleTextSectCtrlWheelLabel = 'Ctrl Wheel';
   dlfMouseSimpleTextSectAltWheelLabel = 'Alt Wheel';
   dlfMouseSimpleTextShiftSectWheelLabel = 'Shift Wheel';
+  dlfMouseSimpleTextSectAltCtrlWheelLabel = 'Alt-Ctrl Wheel';
+  dlfMouseSimpleTextSectShiftAltWheelLabel = 'Shift-Alt Wheel';
+  dlfMouseSimpleTextSectShiftCtrlWheelLabel = 'Shift-Ctrl Wheel';
+  dlfMouseSimpleTextSectShiftAltCtrlWheelLabel = 'Shift-Alt-Ctrl';
 
   dlfMouseSimpleTextSectPageLMod = 'Left button 1';
   dlfMouseSimpleTextSectPageLMulti = 'Left button 2';