paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 09:21:10 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/projectintf.pas
View File

@ -263,7 +263,8 @@ type
const const
DefaultProjectCleanOutputFileMask = '*'; DefaultProjectCleanOutputFileMask = '*';
DefaultProjectCleanSourcesFileMask = '*.ppu;*.ppl;*.o;*.or'; 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 type
TLazProject = class; TLazProject = class;
@ -1088,7 +1089,7 @@ end;
constructor TLazProject.Create(ProjectDescription: TProjectDescriptor); constructor TLazProject.Create(ProjectDescription: TProjectDescriptor);
begin begin
inherited Create; inherited Create;
FSessionStorage:=DefaultProjectSessionStorage; FSessionStorage:=DefaultNewProjectSessionStorage;
FCleanOutputFileMask:=DefaultProjectCleanOutputFileMask; FCleanOutputFileMask:=DefaultProjectCleanOutputFileMask;
FCleanSourcesFileMask:=DefaultProjectCleanSourcesFileMask; FCleanSourcesFileMask:=DefaultProjectCleanSourcesFileMask;
FCustomData:=TStringToStringTree.Create(true); FCustomData:=TStringToStringTree.Create(true);
@ -1110,7 +1111,7 @@ begin
FCustomSessionData.Clear; FCustomSessionData.Clear;
FExecutableType:=petNone; FExecutableType:=petNone;
FTitle:=''; FTitle:='';
FSessionStorage:=DefaultProjectSessionStorage; FSessionStorage:=DefaultNewProjectSessionStorage;
FLazDocPaths:=''; FLazDocPaths:='';
end; end;