Bug With TabHost in B4A 1.50

[jnbarban]

Hi, i think i have found a bug with TabHost.AddTab2() function.

i have 6 panel and 1 TabHost. I do that :

pnl_Visite.LoadLayout("pnlVisite_Visite.bal")
pnl_Devenir.LoadLayout("pnlVisite_Devenir.bal")
pnl_Decouverte.LoadLayout("pnlVisite_Decouverte.bal")   
pnl_PresProd.LoadLayout("pnlVisite_PresentationProduit.bal")
pnl_Historique.LoadLayout("pnlVisite_Historique.bal")
pnl_Commentaire.LoadLayout("pnlVisite_Commentaires.bal")
      
tbh_Visite.AddTab2("Visite",pnl_Visite)
tbh_Visite.AddTab2("Devenir",pnl_Devenir)
tbh_Visite.AddTab2("Decouverte",pnl_Decouverte)   
tbh_Visite.AddTab2("PresentationProduit",pnl_PresProd)
tbh_Visite.AddTab2("Historique",pnl_Historique)
tbh_Visite.AddTab2("Commentaires",pnl_Commentaire)

It's Work great before Version 1.50 of B4A. Since 1.50, When Code passed on the first ligne "AddTab2", the associate panel = "N/A" ( i saw that with Debug mode)

ex : Before this line :

tbh_Visite.AddTab2("Visite",pnl_Visite)

"pnl_Visite" = (BALayout) , Left = ..., Top = ...

After the line :

"pnl_Visite" = "N/A"

?????????????

 

[Erel]

I see it too. Note that it only affects the debug message. It is still working correctly.

 

[jnbarban]

sorry but i don't think that it only affects the debug message because after doing this :

pnl_Visite.LoadLayout("pnlVisite_Visite.bal")
   pnl_Devenir.LoadLayout("pnlVisite_Devenir.bal")
   pnl_Decouverte.LoadLayout("pnlVisite_Decouverte.bal")   
   pnl_PresProd.LoadLayout("pnlVisite_PresentationProduit.bal")
   pnl_Historique.LoadLayout("pnlVisite_Historique.bal")
   pnl_Commentaire.LoadLayout("pnlVisite_Commentaires.bal")
   
   tbh_Visite.AddTab2("Visite",pnl_Visite)
   tbh_Visite.AddTab2("Devenir",pnl_Devenir)
   tbh_Visite.AddTab2("Decouverte",pnl_Decouverte)   
   tbh_Visite.AddTab2("PresentationProduit",pnl_PresProd)
   tbh_Visite.AddTab2("Historique",pnl_Historique)
   tbh_Visite.AddTab2("Commentaires",pnl_Commentaire)

i do this :

RedimensionnerPanel(pnl_Visite)

This Sub resize all view on my panel like that :

Sub RedimensionnerPanel( MonPanel As Panel) 
   Log("Panel ---------------------------- :" & MonPanel)

   For i = 0 To MonPanel.NumberOfViews -1
      Dim vView As View
      vView = MonPanel.GetView(i)
      vView.SetLayout(Floor(vView.Left*Main.gXRatio),Floor(vView.Top*Main.gYRatio),Floor(vView.Width*Main.gXRatio),Floor(vView.Height*Main.gYRatio))
      Log("vView : " & vView)
      Dim NomView As String
      NomView = vView
      If NomView.indexOf("EditText") > -1 Then
         Dim txb_TextBox As EditText
         txb_TextBox = vView
         txb_TextBox.TextSize = txb_TextBox.TextSize * Main.gYRatio
      End If
      If NomView.indexOf("TextView") > -1 Then
         Dim lbl_Label As Label
         lbl_Label = vView
         lbl_Label.TextSize = lbl_Label.TextSize * Main.gYRatio
      End If
      If NomView.indexOf("BALayout") > -1 Then
         Dim pnl_panel As Panel
         pnl_panel = vView
         RedimensionnerPanel(pnl_panel)
      End If
      If NomView.indexOf("ScrollView") > -1 Then
         Dim scv_ScrollView As ScrollView
         scv_ScrollView = vView
         RedimensionnerScrollView(scv_ScrollView)
      End If
   Next

End Sub

And the application crash on ligne :

Log("Panel ---------------------------- :" & MonPanel)

Error Message :

java.lang.classCastException : android.widget.FrameLayout$LayoutParams

 

[Erel]

I see. For now you will need to skip the printing line. It will be fixed.

 

[jnbarban]

Ok , thanks...i remove my log line and it's ok...