paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 23:28:52 +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 begin
if FAutoContinueTime = AValue then Exit; if FAutoContinueTime = AValue then Exit;
FAutoContinueTime := AValue; FAutoContinueTime := AValue;
Changed; //Changed;
DoUserChanged; DoUserChanged;
end; end;
@ -7081,7 +7081,7 @@ begin
if FLogEvalExpression <> AValue then if FLogEvalExpression <> AValue then
begin begin
FLogEvalExpression := AValue; FLogEvalExpression := AValue;
Changed; //Changed;
DoUserChanged; DoUserChanged;
end; end;
end; end;
@ -7091,7 +7091,7 @@ begin
if FLogMessage <> AValue then if FLogMessage <> AValue then
begin begin
FLogMessage := AValue; FLogMessage := AValue;
Changed; //Changed;
DoUserChanged; DoUserChanged;
end; end;
end; end;
@ -7111,7 +7111,7 @@ begin
if FLogCallStackLimit <> AValue then if FLogCallStackLimit <> AValue then
begin begin
FLogCallStackLimit := AValue; FLogCallStackLimit := AValue;
Changed; //Changed;
DoUserChanged; DoUserChanged;
end; end;
end; end;
@ -7280,7 +7280,8 @@ end;
procedure TIDEBreakPoint.DoActionChange; procedure TIDEBreakPoint.DoActionChange;
begin begin
Changed; //Changed;
DoUserChanged;
end; end;
procedure TIDEBreakPoint.DoHit(const ACount: Integer; var AContinue: Boolean); procedure TIDEBreakPoint.DoHit(const ACount: Integer; var AContinue: Boolean);
@ -7479,7 +7480,6 @@ begin
then begin then begin
FActions := AValue; FActions := AValue;
DoActionChange; DoActionChange;
DoUserChanged;
end; end;
end; end;
@ -7501,7 +7501,7 @@ begin
then begin then begin
FGroup.Add(Self); FGroup.Add(Self);
end; end;
Changed; //Changed;
DoUserChanged; DoUserChanged;
end; end;
end; end;