B4A Library [Class] Flexible Table

Kanne · May 5, 2020

can you upload the project - I could take a look on it.

Kanne · May 5, 2020

there seems to be a problem when using hidden cols AND fixed cols at the same time (I did not have this in my project).
In my example hiding is ok, fixing is ok - but when using both at the same time I get garbage of the hidden cols

B4X:

    sQuery.Initialize
    sQuery.append(" Select ID_Spieltag, ID_Spiel, Punkte, Punkte_S1, Punkte_S2, Punkte_S3, Punkte_S4, Punkte_S5 from Spiel")
    Table1.LoadSQLiteDB(SQL1, sQuery.ToString, True)
    Table1.SetAutomaticWidths
    Table1.NumberOfFixedColumns = 2
    Table1.hideCol(0)
    Table1.hideCol(3)
    Table1.hideCol(4)

BugNot · May 6, 2020

Hello,
how to center the table in the middle of the screen?

Kanne · May 6, 2020

B4X:

Table1.Left = Max((100%x - Table1.InnerTotalWidth)/2,0)

BugNot · May 6, 2020

Kanne said:
B4X:

Table1.Left = Max((100%x - Table1.InnerTotalWidth)/2,0)

Perfect thanks

klaus · May 6, 2020

@Kanne and @artsoft
I had a look at your problems and suggestions.
The problem with the missing borderline is solved for the nest update.
I added the ShowRow routine, but currently the visible rows are not updated at the first run. Does it work for you?
What kind of TTF font are you using?
@artsoft Could you post a project showing your problem with the columns and colors.
It would be much easier for me to find the problems that trying to reproduce it, not knowing exactly how it is done.

Kanne · May 6, 2020

yes, all rows can be colored - I will test it with designtime tables ...

klaus · May 6, 2020

yes, all rows can be colored

I know, but I tested it with:

B4X:

Sub Table2_ShowRow(Row As Int, lbls() As Label)
    Private i As Int
    i = lbls(0).Text
    If i < 20 Then
        lbls(0).Color = Colors.Red
    End If
End Sub

The first rows are not colored.

After scrolling:

Kanne · May 6, 2020

I made a small project - is running as expected. can you test it please ?
At start fields are red / gray und you can set random colors via menu ...

I also tested if it might only occur when not filling by SQL - so I made a cursor and filled it by adding rows:
coloring works well, but I got some other problems here: how can I change column count by code ?
I always got an error, worked only when setting correct number of cols in designer / initialize of runtime table.
Designer table also had a strange behavior: when setting status line to false, no data was shown !

klaus · May 7, 2020

Your project works.
But my test program didn't modify the first visible rows.
Took me a while to find out what happened.
The problem is the length of the database, during the filling of the table the ShowRow was not executed.
I added a Sleep(0) before calling the external ShowRow routine.

klaus · May 7, 2020

artsoft said:
I changed the SQLiteLoader because there was only an automatic column width calculation with the DEFAULT font.
Now LoadSQLiteDB_Font works with my own TTF-font in a correct way.

You should set the TypeFace before calling LoadSQLiteDB, and the automatic width calculation works.
This is the same as for all general properties.

For the problem in post #1018, can you please post a small project showing the problem.

artsoft · May 8, 2020

klaus said:
You should set the TypeFace before calling LoadSQLiteDB, and the automatic width calculation works.
This is the same as for all general properties.

For the problem in post #1018, can you please post a small project showing the problem.

See my comment for this below in the next post!

The other problem with the row colors .... I have found a very simple solution: I only work now with selectionColor ... this looks pretty nice and better as with lot of different colors.

The biggest problem I have is this one ...
I will show you this with this simple workflow:

1.

I create a new table object (not via designer, but via code):

B4X:

Private Table2 As Table

2.

I initialize this one by:

B4X:

    Table2.Initialize(Me, "Table2")
    Table2.AddToActivity(Activity, formdescr.left, formdescr.Top + formdescr.Height + 5dip, formdescr.Width, 30%y)

