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

Debugger: Options, mark project as modified, when exceptions are enabled/disabled. Issue #0025074

Browse Source 
git-svn-id: trunk@42932 -
This commit is contained in:
martin 2013-09-25 12:32:35 +00:00
parent 30f778a891
commit 07ca34b2bc
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/debugmanager.pas
View File

@ -301,6 +301,7 @@ type
protected
procedure SetIgnoreAll(const AValue: Boolean); override;
procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); override;
procedure Update(Item: TCollectionItem); override;
end;
TDBGEventCategories = set of TDBGEventCategory;
@ -322,6 +323,13 @@ begin
Project1.Modified := True;
end;
procedure TProjectExceptions.Update(Item: TCollectionItem);
begin
inherited Update(Item);
if Project1 <> nil then
Project1.Modified := True;
end;
{ TManagedBreakPoints }
constructor TManagedBreakPoints.Create(const AManager: TDebugManager);