paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 14:32:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger, asm dialog: fix mouse wheel scrolling

Browse Source 
git-svn-id: trunk@59439 -
This commit is contained in:
martin 2018-11-03 18:49:33 +00:00
parent c6ace539d3
commit fdd25c4c9c
1 changed files with 7 additions and 1 deletions

8
debugger/assemblerdlg.pp
View File

@ -85,6 +85,7 @@ type
procedure Timer1Timer(Sender: TObject);
procedure ToolButtonPowerClick(Sender: TObject);
private
FWheelAccu: Integer;
FDebugger: TDebuggerIntf;
FDebugManager: TBaseDebugManager;
FDisassembler: TIDEDisassembler;
@ -598,7 +599,12 @@ begin
if not ToolButtonPower.Down then exit;
Handled := True;
j := WheelDelta div 120;
FWheelAccu := FWheelAccu + WheelDelta;
j := FWheelAccu div 120;
if j = 0 then
exit;
FWheelAccu := FWheelAccu - j * 120;
i := FTopLine ;
if FSelectLine <> MaxInt
then SetSelection(FSelectLine - j, False, ssShift in Shift);