forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_main.pas
View File

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