From b498943168dfad65f97cf8e3c2a2e1684f576527 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Thu, 23 Jan 2025 13:44:45 +0100
Subject: [PATCH] Qt6: on darwin Qt must think that we use 96dpi, not 72.

---
 lcl/interfaces/qt6/qtwinapi.inc | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lcl/interfaces/qt6/qtwinapi.inc b/lcl/interfaces/qt6/qtwinapi.inc
index 318b93ddff..e0939080ad 100644
--- a/lcl/interfaces/qt6/qtwinapi.inc
+++ b/lcl/interfaces/qt6/qtwinapi.inc
@@ -2940,7 +2940,11 @@ begin
   AScreen := QGuiApplication_primaryScreen();
   if hMonitor = 0 then
   begin
+    {$IFDEF DARWIN}
+    dpiX := 96;
+    {$ELSE}
     dpiX := Round(QScreen_logicalDotsPerInch(AScreen));
+    {$ENDIF}
     dpiY := dpiX;
     exit(S_OK);
   end;
@@ -2950,7 +2954,11 @@ begin
     if I = hMonitor then
     begin
       AScreen := QScreenH(AArray[i]);
+      {$IFDEF DARWIN}
+      dpiX := 96;
+      {$ELSE}
       dpiX := Round(QScreen_logicalDotsPerInch(AScreen));
+      {$ENDIF}
       dpiY := dpiX;
       exit(S_OK);
     end;