From 73bde228557913a0ff05e2553537f791b435f038 Mon Sep 17 00:00:00 2001 From: jesus Date: Fri, 18 Oct 2013 04:56:22 +0000 Subject: [PATCH] LazReport, some times objects that are hidden by others in upper layer show up because clipping region of moving object enable them, make sure they are visible or not git-svn-id: trunk@43272 - --- components/lazreport/source/lr_desgn.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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');