paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 07:19:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Fix "disabled" breakpoints are set as active, if the debugger is started. Issue #0017335

Browse Source 
git-svn-id: trunk@27986 -
This commit is contained in:
martin 2010-10-30 18:53:38 +00:00
parent 20785f705d
commit ef22ab0b4a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -1049,7 +1049,6 @@ end;
procedure TManagedBreakPoint.OnToggleEnableMenuItemClick(Sender: TObject); procedure TManagedBreakPoint.OnToggleEnableMenuItemClick(Sender: TObject);
begin begin
Enabled:=not Enabled; Enabled:=not Enabled;
InitialEnabled:=Enabled;
end; end;
procedure TManagedBreakPoint.OnDeleteMenuItemClick(Sender: TObject); procedure TManagedBreakPoint.OnDeleteMenuItemClick(Sender: TObject);
@ -1162,6 +1161,7 @@ procedure TManagedBreakPoint.SetEnabled(const AValue: Boolean);
begin begin
if Enabled = AValue then exit; if Enabled = AValue then exit;
inherited SetEnabled(AValue); inherited SetEnabled(AValue);
InitialEnabled:=Enabled;
if FMaster <> nil then FMaster.Enabled := AValue; if FMaster <> nil then FMaster.Enabled := AValue;
end; end;