From 994ffaec8f2bebc65ed9ca8abfe0bddbafcbdd9e Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 25 Sep 2013 14:50:23 +0000
Subject: [PATCH] Debugger: Options, do not mark project as modified, when
 starting debugger / reduce duplicate DoChange Calls

git-svn-id: trunk@42935 -
---
 debugger/debugger.pp | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index f3f42dd685..2907c62b98 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -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;