paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +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

9
ide/main.pp
View File

@ -7183,15 +7183,16 @@ begin
Result:=mrCancel; Result:=mrCancel;
Handled:=false; Handled:=false;
Result := DoCallRunDebug(Handled); Result := DoCallRunDebug(Handled);
if Handled or (Result<>mrOk) then if Handled then
exit; exit;
Result := mrCancel;
Result := DebugBoss.StartDebugging;
finally finally
if Result<>mrOk then if Result<>mrOk then
ToolStatus:=itNone; ToolStatus:=itNone;
end; end;
if Result<>mrOk then
exit;
Result := DebugBoss.StartDebugging;
DebugLn('Hint: (lazarus) [TMainIDE.DoRunProject] END'); DebugLn('Hint: (lazarus) [TMainIDE.DoRunProject] END');
end; end;