Sub IsDarkModeEnabled As Boolean
Dim jo As JavaObject
jo.InitializeContext
Dim Them As String = Setting.GetString("darktheme")
If Them = "dark" Then
Return True
Else If Them = "light" Then
Return False
Else If Them = "default" Then
Try
Dim uiModeManager As JavaObject = jo.RunMethod("getSystemService", Array("uimode"))
Dim nightMode As Int = uiModeManager.RunMethod("getNightMode", Null)
Return nightMode = 2 ' MODE_NIGHT_YES
Catch
Log("Error checking system dark mode: " & LastException.Message)
Return False
End Try
Else
Setting.SetString("darktheme", "default")
Return False
End If
End Sub