opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
Ansgar Becker
2018-02-18 14:06:49 +01:00
parent 76230dfd59
commit 25717dc222
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/main.pas
View File

@ -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;