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

Qt5: fixed crash when calling stretchBlt() on invisible form. issue #39780

Browse Source
This commit is contained in:
Željan Rikalo 2022-06-14 10:04:08 +02:00
parent 7dfdebb389
commit 7568b05082
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -7023,12 +7023,12 @@ begin
begin
if SrcQDC.Parent <> nil then
begin
AWidgetID := QWidget_winId(SrcQDC.Parent);
AWindow := QWidget_windowHandle(SrcQDC.Parent);
if AWindow <> nil then
AScreen := QWindow_screen(AWindow)
else
AScreen := QGuiApplication_primaryScreen();
if AWindow = nil then
exit(False);
AWidgetID := QWindow_winId(AWindow);
AScreen := QWindow_screen(AWindow);
if (Rop = SRCCOPY) and not ((DstRect.Right < DstRect.Left) or (DstRect.Bottom < DstRect.Top)) then
begin