diff --git a/ide/main.pp b/ide/main.pp index 46e3b06446..88827bf33a 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -3894,10 +3894,9 @@ begin begin if (rfInteractive in AFlags) and (IDEQuestionDialog(lisStopDebugging, lisStopTheDebugging, - mtConfirmation, [mrYes, lisStop, - mrCancel, lisContinue]) <> mrYes) + mtConfirmation, [mrYes,lisStop, mrCancel,lisContinue]) <> mrYes) then exit; - if (DebugBoss.DoStopProject = mrOK) and (ToolStatus = itDebugger) and (rfCloseOnDone in AFlags) then + if (DebugBoss.DoStopProject = mrOK) and (rfCloseOnDone in AFlags) then FWaitForClose := True; if rfSuccessOnTrigger in AFlags then exit(true);