paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE more mouse options (naming)

Browse Source 
git-svn-id: trunk@34115 -
This commit is contained in:
martin 2011-12-11 19:05:29 +00:00
parent 2ae7c7e1df
commit d3a8f67488
3 changed files with 238 additions and 239 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
ide/editoroptions.pp
View File

@ -2636,71 +2636,70 @@ begin
FSelActions.Clear;
FTextActions.Clear;
// Left Btn
ModKeys := [ssShift];
if FTextAltLeftClick <> mbaNone then ModKeys := ModKeys + [ssAlt];
if FTextCtrlLeftClick <> mbaNone then ModKeys := ModKeys + [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 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];
if FTextShiftLeftClick = mbaNone
then SelKey := [ssShift]
else SelKey := [];
AddBtnClick(mbaSelect, mbLeft, [], ModKeys, False, SelKey);
AddBtnClick(FTextShiftLeftClick, mbLeft, [ssShift], ModKeys, False, SelKey);
if FTextShiftCtrlLeftClick = mbaNone
then SelKey := [ssShift]
else SelKey := [];
AddBtnClick(FTextCtrlLeftClick, mbLeft, [SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
AddBtnClick(FTextShiftCtrlLeftClick, mbLeft, [ssShift, SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
if FTextShiftAltLeftClick = mbaNone
then SelKey := [ssShift]
else SelKey := [];
AddBtnClick(FTextAltLeftClick, mbLeft, [ssAlt], ModKeys, False, SelKey);
AddBtnClick(FTextShiftAltLeftClick, mbLeft, [ssShift, ssAlt], ModKeys, False, SelKey);
if FTextShiftAltCtrlLeftClick = mbaNone
then SelKey := [ssShift]
else 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);
AddBtnClick(FTextTripleLeftClick, mbLeft, [], ModKeys, False, SelKey, ccTriple);
AddBtnClick(FTextQuadLeftClick, mbLeft, [], ModKeys, False, SelKey, ccQuad);
AddBtnClick(FTextShiftDoubleLeftClick, mbLeft, [ssShift], ModKeys, False, SelKey, ccDouble);
AddBtnClick(FTextCtrlDoubleLeftClick, mbLeft, [SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey, ccDouble);
AddBtnClick(FTextAltDoubleLeftClick, mbLeft, [ssAlt], ModKeys, False, SelKey, ccDouble);
SelKey := [];
ModKeys := [];
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);
with FTextActions do begin
// Left Btn
ModKeys := [ssShift];
if FTextAltLeftClick <> mbaNone then ModKeys := ModKeys + [ssAlt];
if FTextCtrlLeftClick <> mbaNone then ModKeys := ModKeys + [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 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];
if FTextShiftLeftClick = mbaNone
then SelKey := [ssShift]
else SelKey := [];
AddBtnClick(mbaSelect, mbLeft, [], ModKeys, False, SelKey);
AddBtnClick(FTextShiftLeftClick, mbLeft, [ssShift], ModKeys, False, SelKey);
if FTextShiftCtrlLeftClick = mbaNone
then SelKey := [ssShift]
else SelKey := [];
AddBtnClick(FTextCtrlLeftClick, mbLeft, [SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
AddBtnClick(FTextShiftCtrlLeftClick, mbLeft, [ssShift, SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey);
if FTextShiftAltLeftClick = mbaNone
then SelKey := [ssShift]
else SelKey := [];
AddBtnClick(FTextAltLeftClick, mbLeft, [ssAlt], ModKeys, False, SelKey);
AddBtnClick(FTextShiftAltLeftClick, mbLeft, [ssShift, ssAlt], ModKeys, False, SelKey);
if FTextShiftAltCtrlLeftClick = mbaNone
then SelKey := [ssShift]
else 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);
AddBtnClick(FTextTripleLeftClick, mbLeft, [], ModKeys, False, SelKey, ccTriple);
AddBtnClick(FTextQuadLeftClick, mbLeft, [], ModKeys, False, SelKey, ccQuad);
AddBtnClick(FTextShiftDoubleLeftClick, mbLeft, [ssShift], ModKeys, False, SelKey, ccDouble);
AddBtnClick(FTextCtrlDoubleLeftClick, mbLeft, [SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey, ccDouble);
AddBtnClick(FTextAltDoubleLeftClick, mbLeft, [ssAlt], ModKeys, False, SelKey, ccDouble);
SelKey := [];
ModKeys := [];
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 := [];

144
ide/frames/editor_mouseaction_options.lfm
View File

@ -745,7 +745,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
ClientHeight = 243
ClientWidth = 636
TabOrder = 0
object MiddleBtnLabel: TLabel
object lblMiddle: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropMiddle
AnchorSideTop.Side = asrCenter
@ -756,7 +756,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 9
Width = 84
BorderSpacing.Left = 6
Caption = 'MiddleBtnLabel'
Caption = 'lblMiddle'
ParentColor = False
end
object dropMiddle: TComboBox
@ -778,9 +778,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 1
end
object CtrlMiddleBtnLabel: TLabel
object lblMiddleCtrl: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropCtrlMiddle
AnchorSideTop.Control = dropMiddleCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -789,12 +789,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 96
Width = 103
BorderSpacing.Left = 6
Caption = 'CtrlMiddleBtnLabel'
Caption = 'lblMiddleCtrl'
ParentColor = False
end
object dropCtrlMiddle: TComboBox
object dropMiddleCtrl: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropAltMiddle
AnchorSideTop.Control = dropMiddleAlt
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -811,9 +811,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 0
end
object dropAltMiddle: TComboBox
object dropMiddleAlt: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropShiftMiddle
AnchorSideTop.Control = dropMiddleShift
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -830,9 +830,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 2
end
object AltMiddleBtnLabel: TLabel
object lblMiddleAlt: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropAltMiddle
AnchorSideTop.Control = dropMiddleAlt
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -841,10 +841,10 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 67
Width = 99
BorderSpacing.Left = 6
Caption = 'AltMiddleBtnLabel'
Caption = 'lblMiddleAlt'
ParentColor = False
end
object dropShiftMiddle: TComboBox
object dropMiddleShift: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropMiddle
AnchorSideTop.Side = asrBottom
@ -863,9 +863,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 3
end
object ShiftMiddleLabel: TLabel
object lblMiddleShift: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropShiftMiddle
AnchorSideTop.Control = dropMiddleShift
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -874,12 +874,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 38
Width = 90
BorderSpacing.Left = 6
Caption = 'ShiftMiddleLabel'
Caption = 'lblMiddleShift'
ParentColor = False
end
object dropAltCtrlMiddle: TComboBox
object dropMiddleAltCtrl: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropCtrlMiddle
AnchorSideTop.Control = dropMiddleCtrl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -896,9 +896,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 4
end
object dropShiftAltMiddle: TComboBox
object dropMiddleShiftAlt: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropAltCtrlMiddle
AnchorSideTop.Control = dropMiddleAltCtrl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -915,9 +915,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 5
end
object dropShiftCtrlMiddle: TComboBox
object dropMiddleShiftCtrl: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropShiftAltMiddle
AnchorSideTop.Control = dropMiddleShiftAlt
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -934,9 +934,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 6
end
object dropShiftAltCtrlMiddle: TComboBox
object dropMiddleShiftAltCtrl: TComboBox
AnchorSideLeft.Control = dropMiddle
AnchorSideTop.Control = dropShiftCtrlMiddle
AnchorSideTop.Control = dropMiddleShiftCtrl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -953,9 +953,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 7
end
object AltCtrlMiddleBtnLabel: TLabel
object lblMiddleAltCtrl: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropAltCtrlMiddle
AnchorSideTop.Control = dropMiddleAltCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -964,12 +964,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 125
Width = 118
BorderSpacing.Left = 6
Caption = 'AltCtrlMiddleBtnLabel'
Caption = 'lblMiddleAltCtrl'
ParentColor = False
end
object ShiftAltMiddleBtnLabel: TLabel
object lblMiddleShiftAlt: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropShiftAltMiddle
AnchorSideTop.Control = dropMiddleShiftAlt
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -978,12 +978,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 154
Width = 123
BorderSpacing.Left = 6
Caption = 'ShiftAltMiddleBtnLabel'
Caption = 'lblMiddleShiftAlt'
ParentColor = False
end
object ShiftCtrlMiddleBtnLabel: TLabel
object lblMiddleShiftCtrl: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropShiftCtrlMiddle
AnchorSideTop.Control = dropMiddleShiftCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -992,12 +992,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 183
Width = 127
BorderSpacing.Left = 6
Caption = 'ShiftCtrlMiddleBtnLabel'
Caption = 'lblMiddleShiftCtrl'
ParentColor = False
end
object ShiftAltCtrlMiddleBtnLabel: TLabel
object lblMiddleShiftAltCtrl: TLabel
AnchorSideLeft.Control = ScrollBox1
AnchorSideTop.Control = dropShiftAltCtrlMiddle
AnchorSideTop.Control = dropMiddleShiftAltCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox1
AnchorSideRight.Side = asrBottom
@ -1006,7 +1006,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 212
Width = 142
BorderSpacing.Left = 6
Caption = 'ShiftAltCtrlMiddleBtnLabel'
Caption = 'lblMiddleShiftAltCtrl'
ParentColor = False
end
end
@ -1043,9 +1043,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 0
end
object dropCtrlWheel: TComboBox
object dropWheelCtrl: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropAltWheel
AnchorSideTop.Control = dropWheelAlt
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1062,9 +1062,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 1
end
object dropAltWheel: TComboBox
object dropWheelAlt: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropShiftWheel
AnchorSideTop.Control = dropWheelShift
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1081,7 +1081,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 2
end
object dropShiftWheel: TComboBox
object dropWheelShift: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropWheel
AnchorSideTop.Side = asrBottom
@ -1100,7 +1100,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 3
end
object WheelBtnLabel: TLabel
object lblWheel: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropWheel
AnchorSideTop.Side = asrCenter
@ -1111,12 +1111,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 9
Width = 80
BorderSpacing.Left = 6
Caption = 'WheelBtnLabel'
Caption = 'lblWheel'
ParentColor = False
end
object CtrlWheelBtnLabel: TLabel
object lblWheelCtrl: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropCtrlWheel
AnchorSideTop.Control = dropWheelCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1125,12 +1125,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 96
Width = 99
BorderSpacing.Left = 6
Caption = 'CtrlWheelBtnLabel'
Caption = 'lblWheelCtrl'
ParentColor = False
end
object AltWheelBtnLabel: TLabel
object lblWheelAlt: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropAltWheel
AnchorSideTop.Control = dropWheelAlt
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1139,12 +1139,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 67
Width = 95
BorderSpacing.Left = 6
Caption = 'AltWheelBtnLabel'
Caption = 'lblWheelAlt'
ParentColor = False
end
object ShiftWheelBtnLabel: TLabel
object lblWheelShift: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropShiftWheel
AnchorSideTop.Control = dropWheelShift
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1153,12 +1153,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 38
Width = 104
BorderSpacing.Left = 6
Caption = 'ShiftWheelBtnLabel'
Caption = 'lblWheelShift'
ParentColor = False
end
object dropAltCtrlWheel: TComboBox
object dropWheelAltCtrl: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropCtrlWheel
AnchorSideTop.Control = dropWheelCtrl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1175,9 +1175,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 4
end
object dropShiftAltWheel: TComboBox
object dropWheelShiftAlt: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropAltCtrlWheel
AnchorSideTop.Control = dropWheelAltCtrl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1194,9 +1194,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 5
end
object dropShiftCtrlWheel: TComboBox
object dropWheelShiftCtrl: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropShiftAltWheel
AnchorSideTop.Control = dropWheelShiftAlt
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1213,9 +1213,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 6
end
object dropShiftAltCtrlWheel: TComboBox
object dropWheelShiftAltCtrl: TComboBox
AnchorSideLeft.Control = dropWheel
AnchorSideTop.Control = dropShiftCtrlWheel
AnchorSideTop.Control = dropWheelShiftCtrl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1232,9 +1232,9 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Style = csDropDownList
TabOrder = 7
end
object AltCtrlWheelBtnLabel: TLabel
object lblWheelAltCtrl: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropAltCtrlWheel
AnchorSideTop.Control = dropWheelAltCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1243,12 +1243,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 125
Width = 114
BorderSpacing.Left = 6
Caption = 'AltCtrlWheelBtnLabel'
Caption = 'lblWheelAltCtrl'
ParentColor = False
end
object ShiftAltWheelBtnLabel: TLabel
object lblWheelShiftAlt: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropShiftAltWheel
AnchorSideTop.Control = dropWheelShiftAlt
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1257,12 +1257,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 154
Width = 119
BorderSpacing.Left = 6
Caption = 'ShiftAltWheelBtnLabel'
Caption = 'lblWheelShiftAlt'
ParentColor = False
end
object ShiftCtrlWheelBtnLabel: TLabel
object lblWheelShiftCtrl: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropShiftCtrlWheel
AnchorSideTop.Control = dropWheelShiftCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1271,12 +1271,12 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 183
Width = 123
BorderSpacing.Left = 6
Caption = 'ShiftCtrlWheelBtnLabel'
Caption = 'lblWheelShiftCtrl'
ParentColor = False
end
object ShiftAltCtrlWheelBtnLabel: TLabel
object lblWheelShiftAltCtrl: TLabel
AnchorSideLeft.Control = ScrollBox2
AnchorSideTop.Control = dropShiftAltCtrlWheel
AnchorSideTop.Control = dropWheelShiftAltCtrl
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ScrollBox2
AnchorSideRight.Side = asrBottom
@ -1285,7 +1285,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Top = 212
Width = 138
BorderSpacing.Left = 6
Caption = 'ShiftAltCtrlWheelBtnLabel'
Caption = 'lblWheelShiftAltCtrl'
ParentColor = False
end
end

208
ide/frames/editor_mouseaction_options.pas
View File

@ -33,21 +33,38 @@ 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;
lblWheel: TLabel;
lblWheelAlt: TLabel;
lblWheelCtrl: TLabel;
lblWheelShift: TLabel;
lblWheelAltCtrl: TLabel;
lblWheelShiftAlt: TLabel;
lblWheelShiftCtrl: TLabel;
lblWheelShiftAltCtrl: TLabel;
dropWheel: TComboBox;
dropWheelAlt: TComboBox;
dropWheelCtrl: TComboBox;
dropWheelShift: TComboBox;
dropWheelAltCtrl: TComboBox;
dropWheelShiftAlt: TComboBox;
dropWheelShiftCtrl: TComboBox;
dropWheelShiftAltCtrl: TComboBox;
lblMiddle: TLabel;
lblMiddleAlt: TLabel;
lblMiddleCtrl: TLabel;
lblMiddleShift: TLabel;
lblMiddleAltCtrl: TLabel;
lblMiddleShiftAlt: TLabel;
lblMiddleShiftCtrl: TLabel;
lblMiddleShiftAltCtrl: TLabel;
dropMiddle: TComboBox;
dropMiddleAlt: TComboBox;
dropMiddleCtrl: TComboBox;
dropMiddleShift: TComboBox;
dropMiddleAltCtrl: TComboBox;
dropMiddleShiftAlt: TComboBox;
dropMiddleShiftCtrl: TComboBox;
dropMiddleShiftAltCtrl: TComboBox;
lblLeftDouble: TLabel;
lblLeftTriple: TLabel;
lblLeftQuad: TLabel;
@ -60,9 +77,6 @@ type
dropLeftShiftDouble: TComboBox;
dropLeftAltDouble: TComboBox;
dropLeftCtrlDouble: TComboBox;
ShiftCtrlMiddleBtnLabel: TLabel;
ShiftAltCtrlMiddleBtnLabel: TLabel;
ShiftMiddleLabel: TLabel;
ShiftLeftLabel: TLabel;
AltCtrlLeftLabel: TLabel;
ShiftCtrlLeftLabel: TLabel;
@ -71,14 +85,12 @@ type
BottomDivider: TBevel;
chkPredefinedScheme: TCheckBox;
AltLeftLabel: TLabel;
AltMiddleBtnLabel: TLabel;
dropAltLeft: TComboBox;
dropAltCtrlLeft: TComboBox;
dropShiftAltLeft: TComboBox;
dropShiftCtrlLeft: TComboBox;
dropShiftAltCtrlLeft: TComboBox;
dropShiftLeft: TComboBox;
dropAltMiddle: TComboBox;
PageLeftDbl: TPage;
PageLeftMod: TPage;
ScrollBox1: TScrollBox;
@ -88,21 +100,13 @@ type
TextDividerLabel: TDividerBevel;
GutterDividerLabel: TDividerBevel;
GenericDividerLabel: TDividerBevel;
dropMiddle: TComboBox;
dropCtrlLeft: TComboBox;
CtrLLeftLabel: TLabel;
DiffLabel: TLabel;
dropCtrlMiddle: TComboBox;
dropWheel: TComboBox;
dropCtrlWheel: TComboBox;
dropAltWheel: TComboBox;
dropShiftWheel: TComboBox;
dropUserSchemes: TComboBox;
GutterLeftRadio1: TRadioButton;
GutterLeftRadio2: TRadioButton;
HideMouseCheckBox: TCheckBox;
MiddleBtnLabel: TLabel;
CtrlMiddleBtnLabel: TLabel;
Notebook1: TNotebook;
PageMiddle: TPage;
PageWheel: TPage;
@ -111,10 +115,6 @@ type
ToolBtnWheel: TToolButton;
ToolButtonLeftMod: TToolButton;
ToolButtonLeftMulti: TToolButton;
WheelBtnLabel: TLabel;
CtrlWheelBtnLabel: TLabel;
AltWheelBtnLabel: TLabel;
ShiftWheelBtnLabel: TLabel;
pnlBottom: TPanel;
PanelGutter: TPanel;
PanelTextCheckBox: TPanel;
@ -295,22 +295,22 @@ begin
(FTempMouseSettings.TextCtrlDoubleLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftCtrlDouble.ItemIndex)) and
(FTempMouseSettings.TextMiddleClick = TMouseOptButtonAction(dropMiddle.ItemIndex)) and
(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.TextShiftMiddleClick = TMouseOptButtonAction(dropMiddleShift.ItemIndex)) and
(FTempMouseSettings.TextAltMiddleClick = TMouseOptButtonAction(dropMiddleAlt.ItemIndex)) and
(FTempMouseSettings.TextCtrlMiddleClick = TMouseOptButtonAction(dropMiddleCtrl.ItemIndex)) and
(FTempMouseSettings.TextAltCtrlMiddleClick = TMouseOptButtonAction(dropMiddleAltCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltMiddleClick = TMouseOptButtonAction(dropMiddleShiftAlt.ItemIndex)) and
(FTempMouseSettings.TextShiftCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftAltCtrl.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)) and
(FTempMouseSettings.AltCtrlWheel = TMouseOptWheelAction(dropAltCtrlWheel.ItemIndex)) and
(FTempMouseSettings.ShiftAltWheel = TMouseOptWheelAction(dropShiftAltWheel.ItemIndex)) and
(FTempMouseSettings.ShiftCtrlWheel = TMouseOptWheelAction(dropShiftCtrlWheel.ItemIndex)) and
(FTempMouseSettings.ShiftAltCtrlWheel = TMouseOptWheelAction(dropShiftAltCtrlWheel.ItemIndex))
(FTempMouseSettings.CtrlWheel = TMouseOptWheelAction(dropWheelCtrl.ItemIndex)) and
(FTempMouseSettings.AltWheel = TMouseOptWheelAction(dropWheelAlt.ItemIndex)) and
(FTempMouseSettings.ShiftWheel = TMouseOptWheelAction(dropWheelShift.ItemIndex)) and
(FTempMouseSettings.AltCtrlWheel = TMouseOptWheelAction(dropWheelAltCtrl.ItemIndex)) and
(FTempMouseSettings.ShiftAltWheel = TMouseOptWheelAction(dropWheelShiftAlt.ItemIndex)) and
(FTempMouseSettings.ShiftCtrlWheel = TMouseOptWheelAction(dropWheelShiftCtrl.ItemIndex)) and
(FTempMouseSettings.ShiftAltCtrlWheel = TMouseOptWheelAction(dropWheelShiftAltCtrl.ItemIndex))
);
end;
@ -360,22 +360,22 @@ begin
FTempMouseSettings.TextCtrlDoubleLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftCtrlDouble.ItemIndex);
FTempMouseSettings.TextMiddleClick := TMouseOptButtonAction(dropMiddle.ItemIndex);
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.TextShiftMiddleClick := TMouseOptButtonAction(dropMiddleShift.ItemIndex);
FTempMouseSettings.TextAltMiddleClick := TMouseOptButtonAction(dropMiddleAlt.ItemIndex);
FTempMouseSettings.TextCtrlMiddleClick := TMouseOptButtonAction(dropMiddleCtrl.ItemIndex);
FTempMouseSettings.TextAltCtrlMiddleClick := TMouseOptButtonAction(dropMiddleAltCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltMiddleClick := TMouseOptButtonAction(dropMiddleShiftAlt.ItemIndex);
FTempMouseSettings.TextShiftCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftAltCtrl.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.CtrlWheel := TMouseOptWheelAction(dropWheelCtrl.ItemIndex);
FTempMouseSettings.AltWheel := TMouseOptWheelAction(dropWheelAlt.ItemIndex);
FTempMouseSettings.ShiftWheel := TMouseOptWheelAction(dropWheelShift.ItemIndex);
FTempMouseSettings.AltCtrlWheel := TMouseOptWheelAction(dropWheelAltCtrl.ItemIndex);
FTempMouseSettings.ShiftAltWheel := TMouseOptWheelAction(dropWheelShiftAlt.ItemIndex);
FTempMouseSettings.ShiftCtrlWheel := TMouseOptWheelAction(dropWheelShiftCtrl.ItemIndex);
FTempMouseSettings.ShiftAltCtrlWheel := TMouseOptWheelAction(dropWheelShiftAltCtrl.ItemIndex);
FTempMouseSettings.ResetTextToDefault;
if FDialog.FindEditor(TEditorMouseOptionsAdvFrame) <> nil then
@ -513,23 +513,23 @@ begin
ShiftCtrlLeftLabel.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
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;
lblMiddle.Caption := dlfMouseSimpleTextSectMidLabel;
lblMiddleShift.Caption := dlfMouseSimpleTextSectShiftLabel;
lblMiddleAlt.Caption := dlfMouseSimpleTextSectAltLabel;
lblMiddleCtrl.Caption := dlfMouseSimpleTextSectCtrlLabel;
lblMiddleAltCtrl.Caption := dlfMouseSimpleTextSectAltCtrlLabel;
lblMiddleShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel;
lblMiddleShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
lblMiddleShiftAltCtrl.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;
lblWheel.Caption := dlfMouseSimpleTextSectWheelLabel;
lblWheelCtrl.Caption := dlfMouseSimpleTextSectCtrlWheelLabel;
lblWheelAlt.Caption := dlfMouseSimpleTextSectAltWheelLabel;
lblWheelShift.Caption := dlfMouseSimpleTextShiftSectWheelLabel;
lblWheelAltCtrl.Caption := dlfMouseSimpleTextSectAltCtrlWheelLabel;
lblWheelShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltWheelLabel;
lblWheelShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlWheelLabel;
lblWheelShiftAltCtrl.Caption := dlfMouseSimpleTextSectShiftAltCtrlWheelLabel;
// left multi click
SetupButtonCombo(dropLeftDouble, True);
@ -548,22 +548,22 @@ begin
SetupButtonCombo(dropShiftAltCtrlLeft);
// middle click
SetupButtonCombo(dropMiddle);
SetupButtonCombo(dropShiftMiddle);
SetupButtonCombo(dropAltMiddle);
SetupButtonCombo(dropCtrlMiddle);
SetupButtonCombo(dropAltCtrlMiddle);
SetupButtonCombo(dropShiftCtrlMiddle);
SetupButtonCombo(dropShiftAltMiddle);
SetupButtonCombo(dropShiftAltCtrlMiddle);
SetupButtonCombo(dropMiddleShift);
SetupButtonCombo(dropMiddleAlt);
SetupButtonCombo(dropMiddleCtrl);
SetupButtonCombo(dropMiddleAltCtrl);
SetupButtonCombo(dropMiddleShiftCtrl);
SetupButtonCombo(dropMiddleShiftAlt);
SetupButtonCombo(dropMiddleShiftAltCtrl);
// wheel
SetupWheelCombo(dropWheel);
SetupWheelCombo(dropCtrlWheel);
SetupWheelCombo(dropAltWheel);
SetupWheelCombo(dropShiftWheel);
SetupWheelCombo(dropAltCtrlWheel);
SetupWheelCombo(dropShiftAltWheel);
SetupWheelCombo(dropShiftCtrlWheel);
SetupWheelCombo(dropShiftAltCtrlWheel);
SetupWheelCombo(dropWheelCtrl);
SetupWheelCombo(dropWheelAlt);
SetupWheelCombo(dropWheelShift);
SetupWheelCombo(dropWheelAltCtrl);
SetupWheelCombo(dropWheelShiftAlt);
SetupWheelCombo(dropWheelShiftCtrl);
SetupWheelCombo(dropWheelShiftAltCtrl);
WarnLabel.Caption := dlfMouseSimpleWarning;
DiffLabel.Caption := dlfMouseSimpleDiff;
@ -620,22 +620,22 @@ begin
dropLeftCtrlDouble.ItemIndex := Max(ord(FTempMouseSettings.TextCtrlDoubleLeftClick)-3,0);
dropMiddle.ItemIndex := ord(FTempMouseSettings.TextMiddleClick);
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);
dropMiddleShift.ItemIndex := ord(FTempMouseSettings.TextShiftMiddleClick);
dropMiddleAlt.ItemIndex := ord(FTempMouseSettings.TextAltMiddleClick);
dropMiddleCtrl.ItemIndex := ord(FTempMouseSettings.TextCtrlMiddleClick);
dropMiddleAltCtrl.ItemIndex := ord(FTempMouseSettings.TextAltCtrlMiddleClick);
dropMiddleShiftCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftCtrlMiddleClick);
dropMiddleShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltMiddleClick);
dropMiddleShiftAltCtrl.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);
dropWheelCtrl.ItemIndex := ord(FTempMouseSettings.CtrlWheel);
dropWheelAlt.ItemIndex := ord(FTempMouseSettings.AltWheel);
dropWheelShift.ItemIndex := ord(FTempMouseSettings.ShiftWheel);
dropWheelAltCtrl.ItemIndex := ord(FTempMouseSettings.AltWheel);
dropWheelShiftAlt.ItemIndex := ord(FTempMouseSettings.ShiftAltWheel);
dropWheelShiftCtrl.ItemIndex := ord(FTempMouseSettings.ShiftCtrlWheel);
dropWheelShiftAltCtrl.ItemIndex := ord(FTempMouseSettings.ShiftAltCtrlWheel);
Dec(FInClickHandler);
UpdateButtons;