3.

I set some properties (while using my own font) by calling a special method:

B4X:

Table2.clearSelection
    Table2.ClearAll

    Table2.SetHeaderTypeFaces(Array As Typeface(font_bold_g))
    Table2.SetTypeFaces(Array As Typeface(font_normal_g))

    Table2.InitializeTable(4, Gravity.LEFT, False)
    Table2.SetHeader(Array As String("Title", "Bold", "Password", "Max"))
  
    Table2.TextSize = 13

    Table2.RowHeight = (Table2.Height / 7)
    Table2.HeaderHeight = (Table2.Height / 7)

    Table2.ZeroSelection = True
    Table2.ShowStatusLine = False  ' By the way --> I have to do this: The third 'False' parameter of InitializeTable has no effect!

After this, I see logically only the header row.

4.

Then I add a row with a given String array "s":

B4X:

Table2.AddRowAutomaticWidth(s)

The array is:

s(0) = "BlaBla"
s(1) = "YES"
s(2) = "YES"
s(3) = "50"

Followed by this command:

B4X:

Table2.RefreshTable

5.

Now I see the header and the inserted row (see point 4 above).

6.

Then I add a next row with "s" Array:

s(0) = "XxxXxx"
s(1) = "YES"
s(2) = "NO"
s(3) = "25"

in the same way as described in point 4 (above).

Now I see the header row and two rows with "XxxXxx", "YES", "NO" and "25".

======================================================

My question is now ...... what is wrong here?

When I remove this command:

B4X:

Table2.RefreshTable

Then I see the correct table ............. so far so good.

But when I click on any row in the table, the label in this row is updated to the last inserted values.

In my case I see first:

Header...
BlaBla...
XxxXxx...

(... means = Rest of row)

After click on BlaBla, I see :

Header
XxxXxx...
XxxXxx...

Very strange!

I guess that there is missing an important command or something like this.
Or could it be that I am using currently an old version of Table.bas?

Unfort. I may not show you any screenshot - the requester of the app did not allow that.

If you can provide a newer version of the table custom view - that would be very, very nice!

Best regards and many thanks in advance
Artsoft

artsoft · May 8, 2020

klaus said:
You should set the TypeFace before calling LoadSQLiteDB, and the automatic width calculation works.
This is the same as for all general properties.

For the problem in post #1018, can you please post a small project showing the problem.

Not really, Klaus.

In your method:

B4X:

Public Sub LoadSQLiteDB(SQLite As SQL, Query As String, AutomaticWidths As Boolean)

You execute a font measurement, yes (in case of AutomaticWidths parameter is set to TRUE) .... but not on given user font ... but on Typeface.DEFAULT font:

B4X:

HeaderWidths(col) = cvs.MeasureStringWidth(Headers(col), Typeface.DEFAULT, cTextSize) + ExtraWidth

You should use the font given by outside for your measurement.

Regards
Niko

Kanne · May 8, 2020

maybe it' s a bug, but you can easily solve this problem by calling .SetAutomaticWidths after filling.

Kanne · May 8, 2020

according to your strange data:
are you shure, that you make a new DIM before adding 2nd row ?
it sounds for problems due to pointers cauesed of doing no 2nd redim ...
you may download my testproject running without problems filling by calling sql-filling or filling manually by cursor.
It would be much easier to find your problem if you would upload your project ...

klaus · May 9, 2020

Can you please test the attached Table.bas class version 3.18.
- Added a check in RemoveRowColorN to ensure that Row is not out of bounds
- Added ShowRow event
- Amended automatic width calculations
- Amended hidden column widths

@artsoft
The problem you mention in post #1033 is due, as Kanne already suggested, to the missing Dim statement before each AddRow.
I have still not understood your color problem.

Kanne · May 9, 2020

