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

17
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,14 +1933,13 @@ 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); if fProject.Sources.Count > 1 then
if fProject.Sources.Count > 1 then if j <> fProject.Sources.Count-1 then
if j <> fProject.Sources.Count-1 then result += LineEnding;
result += LineEnding; end;
end;
end; end;
'CPN', 'CurrentProjectName': 'CPN', 'CurrentProjectName':
begin begin