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

Qt5,Qt6: fixed distorted image creation from device (screenshoot) on HiDpi screens.

Browse Source
This commit is contained in:
zeljan1 2025-02-11 09:40:54 +01:00
parent 32c1370c50
commit 291a9fd3dd
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt5/qtlclintf.inc
View File

@ -755,6 +755,7 @@ var
Image: QImageH; Image: QImageH;
Context: TQtDeviceContext; Context: TQtDeviceContext;
AWnd: HWND; AWnd: HWND;
APixelRatio: QReal;
procedure RawImage_FromImage(AImage: QImageH); procedure RawImage_FromImage(AImage: QImageH);
begin begin
@ -788,8 +789,8 @@ begin
if Context.Parent <> nil then if Context.Parent <> nil then
begin begin
AWnd := HwndFromWidgetH(Context.Parent); AWnd := HwndFromWidgetH(Context.Parent);
// AWnd should never be 0 at this point APixelRatio := QScreen_devicePixelRatio(QWindow_screen(QWidget_windowHandle(Context.Parent)));
APixmap := TQtWidget(AWnd).grabWindow(0, 0, DCSize.cx, DCSize.cy, Context.Parent); APixmap := TQtWidget(AWnd).grabWindow(0, 0, Round(DCSize.cx / APixelRatio), Round(DCSize.cy / APixelRatio), Context.Parent);
Image := QImage_Create; Image := QImage_Create;
QPixmap_toImage(APixmap, Image); QPixmap_toImage(APixmap, Image);
RawImage_FromImage(Image); RawImage_FromImage(Image);

5
lcl/interfaces/qt6/qtlclintf.inc
View File

@ -774,6 +774,7 @@ var
Image: QImageH; Image: QImageH;
Context: TQtDeviceContext; Context: TQtDeviceContext;
AWnd: HWND; AWnd: HWND;
APixelRatio: QReal;
procedure RawImage_FromImage(AImage: QImageH); procedure RawImage_FromImage(AImage: QImageH);
begin begin
@ -807,8 +808,8 @@ begin
if Context.Parent <> nil then if Context.Parent <> nil then
begin begin
AWnd := HwndFromWidgetH(Context.Parent); AWnd := HwndFromWidgetH(Context.Parent);
// AWnd should never be 0 at this point APixelRatio := QScreen_devicePixelRatio(QWidget_screen(Context.Parent));
APixmap := TQtWidget(AWnd).grabWindow(0, 0, DCSize.cx, DCSize.cy, Context.Parent); APixmap := TQtWidget(AWnd).grabWindow(0, 0, Round(DCSize.cx / APixelRatio), Round(DCSize.cy / APixelRatio), Context.Parent);
Image := QImage_Create; Image := QImage_Create;
QPixmap_toImage(APixmap, Image); QPixmap_toImage(APixmap, Image);
RawImage_FromImage(Image); RawImage_FromImage(Image);