prevent to add the FSP to the group if not yet saved

This commit is contained in:
Basile Burg 2016-08-15 02:19:47 +02:00
parent b7a74c2e0c
commit 42fa9149b0
2 changed files with 4 additions and 0 deletions

View File

@ -3197,6 +3197,8 @@ begin
exit;
if fFreeProj.inGroup then
exit;
if not fFreeProj.filename.fileExists then
exit;
fProjectGroup.addProject(fFreeProj);
fFreeProj := nil;
end;

View File

@ -534,6 +534,8 @@ procedure TCEProjectGroupWidget.btnAddUnfocusedClick(Sender: TObject);
begin
if fFreeProj = nil then
exit;
if not fFreeProj.filename.fileExists then
exit;
projectGroup.addProject(fFreeProj);
fFreeProj := nil;
updateList;