IDE: new unit: fixed using IsPascalUnit when adding file to uses section of project

git-svn-id: trunk@18621 -

ide/main.pp

@@ -6974,6 +6974,7 @@ begin
   if OldUnitIndex<0 then begin
     Project1.AddFile(NewUnitInfo,
                      NewFileDescriptor.AddToProject
+                     and NewFileDescriptor.IsPascalUnit
                      and NewUnitInfo.IsPartOfProject);
   end;
 

ide/mainintf.pas

@@ -464,6 +464,7 @@ begin
   inherited Create;
   Name:='custom program';
   DefaultFilename:='project.pas';
+  IsPascalUnit:=false;
 end;
 
 function TFileDescSimplePascalProgram.GetLocalizedName: string;

ideintf/projectintf.pas

@@ -1269,6 +1269,7 @@ begin
   Name:=FileDescNamePascalUnit;
   DefaultFilename:='unit.pas';
   DefaultSourceName:='Unit1';
+  IsPascalUnit:=true;
 end;
 
 function TFileDescPascalUnit.CreateSource(const Filename, SourceName,