Don't use ListView.
Use xCustomListView - it is more powerful, easier to work with and cross platform.
Use xCustomListView - it is more powerful, easier to work with and cross platform.
Last edited:
You don't seem to be assigning a value to FindRow, you are Dimming Position as Int which defaults to 0, then assigning that to FindRow, which will mean the first row will always be returned.
You should also test that Cursor15.rowcount >= Findrow otherwise an error will occur, it probably will be if you are using the same list, but better safe than sorry.
FA_s_lv.ScrollingBackgroundColor = Colors.White
FA_s_lv.TwoLinesAndBitmap.Label.TextSize = 15
FA_s_lv.TwoLinesAndBitmap.Label.TextColor = Colors.Black
FA_s_lv.TwoLinesAndBitmap.SecondLabel.TextSize = 13
FA_s_lv.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.DarkGray
OK, but that comes after the assignment of
B4X:cursor15.rowcount = FindRow
But that was just an observation, My first paragraph had a suggestion that may provide help with your code.
You should put these lines out of the loop.
The layout definitions are the same for all entries.
What are Position and Findrow supposed to do ?B4X:FA_s_lv.ScrollingBackgroundColor = Colors.White FA_s_lv.TwoLinesAndBitmap.Label.TextSize = 15 FA_s_lv.TwoLinesAndBitmap.Label.TextColor = Colors.Black FA_s_lv.TwoLinesAndBitmap.SecondLabel.TextSize = 13 FA_s_lv.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.DarkGray
You are doing nothing with them in the routine.
The code should work OK, what do you expect.
If you click on an item in the ListView what do you get ?
Best regards.
The ListView control is a very powerful control. It allows you to show short or long lists in a very "sleek" way.
Creating a simple list is easy:
B4X:Sub Globals Dim ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) ListView1.Initialize("ListView1") For i = 1 To 300 ListView1.AddSingleLine("Item #" & i) Next Activity.AddView(ListView1, 0, 0, 100%x, 100%y) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) Activity.Title = Value End Sub
The ListView can be added programmatically or with the designer. For now the items must be added with code.
About the code:
- ListView1.Initialize("ListView1") - Here we initialize the list and set the event name property to ListView1. Which means that in order to catch related events we should have subs like: ListView1_ItemClick.
- ListView1.AddSingleLine - adds a single line item.
- Activity.AddView(ListView1, 0, 0, 100%x, 100%y) - Note the use of the percentage units. We are setting the width and height to the values of the containing activity.
There are currently three types of items: single line, two lines and two lines and bitmap.
Each type can be customized. The default look is:
This is the relevant code:
We can set different bitmaps to different items. Note that this code loads an image file named button.gif. This file should be added to the Files tab (in the right pane). You can download the project which is attached to this post.B4X:Dim Bitmap1 As Bitmap Bitmap1.Initialize(File.DirAssets, "button.gif") For i = 1 To 300 ListView1.AddSingleLine("Item #" & i) ListView1.AddTwoLines("Item #" & i, "This is the second line.") ListView1.AddTwoLinesAndBitmap("Item #" & i, "This is the second line.", Bitmap1) Next
Customizing each type
Each of the three types can be customized. The change will affect all items of that type.
The ListView has three "models" which are stored under:
- SingleLineLayout
- TwoLinesLayout
- TwoLinesAndBitmap
Each of this model has an ItemHeight property, a Background property and one or more views properties. Again, if you change any of these properties it will affect all the items of this type.
Example of customizing the single line items:
Result:B4X:ListView1.SingleLineLayout.ItemHeight = 100dip ListView1.SingleLineLayout.Label.TextSize = 20 ListView1.SingleLineLayout.Label.TextColor = Colors.Blue ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER For i = 1 To 300 ListView1.AddSingleLine("Item #" & i) ListView1.AddTwoLines("Item #" & i, "This is the second line.") ListView1.AddTwoLinesAndBitmap("Item #" & i, "This is the second line.", Bitmap1) Next
Note that the ItemHeight is set to 100dip. The 'dip' unit causes it to automatically scale the height based on the current device scale. For the TextSize it is a mistake to use dip units as the text size is already measured in scaled units.
The above code is equivalent to this code (which is a bit more clear):
In a similar way you can change the way the other types look.B4X:ListView1.SingleLineLayout.ItemHeight = 100dip Dim label1 As Label label1 = ListView1.SingleLineLayout.Label 'set the label to the model label. label1.TextSize = 20 label1.TextColor = Colors.Blue label1.Gravity = Gravity.CENTER
The other types have additional views: SecondLabel and ImageView.
Return value
First notice that there is no selected item. The reason is that the combination of scrolling the list with finger and scrolling with the wheel or keyboard makes it non relevant.
You should catch the ItemClick event and then handle the clicked item.
The value of the clicked item is passed as a parameter.
Now, what is a value of an item???
By default this is the text stored in the first line.
However you can change it to any object you like by using:
AddSingleLine2, AddTwoLines2 and AddTwoLinesAndBitmap2 methods. These methods receive an additional parameter which is the return value. This allows you to pass more information as required by your application.
Background optimization
There is a hidden assumption that the background behind the ListView is solid black. If you set the background to something else like a gradient background or image you will see that during scrolling the background disappears.
You can change the background scrolling color with the ScrollingBackgroundColor property. If the background is not solid color set it to Colors.Transparent.
Example (the activity background is a gradient):
TipsB4X:Dim GD As GradientDrawable GD.Initialize("TR_BL", Array As Int(Colors.Gray, Colors.LightGray)) Activity.Background = GD ListView1.ScrollingBackgroundColor = Colors.Transparent
If you want a single line item with a bitmap (and do not need two lines and a bitmap), you can set the visible property of the second label to false.
If you have many items then you should enable the fast scroller:
B4X:ListView1.FastScrollEnabled = true
A small example is available here: http://www.b4x.com/android/files/tutorials/ListView.zip
You will still need to add the items manually.
In the designer you should choose Tools - Generate members and choose the ListView. It will add a declaration for this view under Sub Globals. Note that you should not initialize or add the view to the activity. This is done automatically when you call Activity.LoadLayout.
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim ListView1 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("Main")
ListView1.Initialize("ListView1")
ListView1.AddSingleLine("AAA")
ListView1.AddSingleLine("BBB")
ListView1.AddSingleLine("CCC")
End Sub