paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +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); procedure TAssemblerDlg.pbAsmMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var var
i, j: LongInt; j: LongInt;
begin begin
if not ToolButtonPower.Down then exit; if not ToolButtonPower.Down then exit;
Handled := True; Handled := True;
@ -740,10 +740,8 @@ begin
exit; exit;
FWheelAccu := FWheelAccu - j * 120; FWheelAccu := FWheelAccu - j * 120;
i := FTopLine ; SetTopLine(FTopLine - j);
if FSelectLine <> MaxInt pbAsm.Invalidate;
then SetSelection(FSelectLine - j, False, ssShift in Shift);
SetTopline(i - j);
end; end;
procedure TAssemblerDlg.pbAsmPaint(Sender: TObject); procedure TAssemblerDlg.pbAsmPaint(Sender: TObject);