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

Support horizontal scrolling in grids with Alt+Mousewheel. Closes #142.

Browse Source
This commit is contained in:
Ansgar Becker
2018-02-18 11:52:01 +01:00
parent 32bc533495
commit 93bb6c6051
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/main.pas
View File

@ -8726,6 +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 Assigned(VT.FocusedNode) then begin
if WheelDelta > 0 then
@ -8747,6 +8748,10 @@ begin
AppSettings.ResetPath;
AppSettings.WriteInt(asDataFontSize, NewFontSize);
ApplyFontToGrids;
end else if ssAlt in Shift then begin
// Horizontal scrolling with Alt+Mousewheel
VT.OffsetX := VT.OffsetX + WheelDelta;
Handled := True;
end;
end;