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

MWE: Added "Reset Debuuger" menu command

Browse Source 
git-svn-id: trunk@3028 -
This commit is contained in:
marc 2002-08-18 08:57:08 +00:00
parent e31081b59d
commit 7a3ccc12a4
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/main.pp
View File

@ -71,7 +71,7 @@ uses
MenuPropEdit, MenuPropEdit,
{$ENDIF} {$ENDIF}
// debugger // debugger
RunParamsOpts, BaseDebugManager, DebugManager, RunParamsOpts, BaseDebugManager, DebugManager, Debugger,
// packager // packager
PkgManager, BasePkgManager, PkgManager, BasePkgManager,
// source editing // source editing
@ -191,6 +191,7 @@ type
procedure mnuStepOverProjectClicked(Sender : TObject); procedure mnuStepOverProjectClicked(Sender : TObject);
procedure mnuRunToCursorProjectClicked(Sender : TObject); procedure mnuRunToCursorProjectClicked(Sender : TObject);
procedure mnuStopProjectClicked(Sender : TObject); procedure mnuStopProjectClicked(Sender : TObject);
procedure mnuResetDebuggerClicked(Sender : TObject);
procedure mnuRunParametersClicked(Sender : TObject); procedure mnuRunParametersClicked(Sender : TObject);
procedure mnuProjectCompilerSettingsClicked(Sender : TObject); procedure mnuProjectCompilerSettingsClicked(Sender : TObject);
@ -1576,6 +1577,7 @@ begin
itmProjectStepOver.OnClick := @mnuStepOverProjectClicked; itmProjectStepOver.OnClick := @mnuStepOverProjectClicked;
itmProjectRunToCursor.OnClick := @mnuRunToCursorProjectClicked; itmProjectRunToCursor.OnClick := @mnuRunToCursorProjectClicked;
itmProjectStop.OnClick := @mnuStopProjectClicked; itmProjectStop.OnClick := @mnuStopProjectClicked;
itmProjectResetDebugger.OnClick := @mnuResetDebuggerClicked;
itmProjectCompilerSettings.OnClick := @mnuProjectCompilerSettingsClicked; itmProjectCompilerSettings.OnClick := @mnuProjectCompilerSettingsClicked;
itmProjectRunParameters.OnClick := @mnuRunParametersClicked; itmProjectRunParameters.OnClick := @mnuRunParametersClicked;
end; end;
@ -2364,6 +2366,14 @@ begin
DebugBoss.DoStopProject; DebugBoss.DoStopProject;
end; end;
procedure TMainIDE.mnuResetDebuggerClicked(Sender : TObject);
begin
if DebugBoss.State = dsNone then Exit;
DebugBoss.EndDebugging;
DebugBoss.DoInitDebugger;
end;
procedure TMainIDE.mnuProjectCompilerSettingsClicked(Sender : TObject); procedure TMainIDE.mnuProjectCompilerSettingsClicked(Sender : TObject);
var frmCompilerOptions:TfrmCompilerOptions; var frmCompilerOptions:TfrmCompilerOptions;
NewCaption: String; NewCaption: String;
@ -3400,6 +3410,7 @@ function TMainIDE.DoOpenUnknownFile(const AFileName: string; Flags: TOpenFlags;
var var
Ext, NewProgramName, LPIFilename, ACaption, AText: string; Ext, NewProgramName, LPIFilename, ACaption, AText: string;
PreReadBuf: TCodeBuffer; PreReadBuf: TCodeBuffer;
LoadFlags: TLoadBufferFlags;
begin begin
Handled:=false; Handled:=false;
Ext:=lowercase(ExtractFileExt(AFilename)); Ext:=lowercase(ExtractFileExt(AFilename));
@ -3413,8 +3424,9 @@ begin
end; end;
// load the source // load the source
Result:=DoLoadCodeBuffer(PreReadBuf,AFileName, LoadFlags := [lbfCheckIfText,lbfUpdateFromDisk,lbfRevert];
[lbfCheckIfText,lbfUpdateFromDisk,lbfRevert]); if ofQuiet in Flags then Include(LoadFlags, lbfQuiet);
Result:=DoLoadCodeBuffer(PreReadBuf,AFileName,LoadFlags);
if Result<>mrOk then exit; if Result<>mrOk then exit;
NewUnitInfo:=nil; NewUnitInfo:=nil;
@ -8662,6 +8674,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.573 2003/05/22 23:05:26 marc
MWE: Added "Reset Debuuger" menu command
Revision 1.572 2003/05/22 06:32:03 mattias Revision 1.572 2003/05/22 06:32:03 mattias
fixed double formats fixed double formats