- enhancement: Can run/compile/debug while there is program running.

royqh1979@gmail.com · royqh1979@gmail.com · commit 042d03e721c9 · 2021-08-18T20:23:18.000+08:00
diff --git a/Source/main.pas b/Source/main.pas
@@ -4469,7 +4469,9 @@ procedure TMainForm.actDebugExecute(Sender: TObject);
   if devExecutor.Running then begin
     if MessageDlg(Lang[ID_MSG_STOPRUNNING], mtConfirmation, [mbYes,
             mbNo], 0) <> mrYes then
-            Exit;
+      Exit
+    else
+      actStopExecuteExecute(nil);
   end;
   case GetCompileTarget of
     cttProject: begin
