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

projects group, prevent a useless free-standing-project protection 

the FSP remains a FSP even when a group is opened
This commit is contained in:
Basile Burg 2016-07-06 06:59:39 +02:00
parent 89bf138285
commit 18233aa775
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_main.pas
View File

@ -2977,13 +2977,6 @@ end;
procedure TCEMainForm.actProjOpenGroupExecute(Sender: TObject); procedure TCEMainForm.actProjOpenGroupExecute(Sender: TObject);
begin begin
if (fProject <> nil) and not fProject.inGroup and
fProject.modified then
begin
if dlgFileChangeClose(fProject.filename) = mrCancel then
exit;
fProject.getProject.Free;
end;
if fProjectGroup.groupModified then if fProjectGroup.groupModified then
begin begin
if dlgFileChangeClose(fProjectGroup.groupFilename) = mrCancel then if dlgFileChangeClose(fProjectGroup.groupFilename) = mrCancel then