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

Qt: fixed wrong newRect for scaled images.

Browse Source 
git-svn-id: trunk@24484 -
This commit is contained in:
zeljko 2010-04-07 09:45:40 +00:00
parent 6a922e35dd
commit d2f7998786
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2948,8 +2948,8 @@ begin
LocalRect.Bottom - LocalRect.Top);
NewRect := sourceRect^;
NewRect.Right := LocalRect.Right - sourceRect^.Left;
NewRect.Bottom := LocalRect.Bottom - sourceRect^.Top;
NewRect.Right := (LocalRect.Right - LocalRect.Left) + sourceRect^.Left;
NewRect.Bottom := (LocalRect.Bottom - LocalRect.Top) + sourceRect^.Top;
QPainter_drawImage(Widget, PRect(@LocalRect), ScaledImage, @NewRect, flags);
end else
@ -2969,8 +2969,8 @@ begin
QImage_scaled(ScaledImage, ScaledImage, LocalRect.Right - LocalRect.Left,
LocalRect.Bottom - LocalRect.Top);
NewRect := sourceRect^;
NewRect.Right := LocalRect.Right - sourceRect^.Left;
NewRect.Bottom := LocalRect.Bottom - sourceRect^.Top;
NewRect.Right := (LocalRect.Right - LocalRect.Left) + sourceRect^.Left;
NewRect.Bottom := (LocalRect.Bottom - LocalRect.Top) + sourceRect^.Top;
QPainter_drawImage(Widget, PRect(@LocalRect), ScaledImage, @NewRect, flags);
finally
QImage_destroy(ScaledImage);