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

Qt: Fixed regression in TQtDeviceContext.drawImage().

Browse Source 
git-svn-id: trunk@16651 -
This commit is contained in:
zeljko 2008-09-19 16:01:42 +00:00
parent 66a35795ab
commit f03215b59b
1 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2426,26 +2426,17 @@ begin
end;
end else
begin
{$note possible qt4 bug with RGB32 images.}
{we must scale image , since we can get strange results with RGB32 images.
Look at #11713 linux & win screenshoots.
This is better and faster then conversion to pixmap or to ARGB32}
if not EqualRect(LocalRect, sourceRect^) then
begin
ScaledImage := QImage_create();
try
W := LocalRect.Right - LocalRect.Left;
H := LocalRect.Bottom - LocalRect.Top;
QImage_scaled(Image, ScaledImage, W, H);
{if w & h <= 0 then copy = null image - avoid asserts from qpainter}
if not QImage_isNull(ScaledImage) then
QPainter_drawImage(Widget, LocalRect.Left, LocalRect.Top,
ScaledImage, 0, 0, W, H);
finally
QImage_destroy(ScaledImage);
end;
end else
QPainter_drawImage(Widget, PRect(@LocalRect), image, sourceRect, flags);
{$note workaround - possible qt4 bug with QPainter & RGB32 images.}
{Workaround: we must convert image to ARGB32 , since we can get strange
results with RGB32 images on Linux and Win32 if DstRect <> sourceRect.
Explanation: Look at #11713 linux & win screenshoots.
Note: This is slower operation than QImage_scaled() we used before.}
if not EqualRect(LocalRect, sourceRect^) and
(QImage_format(Image) = QImageFormat_RGB32) then
QImage_convertToFormat(Image, Image, QImageFormat_ARGB32);
QPainter_drawImage(Widget, PRect(@LocalRect), image, sourceRect, flags);
end;
end;