paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 12:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE more mouse options

Browse Source 
git-svn-id: trunk@34118 -
This commit is contained in:
martin 2011-12-11 21:01:58 +00:00
parent 6646781795
commit 4589ac0f51
4 changed files with 1392 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

253
ide/editoroptions.pp
View File

@ -687,6 +687,7 @@ type
mbaHistoryBack, mbaHistoryForw, mbaHistoryBack, mbaHistoryForw,
mbaSetFreeBookmark, mbaSetFreeBookmark,
mbaZoomReset, mbaZoomReset,
mbaContextMenu,
// Old values, needed to load old config // Old values, needed to load old config
moTCLNone, moTMIgnore, moTCLNone, moTMIgnore,
@ -695,7 +696,7 @@ type
moTCLJumpOrBlock moTCLJumpOrBlock
); );
TMouseOptButtonAction = mbaNone..mbaZoomReset; TMouseOptButtonAction = mbaNone..mbaContextMenu;
const const
MouseOptButtonActionOld: Array [moTCLNone..moTCLJumpOrBlock] of TMouseOptButtonActionOld = ( MouseOptButtonActionOld: Array [moTCLNone..moTCLJumpOrBlock] of TMouseOptButtonActionOld = (
@ -755,8 +756,33 @@ type
FTextShiftAltCtrlMiddleClick: TMouseOptButtonAction; FTextShiftAltCtrlMiddleClick: TMouseOptButtonAction;
FTextShiftCtrlMiddleClick: TMouseOptButtonAction; FTextShiftCtrlMiddleClick: TMouseOptButtonAction;
FTextShiftMiddleClick: TMouseOptButtonAction; FTextShiftMiddleClick: TMouseOptButtonAction;
// right
FTextAltCtrlRightClick: TMouseOptButtonAction;
FTextAltRightClick: TMouseOptButtonAction;
FTextCtrlRightClick: TMouseOptButtonAction;
FTextRightClick: TMouseOptButtonAction;
FTextShiftAltCtrlRightClick: TMouseOptButtonAction;
FTextShiftAltRightClick: TMouseOptButtonAction;
FTextShiftCtrlRightClick: TMouseOptButtonAction;
FTextShiftRightClick: TMouseOptButtonAction;
// extra-1 click // extra-1 click
FTextAltCtrlExtra1Click: TMouseOptButtonAction;
FTextAltExtra1Click: TMouseOptButtonAction;
FTextCtrlExtra1Click: TMouseOptButtonAction;
FTextExtra1Click: TMouseOptButtonAction;
FTextShiftAltCtrlExtra1Click: TMouseOptButtonAction;
FTextShiftAltExtra1Click: TMouseOptButtonAction;
FTextShiftCtrlExtra1Click: TMouseOptButtonAction;
FTextShiftExtra1Click: TMouseOptButtonAction;
// extra-2 click // extra-2 click
FTextAltCtrlExtra2Click: TMouseOptButtonAction;
FTextAltExtra2Click: TMouseOptButtonAction;
FTextCtrlExtra2Click: TMouseOptButtonAction;
FTextExtra2Click: TMouseOptButtonAction;
FTextShiftAltCtrlExtra2Click: TMouseOptButtonAction;
FTextShiftAltExtra2Click: TMouseOptButtonAction;
FTextShiftCtrlExtra2Click: TMouseOptButtonAction;
FTextShiftExtra2Click: TMouseOptButtonAction;
// wheel // wheel
FWheel: TMouseOptWheelAction; FWheel: TMouseOptWheelAction;
FAltWheel: TMouseOptWheelAction; FAltWheel: TMouseOptWheelAction;
@ -767,7 +793,6 @@ type
FAltCtrlWheel: TMouseOptWheelAction; FAltCtrlWheel: TMouseOptWheelAction;
FShiftAltCtrlWheel: TMouseOptWheelAction; FShiftAltCtrlWheel: TMouseOptWheelAction;
procedure ClearUserSchemes; procedure ClearUserSchemes;
function GetUserSchemeNames(Index: Integer): String; function GetUserSchemeNames(Index: Integer): String;
function GetUserSchemes(Index: String): TEditorMouseOptions; function GetUserSchemes(Index: String): TEditorMouseOptions;
@ -865,9 +890,57 @@ type
property TextShiftAltCtrlMiddleClick: TMouseOptButtonAction read FTextShiftAltCtrlMiddleClick write FTextShiftAltCtrlMiddleClick property TextShiftAltCtrlMiddleClick: TMouseOptButtonAction read FTextShiftAltCtrlMiddleClick write FTextShiftAltCtrlMiddleClick
default mbaNone; default mbaNone;
// right click // right click
property TextRightClick: TMouseOptButtonAction read FTextRightClick write FTextRightClick
default mbaContextMenu;
property TextShiftRightClick: TMouseOptButtonAction read FTextShiftRightClick write FTextShiftRightClick
default mbaNone;
property TextAltRightClick: TMouseOptButtonAction read FTextAltRightClick write FTextAltRightClick
default mbaNone;
property TextCtrlRightClick: TMouseOptButtonAction read FTextCtrlRightClick write FTextCtrlRightClick
default mbaNone;
property TextShiftAltRightClick: TMouseOptButtonAction read FTextShiftAltRightClick write FTextShiftAltRightClick
default mbaNone;
property TextShiftCtrlRightClick: TMouseOptButtonAction read FTextShiftCtrlRightClick write FTextShiftCtrlRightClick
default mbaNone;
property TextAltCtrlRightClick: TMouseOptButtonAction read FTextAltCtrlRightClick write FTextAltCtrlRightClick
default mbaNone;
property TextShiftAltCtrlRightClick: TMouseOptButtonAction read FTextShiftAltCtrlRightClick write FTextShiftAltCtrlRightClick
default mbaNone;
// extra-1 click // extra-1 click
property TextExtra1Click: TMouseOptButtonAction read FTextExtra1Click write FTextExtra1Click
default mbaHistoryBack;
property TextShiftExtra1Click: TMouseOptButtonAction read FTextShiftExtra1Click write FTextShiftExtra1Click
default mbaNone;
property TextAltExtra1Click: TMouseOptButtonAction read FTextAltExtra1Click write FTextAltExtra1Click
default mbaNone;
property TextCtrlExtra1Click: TMouseOptButtonAction read FTextCtrlExtra1Click write FTextCtrlExtra1Click
default mbaNone;
property TextShiftAltExtra1Click: TMouseOptButtonAction read FTextShiftAltExtra1Click write FTextShiftAltExtra1Click
default mbaNone;
property TextShiftCtrlExtra1Click: TMouseOptButtonAction read FTextShiftCtrlExtra1Click write FTextShiftCtrlExtra1Click
default mbaNone;
property TextAltCtrlExtra1Click: TMouseOptButtonAction read FTextAltCtrlExtra1Click write FTextAltCtrlExtra1Click
default mbaNone;
property TextShiftAltCtrlExtra1Click: TMouseOptButtonAction read FTextShiftAltCtrlExtra1Click write FTextShiftAltCtrlExtra1Click
default mbaNone;
// extra-2 click // extra-2 click
property TextExtra2Click: TMouseOptButtonAction read FTextExtra2Click write FTextExtra2Click
default mbaHistoryForw;
property TextShiftExtra2Click: TMouseOptButtonAction read FTextShiftExtra2Click write FTextShiftExtra2Click
default mbaNone;
property TextAltExtra2Click: TMouseOptButtonAction read FTextAltExtra2Click write FTextAltExtra2Click
default mbaNone;
property TextCtrlExtra2Click: TMouseOptButtonAction read FTextCtrlExtra2Click write FTextCtrlExtra2Click
default mbaNone;
property TextShiftAltExtra2Click: TMouseOptButtonAction read FTextShiftAltExtra2Click write FTextShiftAltExtra2Click
default mbaNone;
property TextShiftCtrlExtra2Click: TMouseOptButtonAction read FTextShiftCtrlExtra2Click write FTextShiftCtrlExtra2Click
default mbaNone;
property TextAltCtrlExtra2Click: TMouseOptButtonAction read FTextAltCtrlExtra2Click write FTextAltCtrlExtra2Click
default mbaNone;
property TextShiftAltCtrlExtra2Click: TMouseOptButtonAction read FTextShiftAltCtrlExtra2Click write FTextShiftAltCtrlExtra2Click
default mbaNone;
//
property Wheel: TMouseOptWheelAction read FWheel write FWheel property Wheel: TMouseOptWheelAction read FWheel write FWheel
default mwaScroll; default mwaScroll;
property CtrlWheel: TMouseOptWheelAction read FCtrlWheel write FCtrlWheel property CtrlWheel: TMouseOptWheelAction read FCtrlWheel write FCtrlWheel
@ -2446,18 +2519,18 @@ begin
FTextAltDoubleLeftClick := mbaNone; FTextAltDoubleLeftClick := mbaNone;
FTextCtrlDoubleLeftClick := mbaNone; FTextCtrlDoubleLeftClick := mbaNone;
// left // left
FTextAltLeftClick := mbaSelectColumn;
FTextCtrlLeftClick := mbaDeclarationJump;
FTextAltCtrlLeftClick := mbaNone; FTextAltCtrlLeftClick := mbaNone;
FTextShiftAltLeftClick := mbaNone;
FTextShiftAltCtrlLeftClick := mbaNone;
FTextShiftCtrlLeftClick := mbaNone;
FTextShiftLeftClick := mbaNone; FTextShiftLeftClick := mbaNone;
FTextCtrlLeftClick := mbaDeclarationJump; FTextShiftAltLeftClick := mbaNone;
FTextAltLeftClick := mbaSelectColumn; FTextShiftCtrlLeftClick := mbaNone;
FTextShiftAltCtrlLeftClick := mbaNone;
// middle // middle
FTextMiddleClick := mbaPaste; FTextMiddleClick := mbaPaste;
FTextAltMiddleClick := mbaNone;
FTextCtrlMiddleClick := mbaZoomReset; FTextCtrlMiddleClick := mbaZoomReset;
FTextShiftMiddleClick := mbaNone; FTextShiftMiddleClick := mbaNone;
FTextAltMiddleClick := mbaNone;
FTextAltCtrlMiddleClick := mbaNone; FTextAltCtrlMiddleClick := mbaNone;
FTextShiftAltMiddleClick := mbaNone; FTextShiftAltMiddleClick := mbaNone;
FTextShiftAltCtrlMiddleClick := mbaNone; FTextShiftAltCtrlMiddleClick := mbaNone;
@ -2471,6 +2544,33 @@ begin
FShiftCtrlWheel := mwaNone; FShiftCtrlWheel := mwaNone;
FShiftAltWheel := mwaNone; FShiftAltWheel := mwaNone;
FShiftAltCtrlWheel := mwaNone; FShiftAltCtrlWheel := mwaNone;
// right
FTextRightClick := mbaContextMenu;
FTextAltCtrlRightClick := mbaNone;
FTextAltRightClick := mbaNone;
FTextCtrlRightClick := mbaNone;
FTextShiftAltCtrlRightClick := mbaNone;
FTextShiftAltRightClick := mbaNone;
FTextShiftCtrlRightClick := mbaNone;
FTextShiftRightClick := mbaNone;
// extra-1 click
FTextExtra1Click := mbaHistoryBack;
FTextAltCtrlExtra1Click := mbaNone;
FTextAltExtra1Click := mbaNone;
FTextCtrlExtra1Click := mbaNone;
FTextShiftAltCtrlExtra1Click := mbaNone;
FTextShiftAltExtra1Click := mbaNone;
FTextShiftCtrlExtra1Click := mbaNone;
FTextShiftExtra1Click := mbaNone;
// extra-2 click
FTextExtra2Click := mbaHistoryForw;
FTextAltCtrlExtra2Click := mbaNone;
FTextAltExtra2Click := mbaNone;
FTextCtrlExtra2Click := mbaNone;
FTextShiftAltCtrlExtra2Click := mbaNone;
FTextShiftAltExtra2Click := mbaNone;
FTextShiftCtrlExtra2Click := mbaNone;
FTextShiftExtra2Click := mbaNone;
FTextRightMoveCaret := False; FTextRightMoveCaret := False;
@ -2535,7 +2635,8 @@ procedure TEditorMouseOptions.ResetTextToDefault;
procedure AddBtnClick(AnAction: TMouseOptButtonAction; const AButton: TSynMouseButton; procedure AddBtnClick(AnAction: TMouseOptButtonAction; const AButton: TSynMouseButton;
AShift, AShiftMask: TShiftState; AddLinkDummy: Boolean = False; AShift, AShiftMask: TShiftState; AddLinkDummy: Boolean = False;
ASelContShift: TShiftState = []; AClickCount: TSynMAClickCount = ccSingle); ASelContShift: TShiftState = []; AClickCount: TSynMAClickCount = ccSingle;
AMoveCaret: Boolean = True; ADir: TSynMAClickDir = cdUp);
procedure AddSelCommand(const ACmd: TSynEditorMouseCommand); procedure AddSelCommand(const ACmd: TSynEditorMouseCommand);
begin begin
@ -2553,35 +2654,37 @@ procedure TEditorMouseOptions.ResetTextToDefault;
mbaSelectColumn: AddSelCommand(emcStartColumnSelections); mbaSelectColumn: AddSelCommand(emcStartColumnSelections);
mbaSelectLine: AddSelCommand(emcStartLineSelections); mbaSelectLine: AddSelCommand(emcStartLineSelections);
mbaSelectSetWord: mbaSelectSetWord:
AddCommand(emcSelectWord, True, AButton, AClickCount, cdUp, AShift, AShiftMask); AddCommand(emcSelectWord, True, AButton, AClickCount, ADir, AShift, AShiftMask);
mbaSelectSetLineSmart: mbaSelectSetLineSmart:
AddCommand(emcSelectLine, True, AButton, AClickCount, cdUp, AShift, AShiftMask, emcoSelectLineSmart); AddCommand(emcSelectLine, True, AButton, AClickCount, ADir, AShift, AShiftMask, emcoSelectLineSmart);
mbaSelectSetLineFull: mbaSelectSetLineFull:
AddCommand(emcSelectLine, True, AButton, AClickCount, cdUp, AShift, AShiftMask, emcoSelectLineFull); AddCommand(emcSelectLine, True, AButton, AClickCount, ADir, AShift, AShiftMask, emcoSelectLineFull);
mbaSelectSetPara: mbaSelectSetPara:
AddCommand(emcSelectPara, True, AButton, AClickCount, cdUp, AShift, AShiftMask); AddCommand(emcSelectPara, True, AButton, AClickCount, ADir, AShift, AShiftMask);
mbaPaste: // TODOS act on up? but needs to prevent selection on down mbaPaste: // TODOS act on up? but needs to prevent selection on down
AddCommand(emcPasteSelection, True, AButton, AClickCount, cdDown, AShift, AShiftMask, 0, 0, 0, True); AddCommand(emcPasteSelection, True, AButton, AClickCount, cdDown, AShift, AShiftMask, 0, 0, 0, True);
mbaDeclarationJump, mbaDeclarationJump,
mbaDeclarationOrBlockJump: begin mbaDeclarationOrBlockJump: begin
if AddLinkDummy then if AddLinkDummy then
AddCommand(emcMouseLink, False, AButton, AClickCount, cdUp, [SYNEDIT_LINK_MODIFIER], [SYNEDIT_LINK_MODIFIER], emcoMouseLinkShow, 999); AddCommand(emcMouseLink, False, AButton, AClickCount, ADir, [SYNEDIT_LINK_MODIFIER], [SYNEDIT_LINK_MODIFIER], emcoMouseLinkShow, 999);
AddCommand(emcMouseLink, False, AButton, AClickCount, cdUp, AShift, AShiftMask); AddCommand(emcMouseLink, False, AButton, AClickCount, ADir, AShift, AShiftMask);
if AnAction = mbaDeclarationOrBlockJump then if AnAction = mbaDeclarationOrBlockJump then
AddCommand(emcSynEditCommand, True, AButton, AClickCount, cdUp, AShift, AShiftMask, ecFindBlockOtherEnd, 1); AddCommand(emcSynEditCommand, True, AButton, AClickCount, ADir, AShift, AShiftMask, ecFindBlockOtherEnd, 1);
end; end;
mbaAddHistoryPoint: mbaAddHistoryPoint:
AddCommand(emcSynEditCommand, True, AButton, AClickCount, cdUp, AShift, AShiftMask, ecAddJumpPoint); AddCommand(emcSynEditCommand, True, AButton, AClickCount, ADir, AShift, AShiftMask, ecAddJumpPoint);
mbaHistoryBack: mbaHistoryBack:
AddCommand(emcSynEditCommand, False, AButton, AClickCount, cdUp, AShift, AShiftMask, ecJumpBack); AddCommand(emcSynEditCommand, False, AButton, AClickCount, ADir, AShift, AShiftMask, ecJumpBack);
mbaHistoryForw: mbaHistoryForw:
AddCommand(emcSynEditCommand, False, AButton, AClickCount, cdUp, AShift, AShiftMask, ecJumpForward); AddCommand(emcSynEditCommand, False, AButton, AClickCount, ADir, AShift, AShiftMask, ecJumpForward);
mbaSetFreeBookmark: mbaSetFreeBookmark:
AddCommand(emcSynEditCommand, True, AButton, AClickCount, cdUp, AShift, AShiftMask, ecSetFreeBookmark); AddCommand(emcSynEditCommand, True, AButton, AClickCount, ADir, AShift, AShiftMask, ecSetFreeBookmark);
mbaZoomReset: begin mbaZoomReset: begin
AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, cdUp, AShift, AShiftMask); AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, ADir, AShift, AShiftMask);
FMainActions.AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, cdUp, AShift, AShiftMask); FMainActions.AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, ADir, AShift, AShiftMask);
end; end;
mbaContextMenu:
AddCommand(emcContextMenu, AMoveCaret, AButton, AClickCount, ADir, [], [], emcoSelectionCaretMoveNever);
end; end;
end; end;
end; end;
@ -2698,9 +2801,60 @@ begin
AddBtnClick(FTextShiftAltMiddleClick, mbMiddle, [ssShift, ssAlt], ModKeys); AddBtnClick(FTextShiftAltMiddleClick, mbMiddle, [ssShift, ssAlt], ModKeys);
AddBtnClick(FTextShiftAltCtrlMiddleClick, mbMiddle, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys); AddBtnClick(FTextShiftAltCtrlMiddleClick, mbMiddle, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys);
with FTextActions do begin SelKey := [];
AddCommand(emcContextMenu, FTextRightMoveCaret, mbRight, ccSingle, cdUp, [], [], emcoSelectionCaretMoveNever); ModKeys := [];
end; if FTextShiftRightClick <> mbaNone then ModKeys := ModKeys + [ssShift];
if FTextCtrlRightClick <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextAltRightClick <> mbaNone then ModKeys := ModKeys + [ssAlt];
if FTextAltCtrlRightClick <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextShiftCtrlRightClick <> mbaNone then ModKeys := ModKeys + [ssShift, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextShiftAltRightClick <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt];
if FTextShiftAltCtrlRightClick <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
AddBtnClick(FTextRightClick, mbRight, [], ModKeys, FTextCtrlRightClick = mbaNone, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextShiftRightClick,mbRight, [ssShift], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextAltRightClick, mbRight, [ssAlt], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextCtrlRightClick, mbRight, [SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextAltCtrlRightClick, mbRight, [ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextShiftCtrlRightClick, mbRight, [ssShift, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextShiftAltRightClick, mbRight, [ssShift, ssAlt], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
AddBtnClick(FTextShiftAltCtrlRightClick, mbRight, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, FTextRightMoveCaret);
SelKey := [];
ModKeys := [];
if FTextShiftExtra1Click <> mbaNone then ModKeys := ModKeys + [ssShift];
if FTextCtrlExtra1Click <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextAltExtra1Click <> mbaNone then ModKeys := ModKeys + [ssAlt];
if FTextAltCtrlExtra1Click <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextShiftCtrlExtra1Click <> mbaNone then ModKeys := ModKeys + [ssShift, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextShiftAltExtra1Click <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt];
if FTextShiftAltCtrlExtra1Click <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
AddBtnClick(FTextExtra1Click, mbExtra1, [], ModKeys, FTextCtrlExtra1Click = mbaNone, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftExtra1Click,mbExtra1, [ssShift], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextAltExtra1Click, mbExtra1, [ssAlt], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextCtrlExtra1Click, mbExtra1, [SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextAltCtrlExtra1Click, mbExtra1, [ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftCtrlExtra1Click, mbExtra1, [ssShift, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftAltExtra1Click, mbExtra1, [ssShift, ssAlt], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftAltCtrlExtra1Click, mbExtra1, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
// TODO: on w32 extra btn do not call mouse up
SelKey := [];
ModKeys := [];
if FTextShiftExtra2Click <> mbaNone then ModKeys := ModKeys + [ssShift];
if FTextCtrlExtra2Click <> mbaNone then ModKeys := ModKeys + [ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextAltExtra2Click <> mbaNone then ModKeys := ModKeys + [ssAlt];
if FTextAltCtrlExtra2Click <> mbaNone then ModKeys := ModKeys + [ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextShiftCtrlExtra2Click <> mbaNone then ModKeys := ModKeys + [ssShift, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
if FTextShiftAltExtra2Click <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt];
if FTextShiftAltCtrlExtra2Click <> mbaNone then ModKeys := ModKeys + [ssShift, ssAlt, ssCtrl] + [SYNEDIT_LINK_MODIFIER];
AddBtnClick(FTextExtra2Click, mbExtra2, [], ModKeys, FTextCtrlExtra2Click = mbaNone, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftExtra2Click,mbExtra2, [ssShift], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextAltExtra2Click, mbExtra2, [ssAlt], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextCtrlExtra2Click, mbExtra2, [SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextAltCtrlExtra2Click, mbExtra2, [ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftCtrlExtra2Click, mbExtra2, [ssShift, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftAltExtra2Click, mbExtra2, [ssShift, ssAlt], ModKeys, False, [], ccSingle, True, cdDown);
AddBtnClick(FTextShiftAltCtrlExtra2Click, mbExtra2, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys, False, [], ccSingle, True, cdDown);
ModKeys := []; ModKeys := [];
if FShiftWheel <> mwaNone then ModKeys := ModKeys + [ssShift]; if FShiftWheel <> mwaNone then ModKeys := ModKeys + [ssShift];
@ -2723,11 +2877,6 @@ begin
with FSelActions do begin with FSelActions do begin
AddCommand(emcStartDragMove, False, mbLeft, ccSingle, cdDown, [], []); AddCommand(emcStartDragMove, False, mbLeft, ccSingle, cdDown, [], []);
end; end;
with FTextActions do begin
AddCommand(emcSynEditCommand, False, mbExtra1, ccAny, cdDown, [], [], ecJumpBack);
AddCommand(emcSynEditCommand, False, mbExtra2, ccAny, cdDown, [], [], ecJumpForward);
end;
end; end;
procedure TEditorMouseOptions.ResetToUserScheme; procedure TEditorMouseOptions.ResetToUserScheme;
@ -2789,18 +2938,17 @@ begin
FTextCtrlDoubleLeftClick := Src.TextCtrlDoubleLeftClick; FTextCtrlDoubleLeftClick := Src.TextCtrlDoubleLeftClick;
// left + modifier click // left + modifier click
FTextAltLeftClick := Src.TextAltLeftClick; FTextAltLeftClick := Src.TextAltLeftClick;
FTextAltCtrlLeftClick := Src.TextAltCtrlLeftClick;
FTextShiftAltLeftClick := Src.TextShiftAltLeftClick;
FTextShiftAltCtrlLeftClick := Src.TextShiftAltCtrlLeftClick;
FTextShiftCtrlLeftClick := Src.TextShiftCtrlLeftClick;
FTextShiftLeftClick := Src.TextShiftLeftClick;
FTextCtrlLeftClick := Src.TextCtrlLeftClick; FTextCtrlLeftClick := Src.TextCtrlLeftClick;
FTextAltLeftClick := Src.TextAltLeftClick; FTextAltCtrlLeftClick := Src.TextAltCtrlLeftClick;
FTextShiftLeftClick := Src.TextShiftLeftClick;
FTextShiftAltLeftClick := Src.TextShiftAltLeftClick;
FTextShiftCtrlLeftClick := Src.TextShiftCtrlLeftClick;
FTextShiftAltCtrlLeftClick := Src.TextShiftAltCtrlLeftClick;
// middle click // middle click
FTextMiddleClick := Src.TextMiddleClick; FTextMiddleClick := Src.TextMiddleClick;
FTextShiftMiddleClick := Src.TextShiftMiddleClick;
FTextAltMiddleClick := Src.TextAltMiddleClick; FTextAltMiddleClick := Src.TextAltMiddleClick;
FTextCtrlMiddleClick := Src.TextCtrlMiddleClick; FTextCtrlMiddleClick := Src.TextCtrlMiddleClick;
FTextShiftMiddleClick := Src.TextShiftMiddleClick;
FTextAltCtrlMiddleClick := Src.TextAltCtrlMiddleClick; FTextAltCtrlMiddleClick := Src.TextAltCtrlMiddleClick;
FTextShiftAltMiddleClick := Src.TextShiftAltMiddleClick; FTextShiftAltMiddleClick := Src.TextShiftAltMiddleClick;
FTextShiftCtrlMiddleClick := Src.TextShiftCtrlMiddleClick; FTextShiftCtrlMiddleClick := Src.TextShiftCtrlMiddleClick;
@ -2814,8 +2962,33 @@ begin
FShiftCtrlWheel := Src.ShiftCtrlWheel; FShiftCtrlWheel := Src.ShiftCtrlWheel;
FShiftAltWheel := Src.ShiftAltWheel; FShiftAltWheel := Src.ShiftAltWheel;
FShiftAltCtrlWheel := Src.ShiftAltCtrlWheel; FShiftAltCtrlWheel := Src.ShiftAltCtrlWheel;
// extra-1 click // right
// extra-2 click FTextAltCtrlRightClick := Src.TextAltCtrlRightClick;
FTextAltRightClick := Src.TextAltRightClick;
FTextCtrlRightClick := Src.TextCtrlRightClick;
FTextRightClick := Src.TextRightClick;
FTextShiftAltCtrlRightClick := Src.TextShiftAltCtrlRightClick;
FTextShiftAltRightClick := Src.TextShiftAltRightClick;
FTextShiftCtrlRightClick := Src.TextShiftCtrlRightClick;
FTextShiftRightClick := Src.TextShiftRightClick;
// extra-1 click
FTextAltCtrlExtra1Click := Src.TextAltCtrlExtra1Click;
FTextAltExtra1Click := Src.TextAltExtra1Click;
FTextCtrlExtra1Click := Src.TextCtrlExtra1Click;
FTextExtra1Click := Src.TextExtra1Click;
FTextShiftAltCtrlExtra1Click := Src.TextShiftAltCtrlExtra1Click;
FTextShiftAltExtra1Click := Src.TextShiftAltExtra1Click;
FTextShiftCtrlExtra1Click := Src.TextShiftCtrlExtra1Click;
FTextShiftExtra1Click := Src.TextShiftExtra1Click;
// extra-2 click
FTextAltCtrlExtra2Click := Src.TextAltCtrlExtra2Click;
FTextAltExtra2Click := Src.TextAltExtra2Click;
FTextCtrlExtra2Click := Src.TextCtrlExtra2Click;
FTextExtra2Click := Src.TextExtra2Click;
FTextShiftAltCtrlExtra2Click := Src.TextShiftAltCtrlExtra2Click;
FTextShiftAltExtra2Click := Src.TextShiftAltExtra2Click;
FTextShiftCtrlExtra2Click := Src.TextShiftCtrlExtra2Click;
FTextShiftExtra2Click := Src.TextShiftExtra2Click;

1062
ide/frames/editor_mouseaction_options.lfm
View File

File diff suppressed because it is too large Load Diff

222
ide/frames/editor_mouseaction_options.pas
View File

@ -65,6 +65,54 @@ type
dropMiddleShiftAlt: TComboBox; dropMiddleShiftAlt: TComboBox;
dropMiddleShiftCtrl: TComboBox; dropMiddleShiftCtrl: TComboBox;
dropMiddleShiftAltCtrl: TComboBox; dropMiddleShiftAltCtrl: TComboBox;
lblRight: TLabel;
lblRightAlt: TLabel;
lblRightCtrl: TLabel;
lblRightShift: TLabel;
lblRightAltCtrl: TLabel;
lblRightShiftAlt: TLabel;
lblRightShiftCtrl: TLabel;
lblRightShiftAltCtrl: TLabel;
dropRight: TComboBox;
dropRightAlt: TComboBox;
dropRightCtrl: TComboBox;
dropRightShift: TComboBox;
dropRightAltCtrl: TComboBox;
dropRightShiftAlt: TComboBox;
dropRightShiftCtrl: TComboBox;
dropRightShiftAltCtrl: TComboBox;
lblExtra1: TLabel;
lblExtra1Alt: TLabel;
lblExtra1Ctrl: TLabel;
lblExtra1Shift: TLabel;
lblExtra1AltCtrl: TLabel;
lblExtra1ShiftAlt: TLabel;
lblExtra1ShiftCtrl: TLabel;
lblExtra1ShiftAltCtrl: TLabel;
dropExtra1: TComboBox;
dropExtra1Alt: TComboBox;
dropExtra1Ctrl: TComboBox;
dropExtra1Shift: TComboBox;
dropExtra1AltCtrl: TComboBox;
dropExtra1ShiftAlt: TComboBox;
dropExtra1ShiftCtrl: TComboBox;
dropExtra1ShiftAltCtrl: TComboBox;
lblExtra2: TLabel;
lblExtra2Alt: TLabel;
lblExtra2Ctrl: TLabel;
lblExtra2Shift: TLabel;
lblExtra2AltCtrl: TLabel;
lblExtra2ShiftAlt: TLabel;
lblExtra2ShiftCtrl: TLabel;
lblExtra2ShiftAltCtrl: TLabel;
dropExtra2: TComboBox;
dropExtra2Alt: TComboBox;
dropExtra2Ctrl: TComboBox;
dropExtra2Shift: TComboBox;
dropExtra2AltCtrl: TComboBox;
dropExtra2ShiftAlt: TComboBox;
dropExtra2ShiftCtrl: TComboBox;
dropExtra2ShiftAltCtrl: TComboBox;
lblLeftDouble: TLabel; lblLeftDouble: TLabel;
lblLeftTriple: TLabel; lblLeftTriple: TLabel;
lblLeftQuad: TLabel; lblLeftQuad: TLabel;
@ -77,8 +125,15 @@ type
dropLeftShiftDouble: TComboBox; dropLeftShiftDouble: TComboBox;
dropLeftAltDouble: TComboBox; dropLeftAltDouble: TComboBox;
dropLeftCtrlDouble: TComboBox; dropLeftCtrlDouble: TComboBox;
PageExtra2: TPage;
PageExtra1: TPage;
PageRight: TPage;
ScrollBoxExtra2: TScrollBox;
ScrollBoxExtra1: TScrollBox;
ScrollBoxRight: TScrollBox;
ShiftLeftLabel: TLabel; ShiftLeftLabel: TLabel;
AltCtrlLeftLabel: TLabel; AltCtrlLeftLabel: TLabel;
CtrLLeftLabel: TLabel;
ShiftCtrlLeftLabel: TLabel; ShiftCtrlLeftLabel: TLabel;
ShiftAltLeftLabel: TLabel; ShiftAltLeftLabel: TLabel;
ShiftAltCtrlLeftLabel: TLabel; ShiftAltCtrlLeftLabel: TLabel;
@ -93,15 +148,14 @@ type
dropShiftLeft: TComboBox; dropShiftLeft: TComboBox;
PageLeftDbl: TPage; PageLeftDbl: TPage;
PageLeftMod: TPage; PageLeftMod: TPage;
ScrollBox1: TScrollBox; ScrollBoxMiddle: TScrollBox;
ScrollBox2: TScrollBox; ScrollBoxWheel: TScrollBox;
ScrollBox3: TScrollBox; ScrollBoxLeftMod: TScrollBox;
ScrollBox4: TScrollBox; ScrollBoxLeftDbl: TScrollBox;
TextDividerLabel: TDividerBevel; TextDividerLabel: TDividerBevel;
GutterDividerLabel: TDividerBevel; GutterDividerLabel: TDividerBevel;
GenericDividerLabel: TDividerBevel; GenericDividerLabel: TDividerBevel;
dropCtrlLeft: TComboBox; dropCtrlLeft: TComboBox;
CtrLLeftLabel: TLabel;
DiffLabel: TLabel; DiffLabel: TLabel;
dropUserSchemes: TComboBox; dropUserSchemes: TComboBox;
GutterLeftRadio1: TRadioButton; GutterLeftRadio1: TRadioButton;
@ -111,10 +165,13 @@ type
PageMiddle: TPage; PageMiddle: TPage;
PageWheel: TPage; PageWheel: TPage;
ToolBar1: TToolBar; ToolBar1: TToolBar;
ToolButtonMiddle: TToolButton; ToolBtnRight: TToolButton;
ToolBtnExtra1: TToolButton;
ToolBtnExtra2: TToolButton;
ToolBtnMiddle: TToolButton;
ToolBtnWheel: TToolButton; ToolBtnWheel: TToolButton;
ToolButtonLeftMod: TToolButton; ToolBtnLeftMod: TToolButton;
ToolButtonLeftMulti: TToolButton; ToolBtnLeftMulti: TToolButton;
pnlBottom: TPanel; pnlBottom: TPanel;
PanelGutter: TPanel; PanelGutter: TPanel;
PanelTextCheckBox: TPanel; PanelTextCheckBox: TPanel;
@ -138,7 +195,7 @@ type
procedure ResetGutterButtonClick(Sender: TObject); procedure ResetGutterButtonClick(Sender: TObject);
procedure ResetTextButtonClick(Sender: TObject); procedure ResetTextButtonClick(Sender: TObject);
procedure ResetAllButtonClick(Sender: TObject); procedure ResetAllButtonClick(Sender: TObject);
procedure ToolButtonMiddleClick(Sender: TObject); procedure ToolBtnMiddleClick(Sender: TObject);
private private
FDialog: TAbstractOptionsEditorDialog; FDialog: TAbstractOptionsEditorDialog;
FOptions: TAbstractIDEOptions; FOptions: TAbstractIDEOptions;
@ -261,7 +318,7 @@ begin
UpdateButtons; UpdateButtons;
end; end;
procedure TEditorMouseOptionsFrame.ToolButtonMiddleClick(Sender: TObject); procedure TEditorMouseOptionsFrame.ToolBtnMiddleClick(Sender: TObject);
begin begin
if not(Sender is TToolButton) then exit; if not(Sender is TToolButton) then exit;
Notebook1.PageIndex := TToolButton(Sender).Tag; Notebook1.PageIndex := TToolButton(Sender).Tag;
@ -303,6 +360,33 @@ begin
(FTempMouseSettings.TextShiftCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftCtrl.ItemIndex)) and (FTempMouseSettings.TextShiftCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftAltCtrl.ItemIndex)) and (FTempMouseSettings.TextShiftAltCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftAltCtrl.ItemIndex)) and
(FTempMouseSettings.TextRightClick = TMouseOptButtonAction(dropRight.ItemIndex)) and
(FTempMouseSettings.TextShiftRightClick = TMouseOptButtonAction(dropRightShift.ItemIndex)) and
(FTempMouseSettings.TextAltRightClick = TMouseOptButtonAction(dropRightAlt.ItemIndex)) and
(FTempMouseSettings.TextCtrlRightClick = TMouseOptButtonAction(dropRightCtrl.ItemIndex)) and
(FTempMouseSettings.TextAltCtrlRightClick = TMouseOptButtonAction(dropRightAltCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltRightClick = TMouseOptButtonAction(dropRightShiftAlt.ItemIndex)) and
(FTempMouseSettings.TextShiftCtrlRightClick = TMouseOptButtonAction(dropRightShiftCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltCtrlRightClick = TMouseOptButtonAction(dropRightShiftAltCtrl.ItemIndex)) and
(FTempMouseSettings.TextExtra1Click = TMouseOptButtonAction(dropExtra1.ItemIndex)) and
(FTempMouseSettings.TextShiftExtra1Click = TMouseOptButtonAction(dropExtra1Shift.ItemIndex)) and
(FTempMouseSettings.TextAltExtra1Click = TMouseOptButtonAction(dropExtra1Alt.ItemIndex)) and
(FTempMouseSettings.TextCtrlExtra1Click = TMouseOptButtonAction(dropExtra1Ctrl.ItemIndex)) and
(FTempMouseSettings.TextAltCtrlExtra1Click = TMouseOptButtonAction(dropExtra1AltCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltExtra1Click = TMouseOptButtonAction(dropExtra1ShiftAlt.ItemIndex)) and
(FTempMouseSettings.TextShiftCtrlExtra1Click = TMouseOptButtonAction(dropExtra1ShiftCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltCtrlExtra1Click = TMouseOptButtonAction(dropExtra1ShiftAltCtrl.ItemIndex)) and
(FTempMouseSettings.TextExtra2Click = TMouseOptButtonAction(dropExtra2.ItemIndex)) and
(FTempMouseSettings.TextShiftExtra2Click = TMouseOptButtonAction(dropExtra2Shift.ItemIndex)) and
(FTempMouseSettings.TextAltExtra2Click = TMouseOptButtonAction(dropExtra2Alt.ItemIndex)) and
(FTempMouseSettings.TextCtrlExtra2Click = TMouseOptButtonAction(dropExtra2Ctrl.ItemIndex)) and
(FTempMouseSettings.TextAltCtrlExtra2Click = TMouseOptButtonAction(dropExtra2AltCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltExtra2Click = TMouseOptButtonAction(dropExtra2ShiftAlt.ItemIndex)) and
(FTempMouseSettings.TextShiftCtrlExtra2Click = TMouseOptButtonAction(dropExtra2ShiftCtrl.ItemIndex)) and
(FTempMouseSettings.TextShiftAltCtrlExtra2Click = TMouseOptButtonAction(dropExtra2ShiftAltCtrl.ItemIndex)) and
(FTempMouseSettings.Wheel = TMouseOptWheelAction(dropWheel.ItemIndex)) and (FTempMouseSettings.Wheel = TMouseOptWheelAction(dropWheel.ItemIndex)) and
(FTempMouseSettings.CtrlWheel = TMouseOptWheelAction(dropWheelCtrl.ItemIndex)) and (FTempMouseSettings.CtrlWheel = TMouseOptWheelAction(dropWheelCtrl.ItemIndex)) and
(FTempMouseSettings.AltWheel = TMouseOptWheelAction(dropWheelAlt.ItemIndex)) and (FTempMouseSettings.AltWheel = TMouseOptWheelAction(dropWheelAlt.ItemIndex)) and
@ -368,6 +452,33 @@ begin
FTempMouseSettings.TextShiftCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftCtrl.ItemIndex); FTempMouseSettings.TextShiftCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftAltCtrl.ItemIndex); FTempMouseSettings.TextShiftAltCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftAltCtrl.ItemIndex);
FTempMouseSettings.TextRightClick := TMouseOptButtonAction(dropRight.ItemIndex);
FTempMouseSettings.TextShiftRightClick := TMouseOptButtonAction(dropRightShift.ItemIndex);
FTempMouseSettings.TextAltRightClick := TMouseOptButtonAction(dropRightAlt.ItemIndex);
FTempMouseSettings.TextCtrlRightClick := TMouseOptButtonAction(dropRightCtrl.ItemIndex);
FTempMouseSettings.TextAltCtrlRightClick := TMouseOptButtonAction(dropRightAltCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltRightClick := TMouseOptButtonAction(dropRightShiftAlt.ItemIndex);
FTempMouseSettings.TextShiftCtrlRightClick := TMouseOptButtonAction(dropRightShiftCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltCtrlRightClick := TMouseOptButtonAction(dropRightShiftAltCtrl.ItemIndex);
FTempMouseSettings.TextExtra1Click := TMouseOptButtonAction(dropExtra1.ItemIndex);
FTempMouseSettings.TextShiftExtra1Click := TMouseOptButtonAction(dropExtra1Shift.ItemIndex);
FTempMouseSettings.TextAltExtra1Click := TMouseOptButtonAction(dropExtra1Alt.ItemIndex);
FTempMouseSettings.TextCtrlExtra1Click := TMouseOptButtonAction(dropExtra1Ctrl.ItemIndex);
FTempMouseSettings.TextAltCtrlExtra1Click := TMouseOptButtonAction(dropExtra1AltCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltExtra1Click := TMouseOptButtonAction(dropExtra1ShiftAlt.ItemIndex);
FTempMouseSettings.TextShiftCtrlExtra1Click := TMouseOptButtonAction(dropExtra1ShiftCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltCtrlExtra1Click := TMouseOptButtonAction(dropExtra1ShiftAltCtrl.ItemIndex);
FTempMouseSettings.TextExtra2Click := TMouseOptButtonAction(dropExtra2.ItemIndex);
FTempMouseSettings.TextShiftExtra2Click := TMouseOptButtonAction(dropExtra2Shift.ItemIndex);
FTempMouseSettings.TextAltExtra2Click := TMouseOptButtonAction(dropExtra2Alt.ItemIndex);
FTempMouseSettings.TextCtrlExtra2Click := TMouseOptButtonAction(dropExtra2Ctrl.ItemIndex);
FTempMouseSettings.TextAltCtrlExtra2Click := TMouseOptButtonAction(dropExtra2AltCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltExtra2Click := TMouseOptButtonAction(dropExtra2ShiftAlt.ItemIndex);
FTempMouseSettings.TextShiftCtrlExtra2Click := TMouseOptButtonAction(dropExtra2ShiftCtrl.ItemIndex);
FTempMouseSettings.TextShiftAltCtrlExtra2Click := TMouseOptButtonAction(dropExtra2ShiftAltCtrl.ItemIndex);
FTempMouseSettings.Wheel := TMouseOptWheelAction(dropWheel.ItemIndex); FTempMouseSettings.Wheel := TMouseOptWheelAction(dropWheel.ItemIndex);
FTempMouseSettings.CtrlWheel := TMouseOptWheelAction(dropWheelCtrl.ItemIndex); FTempMouseSettings.CtrlWheel := TMouseOptWheelAction(dropWheelCtrl.ItemIndex);
FTempMouseSettings.AltWheel := TMouseOptWheelAction(dropWheelAlt.ItemIndex); FTempMouseSettings.AltWheel := TMouseOptWheelAction(dropWheelAlt.ItemIndex);
@ -460,6 +571,7 @@ procedure TEditorMouseOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
ACombo.Items.Add(dlfMouseSimpleButtonHistForw); // mbaHistoryForw, ACombo.Items.Add(dlfMouseSimpleButtonHistForw); // mbaHistoryForw,
ACombo.Items.Add(dlfMouseSimpleButtonSetFreeBookmark); // mbaSetFreeBookmark, ACombo.Items.Add(dlfMouseSimpleButtonSetFreeBookmark); // mbaSetFreeBookmark,
ACombo.Items.Add(dlfMouseSimpleButtonZoomReset); // mbaZoomReset ACombo.Items.Add(dlfMouseSimpleButtonZoomReset); // mbaZoomReset
ACombo.Items.Add(dlfMouseSimpleButtonContextMenu); // mbaContextMenu
end; end;
procedure SetupWheelCombo(ACombo: TComboBox); procedure SetupWheelCombo(ACombo: TComboBox);
@ -492,10 +604,13 @@ begin
TextDrag.Caption := dlfMouseSimpleTextSectDrag; TextDrag.Caption := dlfMouseSimpleTextSectDrag;
RightMoveCaret.Caption := dlfMouseSimpleRightMoveCaret; RightMoveCaret.Caption := dlfMouseSimpleRightMoveCaret;
ToolButtonLeftMod.Caption := dlfMouseSimpleTextSectPageLMod; ToolBtnLeftMod.Caption := dlfMouseSimpleTextSectPageLMod;
ToolButtonLeftMulti.Caption := dlfMouseSimpleTextSectPageLMulti; ToolBtnLeftMulti.Caption := dlfMouseSimpleTextSectPageLMulti;
ToolButtonMiddle.Caption := dlfMouseSimpleTextSectPageBtn; ToolBtnMiddle.Caption := dlfMouseSimpleTextSectPageBtn;
ToolBtnWheel.Caption := dlfMouseSimpleTextSectPageWheel; ToolBtnWheel.Caption := dlfMouseSimpleTextSectPageWheel;
ToolBtnRight.Caption := dlfMouseSimpleTextSectPageRight;
ToolBtnExtra1.Caption := dlfMouseSimpleTextSectPageExtra1;
ToolBtnExtra2.Caption := dlfMouseSimpleTextSectPageExtra2;
// left multi click // left multi click
lblLeftDouble.Caption := dlfMouseSimpleTextSectLDoubleLabel; lblLeftDouble.Caption := dlfMouseSimpleTextSectLDoubleLabel;
@ -521,6 +636,33 @@ begin
lblMiddleShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel; lblMiddleShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel;
lblMiddleShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel; lblMiddleShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
lblMiddleShiftAltCtrl.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel; lblMiddleShiftAltCtrl.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
// Right click
lblRight.Caption := dlfMouseSimpleTextSectRightLabel;
lblRightShift.Caption := dlfMouseSimpleTextSectShiftLabel;
lblRightAlt.Caption := dlfMouseSimpleTextSectAltLabel;
lblRightCtrl.Caption := dlfMouseSimpleTextSectCtrlLabel;
lblRightAltCtrl.Caption := dlfMouseSimpleTextSectAltCtrlLabel;
lblRightShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel;
lblRightShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
lblRightShiftAltCtrl.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
// Extra1 click
lblExtra1.Caption := dlfMouseSimpleTextSectExtra1Label;
lblExtra1Shift.Caption := dlfMouseSimpleTextSectShiftLabel;
lblExtra1Alt.Caption := dlfMouseSimpleTextSectAltLabel;
lblExtra1Ctrl.Caption := dlfMouseSimpleTextSectCtrlLabel;
lblExtra1AltCtrl.Caption := dlfMouseSimpleTextSectAltCtrlLabel;
lblExtra1ShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel;
lblExtra1ShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
lblExtra1ShiftAltCtrl.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
// Extra2 click
lblExtra2.Caption := dlfMouseSimpleTextSectExtra2Label;
lblExtra2Shift.Caption := dlfMouseSimpleTextSectShiftLabel;
lblExtra2Alt.Caption := dlfMouseSimpleTextSectAltLabel;
lblExtra2Ctrl.Caption := dlfMouseSimpleTextSectCtrlLabel;
lblExtra2AltCtrl.Caption := dlfMouseSimpleTextSectAltCtrlLabel;
lblExtra2ShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel;
lblExtra2ShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
lblExtra2ShiftAltCtrl.Caption := dlfMouseSimpleTextSectShiftAltCtrlLabel;
// wheel // wheel
lblWheel.Caption := dlfMouseSimpleTextSectWheelLabel; lblWheel.Caption := dlfMouseSimpleTextSectWheelLabel;
lblWheelCtrl.Caption := dlfMouseSimpleTextSectCtrlWheelLabel; lblWheelCtrl.Caption := dlfMouseSimpleTextSectCtrlWheelLabel;
@ -555,6 +697,33 @@ begin
SetupButtonCombo(dropMiddleShiftCtrl); SetupButtonCombo(dropMiddleShiftCtrl);
SetupButtonCombo(dropMiddleShiftAlt); SetupButtonCombo(dropMiddleShiftAlt);
SetupButtonCombo(dropMiddleShiftAltCtrl); SetupButtonCombo(dropMiddleShiftAltCtrl);
// Right click
SetupButtonCombo(dropRight);
SetupButtonCombo(dropRightShift);
SetupButtonCombo(dropRightAlt);
SetupButtonCombo(dropRightCtrl);
SetupButtonCombo(dropRightAltCtrl);
SetupButtonCombo(dropRightShiftCtrl);
SetupButtonCombo(dropRightShiftAlt);
SetupButtonCombo(dropRightShiftAltCtrl);
// Extra1 click
SetupButtonCombo(dropExtra1);
SetupButtonCombo(dropExtra1Shift);
SetupButtonCombo(dropExtra1Alt);
SetupButtonCombo(dropExtra1Ctrl);
SetupButtonCombo(dropExtra1AltCtrl);
SetupButtonCombo(dropExtra1ShiftCtrl);
SetupButtonCombo(dropExtra1ShiftAlt);
SetupButtonCombo(dropExtra1ShiftAltCtrl);
// extra2 click
SetupButtonCombo(dropExtra2);
SetupButtonCombo(dropExtra2Shift);
SetupButtonCombo(dropExtra2Alt);
SetupButtonCombo(dropExtra2Ctrl);
SetupButtonCombo(dropExtra2AltCtrl);
SetupButtonCombo(dropExtra2ShiftCtrl);
SetupButtonCombo(dropExtra2ShiftAlt);
SetupButtonCombo(dropExtra2ShiftAltCtrl);
// wheel // wheel
SetupWheelCombo(dropWheel); SetupWheelCombo(dropWheel);
SetupWheelCombo(dropWheelCtrl); SetupWheelCombo(dropWheelCtrl);
@ -628,6 +797,33 @@ begin
dropMiddleShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltMiddleClick); dropMiddleShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltMiddleClick);
dropMiddleShiftAltCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlMiddleClick); dropMiddleShiftAltCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlMiddleClick);
dropRight.ItemIndex := ord(FTempMouseSettings.TextRightClick);
dropRightShift.ItemIndex := ord(FTempMouseSettings.TextShiftRightClick);
dropRightAlt.ItemIndex := ord(FTempMouseSettings.TextAltRightClick);
dropRightCtrl.ItemIndex := ord(FTempMouseSettings.TextCtrlRightClick);
dropRightAltCtrl.ItemIndex := ord(FTempMouseSettings.TextAltCtrlRightClick);
dropRightShiftCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftCtrlRightClick);
dropRightShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltRightClick);
dropRightShiftAltCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlRightClick);
dropExtra1.ItemIndex := ord(FTempMouseSettings.TextExtra1Click);
dropExtra1Shift.ItemIndex := ord(FTempMouseSettings.TextShiftExtra1Click);
dropExtra1Alt.ItemIndex := ord(FTempMouseSettings.TextAltExtra1Click);
dropExtra1Ctrl.ItemIndex := ord(FTempMouseSettings.TextCtrlExtra1Click);
dropExtra1AltCtrl.ItemIndex := ord(FTempMouseSettings.TextAltCtrlExtra1Click);
dropExtra1ShiftCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftCtrlExtra1Click);
dropExtra1ShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltExtra1Click);
dropExtra1ShiftAltCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlExtra1Click);
dropExtra2.ItemIndex := ord(FTempMouseSettings.TextExtra2Click);
dropExtra2Shift.ItemIndex := ord(FTempMouseSettings.TextShiftExtra2Click);
dropExtra2Alt.ItemIndex := ord(FTempMouseSettings.TextAltExtra2Click);
dropExtra2Ctrl.ItemIndex := ord(FTempMouseSettings.TextCtrlExtra2Click);
dropExtra2AltCtrl.ItemIndex := ord(FTempMouseSettings.TextAltCtrlExtra2Click);
dropExtra2ShiftCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftCtrlExtra2Click);
dropExtra2ShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltExtra2Click);
dropExtra2ShiftAltCtrl.ItemIndex := ord(FTempMouseSettings.TextShiftAltCtrlExtra2Click);
dropWheel.ItemIndex := ord(FTempMouseSettings.Wheel); dropWheel.ItemIndex := ord(FTempMouseSettings.Wheel);
dropWheelCtrl.ItemIndex := ord(FTempMouseSettings.CtrlWheel); dropWheelCtrl.ItemIndex := ord(FTempMouseSettings.CtrlWheel);
dropWheelAlt.ItemIndex := ord(FTempMouseSettings.AltWheel); dropWheelAlt.ItemIndex := ord(FTempMouseSettings.AltWheel);

7
ide/lazarusidestrconsts.pas
View File

@ -1323,6 +1323,9 @@ resourcestring
dlfMouseSimpleRightMoveCaret = 'Right mouse includes caret move'; dlfMouseSimpleRightMoveCaret = 'Right mouse includes caret move';
dlfMouseSimpleTextSectMidLabel = 'Middle Button'; dlfMouseSimpleTextSectMidLabel = 'Middle Button';
dlfMouseSimpleTextSectWheelLabel = 'Wheel'; dlfMouseSimpleTextSectWheelLabel = 'Wheel';
dlfMouseSimpleTextSectRightLabel = 'Right Button';
dlfMouseSimpleTextSectExtra1Label = 'Extra-1 Button';
dlfMouseSimpleTextSectExtra2Label = 'Extra-2 Button';
dlfMouseSimpleTextSectCtrlWheelLabel = 'Ctrl Wheel'; dlfMouseSimpleTextSectCtrlWheelLabel = 'Ctrl Wheel';
dlfMouseSimpleTextSectAltWheelLabel = 'Alt Wheel'; dlfMouseSimpleTextSectAltWheelLabel = 'Alt Wheel';
dlfMouseSimpleTextShiftSectWheelLabel = 'Shift Wheel'; dlfMouseSimpleTextShiftSectWheelLabel = 'Shift Wheel';
@ -1335,6 +1338,9 @@ resourcestring
dlfMouseSimpleTextSectPageLMulti = 'Left 2'; dlfMouseSimpleTextSectPageLMulti = 'Left 2';
dlfMouseSimpleTextSectPageBtn = 'Middle'; dlfMouseSimpleTextSectPageBtn = 'Middle';
dlfMouseSimpleTextSectPageWheel = 'Wheel'; dlfMouseSimpleTextSectPageWheel = 'Wheel';
dlfMouseSimpleTextSectPageRight = 'Right';
dlfMouseSimpleTextSectPageExtra1 = 'Extra 1';
dlfMouseSimpleTextSectPageExtra2 = 'Extra 2';
dlfMouseSimpleTextSectLDoubleLabel = 'Double'; dlfMouseSimpleTextSectLDoubleLabel = 'Double';
dlfMouseSimpleTextSectLTripleLabel = 'Triple'; dlfMouseSimpleTextSectLTripleLabel = 'Triple';
@ -1368,6 +1374,7 @@ resourcestring
dlfMouseSimpleButtonHistForw = 'History forward'; dlfMouseSimpleButtonHistForw = 'History forward';
dlfMouseSimpleButtonSetFreeBookmark = 'Set free bookmark'; dlfMouseSimpleButtonSetFreeBookmark = 'Set free bookmark';
dlfMouseSimpleButtonZoomReset = 'Reset zoom'; dlfMouseSimpleButtonZoomReset = 'Reset zoom';
dlfMouseSimpleButtonContextMenu = 'Context Menu';
dlfMouseSimpleWheelNothing = 'Nothing/Default'; dlfMouseSimpleWheelNothing = 'Nothing/Default';
dlfMouseSimpleWheelSrollDef = 'Scroll (System speed)'; dlfMouseSimpleWheelSrollDef = 'Scroll (System speed)';