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

IDE: rundebug: restore toolstatus on error

Browse Source 
git-svn-id: trunk@60730 -
This commit is contained in:
mattias 2019-03-19 23:57:21 +00:00
parent df9b585827
commit 1b4646b785
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/main.pp
View File

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