B4A Library TabHostExtras

Mahares · Jun 29, 2012

Martin, you are a genius. I like the TabhostExtra new ver. 2, particularly. setTabTextColorStateList. I use it in ICS and it works well.
1. Do you have to have an XML file in Objects/res/drawable folder for each project. Can projects share, mainly when the same file will do?
2. Is there a function in ver. 2 that allows the tabhost indicator text to be BOLD instead of NORMAL to enhance it when selected?
3. What is the alpha.zip file you posted. Is that a more up to date library or is i9t more a less to help an individual with his particular problem?
4. For your info, initially I forgot to make the file 'Read Only'. Not only I got an error, but the file was deleted. I did not realize how important for the file to be read only.
Thank you very much.

warwound · Jun 30, 2012

Mahares said:
Martin, you are a genius.

:sign0156: lol!

1. Do you have to have an XML file in Objects/res/drawable folder for each project. Can projects share, mainly when the same file will do?

Yes each project requires it's own XML file, this question is a bit like another FAQ - that is 'does each project require it's own Code modules when it'd make sense for all projects to share a common single version of a Code module?'
With B4A at the moment you need a copy of the XML for each project.

2. Is there a function in ver. 2 that allows the tabhost indicator text to be BOLD instead of NORMAL to enhance it when selected?

Surpringly enough there seems to be no documented way to do this.
I've spent a while searching and it looked as though i could use the TextView setTextAppearance method with a selector defined in XML.
(Much like using the selector to define the ColorStateList).

But i've not found any examples yet where i can try to do this myself - i shall search some more and hopefully find a method.

3. What is the alpha.zip file you posted. Is that a more up to date library or is i9t more a less to help an individual with his particular problem?

I've deleted that zip file now, it was just an early version of the library so that the setting of text color could be tested.

Martin.

pcbtmr · Oct 1, 2012

Hmmm

Not sure if this is possible but here goes. I have 3 layouts associated with 3 tabs. I want to send data from one layout to a second one and activate the second layout (and track accordingly with the associated tab). How do I do this? In essence, send data to layout 2 and activate layout 2 without tapping tab 2 but set tab 2 as the currently selected tab.

Many thanks.

sanjibnanda · Nov 9, 2012

TabHost not working in Scroll view

hi there,
i am trying to integrate tabhost in scrollview, but am lost:signOops:..could you see where i am wrong..attached my sample code..
regards,
sanjib

warwound · Nov 10, 2012

I can't quite see what's going wrong with the code you posted - you'd do better to start afresh.
The example code you've adapted isn't really suited for this case, look at this code:

B4X:

'Activity module
Sub Process_Globals

End Sub

Sub Globals
   Dim BasicLabel As Label
   Dim TabPanel As Panel
   Dim ScrollView1 As ScrollView
   Dim TabHost1 As TabHost
End Sub

Sub Activity_Create(FirstTime As Boolean)
   ScrollView1.Initialize(200%y)
   TabHost1.Initialize("TabHost1")
   
   ScrollView1.Panel.AddView(TabHost1, 0, 0, 100%x, 200%y)
   
   Activity.AddView(ScrollView1, 0, 0, 100%x, 100%y)
   
   TabHost1.AddTab("Tab1", "TabPanel")
   TabPanel.Width=-1
   TabPanel.Height=-1
   '   here you could load another layout in TabPanel etc
   BasicLabel.Text="This is tab1, width and height set to -1 fill parent (in code)"
   
   TabHost1.AddTab("Tab2", "TabPanel")
   TabPanel.Width=ScrollView1.Panel.Width
   TabPanel.Height=200%y
   BasicLabel.Text="This is tab2, height 200%y"
   
   TabHost1.AddTab("Tab3", "TabPanel")
   BasicLabel.Text="This is tab3, no width or height set (in code)"
   
   TabHost1.AddTab("Tab4", "TabPanel")
   TabPanel.Width=ScrollView1.Panel.Width
   TabPanel.Height=ScrollView1.Panel.Height
   BasicLabel.Text="This is tab4, width and height set to ScrollView1.Panel width and height"
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

The project is attached, run it and look at each tab, look for the rounded corners of each Panel.
You'll see that the only way to get the TabPanel to automatically fill the ScrollView Panel is to use the shorthand -1 to set Width and Height properties.

The code you posted tends to fail as it loads a layout file that is not a Panel containing Views but just the Views, with no parent Panel the layout fails to correctly size itself.

Now you have the main Panel of each tab correctly sized you can use TabHostExtras to customise it's appearance.

Martin.

sanjibnanda · Nov 10, 2012

TabHost not working in Scroll view-done

thanx Warwound,

this code works.. and and i will look forward to integrate it to my project..

once again thanx for taking your precious time and quick help

regards,

sanjib

cnicolapc · Dec 16, 2012

setTabTextColorStateList Example

