Dim bc As ByteConverter
Dim i(1) As Int
i(0)=GetColorFromResources("textColorPrimary")
Log(bc.HexFromBytes(bc.IntsToBytes(i)))
...
Sub GetColorFromResources(ColorName As String) As Int
Dim jo As JavaObject
Dim context As JavaObject
context = jo.InitializeContext
Dim resources As JavaObject
resources = context.RunMethod("getResources", Null)
Dim colorId As Int
colorId = resources.RunMethod("getIdentifier", Array As Object(ColorName, "color", context.RunMethod("getPackageName", Null)))
If colorId > 0 Then
Return resources.RunMethod("getColor", Array As Object(colorId))
Else
Return -1 'default color
End If
End Sub