diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas index 1e77aa6645..211594685b 100644 --- a/ide/debugmanager.pas +++ b/ide/debugmanager.pas @@ -229,6 +229,7 @@ type procedure DoChanged; override; function GetHitCount: Integer; override; function GetValid: TValidState; override; + procedure SetBreakHitCount(const AValue: Integer); override; procedure SetEnabled(const AValue: Boolean); override; procedure SetInitialEnabled(const AValue: Boolean); override; procedure SetExpression(const AValue: String); override; @@ -1230,6 +1231,13 @@ begin else Result := FMaster.Valid; end; +procedure TManagedBreakPoint.SetBreakHitCount(const AValue: Integer); +begin + if BreakHitCount = AValue then exit; + inherited SetBreakHitCount(AValue); + if FMaster <> nil then FMaster.BreakHitCount := AValue; +end; + procedure TManagedBreakPoint.ResetMaster; begin if FMaster <> nil then FMaster.Slave := nil;