debug: 打开项目直接点新建报错

MainUI/ProjectManage/ScBigProjManageView.pas

@@ -443,6 +443,12 @@ begin
   FIsLoading := False;
   RefreshInfoView;
   InitExpandTo;
+  if (FManageProjects.ManagerTree.Selected = nil) and (FManageProjects.ManagerTree.Count > 0) then
+  begin
+    FManageProjects.ManagerTree.SelectedIndex := 0;
+    if FManageProjects.ManagerTree.Selected <> nil then
+      FManageProjects.ManagerTree.Selected.LocateInControl;
+  end;
 end;
 
 procedure TScfrmBigProjManage.InitViews;