Public Sub SetStatusNavigationBarColor(Root As B4XView,Color As Int,DarkText As Boolean)
Try
Dim p As Phone
If p.SdkVersion >= 21 Then
Dim jo As JavaObject
jo.InitializeContext
Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
window.RunMethod("addFlags", Array (0x80000000))
window.RunMethod("clearFlags", Array (0x04000000))
window.RunMethod("setStatusBarColor", Array(Color))
window.RunMethod("setNavigationBarColor", Array(Color))
End If
If p.SdkVersion >= 23 Then
jo = Root
If DarkText Then
jo.RunMethod("setSystemUiVisibility",Array(8192+16))
Else
jo.RunMethod("setSystemUiVisibility",Array(0x00000010))
End If
End If
Catch
Log("SetStatusNavigationBarColor " & LastException.Message)
End Try
End Sub