B4J Question For xCustomListView, How To Only Show Scrollbar When It Is Needed

[cklester]

At first, my CLV does not have enough items to require a scrollbar, so I hide the scrollbar. However, once enough items are added, or the view is resized and now does not show the entire list, I'd like to enable the scrollbar visibility.

I'm using this code to determine the need for the scrollbar, and it works, but I'm not sure how to show the scrollbar:

    If Not(clv_Categories.LastVisibleIndex = clv_Categories.Size-1 And _
            clv_Categories.FirstVisibleIndex = 0) Then
        'can't see all the categories, so enable the scrollbar!
    End If

 

[Erel]

This is the default behavior. Don't hide the scrollbar.

 

[cklester]

None of my xCustomListViews have ever behaved like that. If there doesn't need to be a scrollbar, it still shows space for it, even though it doesn't draw the scrollbar.

I'm applying a width to the clv item of its clv parent. Could that be the problem?

 

[Erel]

The item will reserve space for the scrollbar (in B4J).

Make sure that the panel is not transparent and it should look like in the gif above.

 

[cklester]

Which panel should not be transparent? It seems none of my panels are transparent.

Sub LoadLibrary
    For Each article As String In articles
        Private li As LibraryItem
        li.Initialize
        Private w As Int = clv_Articles.GetBase.Width
        Private p As B4XView = xui.CreatePanel("")
        p.SetLayoutAnimated(0,0,0,DipToCurrent(w),90dip)
        p.LoadLayout("LibraryItem")
        p.Color = xui.Color_White
        lbl_ArticleLink.Text = article
        lbl_Description.Text = "Description for " & article
        lbl_Description.Enabled = False
        chk_Archived.Checked = False
        clv_Articles.Add(p,li)
    Next
End Sub

The panel (above) is set to white. The clv_Articles has a background of white. The form of the CLV item has a background of white. I still get this:

Now with scrollbar:

 

[Erel]

You don't need to use DipToCurrent. It is a mistake (which will be effective in B4A).

Please create a small example and upload it.

 

[cklester]

See attached.

 

[Erel]

My mistake. The behavior you see is the expected behavior. My test was actually behaving differently due to the way it added the items.

You can change the "divider color" to white. It will make it look better. You can also set the divider height to 0 and add your own divider (2 pixels tall panel) in the item itself.

 

[cklester]

The behavior you see is the expected behavior.

Couldn't I, by using a Resize event, see if the FirstItem is visible and the LastItem is visible to determine whether or not to show the scrollbar? This is obviously just for aesthetics, but I think it would look nicer.

Sub clv_Categories_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    If clv_Categories.FirstVisibleIndex = FirstIndex And clv_Categories.LastVisibleIndex = LastIndex Then
        'hide the scrollbar -- How to do this bit?
    Else
        'show the scrollbar -- How to do this bit?
    End If
End Sub

 

[Erel]

The VisibleRangeChanged event is not relevant.

You need to do something like:

Sub MainForm_Resize (Width As Double, Height As Double)
    If clv1.FirstVisibleIndex = 0 Or clv1.LastVisibleIndex = clv1.Size - 1 Then
        Sleep(5)
        For i = 0 To clv1.Size - 1
            Dim p As B4XView = clv1.GetPanel(i)
            p.Width = clv1.AsView.Width
            p.Parent.Width = p.Width
        Next
    End If
End Sub