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

Qt: allow unclipped image draw

Browse Source 
git-svn-id: trunk@23732 -
This commit is contained in:
zeljko 2010-02-18 14:23:32 +00:00
parent 0fd87127ff
commit e59e585c67
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtobjects.pas
View File

@ -2828,13 +2828,11 @@ begin
{$endif}
LocalRect := targetRect^;
R := getClipRegion.getBoundingRect;
{cannot draw on empty rect - no bounding rect}
if IsRectEmpty(R) then
exit;
{if clip region is smaller than target rect then
target rect should be clip rect}
if ((R.Right - R.Left) < (LocalRect.Right - LocalRect.Left)) and
if not IsRectEmpty(R) and
((R.Right - R.Left) < (LocalRect.Right - LocalRect.Left)) and
((R.Bottom - R.Top) < (LocalRect.Bottom - LocalRect.Top)) then
LocalRect := R;