From 0c54ae136bc80fd45155aa443125f4a013400643 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 3 Feb 2013 13:32:28 +0000
Subject: [PATCH] IDE: ide info: fixed showing project units only once

git-svn-id: trunk@40159 -
---
 ide/ideinfodlg.pas | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/ide/ideinfodlg.pas b/ide/ideinfodlg.pas
index 277c9f5005..45b5962861 100644
--- a/ide/ideinfodlg.pas
+++ b/ide/ideinfodlg.pas
@@ -275,15 +275,16 @@ begin
     then begin
       if not HeaderWritten then begin
         sl.Add('Project units:');
-        s:=aFile.GetShortFilename(true);
-        if aFile.Modified then
-          s:=s+' Modified';
-        if aFile.SessionModified then
-          s:=s+' SessionModified';
-        if (aFile.Source<>nil) and (aFile.Source.Modified) then
-          s:=s+' Source.Modified';
-        sl.Add(s);
+        HeaderWritten:=true;
       end;
+      s:=aFile.GetShortFilename(true);
+      if aFile.Modified then
+        s:=s+' Modified';
+      if aFile.SessionModified then
+        s:=s+' SessionModified';
+      if (aFile.Source<>nil) and (aFile.Source.Modified) then
+        s:=s+' Source.Modified';
+      sl.Add(s);
     end;
     aFile:=aFile.NextPartOfProject;
   end;