From c3ae437f84e4f2e79c66cabf4426b788a45b7955 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 14 Oct 2011 08:15:14 +0000
Subject: [PATCH] IDE: new projects: store session in lps in project directory

git-svn-id: trunk@32879 -
---
 ideintf/projectintf.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ideintf/projectintf.pas b/ideintf/projectintf.pas
index cecedace0d..44893c55fc 100644
--- a/ideintf/projectintf.pas
+++ b/ideintf/projectintf.pas
@@ -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;