diff --git a/lcl/interfaces/carbon/carbondebug.pp b/lcl/interfaces/carbon/carbondebug.pp
index 26f325bdc9..aed6bdd7fc 100644
--- a/lcl/interfaces/carbon/carbondebug.pp
+++ b/lcl/interfaces/carbon/carbondebug.pp
@@ -128,7 +128,7 @@ begin
     kWindowCompositingAttribute or
     kWindowStandardDocumentAttributes or
 //    kWindowLiveResizeAttribute or
-    kWindowStandardHandlerAttribute,
+    kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute,
     R, W
   );
   if W = nil then Exit;
diff --git a/lcl/interfaces/carbon/carbonprivate.pp b/lcl/interfaces/carbon/carbonprivate.pp
index 5e9f756f5a..bd69308703 100644
--- a/lcl/interfaces/carbon/carbonprivate.pp
+++ b/lcl/interfaces/carbon/carbonprivate.pp
@@ -428,7 +428,7 @@ begin
   if OSError(
     CreateNewWindow(kHelpWindowClass,
       kWindowCompositingAttribute or
-      kWindowHideOnSuspendAttribute or kWindowStandardHandlerAttribute,
+      kWindowHideOnSuspendAttribute or kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute,
       ParamsToCarbonRect(AParams), AWindow{%H-}),
     Self, SCreateWidget, 'CreateNewWindow') then RaiseCreateWidgetError(LCLObject);
 
diff --git a/lcl/interfaces/carbon/carbonwsdialogs.pp b/lcl/interfaces/carbon/carbonwsdialogs.pp
index b26abfbc99..439c914f4f 100644
--- a/lcl/interfaces/carbon/carbonwsdialogs.pp
+++ b/lcl/interfaces/carbon/carbonwsdialogs.pp
@@ -596,7 +596,7 @@ begin
 
   if OSError(
     CreateNewWindow(kModalWindowClass,
-      kWindowCompositingAttribute or kWindowStandardHandlerAttribute, GetCarbonRect(0, 0, 0, 0), Dialog{%H-}),
+      kWindowCompositingAttribute or kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute, GetCarbonRect(0, 0, 0, 0), Dialog{%H-}),
     Self, SShowModal, 'CreateNewWindow') then Exit;
     
   try