B4i Library [class] SearchView

Erel · Dec 24, 2014

This class is similar to B4A SearchView class. It allows the user to filter a list of items based on a term (prefix matches first followed by other matches).

It uses the new RichString class to highlight the matching terms. Note that the scrolling and filtering performance in release mode are very good. It can be a bit jumpy in debug mode.

New version of SearchView is now available. It is implemented as a custom view. It also properly handles the keyboard state.

John Woodsmall · Jan 14, 2016

"New" from:"narek-adonts"
sv_ItemClick(Value As String) not returning a value when

B4X:

Dim states As List = File.ReadList(File.DirAssets, Temp_TextField.text & ".TXT")
        sv.SetItems(states)

any ideas on this?

Erel · Jan 14, 2016

John Woodsmall said:
any ideas on this?

Sorry, but I'm not familiar with this implementation.

Haris Hafeez · Feb 5, 2016

John Woodsmall said:
"New" from:"narek-adonts"
sv_ItemClick(Value As String) not returning a value when

B4X:

Dim states As List = File.ReadList(File.DirAssets, Temp_TextField.text & ".TXT") sv.SetItems(states)

any ideas on this?

Just looked at this class. While I haven't spent much time on going through the actual code, I can see that click values are not being returned. This is because a TextField called 'et' is used (I'm not sure why). If you just want to have the value that is clicked upon returned to you in the callback, just replace et.text with cell.text.ToString in the following two methods:
tblSearchResult_SelectedChanged and lv_SelectedChanged

To the original author, please let us know if this is going to break something. So far it looks fine but I've only just ran the example.

Erel · Feb 7, 2016

SearchView raises the ItemClick event. You don't need to modify the code.

Haris Hafeez · Feb 7, 2016

Erel said:
SearchView raises the ItemClick event. You don't need to modify the code.

The question is about the value being passed to this callback. In my test and the one reported by John, the valued passed back is blank for which I had to modify the code.

Erel · Feb 7, 2016

Have you tested it with the latest version?

Erel · Feb 15, 2016

New version was uploaded to the first post. It improves the keyboard handling (using the new View.CalcRelativeKeyboardHeight method) and it also fixes an issue where the base panel covered other views.

tufanv · Mar 26, 2016

narek adonts said:
I have updated Erel's SearchView with using the iOS native SearchViewController (like in iMessage, Whatsapp, Viber,...)

It is just the basic wrapping so you can contribute to it.

For current users of SearchView you do not need modify anything in your code.

Project attached.

Narek

Dear Narek,

In this implmentation is it possible to change th listview is visible only after something is searched ? Altough the lv.visible is false the list of results are always visible without writing anything to search box ?
Also another question : ıs it possile to change the hinttext of searchbox. It is "search" at the moment and i want to change it to another language .
TY

narek adonts · Mar 29, 2016

John Woodsmall said:
In the "New" from:"narek-adonts" search view above (which I have added to my app) it does not seem to return a value to
the sv_ItemClick(Value As String)
.
On the first one (above) it works correctly. But on the new one which looks great(i would love to use it)
it does not seem to return a value. All i did was replace the new *.bas to my app.

Will post a fixed version today

narek adonts · Mar 29, 2016

tufanv said:
Dear Narek,

In this implmentation is it possible to change th listview is visible only after something is searched ? Altough the lv.visible is false the list of results are always visible without writing anything to search box ?
Also another question : ıs it possile to change the hinttext of searchbox. It is "search" at the moment and i want to change it to another language .
TY

Didnt understood the first question

tufanv · Mar 29, 2016

narek adonts said:
Didnt understood the first question

What i mean is , there will be only a searchbox (the textfield ) and with some words written , the results will be seen. ın this example the results are visible from the begining .

narek adonts · Mar 29, 2016

tufanv said:
What i mean is , there will be only a searchbox (the textfield ) and with some words written , the results will be seen. ın this example the results are visible from the begining .

It is a regular page. You can do whatever you want. hide, show, add views,...

tufanv · Mar 29, 2016

narek adonts said:
It is a regular page. You can do whatever you want. hide, show, add views,...

In the code module i tried lv.visible=false to make only et visible not the results but that hided also the textview.
The list of cities is visible before typing anything to searchbox. Can you tell how can i hide the results when noting is typed ,

