iOS Question Solved - AStabmenu error empty array

tsteward

Well-Known Member
Licensed User
Longtime User
Astabmenu working perfect on B4A but error on B4I. there seems to be an empty array for some reason. Any suggestions on what to look for or how to fix appreciated.

Error:
My Code
B4X:
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    'load the layout to Root
    Root.LoadLayout("carLayout")
    dialog.Initialize(Root)
    dialog.BlurBackground = True

    remoteProc.Initialize
    
    'add menu items
    
    #if B4A
    'AddMenuItem(0xF0C9, "additionalMenu")
    Dim rwv As Reflector
    rwv.Target = WVCar
    rwv.Target = rwv.RunMethod("getSettings")
    rwv.RunMethod2("setBuiltInZoomControls", True, "java.lang.boolean")
    rwv.RunMethod2("setDisplayZoomControls", False, "java.lang.boolean")
    #end if
'    #if b4i
'    B4XPages.GetNativeParent(Me).TopRightButtons = Array(CreateFABarButton(Chr(0xF0C9), "additionalMenu"))
'    'B4XPages.GetNativeParent(Me). NavControl.ToolBarVisible = True
'    #End If

    CarMenuBitmap = xui.LoadBitmap(File.DirAssets, "info.png")
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 32dip, 32dip)
    IconCanvas.Initialize(p)
    UpdateMenuItems
    
    #If B4I
    Sleep(450)
    #End If
    currentTab = 0
    ASTabMenu2.BeginUpdate
    ASTabMenu2.AddTab(xui.Color_RGB(97,117, 228),"Info",ASTabMenu2.FontToBitmap(Chr(0xF129),False,30,xui.Color_White),"")
    ASTabMenu2.AddTab(xui.Color_RGB(30,57, 205),"Transponder",ASTabMenu2.FontToBitmap(Chr(0xF2DB),False,30,xui.Color_White),"")
    ASTabMenu2.AddTab(xui.Color_RGB(97,117, 228),"Remote",ASTabMenu2.FontToBitmap(Chr(0xF143),False,30,xui.Color_White),"")
    ASTabMenu2.AddTab(xui.Color_RGB(30,57, 205),"OBD",ASTabMenu2.FontToBitmap(Chr(0xF1E6),False,30,xui.Color_White),"")
    ASTabMenu2.AddTab(xui.Color_RGB(97,117, 228),"+Feedback",ASTabMenu2.FontToBitmap(Chr(0xE87F),True,30,xui.Color_White),"")
    ASTabMenu2.EndUpdate
    ASTabMenu2.TabStripMode = True
    'ASTabMenu1.TabStyle = "TextIcon"
    xui.SetDataFolder("LARA_data")
    
End Sub
 

tsteward

Well-Known Member
Licensed User
Longtime User
I found the error of my ways. Calling routines from another page out of order.

Sorry guys
 
Upvote 0
Cookies are required to use this site. You must accept them to continue using the site. Learn more…