paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 20:56:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: when adding new unit, check for project flag MainUsesSectionHasAllUnits, bug #17495

Browse Source 
git-svn-id: trunk@27492 -
This commit is contained in:
mattias 2010-09-27 20:42:28 +00:00
parent 534bc9d03d
commit 07b18a1c5c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -7837,7 +7837,8 @@ begin
Project1.AddFile(NewUnitInfo,
NewFileDescriptor.AddToProject
and NewFileDescriptor.IsPascalUnit
and NewUnitInfo.IsPartOfProject);
and NewUnitInfo.IsPartOfProject
and (pfMainUnitHasUsesSectionForAllUnits in Project1.Flags));
end;
// syntax highlighter type