Task #2145 云版，变更令，隐藏复制整块按钮

Frames/BGLFme.dfm

@@ -497,6 +497,7 @@ object BGLFrame: TBGLFrame
     object actnCopyBGLBlock: TAction
       Caption = #22797#21046#25972#22359
       OnExecute = actnCopyBGLBlockExecute
+      OnUpdate = actnCopyBGLBlockUpdate
     end
   end
   object dxpmBGL: TdxBarPopupMenu

Frames/BGLFme.pas

@@ -217,10 +217,10 @@ end;
 
 procedure TBGLFrame.actnCopyBGLBlockUpdate(Sender: TObject);
 begin
-  if _IsDebugView then
-    TAction(Sender).Visible := True
+  if _IsCloud then
+    TAction(Sender).Visible := False
   else
-    TAction(Sender).Visible := False;
+    TAction(Sender).Visible := True;
 end;
 
 procedure TBGLFrame.zgBGLGetCellEditor(Sender: TObject; ACoord: TPoint;