From 4277b7bfe88f233203c05c0677aca99e3064780b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 27 Sep 2008 10:14:02 +0000
Subject: [PATCH] IDE: fixed closing lpr file in source editor: do not clear
 changes

git-svn-id: trunk@16765 -
---
 ide/main.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index e0a239e92c..c3e2180a52 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -7291,12 +7291,12 @@ begin
 
   // free sources
   if (ActiveUnitInfo.Source<>nil) then begin
-    ActiveUnitInfo.Source.IsDeleted:=true;
     if (Project1.MainUnitInfo=ActiveUnitInfo)
     and (not (cfProjectClosing in Flags)) then begin
       // lpr file closed in editor, but project kept open -> revert lpr file
       Project1.MainUnitInfo.Source.Revert;
-    end;
+    end else
+      ActiveUnitInfo.Source.IsDeleted:=true;
   end;
 
   // close form soft (keep it if used by another component)