fix, native project, add source to existing proj, err in rel path extraction

This commit is contained in:
Basile Burg 2015-10-22 00:24:42 +02:00
parent 9c2dd1f3e8
commit 8f6162d677
1 changed files with 2 additions and 1 deletions

View File

@ -196,7 +196,8 @@ begin
else absSrc := expandFilenameEx(fBasePath, relsrc);
if SameFileName(aFilename, absSrc) then exit;
end;
fSrcs.Add(ExtractRelativepath(fBasePath, aFilename));
relSrc := ExtractRelativepath(fBasePath, ExcludeLeadingPathDelimiter(aFilename));
fSrcs.Add(relSrc);
end;
procedure TCENativeProject.setRoot(const aValue: string);