Fixed cancel closing bug.

#56

Author: FMXExpress

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;