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

Merged revision(s) 61504 #5746da87b0 from trunk:

Browse Source 
IDE: DoRunProject: reset ToolStatus only for errors on handlers, bug #35764
........

git-svn-id: branches/fixes_2_0@62105 -
This commit is contained in:
maxim 2019-10-21 22:16:34 +00:00
parent 3b06c8f7ea
commit 254fc8b15d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -7180,18 +7180,19 @@ begin
debugln('Hint: (lazarus) [TMainIDE.DoRunProject] Debugger=',EnvironmentOptions.DebuggerConfig.DebuggerClass);
try
Result := mrCancel;
Result:=mrCancel;
Handled:=false;
Result := DoCallRunDebug(Handled);
if Handled or (Result<>mrOk) then
if Handled then
exit;
Result := mrCancel;
Result := DebugBoss.StartDebugging;
finally
if Result<>mrOk then
ToolStatus:=itNone;
end;
if Result<>mrOk then
exit;
Result := DebugBoss.StartDebugging;
DebugLn('Hint: (lazarus) [TMainIDE.DoRunProject] END');
end;