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

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

Browse Source 
git-svn-id: trunk@18621 -
This commit is contained in:
mattias 2009-02-09 20:03:04 +00:00
parent 00da47ed08
commit 35ccd93e17
3 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/main.pp
View File

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

1
ide/mainintf.pas
View File

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

1
ideintf/projectintf.pas
View File

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