Sub Process_Globals
End Sub
Sub Globals
Dim W,H As Int
Dim S As Float
Dim dpi As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
test
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub test
W=GetDeviceLayoutValues.Width
H=GetDeviceLayoutValues.Height
S=GetDeviceLayoutValues.Scale
If S= 0.75 Then
dpi="120"
End If
If S= 1 Then
dpi="160"
End If
If S= 1.5 Then
dpi="240"
End If
If S=2 Then
dpi="320"
End If
Msgbox("Widht=" & W & " Height=" & H & " dpi=" & dpi & " Scale=" & S ,"ScreenDevice")
activity.Finish
End Sub