Hi,
Can you help me with a small example of "setTabTextColorStateList (tabHost1 As TabHost, ColorStateListName As String)"? and the xml file?
Thanks in advance.
Nicola

warwound · Dec 16, 2012

cnicolapc said:
Hi,
Can you help me with a small example of "setTabTextColorStateList (tabHost1 As TabHost, ColorStateListName As String)"? and the xml file?
Thanks in advance.
Nicola

Take a look at this simple example:

B4X:

Sub Process_Globals

End Sub

Sub Globals
   Dim TabHost1 As TabHost
End Sub

Sub Activity_Create(FirstTime As Boolean)
   TabHost1.Initialize("TabHost1")
   
   Dim Label1 As Label
   Label1.Initialize("")
   Label1.Text="This is the first tab"
   TabHost1.AddTab2("Tab#1", Label1)

   Dim Label2 As Label
   Label2.Initialize("")
   Label2.Text="This is the second tab"
   TabHost1.AddTab2("Tab#2", Label2)
   
   ' Dim TabHostExtras1 As TabHostExtras
   ' TabHostExtras1.setTabTextColorStateList(TabHost1, "tab_widget_text_colors")
   
   Activity.AddView(TabHost1, 0, 0,100%x, 100%y)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

In the project's Objects\res\drawable folder is an XML file named tab_widget_text_colors.xml, it's attributes are set to read-only.
This is the XML file contents:

B4X:

<?xml version="1.0" encoding="utf-8"?>
<selector xmlns:android="http://schemas.android.com/apk/res/android">
   <item android:state_selected="true"   
      android:color="#0000FF" />
   <item android:state_selected="false"   
      android:color="#FF0000" />
</selector>

Run the demo with the two TabHostExtras lines commented out and you'll see the default style of the device that you're running the demo on.
(Different devices have different default styles).

Now uncomment the two TabHostExtras lines.
The text label for the currently selected tab will be blue and the text label(s) for unselected tab(s) will be red.

More info on the ColorStateList can be found: https://www.google.co.uk/search?q=android+colorstatelist+xml&ie=UTF-8&oe=UTF-8

Martin.

cnicolapc · Dec 16, 2012

Thank you so much for your help.
Nicola

jalle007 · Mar 13, 2013

i am getting strange error all the time

B4X:

TabHost1.AddTab("List", "lyList")
java.lang.RuntimeException: Object should first be initialized (TabHost).


   at anywheresoftware.b4a.AbsObjectWrapper.getObject(AbsObjectWrapper.java:45)
   at anywheresoftware.b4a.objects.ViewWrapper.getWidth(ViewWrapper.java:121)
   at anywheresoftware.b4a.objects.TabHostWrapper.createPanelForLayoutFile(TabHostWrapper.java:113)
   at anywheresoftware.b4a.objects.TabHostWrapper.AddTab(TabHostWrapper.java:103)
   at b4a.freewifi.main._activity_create(main.java:293)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:511)
   at anywheresoftware.b4a.BA.raiseEvent2(BA.java:167)
   at b4a.freewifi.main.afterFirstLayout(main.java:89)
   at b4a.freewifi.main.access$100(main.java:16)
   at b4a.freewifi.main$WaitForLayout.run(main.java:74)
   at android.os.Handler.handleCallback(Handler.java:725)
   at android.os.Handler.dispatchMessage(Handler.java:92)
   at android.os.Looper.loop(Looper.java:137)
   at android.app.ActivityThread.main(ActivityThread.java:5191)
   at java.lang.reflect.Method.invokeNative(Native Method)
   at java.lang.reflect.Method.invoke(Method.java:511)
   at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:799)
   at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:566)
   at dalvik.system.NativeStart.main(Native Method)
java.lang.RuntimeException: Object should first be initialized (TabHost).
** Activity (main) Resume **

from this code

B4X:

#Region  Project Attributes 
   #ApplicationLabel: b4FreeWifi
   #VersionCode: 1
   #VersionName: 
   'SupportedOrientations possible values: unspecified, landscape or portrait.
   #SupportedOrientations: unspecified
   #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
   #FullScreen: False
   #IncludeTitle: True
#End Region

Sub Process_Globals
   Dim CurrentTab As Int
   Dim TabCount As Int : TabCount=3
   Dim TabHeight As Int
   Dim TabsEnabled(TabCount) As Boolean
   Dim TabsVisibility(TabCount) As Boolean
End Sub

Sub Globals
   Dim Button1 As Button
   Dim Button2 As Button
   Dim EnableButtons(TabCount) As Button
   Dim EditText1 As EditText
   Dim Label1 As Label
   Dim ShowHideButtons(TabCount) As Button
   Dim TabHost1 As TabHost
   Dim TabManager As TabHostExtras
   Dim WebView1 As WebView
   Dim lvList As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("lyMain")
