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

di-4

This commit is contained in:
Basile Burg 2015-09-01 17:03:01 +02:00
parent fa9b575103
commit fedc07005e
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_libmaneditor.pas
View File

@ -37,6 +37,7 @@ type
procedure ListEdited(Sender: TObject; Item: TListItem; var AValue: string);
private
fProj: TCENativeProject;
//TODO-cDUB: register a static lib in libman via a DUB project
procedure updateRegistrable;
procedure projNew(aProject: ICECommonProject);
procedure projChanged(aProject: ICECommonProject);

10
src/ce_main.pas
View File

@ -1174,6 +1174,7 @@ end;
procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject);
begin
//TODO-cDUB: update 'add file to project' for a DUB project
if fDoc = nil then exit;
if fDoc.isProjectSource then exit;
if fNativeProject = nil then exit;
@ -1508,6 +1509,7 @@ end;
procedure TCEMainForm.actProjCompileAndRunExecute(Sender: TObject);
begin
//TODO-cDUB: implement compile proj and run for DUB projects
if fNativeProject.compile then
fNativeProject.runProject;
end;
@ -1516,6 +1518,7 @@ procedure TCEMainForm.actProjCompAndRunWithArgsExecute(Sender: TObject);
var
runargs: string;
begin
// TODO-cDUB: implement compile proj and run with arg for DUB projects
if not fNativeProject.compile then
exit;
runargs := '';
@ -1531,6 +1534,7 @@ label
_rbld,
_run;
begin
// TODO-cDUB: implement proj run for DUB projects
if fNativeProject.currentConfiguration.outputOptions.binaryKind <> executable then
begin
dlgOkInfo('Non executable projects cant be run');
@ -1564,6 +1568,7 @@ var
runargs: string;
begin
runargs := '';
// TODO-cDUB: change to fProjInterface.runProject when sub routine implemented
if InputQuery('Execution arguments', '', runargs) then
fNativeProject.runProject(runargs);
end;
@ -1719,6 +1724,7 @@ end;
procedure TCEMainForm.saveProjSource(const aEditor: TCESynMemo);
begin
//TODO-cDUB: implement save project source for a DUB json file edited in CE
if fNativeProject = nil then exit;
if fNativeProject.fileName <> aEditor.fileName then exit;
//
@ -1755,7 +1761,7 @@ end;
procedure TCEMainForm.saveProj;
begin
fProjectInterface.saveToFile(fNativeProject.fileName);
fProjectInterface.saveToFile(fProjectInterface.getFilename);
end;
procedure TCEMainForm.saveProjAs(const aFilename: string);
@ -1803,6 +1809,7 @@ end;
procedure TCEMainForm.addSource(const aFilename: string);
begin
//TODO-cDUB: add addSource() method to ICECommonProject
if fNativeProject.Sources.IndexOf(aFilename) >= 0 then exit;
fNativeProject.addSource(aFilename);
end;
@ -1849,6 +1856,7 @@ end;
procedure TCEMainForm.actProjSourceExecute(Sender: TObject);
begin
//TODO-cDUB: add json highligher to edit json project in CE
if fNativeProject = nil then exit;
if not fileExists(fNativeProject.fileName) then exit;
//