B4A Library Grid/Table and ListView Library

stefanobusetto · Sep 29, 2014

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

TheMightySwe · Sep 29, 2014

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.

TheMightySwe · Oct 15, 2014

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.

stefanobusetto · Oct 16, 2014

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

TheMightySwe · Oct 16, 2014

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.

Taha · Oct 25, 2014

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

TheMightySwe · Oct 25, 2014

Code:

Sub Items_xnGrid_Select   Or  Items_xnGrid_Long_select

    Dim Row,Col As Int
    Dim Value As String

    Row = Items_xnGrid.RowSelected
    Col = Items_xnGrid.ColSelected

    Value = Items_xnGrid.GetValue(Row,Col)

    '[Do Stuff]

    Items_xnGrid.SetValue(Row,Col, Value)

End Sub

stefanobusetto · Oct 25, 2014

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

Taha · Oct 26, 2014

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

stefanobusetto · Oct 27, 2014

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

informatica_iberteam · Nov 17, 2014

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

stefanobusetto · Nov 19, 2014

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

informatica_iberteam · Nov 19, 2014

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

stefanobusetto · Nov 20, 2014

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.

informatica_iberteam · Nov 20, 2014

Thanks stefanobusetto for your quick reply.

David Hawkins · Nov 30, 2014

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

stefanobusetto · Dec 2, 2014

Not yet!
Sorry

David Hawkins · Dec 2, 2014

Hi Stefano

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

Regards

David

stefanobusetto · Dec 4, 2014

I'd like to ship the feature within 30 days

David Hawkins · Dec 4, 2014

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

B4A Library Grid/Table and ListView Library

Attachments

Active Member

Active Member

Active Member

Active Member

Active Member

Member

Active Member

Active Member

Member

Active Member

New Member

Active Member

New Member

Active Member

New Member

Active Member

Active Member

Active Member

Active Member

Active Member

Similar Threads