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

menu, add source to project, emit hint when proj kind is dub

This commit is contained in:
Basile Burg 2015-09-18 00:01:47 +02:00
parent 4c23566a61
commit e1e86c258f
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_main.pas
View File

@ -1425,14 +1425,18 @@ end;
procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject); procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject);
begin begin
//TODO-cDUB: update 'add file to project' for a DUB project
if fDoc = nil then exit; if fDoc = nil then exit;
if fDoc.isProjectSource then exit; if fDoc.isProjectSource then exit; // TODO: rename this abiguous property name to 'isProjectFile'
if fNativeProject = nil then exit; if fProjectInterface = nil then exit;
// //
if fileExists(fDoc.fileName) and (not fDoc.isTemporary) then if fProjectInterface.getFormat = pfNative then
fNativeProject.addSource(fDoc.fileName) begin
else dlgOkInfo('the file has not been added to the project because it does not exist'); if fileExists(fDoc.fileName) and (not fDoc.isTemporary) then
fNativeProject.addSource(fDoc.fileName)
else dlgOkInfo('the file has not been added to the project because it does not exist');
end else
getMessageDisplay.message('use the DUB project editor to add a source to a DUB project',
nil, amcApp, amkHint);
end; end;
procedure TCEMainForm.actFileCloseExecute(Sender: TObject); procedure TCEMainForm.actFileCloseExecute(Sender: TObject);