Fixed cancel closing bug.

#56
Embarcadero · Oct 30, 2020 · 3a07f01 · 3a07f01
1 parent 3663c1b
commit 3a07f01
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/main.pas b/Source/main.pas
@@ -2278,7 +2278,7 @@ procedure TMainForm.actCloseProjectExecute(Sender: TObject);
       ClassBrowser.EndUpdate;
     end;
   finally
-    MainPanel.Visible := True;
+    if not Assigned(fProject) then MainPanel.Visible := True;
     GetProjectHistory;
     FileMonitor.EndUpdate;
   end;