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

projectgroups: store filenames always with / separators, issue #30793

Browse Source 
git-svn-id: trunk@53232 -
This commit is contained in:
mattias 2016-10-26 16:53:38 +00:00
parent e5eb945c49
commit 2842642530
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/projectgroups/projectgroup.pp
View File

@ -897,6 +897,7 @@ begin
if aTarget.Removed then continue;
APath:=Format(ARoot+'/Targets/Target%d/',[ACount]);
RelativeFileName:=ExtractRelativepath(TargetPath,aTarget.FileName);
StringReplace(RelativeFileName,'\','/',[rfReplaceAll]); // normalize, so that files look the same x-platform, for less svn changes
XMLConfig.SetDeleteValue(APath+'FileName',RelativeFileName,'');
aTarget.SaveGroupSettings(XMLConfig,APath);
Inc(ACount);