Android Question Search and highlight

[yiankos1]

Good morning my friends,
I use an ultimate list view and toolbar search view. Is there any way to highlight text in listview when this sub is called:

Sub Search_QueryChanged (Query As String)

Thank you in advance,
At your service

 

[Erel]

The latest version of SearchView includes such a feature: https://www.b4x.com/android/forum/t...native-to-autocompleteedittext.19379/#content

It uses CSBuilder to create a rich string.

 

[Dave O]

Not sure if this is what you're looking for, but in my Quick Proto app, there's a search screen that highlights text in an UltimateListView, like this:

Sub resultsULV_ContentFiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
    ...
    Dim nameLabel As Label = LayoutPanel.GetView(1)
    nameLabel.Text = highlightTextInString(c.buildPageNameInCurrent(tempPage), searchField.Text)  
    Dim noteLabel As Label = LayoutPanel.GetView(2)
    noteLabel.Text = highlightTextInString(getSurroundingText(tempPage.pageNote, searchField.Text, noteLabel), searchField.Text)
End Sub

Sub highlightTextInString(bodyText As String, searchText As String) As RichString
    Dim rs As RichString
    rs.Initialize(bodyText)
    Dim startIndex As Int = bodyText.ToLowerCase.IndexOf(searchText.ToLowerCase)
    If startIndex > -1 Then                    'match found
        Dim endIndex As Int = startIndex + searchText.Length
        rs.BackColor(c.COLOR_HIGHLIGHT, startIndex, endIndex)
    End If
    Return rs
End Sub

 

[yiankos1]

Not sure if this is what you're looking for, but in my Quick Proto app, there's a search screen that highlights text in an UltimateListView, like this:

Sub resultsULV_ContentFiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
    ...
    Dim nameLabel As Label = LayoutPanel.GetView(1)
    nameLabel.Text = highlightTextInString(c.buildPageNameInCurrent(tempPage), searchField.Text) 
    Dim noteLabel As Label = LayoutPanel.GetView(2)
    noteLabel.Text = highlightTextInString(getSurroundingText(tempPage.pageNote, searchField.Text, noteLabel), searchField.Text)
End Sub

Sub highlightTextInString(bodyText As String, searchText As String) As RichString
    Dim rs As RichString
    rs.Initialize(bodyText)
    Dim startIndex As Int = bodyText.ToLowerCase.IndexOf(searchText.ToLowerCase)
    If startIndex > -1 Then                    'match found
        Dim endIndex As Int = startIndex + searchText.Length
        rs.BackColor(c.COLOR_HIGHLIGHT, startIndex, endIndex)
    End If
    Return rs
End Sub

Thank you very much my friend. That was exactly what i wanted.