diff --git a/components/lazreport/source/lr_desgn.pas b/components/lazreport/source/lr_desgn.pas
index 5622d3a013..3eb554b40f 100644
--- a/components/lazreport/source/lr_desgn.pas
+++ b/components/lazreport/source/lr_desgn.pas
@@ -1326,6 +1326,9 @@ var
   begin
     Rn := t.GetClipRgn(rtNormal);
     Result := CombineRgn(Rn, Rn, AClipRgn, RGN_AND) <> NULLREGION;
+    if Result then
+      // will this view be really visible?
+      Result := CombineRgn(Rn, AClipRgn, R, RGN_AND) <> NULLREGION;
     DeleteObject(Rn);
   end;
 
@@ -2613,7 +2616,7 @@ begin
     DrawPage(dmAll);
 //    Invalidate;
 //    DrawDialog(0,0);
-  end
+  end;
 
   {$IFDEF DebugLR}
   DebugLnExit('TfrDesignerPage.MMove END');