云版屏蔽粘贴整块

Frames/BGLFme.pas

@@ -212,7 +212,7 @@ end;
 procedure TBGLFrame.zgBGLPaste(Sender: TObject; const ABounds: TRect;
   var Allow: Boolean);
 begin
-  if HasBGLBlockFormat then
+  if (not _IsCloud) and HasBGLBlockFormat then
   begin
     Allow := False;
     PasteBGLBlock;