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

added loading/saving project pathdelim from Vincent

Browse Source 
git-svn-id: trunk@6573 -
This commit is contained in:
mattias 2005-01-13 19:54:58 +00:00
parent 3e9c117c08
commit 580394ccfd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/project.pp
View File

@ -1339,6 +1339,7 @@ begin
try
Path:='ProjectOptions/';
xmlconfig.SetValue(Path+'PathDelim/Value',PathDelim);
xmlconfig.SetValue(Path+'Version/Value',ProjectInfoFileVersion);
SaveFlags;
xmlconfig.SetDeleteValue(Path+'General/MainUnit/Value', MainUnitID,-1);
@ -1508,7 +1509,7 @@ begin
try
Path:='ProjectOptions/';
fPathDelimChanged:=
XMLConfig.GetValue(Path+'PathDelim/Value', '/')<>PathDelim;
XMLConfig.GetValue(Path+'PathDelim/Value', PathDelim)<>PathDelim;
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TProject.ReadProject C reading values');{$ENDIF}
FileVersion:= XMLConfig.GetValue(Path+'Version/Value',0);
@ -3168,6 +3169,9 @@ end.
{
$Log$
Revision 1.176 2005/01/13 19:54:58 mattias
added loading/saving project pathdelim from Vincent
Revision 1.175 2005/01/12 23:58:31 mattias
improved project: recognizing if filename was fixed before pathdelim changed