Including the MSWINDOWS directive to make this unit Windows only - #30

Embarcadero · Jul 4, 2022 · 3af6852 · 3af6852
1 parent e7fc545
commit 3af6852
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/Source/WrapDelphiWindows.pas b/Source/WrapDelphiWindows.pas
@@ -4,11 +4,15 @@
 
 interface
 
+{$IFDEF MSWINDOWS}
 uses
   Windows, Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses;
+{$ENDIF MSWINDOWS}
 
 implementation
 
+{$IFDEF MSWINDOWS}
+
 {$IFDEF DELPHI11_OR_HIGHER}
 uses
   System.Win.HighDpi, Winapi.ShellScaling;
@@ -185,13 +189,13 @@ class function TWindowsRegistration.SetProcessDpiAwareness_Wrapper(PySelf,
 {$ENDIF DELPHI11_OR_HIGHER}
 
 initialization
-  RegisteredUnits.Add( TWindowsRegistration.Create );
+  RegisteredUnits.Add(TWindowsRegistration.Create);
 
-  {$IFDEF MSWINDOWS}
-    {$IFDEF DELPHI11_OR_HIGHER}
-    SetHighDpiAware();
-    {$ENDIF DELPHI11_OR_HIGHER}
-  {$ENDIF MSWINDOWS}
+  {$IFDEF DELPHI11_OR_HIGHER}
+  SetHighDpiAware();
+  {$ENDIF DELPHI11_OR_HIGHER}
+
+{$ENDIF MSWINDOWS}
 
 end.