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

DBG: ensure, existing "ignored exceptions" are re-enabled, if user requests

Browse Source 
git-svn-id: trunk@35254 -
This commit is contained in:
martin 2012-02-09 00:20:21 +00:00
parent 431bef0ffe
commit b3e1fbdbdf
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

@ -951,8 +951,10 @@ begin
if (AExceptionType in [deInternal, deRunError]) then begin if (AExceptionType in [deInternal, deRunError]) then begin
AContinue := ExecuteExceptionDialog(msg, Ignore, AExceptionType = deInternal) = mrCancel; AContinue := ExecuteExceptionDialog(msg, Ignore, AExceptionType = deInternal) = mrCancel;
if Ignore then if Ignore then begin
Exceptions.AddIfNeeded(AExceptionClass); Exceptions.AddIfNeeded(AExceptionClass);
Exceptions.Find(AExceptionClass).Enabled := True;
end;
end end
else begin else begin
MessageDlg(lisCCOErrorCaption, msg, mtError, [mbOk], 0) MessageDlg(lisCCOErrorCaption, msg, mtError, [mbOk], 0)