Merge branch '3.1.5' of http://192.168.1.12:3000/maixinrong/measure into 3.1.5

Frames/ProjectManagerFme.dfm

@@ -481,6 +481,7 @@ object ProjectManagerFrame: TProjectManagerFrame
     object actnOpenBackupFolder: TAction
       Caption = #26597#30475#22791#20221#25968#25454
       OnExecute = actnOpenBackupFolderExecute
+      OnUpdate = actnOpenBackupFolderUpdate
     end
   end
   object dxpmProjectManager: TdxBarPopupMenu

Frames/ProjectManagerFme.pas

@@ -87,6 +87,7 @@ type
     procedure zgProjectsShowHint(var HintStr: String; var CanShow: Boolean;
       var HintInfo: THintInfo; const ACoord: TPoint);
     procedure actnExportUpdate(Sender: TObject);
+    procedure actnOpenBackupFolderUpdate(Sender: TObject);
   private
     FProjectManagerData: TProjectManagerData;
 
@@ -1021,7 +1022,9 @@ end;
 procedure TProjectManagerFrame.actnDeleteUpdate(Sender: TObject);
 begin
   if Assigned(stdProjects.IDTree.Selected) then
-    TAction(Sender).Enabled := not CheckOpened(stdProjects.IDTree.Selected);
+    TAction(Sender).Enabled := not CheckOpened(stdProjects.IDTree.Selected)
+  else
+    TAction(Sender).Enabled := False;
 end;
 
 function TProjectManagerFrame.CheckOpened(ANode: TsdIDTreeNode): Boolean;
@@ -1743,4 +1746,10 @@ begin
   TAction(Sender).Enabled := Assigned(stdProjects.IDTree.Selected);
 end;
 
+procedure TProjectManagerFrame.actnOpenBackupFolderUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := Assigned(stdProjects.IDTree.Selected) and
+    (stdProjects.IDTree.Selected.Rec.ValueByName('Type').AsInteger = 1);
+end;
+
 end.