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

proj inspct, btn enabled only if proj assigned

This commit is contained in:
Basile Burg 2015-06-03 10:56:32 +02:00
parent f014576835
commit eaee7ee30a
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_projinspect.pas
View File

@ -378,6 +378,7 @@ var
src, fold, conf: string; src, fold, conf: string;
lst: TStringList; lst: TStringList;
itm: TTreeNode; itm: TTreeNode;
hasProj: boolean;
i: NativeInt; i: NativeInt;
begin begin
fConfNode.DeleteChildren; fConfNode.DeleteChildren;
@ -385,7 +386,14 @@ begin
fImpsNode.DeleteChildren; fImpsNode.DeleteChildren;
fInclNode.DeleteChildren; fInclNode.DeleteChildren;
fXtraNode.DeleteChildren; fXtraNode.DeleteChildren;
if fProject = nil then exit; //
hasProj := fProject <> nil;
btnAddFile.Enabled := hasProj;
btnRemFile.Enabled := hasProj;
btnAddFold.Enabled := hasProj;
btnRemFold.Enabled := hasProj;
if not hasProj then exit;
//
Tree.BeginUpdate; Tree.BeginUpdate;
// display main sources // display main sources
for src in fProject.Sources do for src in fProject.Sources do