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

Debugger: keep register-names in register window, while debugger is running (show <unavailable>). This way scroll pos is preserved. Issue #0032654

Browse Source 
git-svn-id: trunk@60049 -
This commit is contained in:
martin 2019-01-09 23:58:14 +00:00
parent f737797457
commit 52e85d555e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/registersdlg.pp
View File

@ -396,8 +396,14 @@ begin
FNeedUpdateAgain := False; FNeedUpdateAgain := False;
Reg := GetCurrentRegisters; Reg := GetCurrentRegisters;
if Reg = nil then begin if (Reg = nil) or (reg.DataValidity<> ddsValid) then begin
lvRegisters.Items.Clear; if (DebugBoss.Debugger = nil) or not (DebugBoss.Debugger.State in [dsPause, dsInternalPause, dsRun]) then
lvRegisters.Items.Clear;
if (reg <> nil) then
reg.Count;
for n := 0 to lvRegisters.Items.Count - 1 do
lvRegisters.Items[n].SubItems[0] := '<Unavailable>';
exit; exit;
end; end;