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;
fLibMan: TLibraryManager;
fPrInpWidg: TCEProcInputWidget;
{$IFDEF WIN32}
fCdbWidg: TCECdbWidget;
{$ENDIF}
fTools: TCETools;
fRunProc: TAsyncProcess;
@ -1931,14 +1933,13 @@ 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);
if fProject.Sources.Count > 1 then
if j <> fProject.Sources.Count-1 then
result += LineEnding;
end;
for j := 0 to fProject.Sources.Count-1 do
begin
result += fProject.getAbsoluteSourceName(j);
if fProject.Sources.Count > 1 then
if j <> fProject.Sources.Count-1 then
result += LineEnding;
end;
end;
'CPN', 'CurrentProjectName':
begin