' Set Title of page
' with a specific Textcolor -- don't require manifest and it's fine form me
Dim cs As CSBuilder
Dim ThemeTextColor As Int
Dim ActionBarCaption As String
ThemeTextColor = xui.Color_White
ActionBarCaption = "Home"
cs.Initialize.Size(22).Color(ThemeTextColor).Append(ActionBarCaption).PopAll
B4XPages.SetTitle(Me,cs)
' Set BackGround of ActionBar -- without manifest...
'Work fine in B4a but Don't know if is right on B4I
Dim cd As ColorDrawable
cd.Initialize(xui.Color_RGB(0,93,192),0)
B4XPages.GetManager.ActionBar.RunMethod("setStackedBackgroundDrawable", Array(cd))
'Set HomeIcon of ActionBar -- without manifest...
'Work fine in B4a but Don't know if is right on B4I
Dim bd As BitmapDrawable
bd.Initialize(LoadBitmap(File.DirAssets,"myGoHomeIcon.png"))
B4XPages.GetManager.ActionBar.RunMethod("setDisplayHomeAsUpEnabled", Array(True))
B4XPages.GetManager.ActionBar.RunMethod("setHomeAsUpIndicator", Array(bd))
'Set HomeIcon of ActionBar -- without manifest...
'Work fine in B4a but Don't know if is right on B4
'Force visibility of goHome Icon
B4XPages.GetManager.ActionBar.RunMethod("setDisplayShowHomeEnabled", Array(True))