reload project persistent env even if it's in a group

This commit is contained in:
Basile Burg 2019-02-04 00:28:18 +01:00
parent 6db535128c
commit 790960e292
1 changed files with 11 additions and 9 deletions

View File

@ -846,8 +846,7 @@ begin
fHasLoaded := true; fHasLoaded := true;
updateFields; updateFields;
if not inGroup then restorePersistentMetadata();
restorePersistentMetadata();
subjProjChanged(fProjectSubject, self); subjProjChanged(fProjectSubject, self);
fModified := false; fModified := false;
@ -967,14 +966,17 @@ begin
LoadFromFile(f); LoadFromFile(f);
except except
end; end;
t := values['last_dexed_buildType']; if not inGroup then
c := values['last_dexed_config'];
if t.isNotEmpty and c.isNotEmpty then
for i := 0 to configurationCount-1 do
if configurationName(i) = t + ' - ' + c then
begin begin
setActiveConfigurationIndex(i); t := values['last_dexed_buildType'];
break; c := values['last_dexed_config'];
if t.isNotEmpty and c.isNotEmpty then
for i := 0 to configurationCount-1 do
if configurationName(i) = t + ' - ' + c then
begin
setActiveConfigurationIndex(i);
break;
end;
end; end;
fMetaEnv.Clear; fMetaEnv.Clear;
fMetaEnv.AddText(values['project_environment_vars']); fMetaEnv.AddText(values['project_environment_vars']);