mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 00:09:26 +02:00
IDE more mouse options
git-svn-id: trunk@34118 -
This commit is contained in:
martin
parent
6646781795
commit
4589ac0f51
@ -687,6 +687,7 @@ type
|
||||
mbaHistoryBack, mbaHistoryForw,
|
||||
mbaSetFreeBookmark,
|
||||
mbaZoomReset,
|
||||
mbaContextMenu,
|
||||
|
||||
// Old values, needed to load old config
|
||||
moTCLNone, moTMIgnore,
|
||||
@ -695,7 +696,7 @@ type
|
||||
moTCLJumpOrBlock
|
||||
);
|
||||
|
||||
TMouseOptButtonAction = mbaNone..mbaZoomReset;
|
||||
TMouseOptButtonAction = mbaNone..mbaContextMenu;
|
||||
|
||||
const
|
||||
MouseOptButtonActionOld: Array [moTCLNone..moTCLJumpOrBlock] of TMouseOptButtonActionOld = (
|
||||
@ -755,8 +756,33 @@ type
|
||||
FTextShiftAltCtrlMiddleClick: TMouseOptButtonAction;
|
||||
FTextShiftCtrlMiddleClick: TMouseOptButtonAction;
|
||||
FTextShiftMiddleClick: TMouseOptButtonAction;
|
||||
// right
|
||||
FTextAltCtrlRightClick: TMouseOptButtonAction;
|
||||
FTextAltRightClick: TMouseOptButtonAction;
|
||||
FTextCtrlRightClick: TMouseOptButtonAction;
|
||||
FTextRightClick: TMouseOptButtonAction;
|
||||
FTextShiftAltCtrlRightClick: TMouseOptButtonAction;
|
||||
FTextShiftAltRightClick: TMouseOptButtonAction;
|
||||
FTextShiftCtrlRightClick: TMouseOptButtonAction;
|
||||
FTextShiftRightClick: TMouseOptButtonAction;
|
||||
// extra-1 click
|
||||
FTextAltCtrlExtra1Click: TMouseOptButtonAction;
|
||||
FTextAltExtra1Click: TMouseOptButtonAction;
|
||||
FTextCtrlExtra1Click: TMouseOptButtonAction;
|
||||
FTextExtra1Click: TMouseOptButtonAction;
|
||||
FTextShiftAltCtrlExtra1Click: TMouseOptButtonAction;
|
||||
FTextShiftAltExtra1Click: TMouseOptButtonAction;
|
||||
FTextShiftCtrlExtra1Click: TMouseOptButtonAction;
|
||||
FTextShiftExtra1Click: TMouseOptButtonAction;
|
||||
// extra-2 click
|
||||
FTextAltCtrlExtra2Click: TMouseOptButtonAction;
|
||||
FTextAltExtra2Click: TMouseOptButtonAction;
|
||||
FTextCtrlExtra2Click: TMouseOptButtonAction;
|
||||
FTextExtra2Click: TMouseOptButtonAction;
|
||||
FTextShiftAltCtrlExtra2Click: TMouseOptButtonAction;
|
||||
FTextShiftAltExtra2Click: TMouseOptButtonAction;
|
||||
FTextShiftCtrlExtra2Click: TMouseOptButtonAction;
|
||||
FTextShiftExtra2Click: TMouseOptButtonAction;
|
||||
// wheel
|
||||
FWheel: TMouseOptWheelAction;
|
||||
FAltWheel: TMouseOptWheelAction;
|
||||
@ -767,7 +793,6 @@ type
|
||||
FAltCtrlWheel: TMouseOptWheelAction;
|
||||
FShiftAltCtrlWheel: TMouseOptWheelAction;
|
||||
|
||||
|
||||
procedure ClearUserSchemes;
|
||||
function GetUserSchemeNames(Index: Integer): String;
|
||||
function GetUserSchemes(Index: String): TEditorMouseOptions;
|
||||
@ -865,9 +890,57 @@ type
|
||||
property TextShiftAltCtrlMiddleClick: TMouseOptButtonAction read FTextShiftAltCtrlMiddleClick write FTextShiftAltCtrlMiddleClick
|
||||
default mbaNone;
|
||||
// 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
|
||||
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
|
||||
|
||||
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
|
||||
default mwaScroll;
|
||||
property CtrlWheel: TMouseOptWheelAction read FCtrlWheel write FCtrlWheel
|
||||
@ -2446,18 +2519,18 @@ begin
|
||||
FTextAltDoubleLeftClick := mbaNone;
|
||||
FTextCtrlDoubleLeftClick := mbaNone;
|
||||
// left
|
||||
FTextAltLeftClick := mbaSelectColumn;
|
||||
FTextCtrlLeftClick := mbaDeclarationJump;
|
||||
FTextAltCtrlLeftClick := mbaNone;
|
||||
FTextShiftAltLeftClick := mbaNone;
|
||||
FTextShiftAltCtrlLeftClick := mbaNone;
|
||||
FTextShiftCtrlLeftClick := mbaNone;
|
||||
FTextShiftLeftClick := mbaNone;
|
||||
FTextCtrlLeftClick := mbaDeclarationJump;
|
||||
FTextAltLeftClick := mbaSelectColumn;
|
||||
FTextShiftAltLeftClick := mbaNone;
|
||||
FTextShiftCtrlLeftClick := mbaNone;
|
||||
FTextShiftAltCtrlLeftClick := mbaNone;
|
||||
// middle
|
||||
FTextMiddleClick := mbaPaste;
|
||||
FTextAltMiddleClick := mbaNone;
|
||||
FTextCtrlMiddleClick := mbaZoomReset;
|
||||
FTextShiftMiddleClick := mbaNone;
|
||||
FTextAltMiddleClick := mbaNone;
|
||||
FTextAltCtrlMiddleClick := mbaNone;
|
||||
FTextShiftAltMiddleClick := mbaNone;
|
||||
FTextShiftAltCtrlMiddleClick := mbaNone;
|
||||
@ -2471,6 +2544,33 @@ begin
|
||||
FShiftCtrlWheel := mwaNone;
|
||||
FShiftAltWheel := 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;
|
||||
@ -2535,7 +2635,8 @@ procedure TEditorMouseOptions.ResetTextToDefault;
|
||||
|
||||
procedure AddBtnClick(AnAction: TMouseOptButtonAction; const AButton: TSynMouseButton;
|
||||
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);
|
||||
begin
|
||||
@ -2553,35 +2654,37 @@ procedure TEditorMouseOptions.ResetTextToDefault;
|
||||
mbaSelectColumn: AddSelCommand(emcStartColumnSelections);
|
||||
mbaSelectLine: AddSelCommand(emcStartLineSelections);
|
||||
mbaSelectSetWord:
|
||||
AddCommand(emcSelectWord, True, AButton, AClickCount, cdUp, AShift, AShiftMask);
|
||||
AddCommand(emcSelectWord, True, AButton, AClickCount, ADir, AShift, AShiftMask);
|
||||
mbaSelectSetLineSmart:
|
||||
AddCommand(emcSelectLine, True, AButton, AClickCount, cdUp, AShift, AShiftMask, emcoSelectLineSmart);
|
||||
AddCommand(emcSelectLine, True, AButton, AClickCount, ADir, AShift, AShiftMask, emcoSelectLineSmart);
|
||||
mbaSelectSetLineFull:
|
||||
AddCommand(emcSelectLine, True, AButton, AClickCount, cdUp, AShift, AShiftMask, emcoSelectLineFull);
|
||||
AddCommand(emcSelectLine, True, AButton, AClickCount, ADir, AShift, AShiftMask, emcoSelectLineFull);
|
||||
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
|
||||
AddCommand(emcPasteSelection, True, AButton, AClickCount, cdDown, AShift, AShiftMask, 0, 0, 0, True);
|
||||
mbaDeclarationJump,
|
||||
mbaDeclarationOrBlockJump: begin
|
||||
if AddLinkDummy then
|
||||
AddCommand(emcMouseLink, False, AButton, AClickCount, cdUp, [SYNEDIT_LINK_MODIFIER], [SYNEDIT_LINK_MODIFIER], emcoMouseLinkShow, 999);
|
||||
AddCommand(emcMouseLink, False, AButton, AClickCount, cdUp, AShift, AShiftMask);
|
||||
AddCommand(emcMouseLink, False, AButton, AClickCount, ADir, [SYNEDIT_LINK_MODIFIER], [SYNEDIT_LINK_MODIFIER], emcoMouseLinkShow, 999);
|
||||
AddCommand(emcMouseLink, False, AButton, AClickCount, ADir, AShift, AShiftMask);
|
||||
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;
|
||||
mbaAddHistoryPoint:
|
||||
AddCommand(emcSynEditCommand, True, AButton, AClickCount, cdUp, AShift, AShiftMask, ecAddJumpPoint);
|
||||
AddCommand(emcSynEditCommand, True, AButton, AClickCount, ADir, AShift, AShiftMask, ecAddJumpPoint);
|
||||
mbaHistoryBack:
|
||||
AddCommand(emcSynEditCommand, False, AButton, AClickCount, cdUp, AShift, AShiftMask, ecJumpBack);
|
||||
AddCommand(emcSynEditCommand, False, AButton, AClickCount, ADir, AShift, AShiftMask, ecJumpBack);
|
||||
mbaHistoryForw:
|
||||
AddCommand(emcSynEditCommand, False, AButton, AClickCount, cdUp, AShift, AShiftMask, ecJumpForward);
|
||||
AddCommand(emcSynEditCommand, False, AButton, AClickCount, ADir, AShift, AShiftMask, ecJumpForward);
|
||||
mbaSetFreeBookmark:
|
||||
AddCommand(emcSynEditCommand, True, AButton, AClickCount, cdUp, AShift, AShiftMask, ecSetFreeBookmark);
|
||||
AddCommand(emcSynEditCommand, True, AButton, AClickCount, ADir, AShift, AShiftMask, ecSetFreeBookmark);
|
||||
mbaZoomReset: begin
|
||||
AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, cdUp, AShift, AShiftMask);
|
||||
FMainActions.AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, cdUp, AShift, AShiftMask);
|
||||
AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, ADir, AShift, AShiftMask);
|
||||
FMainActions.AddCommand(emcWheelZoomNorm, False, AButton, AClickCount, ADir, AShift, AShiftMask);
|
||||
end;
|
||||
mbaContextMenu:
|
||||
AddCommand(emcContextMenu, AMoveCaret, AButton, AClickCount, ADir, [], [], emcoSelectionCaretMoveNever);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -2698,9 +2801,60 @@ begin
|
||||
AddBtnClick(FTextShiftAltMiddleClick, mbMiddle, [ssShift, ssAlt], ModKeys);
|
||||
AddBtnClick(FTextShiftAltCtrlMiddleClick, mbMiddle, [ssShift, ssAlt, SYNEDIT_LINK_MODIFIER], ModKeys);
|
||||
|
||||
with FTextActions do begin
|
||||
AddCommand(emcContextMenu, FTextRightMoveCaret, mbRight, ccSingle, cdUp, [], [], emcoSelectionCaretMoveNever);
|
||||
end;
|
||||
SelKey := [];
|
||||
ModKeys := [];
|
||||
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 := [];
|
||||
if FShiftWheel <> mwaNone then ModKeys := ModKeys + [ssShift];
|
||||
@ -2723,11 +2877,6 @@ begin
|
||||
with FSelActions do begin
|
||||
AddCommand(emcStartDragMove, False, mbLeft, ccSingle, cdDown, [], []);
|
||||
end;
|
||||
|
||||
with FTextActions do begin
|
||||
AddCommand(emcSynEditCommand, False, mbExtra1, ccAny, cdDown, [], [], ecJumpBack);
|
||||
AddCommand(emcSynEditCommand, False, mbExtra2, ccAny, cdDown, [], [], ecJumpForward);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEditorMouseOptions.ResetToUserScheme;
|
||||
@ -2789,18 +2938,17 @@ begin
|
||||
FTextCtrlDoubleLeftClick := Src.TextCtrlDoubleLeftClick;
|
||||
// left + modifier click
|
||||
FTextAltLeftClick := Src.TextAltLeftClick;
|
||||
FTextAltCtrlLeftClick := Src.TextAltCtrlLeftClick;
|
||||
FTextShiftAltLeftClick := Src.TextShiftAltLeftClick;
|
||||
FTextShiftAltCtrlLeftClick := Src.TextShiftAltCtrlLeftClick;
|
||||
FTextShiftCtrlLeftClick := Src.TextShiftCtrlLeftClick;
|
||||
FTextShiftLeftClick := Src.TextShiftLeftClick;
|
||||
FTextCtrlLeftClick := Src.TextCtrlLeftClick;
|
||||
FTextAltLeftClick := Src.TextAltLeftClick;
|
||||
FTextAltCtrlLeftClick := Src.TextAltCtrlLeftClick;
|
||||
FTextShiftLeftClick := Src.TextShiftLeftClick;
|
||||
FTextShiftAltLeftClick := Src.TextShiftAltLeftClick;
|
||||
FTextShiftCtrlLeftClick := Src.TextShiftCtrlLeftClick;
|
||||
FTextShiftAltCtrlLeftClick := Src.TextShiftAltCtrlLeftClick;
|
||||
// middle click
|
||||
FTextMiddleClick := Src.TextMiddleClick;
|
||||
FTextShiftMiddleClick := Src.TextShiftMiddleClick;
|
||||
FTextAltMiddleClick := Src.TextAltMiddleClick;
|
||||
FTextCtrlMiddleClick := Src.TextCtrlMiddleClick;
|
||||
FTextShiftMiddleClick := Src.TextShiftMiddleClick;
|
||||
FTextAltCtrlMiddleClick := Src.TextAltCtrlMiddleClick;
|
||||
FTextShiftAltMiddleClick := Src.TextShiftAltMiddleClick;
|
||||
FTextShiftCtrlMiddleClick := Src.TextShiftCtrlMiddleClick;
|
||||
@ -2814,8 +2962,33 @@ begin
|
||||
FShiftCtrlWheel := Src.ShiftCtrlWheel;
|
||||
FShiftAltWheel := Src.ShiftAltWheel;
|
||||
FShiftAltCtrlWheel := Src.ShiftAltCtrlWheel;
|
||||
// extra-1 click
|
||||
// extra-2 click
|
||||
// right
|
||||
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;
|
||||
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -65,6 +65,54 @@ type
|
||||
dropMiddleShiftAlt: TComboBox;
|
||||
dropMiddleShiftCtrl: 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;
|
||||
lblLeftTriple: TLabel;
|
||||
lblLeftQuad: TLabel;
|
||||
@ -77,8 +125,15 @@ type
|
||||
dropLeftShiftDouble: TComboBox;
|
||||
dropLeftAltDouble: TComboBox;
|
||||
dropLeftCtrlDouble: TComboBox;
|
||||
PageExtra2: TPage;
|
||||
PageExtra1: TPage;
|
||||
PageRight: TPage;
|
||||
ScrollBoxExtra2: TScrollBox;
|
||||
ScrollBoxExtra1: TScrollBox;
|
||||
ScrollBoxRight: TScrollBox;
|
||||
ShiftLeftLabel: TLabel;
|
||||
AltCtrlLeftLabel: TLabel;
|
||||
CtrLLeftLabel: TLabel;
|
||||
ShiftCtrlLeftLabel: TLabel;
|
||||
ShiftAltLeftLabel: TLabel;
|
||||
ShiftAltCtrlLeftLabel: TLabel;
|
||||
@ -93,15 +148,14 @@ type
|
||||
dropShiftLeft: TComboBox;
|
||||
PageLeftDbl: TPage;
|
||||
PageLeftMod: TPage;
|
||||
ScrollBox1: TScrollBox;
|
||||
ScrollBox2: TScrollBox;
|
||||
ScrollBox3: TScrollBox;
|
||||
ScrollBox4: TScrollBox;
|
||||
ScrollBoxMiddle: TScrollBox;
|
||||
ScrollBoxWheel: TScrollBox;
|
||||
ScrollBoxLeftMod: TScrollBox;
|
||||
ScrollBoxLeftDbl: TScrollBox;
|
||||
TextDividerLabel: TDividerBevel;
|
||||
GutterDividerLabel: TDividerBevel;
|
||||
GenericDividerLabel: TDividerBevel;
|
||||
dropCtrlLeft: TComboBox;
|
||||
CtrLLeftLabel: TLabel;
|
||||
DiffLabel: TLabel;
|
||||
dropUserSchemes: TComboBox;
|
||||
GutterLeftRadio1: TRadioButton;
|
||||
@ -111,10 +165,13 @@ type
|
||||
PageMiddle: TPage;
|
||||
PageWheel: TPage;
|
||||
ToolBar1: TToolBar;
|
||||
ToolButtonMiddle: TToolButton;
|
||||
ToolBtnRight: TToolButton;
|
||||
ToolBtnExtra1: TToolButton;
|
||||
ToolBtnExtra2: TToolButton;
|
||||
ToolBtnMiddle: TToolButton;
|
||||
ToolBtnWheel: TToolButton;
|
||||
ToolButtonLeftMod: TToolButton;
|
||||
ToolButtonLeftMulti: TToolButton;
|
||||
ToolBtnLeftMod: TToolButton;
|
||||
ToolBtnLeftMulti: TToolButton;
|
||||
pnlBottom: TPanel;
|
||||
PanelGutter: TPanel;
|
||||
PanelTextCheckBox: TPanel;
|
||||
@ -138,7 +195,7 @@ type
|
||||
procedure ResetGutterButtonClick(Sender: TObject);
|
||||
procedure ResetTextButtonClick(Sender: TObject);
|
||||
procedure ResetAllButtonClick(Sender: TObject);
|
||||
procedure ToolButtonMiddleClick(Sender: TObject);
|
||||
procedure ToolBtnMiddleClick(Sender: TObject);
|
||||
private
|
||||
FDialog: TAbstractOptionsEditorDialog;
|
||||
FOptions: TAbstractIDEOptions;
|
||||
@ -261,7 +318,7 @@ begin
|
||||
UpdateButtons;
|
||||
end;
|
||||
|
||||
procedure TEditorMouseOptionsFrame.ToolButtonMiddleClick(Sender: TObject);
|
||||
procedure TEditorMouseOptionsFrame.ToolBtnMiddleClick(Sender: TObject);
|
||||
begin
|
||||
if not(Sender is TToolButton) then exit;
|
||||
Notebook1.PageIndex := TToolButton(Sender).Tag;
|
||||
@ -303,6 +360,33 @@ begin
|
||||
(FTempMouseSettings.TextShiftCtrlMiddleClick = TMouseOptButtonAction(dropMiddleShiftCtrl.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.CtrlWheel = TMouseOptWheelAction(dropWheelCtrl.ItemIndex)) and
|
||||
(FTempMouseSettings.AltWheel = TMouseOptWheelAction(dropWheelAlt.ItemIndex)) and
|
||||
@ -368,6 +452,33 @@ begin
|
||||
FTempMouseSettings.TextShiftCtrlMiddleClick := TMouseOptButtonAction(dropMiddleShiftCtrl.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.CtrlWheel := TMouseOptWheelAction(dropWheelCtrl.ItemIndex);
|
||||
FTempMouseSettings.AltWheel := TMouseOptWheelAction(dropWheelAlt.ItemIndex);
|
||||
@ -460,6 +571,7 @@ procedure TEditorMouseOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
||||
ACombo.Items.Add(dlfMouseSimpleButtonHistForw); // mbaHistoryForw,
|
||||
ACombo.Items.Add(dlfMouseSimpleButtonSetFreeBookmark); // mbaSetFreeBookmark,
|
||||
ACombo.Items.Add(dlfMouseSimpleButtonZoomReset); // mbaZoomReset
|
||||
ACombo.Items.Add(dlfMouseSimpleButtonContextMenu); // mbaContextMenu
|
||||
end;
|
||||
|
||||
procedure SetupWheelCombo(ACombo: TComboBox);
|
||||
@ -492,10 +604,13 @@ begin
|
||||
TextDrag.Caption := dlfMouseSimpleTextSectDrag;
|
||||
RightMoveCaret.Caption := dlfMouseSimpleRightMoveCaret;
|
||||
|
||||
ToolButtonLeftMod.Caption := dlfMouseSimpleTextSectPageLMod;
|
||||
ToolButtonLeftMulti.Caption := dlfMouseSimpleTextSectPageLMulti;
|
||||
ToolButtonMiddle.Caption := dlfMouseSimpleTextSectPageBtn;
|
||||
ToolBtnLeftMod.Caption := dlfMouseSimpleTextSectPageLMod;
|
||||
ToolBtnLeftMulti.Caption := dlfMouseSimpleTextSectPageLMulti;
|
||||
ToolBtnMiddle.Caption := dlfMouseSimpleTextSectPageBtn;
|
||||
ToolBtnWheel.Caption := dlfMouseSimpleTextSectPageWheel;
|
||||
ToolBtnRight.Caption := dlfMouseSimpleTextSectPageRight;
|
||||
ToolBtnExtra1.Caption := dlfMouseSimpleTextSectPageExtra1;
|
||||
ToolBtnExtra2.Caption := dlfMouseSimpleTextSectPageExtra2;
|
||||
|
||||
// left multi click
|
||||
lblLeftDouble.Caption := dlfMouseSimpleTextSectLDoubleLabel;
|
||||
@ -521,6 +636,33 @@ begin
|
||||
lblMiddleShiftAlt.Caption := dlfMouseSimpleTextSectShiftAltLabel;
|
||||
lblMiddleShiftCtrl.Caption := dlfMouseSimpleTextSectShiftCtrlLabel;
|
||||
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
|
||||
lblWheel.Caption := dlfMouseSimpleTextSectWheelLabel;
|
||||
lblWheelCtrl.Caption := dlfMouseSimpleTextSectCtrlWheelLabel;
|
||||
@ -555,6 +697,33 @@ begin
|
||||
SetupButtonCombo(dropMiddleShiftCtrl);
|
||||
SetupButtonCombo(dropMiddleShiftAlt);
|
||||
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
|
||||
SetupWheelCombo(dropWheel);
|
||||
SetupWheelCombo(dropWheelCtrl);
|
||||
@ -628,6 +797,33 @@ begin
|
||||
dropMiddleShiftAlt.ItemIndex := ord(FTempMouseSettings.TextShiftAltMiddleClick);
|
||||
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);
|
||||
dropWheelCtrl.ItemIndex := ord(FTempMouseSettings.CtrlWheel);
|
||||
dropWheelAlt.ItemIndex := ord(FTempMouseSettings.AltWheel);
|
||||
|
||||
@ -1323,6 +1323,9 @@ resourcestring
|
||||
dlfMouseSimpleRightMoveCaret = 'Right mouse includes caret move';
|
||||
dlfMouseSimpleTextSectMidLabel = 'Middle Button';
|
||||
dlfMouseSimpleTextSectWheelLabel = 'Wheel';
|
||||
dlfMouseSimpleTextSectRightLabel = 'Right Button';
|
||||
dlfMouseSimpleTextSectExtra1Label = 'Extra-1 Button';
|
||||
dlfMouseSimpleTextSectExtra2Label = 'Extra-2 Button';
|
||||
dlfMouseSimpleTextSectCtrlWheelLabel = 'Ctrl Wheel';
|
||||
dlfMouseSimpleTextSectAltWheelLabel = 'Alt Wheel';
|
||||
dlfMouseSimpleTextShiftSectWheelLabel = 'Shift Wheel';
|
||||
@ -1335,6 +1338,9 @@ resourcestring
|
||||
dlfMouseSimpleTextSectPageLMulti = 'Left 2';
|
||||
dlfMouseSimpleTextSectPageBtn = 'Middle';
|
||||
dlfMouseSimpleTextSectPageWheel = 'Wheel';
|
||||
dlfMouseSimpleTextSectPageRight = 'Right';
|
||||
dlfMouseSimpleTextSectPageExtra1 = 'Extra 1';
|
||||
dlfMouseSimpleTextSectPageExtra2 = 'Extra 2';
|
||||
|
||||
dlfMouseSimpleTextSectLDoubleLabel = 'Double';
|
||||
dlfMouseSimpleTextSectLTripleLabel = 'Triple';
|
||||
@ -1368,6 +1374,7 @@ resourcestring
|
||||
dlfMouseSimpleButtonHistForw = 'History forward';
|
||||
dlfMouseSimpleButtonSetFreeBookmark = 'Set free bookmark';
|
||||
dlfMouseSimpleButtonZoomReset = 'Reset zoom';
|
||||
dlfMouseSimpleButtonContextMenu = 'Context Menu';
|
||||
|
||||
dlfMouseSimpleWheelNothing = 'Nothing/Default';
|
||||
dlfMouseSimpleWheelSrollDef = 'Scroll (System speed)';
|
||||
|
||||
Loading…
Reference in New Issue
Block a user