From 8ed3e81570b9d7b720fb0208faec96657f466d10 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 28 Oct 2016 10:03:55 +0000
Subject: [PATCH] IDE: open project: read lpr and set IsPartOfProject for all
 used units with <in> filenames

git-svn-id: trunk@53246 -
---
 ide/project.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/project.pp b/ide/project.pp
index 289b75f25b..9e8c40499f 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -3059,7 +3059,7 @@ begin
     if LPRUnitInfo.Source=nil then exit(mrCancel);
   end;
 
-  if pfMainUnitHasUsesSectionForAllUnits in Flags then begin
+  if [pfMainUnitIsPascalSource,pfMainUnitHasUsesSectionForAllUnits]<=Flags then begin
     try
       CodeToolBoss.FindDelphiProjectUnits(LPRUnitInfo.Source,FoundInUnits,
         MissingInUnits, NormalUnits, true);