From 25717dc222bfcc2618d9c69d15d13f1892d6d1f3 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sun, 18 Feb 2018 14:06:49 +0100 Subject: [PATCH] Exchange shortcuts Shift+Mousewheel and Alt+Mousewheel, so Shift is for horizontal scrolling (inversing vertical scrolling), and Alt is for the more esoteric vertical-scrolling-with-focus-moving. See #142. --- source/main.pas | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/source/main.pas b/source/main.pas index 3acb6c0c..7d01eecb 100644 --- a/source/main.pas +++ b/source/main.pas @@ -8726,8 +8726,7 @@ var begin // Advance to next or previous grid node on Shift+MouseWheel VT := Sender as TVirtualStringTree; - // TODO: why not use "ssShift in Shift" instead? - if KeyPressed(VK_SHIFT) then begin + if ssAlt in Shift then begin if Assigned(VT.FocusedNode) then begin if WheelDelta > 0 then Node := VT.FocusedNode.PrevSibling @@ -8748,7 +8747,7 @@ begin AppSettings.ResetPath; AppSettings.WriteInt(asDataFontSize, NewFontSize); ApplyFontToGrids; - end else if ssAlt in Shift then begin + end else if ssShift in Shift then begin // Horizontal scrolling with Alt+Mousewheel VT.OffsetX := VT.OffsetX + WheelDelta; Handled := True;