From 11f34a7ec5c9ad78a87d3f713dd4dfad02abaed5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 31 Mar 2012 17:24:37 +0000
Subject: [PATCH] IDE: rename unit: fix resource directive only if lfm exists

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

diff --git a/ide/main.pp b/ide/main.pp
index 0e9b2069b1..c14c2d7515 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -6289,13 +6289,13 @@ begin
         LFMCode:=CodeToolBoss.LoadFile(NewLFMFilename,true,false);
         if LFMCode<>nil then
           NewLFMFilename:=LFMCode.Filename;
-      end;
-      ConvTool:=TConvDelphiCodeTool.Create(NewSource);
-      try
-        if not ConvTool.RenameResourceDirectives then
-          debugln(['TMainIDE.DoRenameUnit WARNING: unable to rename resource directive in "',NewSource.Filename,'"']);
-      finally
-        ConvTool.Free;
+        ConvTool:=TConvDelphiCodeTool.Create(NewSource);
+        try
+          if not ConvTool.RenameResourceDirectives then
+            debugln(['TMainIDE.DoRenameUnit WARNING: unable to rename resource directive in "',NewSource.Filename,'"']);
+        finally
+          ConvTool.Free;
+        end;
       end;
     end;