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

IDE: enable (debug-)Stop button while building.

Browse Source 
git-svn-id: trunk@63530 -
This commit is contained in:
martin 2020-07-08 13:28:34 +00:00
parent 4fd90b6fad
commit 99302de6f6
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/debugmanager.pas
View File

@ -2113,8 +2113,9 @@ begin
// Run to cursor
itmRunMenuRunToCursor.Enabled := CanRun and (dcRunTo in AvailCommands);
// Stop
itmRunMenuStop.Enabled := CanRun and (MainIDE.ToolStatus = itDebugger) and
(CurState in [dsPause, dsInternalPause, dsInit, dsRun, dsError]);
itmRunMenuStop.Enabled := (CanRun and (MainIDE.ToolStatus = itDebugger) and
(CurState in [dsPause, dsInternalPause, dsInit, dsRun, dsError])) or
(MainIDE.ToolStatus = itBuilder);
//Attach / Detach
itmRunMenuAttach.Enabled := DebuggerIsValid and (dcAttach in AvailCommands);

5
ide/main.pp
View File

@ -4647,7 +4647,10 @@ end;
procedure TMainIDE.mnuStopProjectClicked(Sender: TObject);
begin
DebugBoss.DoStopProject;
if (MainIDE.ToolStatus = itBuilder) then
mnuAbortBuildProjectClicked(Sender)
else
DebugBoss.DoStopProject;
end;
procedure TMainIDE.mnuAttachDebuggerClicked(Sender: TObject);