Hi,
new test looks better, but it seems that a border of hidden cols is still painted / calculated.
In the examples I fixed the first two cols (0/1) and hided col 0 / 4 / 5: as result I get a left offset due to hidden col0 and a bigger line where col 4&5 were hidden.
Linewidth was set to 3dip and the line in the middle seems wider than on the left margin which seems wider than normal borderline - so I think one of the borders of the hidden cols is still added in calculation.

artsoft · May 9, 2020

klaus said:
Can you please test the attached Table.bas class version 3.18.
- Added a check in RemoveRowColorN to ensure that Row is not out of bounds
- Added ShowRow event
- Amended automatic width calculations
- Amended hidden column widths

@artsoft
The problem you mention in post #1033 is due, as Kanne already suggested, to the missing Dim statement before each AddRow.
I have still not understood your color problem.

Yes, you both are right .......... the problem was the PRIVATE init statement outside of the FOR-loop. Now I switched it to a DIM statement inside of the FOR-loop and this looks good now.

And the problem with the font measurement is also fixed!!!

Great work!

_____________________________________________________

Ok, let us go to the next problem with the colors:

Unfortunately I may not upload any part of the app - the app requester doesn't allow this to me. So, I can only described in detail and in a good way what happens here:

But I found something strange - BUT helps in my case:

1. I have a simple table named formtypes with some columns (see the select below in code section please).

2. Only for test I put a button on the GUI which makes two things:

a.) Deletion of the complete table content by using this SQL: deletes from formtypes
And then call a Table update method (see below)

b.) Insertion of 100 dummy records within this table in order to have something to show on GUI (in the Table custom view).
And then call a Table update method (see below)

In point b there are also foreground and background data - created randomly. Look here:

B4X:

    Private i As Int
    Private ft As form_type
    ft.Initialize

    For i = 1 To 100
        ft.fg_color = Colors.ARGB(255,Rnd(0,255),Rnd(0,255),Rnd(0,255))
        ft.bg_color = Colors.ARGB(255,Rnd(0,255),Rnd(0,255),Rnd(0,255))
        ft.name = "Form " & Rnd(1000, 2000) & DateTime.Now
        ft.descr = "Test"
        DB.saveFormTypesObj(ft)
    Next

And here the update method for the GUI table:

B4X:

Sub updateFormTypeList()

    Dim i As Int
    Dim font_normal_g As Typeface
    Dim font_bold_g As Typeface
    Dim gothic_font As Typeface

    gothic_font   = Typeface.LoadFromAssets("myfont.ttf")
    font_normal_g = Typeface.CreateNew(gothic_font, Typeface.STYLE_NORMAL)
    font_bold_g   = Typeface.CreateNew(gothic_font, Typeface.STYLE_BOLD )

    ' ------------------------------------------------------------------------------

    Table1.clearSelection
    Table1.ClearAll
    Table1.SetHeaderTypeFaces(Array As Typeface(font_bold_g))
    Table1.SetTypeFaces(Array As Typeface(font_normal_g))
    Table1.TextSize = 13
    Table1.RowHeight = (Table1.Height / 7)
    Table1.NumberOfFixedColumns = 0

    Table1.LoadSQLiteDB (DB.SQL1, "SELECT name, descr, id, fg_color, bg_color FROM formtypes ORDER BY name", True)

    Table1.HeaderHeight = (Table1.Height / 7)
    Table1.SetHeader(Array As String("Name", "Description", "", "", ""))

    Table1.hideCol(2)
    Table1.hideCol(3)
    Table1.hideCol(4)

    ' Set the row colors...
    If Table1.NumberOfRows > 0 Then
        For i = 0 To (Table1.NumberOfRows-1)
            Table1.SetRowColorN(i, Table1.GetValue(4, i))
        Next
    End If

End Sub

Looks very easy ..... but after a click on my button ... the old colors from view before (before the click on the button) appears.

My solution now:

I added a "Sleep(0)" (Formerly: DoEvents) command after Table1.ClearAll command ... and now the view is ok:

