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

Qt: bugfix - cannot blindly convert shared image, must use new QImage for such ops.

Browse Source 
git-svn-id: trunk@16656 -
This commit is contained in:
zeljko 2008-09-19 17:46:12 +00:00
parent ddeee54b5c
commit 0f1e56d462
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2434,8 +2434,15 @@ begin
if not EqualRect(LocalRect, sourceRect^) and if not EqualRect(LocalRect, sourceRect^) and
(QImage_format(Image) = QImageFormat_RGB32) then (QImage_format(Image) = QImageFormat_RGB32) then
QImage_convertToFormat(Image, Image, QImageFormat_ARGB32); begin
ScaledImage := QImage_create();
try
QImage_convertToFormat(Image, ScaledImage, QImageFormat_ARGB32);
QPainter_drawImage(Widget, PRect(@LocalRect), ScaledImage, sourceRect, flags);
finally
QImage_destroy(ScaledImage);
end;
end else
QPainter_drawImage(Widget, PRect(@LocalRect), image, sourceRect, flags); QPainter_drawImage(Widget, PRect(@LocalRect), image, sourceRect, flags);
end; end;
end; end;