Sub GetRealWidth As Int
Dim p As Phone
If p.SdkVersion >= 17 Then
Dim jo As JavaObject
jo = jo.InitializeContext.RunMethodJO("getWindowManager", Null).RunMethod("getDefaultDisplay", Null)
Dim metrics As JavaObject
metrics.InitializeNewInstance("android.util.DisplayMetrics", Null)
jo.RunMethod("getRealMetrics", Array(metrics))
Return metrics.GetField("widthPixels")
Else
Return GetDeviceLayoutValues.Height
End If
End Sub
Sub TESt
If GetRealWidth>GetDeviceLayoutValues.Width Then
'Uses nav bar
else
'Doesn't use nav bar
end if
end sub