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

Debugger: Assembler view - stop wheel scroll from moving selection

Browse Source
This commit is contained in:
Martin 2023-10-09 18:36:44 +02:00
parent 67069ef84b
commit eb6e46b08f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/packages/idedebugger/assemblerdlg.pp
View File

@ -728,7 +728,7 @@ end;
procedure TAssemblerDlg.pbAsmMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
i, j: LongInt;
j: LongInt;
begin
if not ToolButtonPower.Down then exit;
Handled := True;
@ -740,10 +740,8 @@ begin
exit;
FWheelAccu := FWheelAccu - j * 120;
i := FTopLine ;
if FSelectLine <> MaxInt
then SetSelection(FSelectLine - j, False, ssShift in Shift);
SetTopline(i - j);
SetTopLine(FTopLine - j);
pbAsm.Invalidate;
end;
procedure TAssemblerDlg.pbAsmPaint(Sender: TObject);