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

IDE: Debugger, use crHandCursor for asm links. Issue #41621

Browse Source 
(cherry picked from commit 7c75970ebd)
This commit is contained in:
Martin 2025-05-09 22:14:16 +02:00
parent 31b5cd2be7
commit 8e5d4d8638
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -700,6 +700,7 @@ begin
Invalidate;
FTargetLine := -1;
FLinkLine := -1;
pbAsm.Cursor := crDefault;
if X <= FGutterWidth then exit;
if not(ssCtrl in Shift) then begin
SetSelection(FTopLine + Y, False, ssShift in Shift);
@ -712,6 +713,7 @@ begin
FLinkLine := y;
FTargetLine := LineForAddr(FLineMap[y].TargetAddr);
Invalidate;
pbAsm.Cursor := crHandPoint;
end;
end;
mbRight: ;
@ -750,6 +752,10 @@ begin
end;
end;
if y = FLinkLine then
pbAsm.Cursor := crHandPoint
else
pbAsm.Cursor := crDefault;
end;
procedure TAssemblerDlg.pbAsmMouseUp(Sender: TObject; Button: TMouseButton;
@ -768,6 +774,7 @@ begin
if FLinkLine >= 0 then
Invalidate;
FLinkLine := -1;
pbAsm.Cursor := crDefault;
end;
procedure TAssemblerDlg.pbAsmMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
@ -777,6 +784,7 @@ begin
if not ToolButtonPower.Down then exit;
Handled := True;
FLinkLine := -1;
pbAsm.Cursor := crDefault;
FWheelAccu := FWheelAccu + WheelDelta;
j := FWheelAccu div 120;