narek adonts · Mar 29, 2016

tufanv said:
In the code module i tried lv.visible=false to make only et visible not the results but that hided also the textview.
The list of cities is visible before typing anything to searchbox. Can you tell how can i hide the results when noting is typed ,

try lv.clear

tufanv · Mar 29, 2016

narek adonts said:
try lv.clear

i think it will clear the results but will not hide the lv. But i will try ty

narek adonts · Mar 29, 2016

tufanv said:
In the code module i tried lv.visible=false to make only et visible not the results but that hided also the textview.
The list of cities is visible before typing anything to searchbox. Can you tell how can i hide the results when noting is typed ,

There are 2 options.

1. Add the search Textview to the page root panel and not to the tableview
2. Add a view over the table view

narek adonts · Mar 30, 2016

John Woodsmall said:
"New" from:"narek-adonts"
sv_ItemClick(Value As String) not returning a value when

B4X:

Dim states As List = File.ReadList(File.DirAssets, Temp_TextField.text & ".TXT") sv.SetItems(states)

any ideas on this?

Please see attached the fixed version.

It fixes the bug with Click Event and also and change the return type to TableCell instead of String.

Alvsky · Oct 5, 2016

Hi all
Is there a way to change the background color of listed items.
I tried to set lv.Color in SearchView to some color but list background still remained white?!?
I use Erel's version of SearchView

Thanks

Erel · Oct 6, 2016

You will need to create a custom view for each item:

B4X:

Private Sub AddItemsToList(li As List, full As String)
   If li.IsInitialized = False Then Return
   Dim rs As RichString
   rs.Initialize("")
   For i = 0 To li.Size - 1
     Dim item As String
     item = li.Get(i)
     item = item.ToLowerCase
     If full.Length > MAX_LIMIT And item.Contains(full) = False Then
       Continue
     End If
     rs.Text = li.Get(i)
     If full.Length > 0 Then
       Dim ii As Int = item.IndexOf(full)
       rs.Color(Colors.Red, ii, ii + full.Length)
     End If
     Dim tc As TableCell = lv.AddSingleLine("")
     Dim p As Panel
     p.Initialize("")
     p.Color = Colors.Blue
     p.SetLayoutAnimated(0, 1, 0, 0, lv.Width, lv.RowHeight)
     Dim lbl As Label
     lbl.Initialize("")
     rs.SetToLabel(lbl)
     p.AddView(lbl, 5, 2, lv.Width, lv.RowHeight)
     tc.CustomView = p
     
   Next
   lv.ReloadAll
End Sub

Make sure to set lv.RowHeight = 30 in the Initialize sub.

Alvsky · Oct 6, 2016

Thanks for the solution. It colors cells now but it has a bug. When I click on the item Value is empty.
It looks like ItemClick works only if tc.Text is set.
To make it work, I added tc.Text = rs.AttributedString and made lbl not Visible but I am not sure is that a right way to do it

B4X:

Private Sub AddItemsToList(li As List, full As String)
   If li.IsInitialized = False Then Return
   Dim rs As RichString
   rs.Initialize("")
   For i = 0 To li.Size - 1
     Dim item As String
     item = li.Get(i)
     item = item.ToLowerCase
     If full.Length > MAX_LIMIT And item.Contains(full) = False Then
       Continue
     End If
     rs.Text = li.Get(i)
     If full.Length > 0 Then
       Dim ii As Int = item.IndexOf(full)
       rs.Color(Colors.Red, ii, ii + full.Length)
     End If
     Dim tc As TableCell = lv.AddSingleLine("")
tc.Text = rs.AttributedString
     Dim p As Panel
     p.Initialize("")
     p.Color = Colors.Blue
     p.SetLayoutAnimated(0, 1, 0, 0, lv.Width, lv.RowHeight)
     Dim lbl As Label
     lbl.Initialize("")
lbl.Visible = False 
     rs.SetToLabel(lbl)
     p.AddView(lbl, 5, 2, lv.Width, lv.RowHeight)
     tc.CustomView = p
   Next
   lv.ReloadAll
End Sub

B4i Library [class] SearchView

Attachments

Active Member

B4X founder

Active Member

B4X founder

Active Member

B4X founder

B4X founder

Expert

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Attachments

Member

B4X founder

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency