B4A Library Grid/Table and ListView Library

Yes I've checked and it looks like it can be done!
I can't tell now if i'll add in a future release.

For my reference (call stack):
- getChildAt
- getLocationOnScreen
- getWidth
- getHeight
- getFirstVisiblePosition
- getLastVisiblePosition

Cool, it will be used with PopupMenu library i my case. Don't forget that...

- getFirstVisiblePosition
- getLastVisiblePosition

...needs to be both in Rows and Columns

So maybe,,,

- getFirstVisibleRow
- getLastVisibleRow
- getFirstVisibleColumn
- getLastVisibleColumn

would be a good idea.

Hi again.

I just realized one thing. I dont know if its possible.

But I would love if it was possible to lock one or two of the left columns from scrolling.

If you have many, many columns and many many rows there is hard to se what row you are clicking on.

So in short, it would be lovley if you could lock x columns to the left.

Sorry at the present time there is no such a feature
but i've already planned to add it.

I did a work around.

My table has 37 columns, so I diveded it up a bit, but it sure would be nice to be able to have it all in one grid.

I wonder that no one asked about xnGrid events. By tests I found Select by now. Could you please, describe events and handling. Thanks.

you have also
..._header_click event
and you can get the header clicked using
the HeaderClicked() function

Thanks!! Another thing - how to use column.PositionSet() to fit bitmap? On some phones the bitmap may fit into a cell, on others - no.

PositionSet is used to create a multiline row grid
you can see post # 289
Example : cc(4).PositionSet ( 1 , 3 , 2 , 1 ) means
the column cc(4) wil be placed
BELOW column 1
RIGHT_OF column 2

If you want to fine tune the position of an image in a cell you have :
cc(4).HeaderIconLeft = 1dip
cc(4).HeaderIconTop = ...
cc(4).RowIconLeft = ...
cc(4).RowIconTop = ...
where cc(4) is an xnGridCol

Hello stefanobusetto, i am observing that after use Grid.CursorAppend ( AuxCursor ) or Grid.RowAppend there is a memory loss. Use Version 2.53

Grid.RowsDelete

Grid.GridClear


AuxCursor = BBDD.ExecQuery ( SQL )
Grid.CursorAppend ( AuxCursor )

OR

If AuxCursor.RowCount > 0 Then

For r = 0 To AuxCursor.RowCount -1

AuxCursor.Position = r


Grid.RowAppend ( Array As String .....
Next
End IF


AuxCursor.Close

Anyone know the cause?.

Thank you

What do you mean with "memory loss"?
May you post the error you get in the log please?

Hi Stefanobusetto, I detect no error just memory consumption in the task manager does not appear.
I have an application with TabHost, after entering and leaving the tab where the Grid asked several times,
and check the consumption in the task manager memory usage of my App I see that progressively increases reaching several megabytes.
The number of rows available is very small between 1 and 30 rows up.
The code is:
' **************************************************************************
Sub TabHost1_TabChanged

Select Case TabHost1.CurrentTab
Case 0
......
Case 1
.......
Case 2
.......
Case 4 ' Grid
Grid_Crear
End Select


End Sub

' **************************************************************************
Sub Grid_Crear
If Grid.IsInitialized =False Then
Grid.Initialize("Grid")
Grid.HeaderHeight = 30dip
Grid.RowHeight = 50dip
Grid.HeaderTextSize = 13
Grid.RowTextSize = 13
Etc . . . .
End If

Grid_fill_cursor
End Sub

' **************************************************************************
Sub Grid_fill_cursor( )
Dim AuxCursor As Cursor
Dim SQL As String

SQL="Select CODIGO, NOMBRE_ORI, POBLACION_ORI, HORA_MD||'-'||HORA_MH||'/'||HORA_TD||'-'||HORA_TH AS HORARIO, ESTADO FROM PRU WHERE ESTADO IN ('N', 'P') "

AuxCursor = BBDD.ExecQuery ( SQL )

Grid.RowsDelete
Grid.GridClear


If AuxCursor.RowCount > 0 Then

LblNReco.Text =AuxCursor.RowCount

For r = 0 To AuxCursor.RowCount -1
AuxCursor.Position = r
Grid.RowAppend ( Array As String ( AuxCursor.GetInt("CODIGO") , AuxCursor.GetString("NOMBRE_ORI") , AuxCursor.GetString("POBLACION_ORI") , AuxCursor.GetString("HORARIO")) )
Next
Grid.GridCreate2 (False)
Else
Msgbox("No existen datos.","Aviso")

End If


AuxCursor.close

End Sub

I usually initialize all the views (xnGrids included) in the Activity_Create.
Then i clear/add/delete rows from the xnGrids.
You can try but i do not think this is the problem.
If there is a problem at all.
B4A is java and java has a garbage collector.
It means you never destroy any object,
the garbage collector destroys the objects when needed.

The xnGrid uses a java list to hold the data and an android listview to display the items.
I've implemented an adapter so the views of each row are recycled when needed.
Only the views of the rows that are visible are created.

Everything is destroyed (again) when needed but i can't tell you when.
Android is unix/linux. And usually a unix machine uses as much ram as possible.

I know i'm quite obscure and vague.
And obviously i'll try to figure out if there is a problem.
But there are many memory allocation and object management
policies i have no knowledge or control of.

What i can tell for sure instead is that i use this grid in at least 15 app in a production environment since 2012.
I have more the 50 android devices and i've never experienced low memory problems.

Thanks for your post.
You've given me something to think about.

Thanks stefanobusetto for your quick reply.

Hi Stefanobusetto, is it possible to have different colors in different cells?

Not yet!
Sorry

Hi Stefano

Thank you for the reply, can you tell me if there is any time line for this to happen?

Regards

David

I'd like to ship the feature within 30 days

Brilliant, I really do like your grid, I shall look forward to the next version.