fix, projects group, upstream, cases where widgets did not reset their ptr to the FSP

src/ce_lcldragdrop.pas

@@ -72,7 +72,9 @@ procedure TDDHandler.projFocused(project: ICECommonProject);
 begin
   fProj := project;
   if not fProj.inGroup then
-    fFreeProj := fProj;
+    fFreeProj := fProj
+  else if fFreeProj = project then
+    fFreeProj := nil;
 end;
 
 procedure TDDHandler.projCompiling(project: ICECommonProject);

src/ce_libmaneditor.pas

@@ -145,7 +145,9 @@ procedure TCELibManEditorWidget.projFocused(project: ICECommonProject);
 begin
   fProj := project;
   if not project.inGroup then
-    fFreeProj := project;
+    fFreeProj := project
+  else if project = fFreeProj then
+    fFreeProj := nil;
   updateButtonsState;
 end;
 

src/ce_main.pas

@@ -1987,7 +1987,7 @@ begin
   end;
   if not fProject.inGroup then
     fFreeProj := project
-  else if (fProject = fFreeProj) and (fProject.inGroup) then
+  else if project = fFreeProj then
     fFreeProj := nil;
 
   showProjTitle;

src/ce_miniexplorer.pas

@@ -334,7 +334,9 @@ procedure TCEMiniExplorerWidget.projFocused(project: ICECommonProject);
 begin
   fProj := project;
   if not project.inGroup then
-      fFreeProj := project;
+    fFreeProj := project
+  else if fFreeProj = project then
+    fFreeProj := nil;
   if visible and project.fileName.fileExists and fContextExpand then
     expandPath(project.fileName.extractFilePath);
 end;

src/ce_projgroup.pas

@@ -503,7 +503,7 @@ begin
     fFreeProj := project;
     updateList;
   end
-  else if (project = fFreeProj) and (project.inGroup) then
+  else if project = fFreeProj then
   begin
     fFreeProj := nil;
     updateList;
@@ -674,7 +674,7 @@ var
 const
   typeStr: array[TCEProjectFormat] of string = ('CE','DUB');
 begin
-  lstProj.Clear;
+  lstProj.Items.Clear;
   for i := 0 to projectGroup.projectCount-1 do
   begin
     with lstProj.Items.Add do