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

ce proj inspector, build from ctxt menu

This commit is contained in:
Basile Burg 2016-02-06 16:31:00 +01:00
parent 2ad52c2a79
commit 241732d8b5
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/ce_projinspect.pas
View File

@ -36,6 +36,7 @@ type
private
fActOpenFile: TAction;
fActSelConf: TAction;
fActBuildConf: TAction;
fProject: TCENativeProject;
fFileNode, fConfNode: TTreeNode;
fImpsNode, fInclNode: TTreeNode;
@ -44,6 +45,7 @@ type
procedure actUpdate(sender: TObject);
procedure TreeDblClick(sender: TObject);
procedure actOpenFileExecute(sender: TObject);
procedure actBuildExecute(sender: TObject);
//
procedure projNew(aProject: ICECommonProject);
procedure projClosing(aProject: ICECommonProject);
@ -76,6 +78,10 @@ begin
fActSelConf.Caption := 'Select configuration';
fActSelConf.OnExecute := @actOpenFileExecute;
fActSelConf.OnUpdate := @actUpdate;
fActBuildConf:= TAction.Create(self);
fActBuildConf.Caption := 'Build configuration';
fActBuildConf.OnExecute := @actBuildExecute;
fActBuildConf.OnUpdate := @actUpdate;
//
inherited;
//
@ -117,7 +123,7 @@ end;
function TCEProjectInspectWidget.contextActionCount: integer;
begin
exit(2);
exit(3);
end;
function TCEProjectInspectWidget.contextAction(index: integer): TAction;
@ -125,6 +131,7 @@ begin
case index of
0: exit(fActOpenFile);
1: exit(fActSelConf);
2: exit(fActBuildConf);
else exit(nil);
end;
end;
@ -133,6 +140,15 @@ procedure TCEProjectInspectWidget.actOpenFileExecute(sender: TObject);
begin
TreeDblClick(sender);
end;
procedure TCEProjectInspectWidget.actBuildExecute(sender: TObject);
begin
if fProject.isNotNil then
begin
actOpenFileExecute(sender);
fProject.compile;
end;
end;
{$ENDREGION}
{$REGION ICEProjectMonitor -----------------------------------------------------}
@ -237,8 +253,10 @@ procedure TCEProjectInspectWidget.actUpdate(sender: TObject);
begin
fActSelConf.Enabled := false;
fActOpenFile.Enabled := false;
fActBuildConf.Enabled:= false;
if Tree.Selected.isNil then exit;
fActSelConf.Enabled := Tree.Selected.Parent = fConfNode;
fActBuildConf.Enabled := Tree.Selected.Parent = fConfNode;
fActOpenFile.Enabled := Tree.Selected.Parent = fFileNode;
end;