paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 07:37:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@43272 -
This commit is contained in:
jesus 2013-10-18 04:56:22 +00:00
parent 94bd981f7f
commit 73bde22855
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/lr_desgn.pas
View File

@ -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');