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

Qt6: on darwin Qt must think that we use 96dpi, not 72.

Browse Source
This commit is contained in:
zeljan1 2025-01-23 13:44:45 +01:00
parent b30984ef03
commit b498943168
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -2940,7 +2940,11 @@ begin
AScreen := QGuiApplication_primaryScreen(); AScreen := QGuiApplication_primaryScreen();
if hMonitor = 0 then if hMonitor = 0 then
begin begin
{$IFDEF DARWIN}
dpiX := 96;
{$ELSE}
dpiX := Round(QScreen_logicalDotsPerInch(AScreen)); dpiX := Round(QScreen_logicalDotsPerInch(AScreen));
{$ENDIF}
dpiY := dpiX; dpiY := dpiX;
exit(S_OK); exit(S_OK);
end; end;
@ -2950,7 +2954,11 @@ begin
if I = hMonitor then if I = hMonitor then
begin begin
AScreen := QScreenH(AArray[i]); AScreen := QScreenH(AArray[i]);
{$IFDEF DARWIN}
dpiX := 96;
{$ELSE}
dpiX := Round(QScreen_logicalDotsPerInch(AScreen)); dpiX := Round(QScreen_logicalDotsPerInch(AScreen));
{$ENDIF}
dpiY := dpiX; dpiY := dpiX;
exit(S_OK); exit(S_OK);
end; end;