Skip to content

Commit 3af6852

Browse files
committed
Including the MSWINDOWS directive to make this unit Windows only - #30
1 parent e7fc545 commit 3af6852

File tree

1 file changed

+10
-6
lines changed

1 file changed

+10
-6
lines changed

Source/WrapDelphiWindows.pas

Lines changed: 10 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -4,11 +4,15 @@
44

55
interface
66

7+
{$IFDEF MSWINDOWS}
78
uses
89
Windows, Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses;
10+
{$ENDIF MSWINDOWS}
911

1012
implementation
1113

14+
{$IFDEF MSWINDOWS}
15+
1216
{$IFDEF DELPHI11_OR_HIGHER}
1317
uses
1418
System.Win.HighDpi, Winapi.ShellScaling;
@@ -185,13 +189,13 @@ class function TWindowsRegistration.SetProcessDpiAwareness_Wrapper(PySelf,
185189
{$ENDIF DELPHI11_OR_HIGHER}
186190

187191
initialization
188-
RegisteredUnits.Add( TWindowsRegistration.Create );
192+
RegisteredUnits.Add(TWindowsRegistration.Create);
189193

190-
{$IFDEF MSWINDOWS}
191-
{$IFDEF DELPHI11_OR_HIGHER}
192-
SetHighDpiAware();
193-
{$ENDIF DELPHI11_OR_HIGHER}
194-
{$ENDIF MSWINDOWS}
194+
{$IFDEF DELPHI11_OR_HIGHER}
195+
SetHighDpiAware();
196+
{$ENDIF DELPHI11_OR_HIGHER}
197+
198+
{$ENDIF MSWINDOWS}
195199

196200
end.
197201

0 commit comments

Comments
 (0)