paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 06:58:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Options, do not mark project as modified, when starting debugger / reduce duplicate DoChange Calls

Browse Source 
git-svn-id: trunk@42935 -
This commit is contained in:
martin 2013-09-25 14:50:23 +00:00
parent fbfa1eb74e
commit 994ffaec8f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
debugger/debugger.pp
View File

@ -7072,7 +7072,7 @@ procedure TIDEBreakPoint.SetAutoContinueTime(const AValue: Cardinal);
begin
if FAutoContinueTime = AValue then Exit;
FAutoContinueTime := AValue;
Changed;
//Changed;
DoUserChanged;
end;
@ -7081,7 +7081,7 @@ begin
if FLogEvalExpression <> AValue then
begin
FLogEvalExpression := AValue;
Changed;
//Changed;
DoUserChanged;
end;
end;
@ -7091,7 +7091,7 @@ begin
if FLogMessage <> AValue then
begin
FLogMessage := AValue;
Changed;
//Changed;
DoUserChanged;
end;
end;
@ -7111,7 +7111,7 @@ begin
if FLogCallStackLimit <> AValue then
begin
FLogCallStackLimit := AValue;
Changed;
//Changed;
DoUserChanged;
end;
end;
@ -7280,7 +7280,8 @@ end;
procedure TIDEBreakPoint.DoActionChange;
begin
Changed;
//Changed;
DoUserChanged;
end;
procedure TIDEBreakPoint.DoHit(const ACount: Integer; var AContinue: Boolean);
@ -7479,7 +7480,6 @@ begin
then begin
FActions := AValue;
DoActionChange;
DoUserChanged;
end;
end;
@ -7501,7 +7501,7 @@ begin
then begin
FGroup.Add(Self);
end;
Changed;
//Changed;
DoUserChanged;
end;
end;