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

IDE, debugger: Reduce unnecessary watches updates

Browse Source 
git-svn-id: trunk@62556 -
This commit is contained in:
martin 2020-01-14 20:37:34 +00:00
parent dee73b2218
commit 1ac14d37b8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/watchesdlg.pp
View File

@ -499,7 +499,8 @@ end;
procedure TWatchesDlg.ContextChanged(Sender: TObject); procedure TWatchesDlg.ContextChanged(Sender: TObject);
begin begin
DebugLn(DBG_DATA_MONITORS, ['DebugDataWindow: TWatchesDlg.ContextChanged ', DbgSName(Sender), ' Upd:', IsUpdating]); DebugLn(DBG_DATA_MONITORS, ['DebugDataWindow: TWatchesDlg.ContextChanged ', DbgSName(Sender), ' Upd:', IsUpdating]);
UpdateAll; if (DebugBoss <> nil) and (DebugBoss.State in [dsPause, dsInternalPause]) then
UpdateAll;
end; end;
procedure TWatchesDlg.actEnableSelectedExecute(Sender: TObject); procedure TWatchesDlg.actEnableSelectedExecute(Sender: TObject);