From 7763dcfc36583ed1ee688a0ccbc99324e736ad6f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 12 Mar 2012 22:25:31 +0000
Subject: [PATCH] IDE: check if project needs compile: check lfm too, bug
 #21206

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

diff --git a/ide/main.pp b/ide/main.pp
index 8019070e81..07bd51bf72 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11567,6 +11567,7 @@ var
   StateFilename: String;
   StateFileAge: LongInt;
   AnUnitInfo: TUnitInfo;
+  LFMFilename: String;
 begin
   NeedBuildAllFlag:=false;
   if (AProject.LastCompilerFilename<>CompilerFilename)
@@ -11633,10 +11634,19 @@ begin
   // check project files
   AnUnitInfo:=AProject.FirstPartOfProject;
   while AnUnitInfo<>nil do begin
-    if FileExistsCached(AnUnitInfo.Filename)
-    and (StateFileAge<FileAgeCached(AnUnitInfo.Filename)) then begin
-      DebugLn('TMainIDE.CheckIfProjectNeedsCompilation  Src has changed ',AProject.IDAsString,' ',AnUnitInfo.Filename);
-      exit(mrYes);
+    if FileExistsCached(AnUnitInfo.Filename) then begin
+      if (StateFileAge<FileAgeCached(AnUnitInfo.Filename)) then begin
+        DebugLn('TMainIDE.CheckIfProjectNeedsCompilation  Src has changed ',AProject.IDAsString,' ',AnUnitInfo.Filename);
+        exit(mrYes);
+      end;
+      if AnUnitInfo.ComponentName<>'' then begin
+        LFMFilename:=ChangeFileExt(AnUnitInfo.Filename,'.lfm');
+        if FileExistsCached(LFMFilename)
+        and (StateFileAge<FileAgeCached(LFMFilename)) then begin
+          DebugLn('TMainIDE.CheckIfProjectNeedsCompilation  LFM has changed ',AProject.IDAsString,' ',LFMFilename);
+          exit(mrYes);
+        end;
+      end;
     end;
     AnUnitInfo:=AnUnitInfo.NextPartOfProject;
   end;