Hola a todos,
Por favor, podeis comprobar si este código devuelve el tamaño aproximado de la pantalla en pulgadas.
Es necesaria la libreria Reflection
Gracias
Por favor, podeis comprobar si este código devuelve el tamaño aproximado de la pantalla en pulgadas.
Es necesaria la libreria Reflection
B4X:
Sub Activity_Create(FirstTime As Boolean)
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
r.Target = r.RunMethod("getDisplayMetrics")
'Dim xdpi As Float = r.GetField("xdpi")
'Dim ydpi As Float = r.GetField("ydpi")
Dim heightPixels As Int = r.GetField("heightPixels")
Dim widthPixels As Int = r.GetField("widthPixels")
Dim dens As Float = r.GetField("density")
Dim physicalSize As Float
physicalSize = Sqrt(Power(heightPixels / dens / 160, 2) + Power(widthPixels / dens / 160, 2))
Log(physicalSize)
End SubGracias