paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Ask to add RunError to ignored exceptions

Browse Source 
git-svn-id: trunk@44740 -
This commit is contained in:
martin 2014-04-16 03:44:21 +00:00
parent 5d640f36c9
commit e8d0b0687b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -1023,7 +1023,7 @@ begin
end; end;
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 in [deInternal, deRunError]) = mrCancel;
if Ignore then begin if Ignore then begin
Exceptions.AddIfNeeded(AExceptionClass); Exceptions.AddIfNeeded(AExceptionClass);
Exceptions.Find(AExceptionClass).Enabled := True; Exceptions.Find(AExceptionClass).Enabled := True;