B4X:

    Table1.ClearAll
    Sleep(0) ' ------------- ADDED

So, I guess this is probably an update issue or something like this.

By the way:
My Table1 object comes from B4A Designer and it is not added manually.
But I think, this cannot be the reason for this runtime issue.

In a next post, I will also describe another issue ... could be that a command is missing in this case.

Thanks all of you for the big help.

Best regards
ARTsoft

artsoft · May 9, 2020

In my app I need to know the action (the touch action) on how to scroll the table content!

To the developer of this table custom view:

I added this code at the end of the method DesignerCreateView:

B4X:

    Dim R As Reflector
    R.Target = SV2
    R.SetOnTouchListener("Table_Touch")

And in the Table.bas code I added this Sub correspondent to the code above:

B4X:

Sub Table_Touch(ViewTag As Object, Action As Int, X As Float,Y As Float, Motionevent As Object) As Boolean
    If SubExists(cCallBack, cEventName & "_Touch") Then
        CallSub2(cCallBack, cEventName & "_Touch", Action)
    End If
    Return False
End Sub

Then, within my app, I can simple react to the relevant action.
In my case this the ACTION_UP action:

B4X:

Sub Table1_Touch (Action As Int)

    If (Action == Activity.ACTION_UP) Then
        Tools.protectStart
    End If

End Sub

The scroll change event fires to often an event ..... so this event is not a good solution in my case.

Only an idea...

Best regards
ARTsoft

artsoft · May 9, 2020

Ok, this is the post now which describes another (small) problem.

So, I hope this issue is only on my side here - cause of missing commands or something like this.

Description:

1. I have added manually a Table object in my Activity. This is the Table object with the PRIVATE and DIM statement commands. (See above!)

2. If I add only strings, which are (in sum) smaller than the width of the table object (that means: There is no need to scroll vertically in order to see all table data), then I cannot select a row. It feels that the Table object is disable for any touches, moves or clicks.

3. If I add longer strings, which are (in sum) greater than the width of the Table object (that means: There is a need now to scroll vertically in order to see all table data), then I can work with the table normally: I can select or unselect rows (ZeroSelection is set to TRUE), I can scroll the table ...... absolutely normal.

Therefore my question: Whats wrong here? Do I make a mistake?

This is my update method (while reading a list of data):

B4X:

    Table2.clearSelection
    Table2.ClearAll

    selected_row = -999
    
    Sleep(0)

    Table2.SetHeaderTypeFaces(Array As Typeface(font_bold_g))
    Table2.SetTypeFaces(Array As Typeface(font_normal_g))

    Table2.InitializeTable(4, Gravity.LEFT, False)
    Table2.SetHeader(Array As String("Title", "Bold", "Password", "Max"))

    Table2.TextSize = 13

    Table2.RowHeight = (Table2.Height / 5)
    Table2.HeaderHeight = (Table2.Height / 5)

    Table2.ZeroSelection = True
    Table2.ShowStatusLine = False

    If (mylist.Size > 0) Then
        
        For i = 0 To (mylist.Size -1)
            
            Dim ff As form_field
            Dim s(4) As String

            ff = mylist.Get(i)
            
            s(0) = ff.title
            
            If (ff.bold == 1) Then
                s(1) = "yes"
            Else
                s(1) = "no"
            End If

            If (ff.password == 1) Then
                s(2) = "yes"
            Else
                s(2) = "no"
            End If
            
            s(3) = ff.maxchars
            
            Table2.AddRowAutomaticWidth(s)
        
        Next
        
    Else
        ' no opcode       
    End If

    Table2.RefreshTable

Best regards
ARTsoft

B4A Library [Class] Flexible Table

Attachments

Member

Member

Attachments

Member

Member

Member

Expert

Member

Expert

Member

Attachments

Expert

Expert

Active Member

Active Member

Member

Member

Expert

Attachments

Member

Attachments

Active Member

Active Member

Active Member

Similar Threads