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

IDE: fixed handling of Reset Debugger shortcut (bug #10404)

Browse Source 
git-svn-id: trunk@13298 -
This commit is contained in:
vincents 2007-12-12 15:23:09 +00:00
parent 9d4fd2cb03
commit c2805d9a1d
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
ide/debugmanager.pas
View File

@ -67,6 +67,8 @@ type
ddtEvaluate
);
{ TDebugManager }
TDebugManager = class(TBaseDebugManager)
// Menu events
procedure mnuViewDebugDialogClick(Sender: TObject);
@ -122,6 +124,7 @@ type
procedure InitEvaluateDlg;
procedure FreeDebugger;
procedure ResetDebugger;
protected
function GetState: TDBGState; override;
function GetCommands: TDBGCommands; override;
@ -1011,15 +1014,8 @@ begin
end;
procedure TDebugManager.mnuResetDebuggerClicked(Sender: TObject);
var
OldState: TDBGState;
begin
OldState := State;
if OldState = dsNone then Exit;
EndDebugging;
// OnDebuggerChangeState(FDebugger, OldState);
// InitDebugger;
ResetDebugger;
end;
procedure TDebugManager.mnuDebuggerOptionsClick(Sender: TObject);
@ -1636,6 +1632,18 @@ begin
then MainIDE.ToolStatus := itNone;
end;
procedure TDebugManager.ResetDebugger;
var
OldState: TDBGState;
begin
OldState := State;
if OldState = dsNone then Exit;
EndDebugging;
// OnDebuggerChangeState(FDebugger, OldState);
// InitDebugger;
end;
function TDebugManager.InitDebugger: Boolean;
var
LaunchingCmdLine, LaunchingApplication, LaunchingParams: String;
@ -1842,11 +1850,12 @@ begin
//debugln('TDebugManager.ProcessCommand ',dbgs(Command));
Handled:=true;
case Command of
ecPause: DoPauseProject;
ecStepInto: DoStepIntoProject;
ecStepOver: DoStepOverProject;
ecRunToCursor: DoRunToCursor;
ecStopProgram: DoStopProject;
ecPause: DoPauseProject;
ecStepInto: DoStepIntoProject;
ecStepOver: DoStepOverProject;
ecRunToCursor: DoRunToCursor;
ecStopProgram: DoStopProject;
ecResetDebugger: ResetDebugger;
ecToggleCallStack: DoToggleCallStack;
ecEvaluate: ViewDebugDialog(ddtEvaluate);
ecToggleWatches: ViewDebugDialog(ddtWatches);