Dim i As Int
   If FirstTime Then
      TabHost1.Initialize("TabHost1")
      
      CurrentTab=1
      '   start with a default tab height of 42 pixels
      TabHeight=42
      For i=0 To TabCount-1
         TabsEnabled(i)=True
         TabsVisibility(i)=True
      Next
   End If
   
      Log(TabHost1.IsInitialized)   
      TabHost1.AddTab("List", "lyList")
      TabHost1.AddTab("Add", "lyAdd")
      TabHost1.AddTab("Map", "lyMap")

   'setTabs

End Sub

But I am sure TabHost1 is initialized. Why is that , please?

klaus · Mar 13, 2013

You should put all the code you have in the If FirstTime Then / End If
out of FirstTime.

Best regards.

jalle007 · Mar 13, 2013

tried that too but it did not help

B4X:

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("lyMain")

   If FirstTime Then
      Dim i As Int
      TabHost1.Initialize("TabHost1")
      
      CurrentTab=1
      '   start with a default tab height of 42 pixels
      TabHeight=42
      For i=0 To TabCount-1
         TabsEnabled(i)=True
         TabsVisibility(i)=True
      Next
   
      Log(TabHost1.IsInitialized)   
      TabHost1.CurrentTab=1
      
      'TabHost1.AddTab("List", "lyList")
      TabHost1.AddTab("Add", "lyAdd")
      TabHost1.AddTab("Map", "lyMap")
   End If

End Sub

and here is ss of my layout dir.

any ideas, please?

klaus · Mar 13, 2013

I suggested you this and not what you did:

B4X:

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("lyMain")

    Dim i As Int
    TabHost1.Initialize("TabHost1")
        
    CurrentTab=1
    '    start with a default tab height of 42 pixels
    TabHeight=42
    For i=0 To TabCount-1
        TabsEnabled(i)=True
        TabsVisibility(i)=True
    Next
    
    Log(TabHost1.IsInitialized)    
    TabHost1.CurrentTab=1
        
    'TabHost1.AddTab("List", "lyList")
    TabHost1.AddTab("Add", "lyAdd")
    TabHost1.AddTab("Map", "lyMap")
End Sub

Best regards.

jalle007 · Mar 13, 2013

Hi Klaus

Tired that too but did not help at all.

I think I will have to build my app on top of existing
TabHostExtrasDemo project because he only working working for me now,

THX ANW

klaus · Mar 13, 2013

Couldn't you post your project as a zip file so we could have a look at it ?

Best regards.

jalle007 · Mar 13, 2013

here is the project attached.

it is strange because sometimes it work and then it stops.
I think it has something to do with package name and/or manifest file.

error , very frustrating:

B4X:

java.lang.RuntimeException: Object should first be initialized (TabHost).

please check

klaus · Mar 13, 2013

I tried your program.
I needed to add

B4X:

Activity.AddView(TabHost1, 0, 0, 100%x, 100%y)

Then it works OK for me on both devices:
- Nexus One
- Asus TF700

How does the problem appear on your device ?

Best regards.

Slacker · Jul 8, 2013

Hello folks...Should it be possible with this library to mix text and images in the tab title location ? I'm trying to figure out how to add image and text in separate line (image on top and text in bottom in the tab title location) but without success....could you give me some tips ?

Thank you !

warwound · Jul 9, 2013

A lot depends on which version of android you are targetting, since ICS the TabHost will display icons only if no text has been set: http://www.b4x.com/forum/basic4andr...9420-tabhost-i-cant-see-icons.html#post170746.

I'm not sure if TabHostExtras can change this behavior or not.

There's seems to be solution where you can set your own tab indicator (the view that displays the text/icon) and then have full control over what is displayed: android - Icon in Tab is not showing up - Stack Overflow.

That'd require an update to TabHostExtras - can't promise to do that right away as i am busy with various other projects.
But if you want me to look at such an update then please post again and i'll put it on my list of 'things to do'.

Martin.

Slacker · Jul 9, 2013

Thank you Martin. I think this feature is so much desidered from all users because it opens a lot of useful scenarios by using TabHost View.

If i can suggest some tips, it could be useful even if should be possible to overlap several images in "position absolute" style inside the tab indicator, with text included (imaging if one wants to overlap text where appear notifies facebook-style with the little numbers near the icon....).

I have to workaround now simulating this feature and TabHost view, using ImageView and Panel views...but it's harder 'cause i have to write down a lot of code to figure out it.

Insert it in "todo" list thank you but when you will implement it i think i'll have finished my APP

I will use it for next App in future then...

B4A Library TabHostExtras

Attachments

Expert

Expert

Member

Active Member

Attachments

Expert

Attachments

Active Member

Active Member

Expert

Attachments

Active Member

Active Member

Expert

Active Member

Attachments

Expert

Active Member

Expert

Active Member

Attachments

Expert

Attachments

Active Member

Expert

Active Member

Similar Threads