IDE: debugger: added button on Executio stopped dialog to not show message, bug #14786

git-svn-id: trunk@22123 -

ide/debugmanager.pas

@@ -45,7 +45,7 @@ uses
   { for Get/SetForegroundWindow }
   LCLType, LCLIntf,
   SynEdit, CodeCache, CodeToolManager,
-  SrcEditorIntf, MenuIntf, IDECommands, LazIDEIntf, ProjectIntf,
+  SrcEditorIntf, MenuIntf, IDECommands, LazIDEIntf, ProjectIntf, IDEDialogs,
   LazConf,
   CompilerOptions, EditorOptions, EnvironmentOpts, ProjectOpts, KeyMapping, SourceEditor,
   ProjectDefs, Project, IDEProcs, InputHistory, Debugger, CmdLineDebugger,
@@ -1425,6 +1425,7 @@ const
   //);
 var
   Editor: TSourceEditor;
+  MsgResult: TModalResult;
 begin
   if (ADebugger<>FDebugger) or (ADebugger=nil) then
     RaiseException('TDebugManager.OnDebuggerChangeState');
@@ -1514,8 +1515,12 @@ begin
       then begin
         if EnvironmentOptions.DebuggerShowStopMessage
         then begin
-          MessageDlg(lisExecutionStopped,
-            Format(lisExecutionStoppedOn, [#13#13]), mtInformation, [mbOK],0);
+          MsgResult:=IDEQuestionDialog(lisExecutionStopped,
+            lisExecutionStopped, mtInformation,
+            [mrOK, dlgMouseOptBtnOk, mrYesToAll, lisDoNotShowThisMessageAgain],
+              '');
+          if MsgResult=mrYesToAll then
+            EnvironmentOptions.DebuggerShowStopMessage:=false;
         end;
         FDebugger.FileName := '';
 

ide/lazarusidestrconsts.pas

@@ -1246,6 +1246,7 @@ resourcestring
   dlgMouseOptBtnImport = 'Import';
   dlgMouseOptBtnExport = 'Export';
   dlgMouseOptBtnOk  = 'Ok';
+  lisDoNotShowThisMessageAgain = 'Do not show this message again';
   dlgMouseOptBtnCancel  = 'Cancel';
   dlgMouseOptBtnModDef = 'Make Fallback';
   dlgMouseOptPriorLabel = 'Priority';
@@ -3007,7 +3008,6 @@ resourcestring
     +'sOoops, the debugger entered the error state%sSave your work now !%sHit '
     +'Stop, and hope the best, we''re pulling the plug.';
   lisExecutionStopped = 'Execution stopped';
-  lisExecutionStoppedOn = 'Execution stopped%s';
   lisExecutionPaused = 'Execution paused';
   lisExecutionPausedAdress = 'Execution paused%s  Adress: $%s%s  Procedure: %'
     +'s%s  File: %s%s(Some day an assembler window might popup here :)%s';