Android Question CLV + TabStrip + CheckBox. Strange bug.

red30 said:

How to solve this problem?

Click to expand...

Mahares said:

If your top goal is to have all boxes checked, all I did is remove or comment the gostarter sub from the starter service, removed the call in main activity: CallSubDelayed(Starter,"gostarter"). Replaced it with a call to AllCheck, at the end of Activity_Create and all checkboxes are checked in all pages..

Click to expand...

ilan said:

i confirm that there is a problem with TabStrip. i also get the same behavior.
i do need to mention that your code is not very efficient but it should work.

if you decide to work with CustomListView then it make sense to have item in the clv (Custom"ListView")
instead what you do is create a big panel with many checkboxes ordered like items and load it to the clv. like this, you could just use the panel if you don't want to have multiple items.

you should have a look at arrays and Sender Object.

I re-wrote your code to make it more clear but I also get the same behavior. strange
i also try to use Sleep() or forced to redraw the checkbox with checkbox.invalidate() but again same behavior.

B4X:

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

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

#AdditionalJar: com.android.support:support-v4

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private TabStrip1 As TabStrip
    Private clv1, clv2, clv3, clv4 As CustomListView
    Private clv(4) As CustomListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    Activity.TitleColor = Colors.White
  
    TabStrip1.LoadLayout("1", "PAGE 1")
    TabStrip1.LoadLayout("2", "PAGE 2")
    TabStrip1.LoadLayout("3", "PAGE 3")
    TabStrip1.LoadLayout("4", "PAGE 4")
  
    fillclvs
End Sub

Sub fillclvs
    'reference panels to array
    clv(0) = clv1
    clv(1) = clv2
    clv(2) = clv3
    clv(3) = clv4
  
    For i = 0 To 3
        For j = 0 To 9
            clv(i).Add(CreateItem(j,100%x,7.5%y),j)
        Next
    Next
End Sub

Sub TabStrip1_PageSelected (Position As Int)
    Log(Position)
End Sub

Private Sub CreateItem(value As Object, width As Float, height As Float) As B4XView
    Dim p As B4XView = xui.CreatePanel("clvItem")
    p.Width = width
    p.Height = height
    p.Tag = value
  
    Dim chk As CheckBox
    chk.Initialize("chk")
    chk.Checked = False
    chk.Text = $"CheckBox: ${value.As(Int)}"$
    chk.Tag = value
  
    p.AddView(chk,0,0,width*0.5, height)
    Return p
End Sub

Sub clvItem_Click
    Dim p As B4XView = Sender
    Log($"You clicked Item ${p.Tag}"$)
End Sub

Sub chk_CheckedChange(Checked As Boolean)
    Log($"You checked the CheckBox"$)
End Sub
 
Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub AllCheck
    For i = 0 To clv.Length-1
        For j = 0 To clv(i).Size-1
            Dim p As B4XView = clv(i).GetPanel(j)
            Dim chk As CheckBox = p.GetView(0)
            chk.Checked = True
        Next
    Next
End Sub

Private Sub Button1_Click
    AllCheck
    ToastMessageShow("All checkbox are checked!",False)
End Sub

Click to expand...

red30 said:

This is just a test program to showcase this bug.

Click to expand...

Sub fillclvs
    'reference panels to array
    clv(0) = clv1
    clv(1) = clv2
    clv(2) = clv3
    clv(3) = clv4
     
    For i = 0 To 3
        For j = 0 To 9
            clv(i).Add(CreateItem(j,100%x,7.5%y),j)
        Next
    Next    
    AllCheck(0)
End Sub

Sub TabStrip1_PageSelected (Position As Int)
    AllCheck(Position)
End Sub

Sub AllCheck(myposition As Int)
        For j = 0 To clv(myposition).Size-1
            Dim p As B4XView = clv(myposition).GetPanel(j)
            p.GetView(0).Checked=True
        Next
End Sub

Mahares said:

I don't think there is a bug. Here are the changes you need to make to the project in post #3 to make it work:

B4X:

Sub fillclvs
    'reference panels to array
    clv(0) = clv1
    clv(1) = clv2
    clv(2) = clv3
    clv(3) = clv4
    
    For i = 0 To 3
        For j = 0 To 9
            clv(i).Add(CreateItem(j,100%x,7.5%y),j)
        Next
    Next   
    AllCheck(0)
End Sub

Sub TabStrip1_PageSelected (Position As Int)
    AllCheck(Position)
End Sub

Sub AllCheck(myposition As Int)
        For j = 0 To clv(myposition).Size-1
            Dim p As B4XView = clv(myposition).GetPanel(j)
            p.GetView(0).Checked=True
        Next
End Sub

You no longer need the Button1_click sub

Click to expand...

ilan said:

something is wrong.

Click to expand...

Mahares said:

I don't think there is a bug. Here are the changes you need to make to the project in post #3 to make it work:

B4X:

Sub fillclvs
    'reference panels to array
    clv(0) = clv1
    clv(1) = clv2
    clv(2) = clv3
    clv(3) = clv4
  
    For i = 0 To 3
        For j = 0 To 9
            clv(i).Add(CreateItem(j,100%x,7.5%y),j)
        Next
    Next 
    AllCheck(0)
End Sub

Sub TabStrip1_PageSelected (Position As Int)
    AllCheck(Position)
End Sub

Sub AllCheck(myposition As Int)
        For j = 0 To clv(myposition).Size-1
            Dim p As B4XView = clv(myposition).GetPanel(j)
            p.GetView(0).Checked=True
        Next
End Sub

You no longer need the Button1_click sub

Click to expand...

ilan said:

the button click just calls the AllCheck event.
the problem here is not how to make all checkboxes get selected. the problem here is that the checkbox is checked but you cannot see the check sign in it only on some checkboxes. if you see closely you can see that the border has changed color but the inside of the checkbox is not drawn.

something is wrong.

Click to expand...

red30 said:

I cannot use the TabStrip. Is there any alternative to TabStrip?

Click to expand...

ilan said:

what are you trying to archive what kind of app?
i never use tabstrip in my apps. i find tabstrip more suitable for desktop applications, not for mobile.


why did you choose tabstrip? what app do you want to make?

Click to expand...

red30 said:

I want to do it like in the WhatsApp application. For this I need to use a TabStrip.
Example:
View attachment 120983
Well, in general, I would like to fix this bug in TabStrip. I would like to fix it so that other users do not face this problem...

Click to expand...

ilan said:

if you still want to use Tabstrip here is an example of changing the Checkbox to a simple Label with Fontawesome getting the same effect and here everything works fine.

Click to expand...

ilan said:

Radiobutton works differently. Several radiobutton in 1 panel will only check a single choice and that also make sense.
Different from checkbox with a radiobutton u want to select a single option from several options.

u can do the same with radiobuttons. Fontawesome has a radiobutton icon. U just need to make sure to allow single selection in 1 panel.

Click to expand...

red30 said:

since there is no way to fix the TabStrip bug.

Click to expand...

Mahares said:

If all you are interested in is seeing all the checkboxes checked on the CLV in all pages of the Tabstrip as you scroll left and right, here is attached your project that you posted in post #1 with its CalSubDelayed and other stuff except for the bit of code I added to yours to show all checkboxes checked on all pages of the Tabstrip.
Beyond that, if you or anyone else have good reasons there is a bug with TabstripViewPager, it behooves you to really create a 'Bug' thread in the Wish/Bug forum to give Erel a chance to look at it and answer you. After all, he was the architect of the library.

Click to expand...