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

Qt5: provide current widget screen when grabbing window

Browse Source 
git-svn-id: trunk@62844 -
This commit is contained in:
zeljko 2020-04-01 12:16:28 +00:00
parent 7c479cba63
commit 8ffd2f7f25
2 changed files with 15 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

@ -6824,6 +6824,7 @@ var
OldBkColor: TColorRef;
RestoreClip: Boolean;
AClipRect: TRect;
AWidgetID: LongWord;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI StretchMaskBlt]',
@ -6845,7 +6846,8 @@ begin
begin
with SrcQDC.getDeviceSize do
TmpPixmap := QPixmap_create(x, y);
QPixmap_grabWindow(TmpPixmap, QWidget_winId(SrcQDC.Parent), 0, 0);
AWidgetID := QWidget_winId(SrcQDC.Parent);
QPixmap_grabWindow(TmpPixmap, AWidgetID, 0, 0);
Image := QImage_create();
QPixmap_toImage(TmpPixmap, Image);
QPixmap_destroy(TmpPixmap);

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

@ -6767,6 +6767,9 @@ var
OldBkColor: TColorRef;
RestoreClip: Boolean;
AClipRect: TRect;
AWindow: QWindowH;
AScreen: QScreenH;
AWidgetID: PtrUInt;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI StretchMaskBlt]',
@ -6788,7 +6791,15 @@ begin
begin
with SrcQDC.getDeviceSize do
TmpPixmap := QPixmap_create(x, y);
QScreen_grabWindow(QGuiApplication_primaryScreen, TmpPixmap, QWidget_winId(SrcQDC.Parent), 0, 0);
AWidgetID := QWidget_winId(SrcQDC.Parent);
AWindow := QWidget_windowHandle(SrcQDC.Parent);
if AWindow <> nil then
AScreen := QWindow_screen(AWindow)
else
AScreen := QGuiApplication_primaryScreen();
QScreen_grabWindow(AScreen, TmpPixmap, AWidgetID, 0, 0);
Image := QImage_create();
QPixmap_toImage(TmpPixmap, Image);
QPixmap_destroy(TmpPixmap);