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

Qt: scale unclipped if sizes are different

Browse Source 
git-svn-id: trunk@62918 -
This commit is contained in:
zeljko 2020-04-09 09:49:24 +00:00
parent 610245564b
commit a7403ac9d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwinapi.inc
View File

@ -6868,8 +6868,8 @@ var
if NeedScaling(DstRect, SrcRect) then if NeedScaling(DstRect, SrcRect) then
QPixmap_scaled(APixmap, ATempPixmap, Width, Height) QPixmap_scaled(APixmap, ATempPixmap, Width, Height)
else else
if (Width <> SrcWidth) or (Height <> SrcHeight) then if ((Width <> SrcWidth) or (Height <> SrcHeight)) then
QPixmap_copy(APixmap, ATempPixmap, 0, 0, Width, Height) QPixmap_scaled(APixmap, ATempPixmap, Width, Height)
else else
QPixmap_copy(APixmap, ATempPixmap, 0, 0, QPixmap_width(APixmap), QPixmap_height(APixmap)); QPixmap_copy(APixmap, ATempPixmap, 0, 0, QPixmap_width(APixmap), QPixmap_height(APixmap));