paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented setting breakpoint while compiling

Browse Source 
git-svn-id: trunk@4231 -
This commit is contained in:
mattias 2003-06-04 12:44:55 +00:00
parent 8798b8079b
commit 12839a8385
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/debugmanager.pas
View File

@ -587,12 +587,13 @@ begin
// TODO: add other debugger menuitems // TODO: add other debugger menuitems
// TODO: implement by actions // TODO: implement by actions
ToolStatus := TOOLSTATEMAP[FDebugger.State]; if ToolStatus in [itNone,itDebugger] then
ToolStatus := TOOLSTATEMAP[FDebugger.State];
end; end;
if (FDebugger.State in [dsRun]) then begin if (FDebugger.State in [dsRun]) then begin
// hide IDE during run // hide IDE during run
if EnvironmentOptions.HideIDEOnRun then if EnvironmentOptions.HideIDEOnRun and (MainIDE.ToolStatus=itDebugger) then
MainIDE.HideIDE; MainIDE.HideIDE;
end else if (OldState in [dsRun]) then begin end else if (OldState in [dsRun]) then begin
// unhide IDE // unhide IDE
@ -925,7 +926,7 @@ procedure TDebugManager.BreakpointAdded(const ASender: TIDEBreakPoints;
var var
BP: TBaseBreakPoint; BP: TBaseBreakPoint;
begin begin
writeln('TDebugManager.BreakpointAdded A ',ABreakpoint.Source,' ',ABreakpoint.Line); writeln('TDebugManager.BreakpointAdded A ',ABreakpoint.Source,' ',ABreakpoint.Line);
ABreakpoint.InitialEnabled := True; ABreakpoint.InitialEnabled := True;
ABreakpoint.Enabled := True; ABreakpoint.Enabled := True;
if FDebugger <> nil if FDebugger <> nil
@ -940,7 +941,7 @@ end;
procedure TDebugManager.BreakpointRemoved(const ASender: TIDEBreakPoints; procedure TDebugManager.BreakpointRemoved(const ASender: TIDEBreakPoints;
const ABreakpoint: TIDEBreakPoint); const ABreakpoint: TIDEBreakPoint);
begin begin
writeln('TDebugManager.BreakpointRemoved A ',ABreakpoint.Source,' ',ABreakpoint.Line,' ',TManagedBreakPoint(ABreakpoint).SourceMark<>nil); writeln('TDebugManager.BreakpointRemoved A ',ABreakpoint.Source,' ',ABreakpoint.Line,' ',TManagedBreakPoint(ABreakpoint).SourceMark<>nil);
if TManagedBreakPoint(ABreakpoint).SourceMark<>nil then if TManagedBreakPoint(ABreakpoint).SourceMark<>nil then
TManagedBreakPoint(ABreakpoint).SourceMark.Free; TManagedBreakPoint(ABreakpoint).SourceMark.Free;
if Project1<>nil then if Project1<>nil then
@ -1195,15 +1196,9 @@ end;
function TDebugManager.DoBeginChangeDebugger: TModalResult; function TDebugManager.DoBeginChangeDebugger: TModalResult;
begin begin
Result:=mrCancel; Result:=mrCancel;
if MainIDE.ToolStatus=itBuilder then begin
MessageDlg('Compiling',
'You can not change any debugger item while the IDE is compiling.',
mtError,[mbCancel],0);
exit;
end;
inc(FDebuggerUpdateLock); inc(FDebuggerUpdateLock);
if FDebuggerUpdateLock=1 then begin if FDebuggerUpdateLock=1 then begin
// the update has begun // the update begins
if FDebugger<>nil then begin if FDebugger<>nil then begin
// switch the debugger into a state, where the IDE can change its items // switch the debugger into a state, where the IDE can change its items
@ -1369,6 +1364,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.45 2003/06/04 12:44:55 mattias
implemented setting breakpoint while compiling
Revision 1.44 2003/06/03 16:12:14 mattias Revision 1.44 2003/06/03 16:12:14 mattias
fixed loading bookmarks for editor index 0 fixed loading bookmarks for editor index 0