|
@@ -3,17 +3,22 @@ Namespace myapp
|
|
|
|
|
|
#Import "<std>"
|
|
#Import "<std>"
|
|
#Import "<mojo>"
|
|
#Import "<mojo>"
|
|
-#Import "<windows.h>"
|
|
|
|
|
|
|
|
Using std..
|
|
Using std..
|
|
Using mojo..
|
|
Using mojo..
|
|
|
|
|
|
|
|
+#If __TARGET__="windows"
|
|
|
|
+
|
|
|
|
+#Import "<windows.h>"
|
|
|
|
+
|
|
Extern
|
|
Extern
|
|
|
|
|
|
Function SetProcessDPIAware:Int()
|
|
Function SetProcessDPIAware:Int()
|
|
|
|
|
|
Public
|
|
Public
|
|
|
|
|
|
|
|
+#Endif
|
|
|
|
+
|
|
Class MyWindow Extends Window
|
|
Class MyWindow Extends Window
|
|
|
|
|
|
Field _ticks:=0
|
|
Field _ticks:=0
|
|
@@ -72,9 +77,11 @@ Class MyWindow Extends Window
|
|
End
|
|
End
|
|
|
|
|
|
Function Main()
|
|
Function Main()
|
|
-
|
|
|
|
- Print "DPI="+SetProcessDPIAware()
|
|
|
|
|
|
|
|
|
|
+#If __TARGET__="windows"
|
|
|
|
+ SetProcessDPIAware()
|
|
|
|
+#Endif
|
|
|
|
+
|
|
New AppInstance
|
|
New AppInstance
|
|
|
|
|
|
New MyWindow
|
|
New MyWindow
|