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

Debugger, ignore exceptions - Don't modify session, unless changed

Browse Source 
git-svn-id: trunk@34733 -
This commit is contained in:
martin 2012-01-14 14:59:18 +00:00
parent 039f1908af
commit 1d2762eec2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/debugmanager.pas
View File

@ -294,8 +294,10 @@ type
procedure TProjectExceptions.SetIgnoreAll(const AValue: Boolean);
begin
// Todo: move to Chamged or Update, but they are called to often...
if (IgnoreAll <> AValue) and (Project1 <> nil) then
Project1.Modified := True;
inherited SetIgnoreAll(AValue);
Project1.Modified := True;
end;
procedure TProjectExceptions.Notify(Item: TCollectionItem; Action: TCollectionNotification);