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

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

Browse Source 
git-svn-id: trunk@22123 -
This commit is contained in:
mattias 2009-10-12 20:54:59 +00:00
parent 251bb2f596
commit c164ad2cce
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/debugmanager.pas
View File

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

2
ide/lazarusidestrconsts.pas
View File

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