symbolic string <CPFS> works with unsaved/temp projects

This commit is contained in:
Basile Burg 2014-11-04 02:36:34 +01:00
parent 37cd89717c
commit 1c6a71b203
1 changed files with 9 additions and 8 deletions

View File

@ -190,7 +190,9 @@ type
fFileMru: TMruFileList;
fLibMan: TLibraryManager;
fPrInpWidg: TCEProcInputWidget;
{$IFDEF WIN32}
fCdbWidg: TCECdbWidget;
{$ENDIF}
fTools: TCETools;
fRunProc: TAsyncProcess;
@ -1931,7 +1933,6 @@ begin
'CPFS', 'CurrentProjectFiles':
begin
if fProject <> nil then
if fileExists(fProject.fileName) then
for j := 0 to fProject.Sources.Count-1 do
begin
result += fProject.getAbsoluteSourceName(j);