paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: new projects: store session in lps in project directory

Browse Source 
git-svn-id: trunk@32879 -
This commit is contained in:
mattias 2011-10-14 08:15:14 +00:00
parent dd9da10275
commit c3ae437f84
1 changed files with 4 additions and 3 deletions

7
ideintf/projectintf.pas
View File

@ -263,7 +263,8 @@ type
const
DefaultProjectCleanOutputFileMask = '*';
DefaultProjectCleanSourcesFileMask = '*.ppu;*.ppl;*.o;*.or';
DefaultProjectSessionStorage = pssInProjectInfo;
DefaultProjectSessionStorage = pssInProjectInfo; // this value is not saved to the lpi file
DefaultNewProjectSessionStorage = pssInProjectDir; // value used for new projects
type
TLazProject = class;
@ -1088,7 +1089,7 @@ end;
constructor TLazProject.Create(ProjectDescription: TProjectDescriptor);
begin
inherited Create;
FSessionStorage:=DefaultProjectSessionStorage;
FSessionStorage:=DefaultNewProjectSessionStorage;
FCleanOutputFileMask:=DefaultProjectCleanOutputFileMask;
FCleanSourcesFileMask:=DefaultProjectCleanSourcesFileMask;
FCustomData:=TStringToStringTree.Create(true);
@ -1110,7 +1111,7 @@ begin
FCustomSessionData.Clear;
FExecutableType:=petNone;
FTitle:='';
FSessionStorage:=DefaultProjectSessionStorage;
FSessionStorage:=DefaultNewProjectSessionStorage;
FLazDocPaths:='';
end;