From 7c57556d5f1bd6d012ff033123c7ea9793fee000 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Jul 2010 09:46:04 +0000
Subject: [PATCH] IDE: mark new project as not modified on errors

git-svn-id: trunk@26724 -
---
 ide/main.pp    | 7 +++++--
 ide/project.pp | 3 ++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index f8111eef0e..0e294c4a6d 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -9640,12 +9640,15 @@ begin
       Project1.EndUpdate;
     end;
 
+    Result:=mrOk;
+  finally
+    //SrcEdit:=SourceEditorManager.act
+    //Project1.UpdateVisibleUnit(SourceEditorManager);
     // set all modified to false
     for i:=0 to Project1.UnitCount-1 do
       Project1.Units[i].ClearModifieds;
     Project1.Modified:=false;
-    Result:=mrOk;
-  finally
+    debugln(['TMainIDE.DoNewProject AAA1 ',SomethingOfProjectIsModified]);
     // call handlers
     HandlerResult:=DoCallProjectChangedHandler(lihtProjectOpened,Project1);
     if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then
diff --git a/ide/project.pp b/ide/project.pp
index 1918852e48..63f99339b2 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -3348,7 +3348,8 @@ begin
   Result:=AnUnitInfo;
 end;
 
-procedure TProject.UpdateVisibleUnit(AnEditor: TSourceEditorInterface; AWindowIndex: Integer);
+procedure TProject.UpdateVisibleUnit(AnEditor: TSourceEditorInterface;
+  AWindowIndex: Integer);
 var
   i: Integer;
 begin