B4J Library [B4X] [XUI] SD FlexGrid (Table)

I created a new library to show a table (or grid) similar to the one in EXCEL.

There are already excellent classes that allow many to accomplish things, such as xCustomListView by @Erel (B4X) and with the FlexibleTable by @klaus (B4A). I wanted to make something slightly different suited to my needs.

WARNING
The use of libraries for personal and / or commercial use is permitted. It is not allowed to modify the sources or change the name of the library. Reverse engineering is not authorized to access the sources for any reason, not even for study or learning reasons.

Explanations:
  1. To get the calculation of the cells that contain a formula I have added Erel's B4XEval to my Library, but as soon as possible I will make it external so that everyone can modify it according to their needs.
  2. To select multiple cells, position yourself on the first cell of those to be selected (the one at the top left) click a shot and then click again and drag your finger to cover all the cells (or area) that you want to select
  3. It is still in beta version, presents problems in large grids.
  4. Now only for B4A and B4i Now for B4A,B4i,B4j
  5. In the example to select a group of cells just long click on a cell (not checkbox). In the case of B4J click with the right mouse button

SD_FlexGrid

Author:
Star-Dust
Version: 0.45
  • Eval
    version 2.00
    Eval Method By Erel: https://www.b4x.com/android/forum/threads/b4x-eval-expressions-evaluator.54629/
    • Fields:
      • Error As Boolean
    • Functions:
      • Calculate (Expression As String) As Double
      • Class_Globals As String
      • Initialize (FG As FlexGrid) As String
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
  • FlexGrid
    • Events:
      • CellClick (Row As Int, Col As Int)
      • CellLongClick (Row As Int, Col As Int)
      • FeetClick (Index As Int)
      • HeadClick (Index As Int)
      • Modified (Row As Int, Col As Int)
      • ScrollX (Position As Double)
      • ScrollY (Position As Double)
    • Fields:
      • EditBackgroundColor As Int
      • EditTextColor As Int
      • TypeButton As Int
      • TypeCheck As Int
      • TypeDouble As Int
      • TypeFloat As Int
      • TypeImage As Int
      • TypeInt As Int
      • TypeList As Int
      • TypeString As Int
    • Functions:
      • AddRow (Cell As Object(), Refresh As Boolean) As String
        eg. Flexgrid.AddRow(Array As Object(i,B,"User ","Description " ,100.00), True)
      • AddRow2 (Cell As Object(), HeightRow As Int, Refresh As Boolean) As String
        eg. Flexgrid.AddRow(Array As Object(i,B,"User ","Description " ,100.00),40dip,True)
      • AddRowAt (index As Int, Cell As Object(), Refresh As Boolean) As String
        eg. Flexgrid.AddRow(2,Array As Object(i,B,"User ","Description " ,100.00), True)
      • AddRowCustomize (Cell As Object(), Text_Color As Int, Background_Color As Int, TextFont As B4XFont, Refresh As Boolean) As String
      • AddToParent (Parent As B4XView, Left As Int, Top As Int, Width As Int, Height As Int, ColsNumber As Int) As String
        Parent is Panel to Add Grid
        eg. Flexgrid.AddToParent(Activity,0,0,100%x,100%y,5)
      • Class_Globals As String
      • ClearRows As String
        erase all rows contents
      • ClearSelection As String
        cell no longer be selected.
      • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
        Base type must be Object
      • EditCell (Row As Int, Col As Int) As String
        eg. Flexgrid.EditCell(1,1)
      • EditCellOnSite (Row As Int, Col As Int) As String
        eg. Flexgrid.EditCell(1,1)
      • GetCellBackgroundColor (Row As Int, Col As Int) As Int
      • GetCellCol (Col As Int) As Object()
        eg. Dim S() as String = Flexgrid.GetCellCol(1)
        eg. Dim B() as Boolean = Flexgrid.GetCellCol(2)
      • GetCellRow (Row As Int) As Object()
        eg Dim Row() as Object = Flexgrid.GetCellRow(1)
      • GetCellTextColor (Row As Int, Col As Int) As Int
      • GetCellTextFont (Row As Int, Col As Int) As B4XFont
      • GetCellValue (Row As Int, Col As Int) As Object
        eg. Dim I as int = Flexgrid.GetCellValue(1,1)
        eg. Dim S as String = FlexGrid.GetCellValue(2,2)
      • GetTypeCol (Col As Int) As Int
        eg. If Flexgrid.GetTypeCol(1)=Flexgrid.TypeInt Then .....
      • Initialize (Callback As Object, EventName As String) As String
      • Invalidate As String
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • RemoveRow (Row As Int) As String
        Row (0...n-1)
        eg. Flexgrid.RemoveRow(1)
      • ResetCustomizeCell (Col As Int, Row As Int) As String
        eg. Flexgrid.ResetCustomizeCell(1,1)
      • SearchInColumn (Text As String, Col As Int, FromRow As Int, exactly As Boolean, IgnoreCap As Boolean) As Int
        Search for text in the indicated column starting from the start row.
        If the start row is 0 it will check the entire column.
        It will return the position of the line containing the text
        <code>Dim Col As Int = 5
        Dim Row As Int = FlexGied1.SearchInColumn("My text",Col,0, False, True)
        if Row>-1 then Log("Find in row " & Row) Else log("Don't find")
        </code>
      • SearchInColumn2 (Text As String, Col As Int, FromRow As Int, exactly As Boolean, IgnoreCap As Boolean) As List
        Search for text in the indicated column starting from the start row.
        If the start row is 0 it will check the entire column.
        It will return the list of position of the line containing the text
        <code>Dim Col As Int = 5
        Dim IndexFinded As List = FlexGied1.SearchInColumn2("My text",Col,0, False, True)
        if IndexFinded.Size>0 then Log("Find in row " & Row) Else log("Don't find")
        </code>
      • SelectCell (Row As Int, Col As Int, Mobile As Boolean) As String
        eg. Flexgrid.SelectCell(1,1,True)
        If Mobile is True, the selectable area can be enlarged by touching and dragging it to the desired box.
      • SelectCells (FromRow As Int, FromCol As Int, ToRow As Int, ToCol As Int, Mobile As Boolean) As String
        eg. Flexgrid.SelectCell(1,1,5,4,True)
        If Mobile is True, the selectable area can be enlarged by touching and dragging it to the desired box.
      • SelectCol (Col As Int) As String
        eg. Flexgrid.SelectCol(1)
      • SelectRow (Row As Int) As String
        eg. Flexgrid.SelectRow(1)
      • SetCellCustomize (Row As Int, Col As Int, Text_Color As Int, Background_Color As Int, TextFont As B4XFont) As String
        eg. Flexgrid.SetCellCustomize(1,1,XUI.Color_Black,XUI.Color_White,XUi.CreateDefaultFont(12))
      • SetCellListIndex (Row As Int, Col As Int, Index As Int) As String
      • SetCellValue (Row As Int, Col As Int, Value As Object) As String
        eg. Flexgrid.SetCellValue(1,1,True)
        eg. Flexgrid.SetCellValue(2,2,"OK")
        eg. Flexgrid.SetCellValue(3,3,3)
        eg. Flexgrid.SetCellValue(Row,Col,"A,B,C,D,E") for TypeList
      • SetColAlignment (ColumnIndex As Int, Alignment As String) As String
        Index (0..n-1)
        eg. SetColAlignment(0,"CENTER")
      • SetColCustomize (Col As Int, Text_Color As Int, Background_Color As Int, TextFont As B4XFont) As String
        eg. Flexgrid.SetColCistomize(1,XUI.Color_Black,XUI.Color_White,XUi.CreateDefaultFont(12))
      • SetColName (ColumnIndex As Int, Name As String) As String
        Index (0..n-1)
        eg. Flexgrid.SetColName(1,"Help")
      • SetColsNumber (ColumnNumber As Int) As String
        Reset Grid and Change Cols Number
      • SetColType (ColumnIndex As Int, Typ As Int) As String
        Index (0..n-1)
        eg. SetColType(0,FlexGrid.TypeInt)
      • SetColWidth (ColumnIndex As Int, Width As Int) As String
        Index (0..n-1)
        eg. SetColWidth(0,100dip)
      • SetDataRow (Row As Int, Cell As Object()) As String
        eg. Flexgrid.SetRow(Row,Array As Object(i,B,"User ","Description " ,100.00))
      • SetDataRow2 (Row As Int, Cell As Object(), HeightRow As Int) As String
        eg. Flexgrid.SetRow2(Row,Array As Object(i,B,"User ","Description " ,100.00),40dip)
      • SetFeetHeight (Height As Int) As String
        Set Header Height
      • setFootColValue (col As Int, Fv As String) As String
        eg. Flexgrid.FeetValue=array As String ("First","Second")
      • setHeaderAlignment (Col As Int, Alignment As String) As String
        eg. Flexgrid.HeaderAlignment="CENTER"
      • SetHeadHeight (Height As Int) As String
        Set Header Height
      • SetPadding (Left As Int, Top As Int, Right As Int, Bottom As Int) As String
        eg. FlexGrid1.SetPadding(10dip,0,10dip,0)
      • SetRowCustomize (Row As Int, Text_Color As Int, Background_Color As Int, TextFont As B4XFont) As String
        eg. Flexgrid.SetRowCustomize(1,XUI.Color_Black,XUI.Color_White,XUi.CreateDefaultFont(12))
      • SetRowHeight (IndexRow As Int, Height As Int) As String
        IndexRow (0..Size-1)
        eg. setRowHeight(0,60dip)
      • SetRowsHeight (Height As Int) As String
        Set all Rows Height
      • SetSingleLine (SLine As Boolean) As String
        To set the cells to single or multiple lines
      • SortForCol (Column As Int) As String
    • Properties:
      • Base As B4XView [read only]
      • ColCount As Int [read only]
      • ColorSelectedArea
        Set the color of the selected area
      • ColorSelectingArea
        Set the color of the area during the selection phase
      • ColsAlignment
        eg. setColsAlignment(Array As String ("LEFT","CENTER","CENTER","RIGHT"))
      • ColsName As String()
        eg. Flexgrid.ColName=array As String ("First","Second")
      • ColsType
        eg. ColsType=Array As Int(FlexGrid1.TypeInt,FlexGrid1.TypeCheck,FlexGrid1.TypeString,FlexGrid1.TypeString,FlexGrid1.TypeFloat)
      • ColsWidth
        eg. SetColsWìdth(Array As Int (100dip,50dip,100dip,100dip))
      • Font
        eg. Flexgrid.Font=xui.CreateDefaultFont(12)
      • FootFont
        eg. Flexgrid.FeetFont=xui.CreateDefaultFont(12)
      • FootValue As String()
        eg. Flexgrid.FeetValue=array As String ("First","Second")
      • FootVisible
        eg. FG.FeetVisible=True
      • HeaderFont
        eg. Flexgrid.HeaderFont=xui.CreateDefaultFont(12)
      • HeaderVisible
        eg. FG.HeadVisible=True
      • Height As Int
      • RowCount As Int [read only]
        Dim Size as int = Flexgrid.RowCount
      • ScrollToCol
        eg. Flexgrid.ScroolToCol=50 (Col= 0..Size-1)
      • ScrollToRow
        eg. Flexgrid.ScroolToRow=50 (Row= 0..Size-1)
      • ScrollX As Double
      • ScrollY As Double
      • SelectedColumnEnd As Int [read only]
        return -1 if not selected
      • SelectedColumnStart As Int [read only]
        return -1 if not selected
      • SelectedRowEnd As Int [read only]
        return -1 if not selected
      • SelectedRowStart As Int [read only]
        return -1 if not selected
      • Width As Int


Video1.gif
Video2.gif
Video4.gif

Video5.gif
Video6.gif
Video3.gif


List/Spinner
video7-gif.118379


For more details: https://www.b4x.com/android/forum/threads/xui-flexgrid.98686/

Significative release logs:
  • 0.12
    • Add method SelectCells (FromRow As Int, FromCol As Int, ToRow As Int, ToCol As Int, Mobile As Boolean)
    • Modify method SelectCell (Row As Int, Col As Int, Mobile As Boolean)
  • 0.15: Added HeaderFont
  • 0.16: Added SetColsNumber method.
  • 0.19 (Sample)
    • Add method AddRowCustomize (Cell As Object()
    • Add method SearchInColumn (Text As String, Col As Int, FromRow As Int, exactly As Boolean, IgnoreCap As Boolean) As Int
  • 0.21
    • Add TypeList. Allows you to add a ComboBox type box (Spinner in B4A and Picker in B4i) and select to a list
    • Added other examples to POST n. 2 To populate the grid from the database, search for a string in a column and to use TypeList in the grid
    • added SetCellListIndex method to change the position of the selected index
  • 0.25
    • Added SetHeadHeight method
      sets the height of the header
    • Added SetRowsHeight method
      sets the height of all lines
  • 0.27
    • added properties ScrollX and ScrollY
    • Added events ScrollX() and ScrollY()
  • 0.29: Fixed bugs in vertical scrolling
  • 0.31
    • Added SortForCol(Column As Int)
    • Added SetDataRow(Row As Int, Cell() As Object) and SetDataRow2(Row As Int, Cell() As Object, HeightRow As Int)
    • Added field ColorSelectedArea and ColorSelectingArea
    • Fix bug
  • 0.32
    • Added SearchInColumn2. Returns the list of search result lines
  • 0.33
    • Added setHeaderAlignment
  • 0.34
    • Added the ability to freeze the last row (foot row) as well as the header so you can enter column totals that always remain visible
    • Fix minor bugs
  • 0.35
    • Added the ability to select from Design that text cells are single or multiline
  • 0.36
    • Fix bugs: SortForCol; SetColsNumber
  • 0.37
    • Added: EditTextColor and EditBackgroundColor fields to be able to select colors for the on-site editable cell. By default it is black background and white text
  • 0.38
    • Fixed bug on CheckBox alignment
  • 0.39
    • Singleline and multiline option of the design now also affects the column header and column foot
  • 0.40
    • Added ScrollToCol (together with ScrollToRow it is possible to position in a specific cell)
  • 0.41
    • Fix bug
  • 0.42
    • Added Width and Height to change the size of the grid from code during execution
  • 0.43
    • Fixed bug on SearchInColumn2
  • 0.44
    • Added SetSingleLine - To set the cells to single or multiple lines
  • 0.45
    • Added SetPadding
 

Attachments

  • B4A Sample.zip
    31 KB · Views: 1,398
  • B4i Sample.zip
    24.2 KB · Views: 720
  • B4j Sample.zip
    23.9 KB · Views: 1,139
  • SD_FlexGrid 0.45.zip
    37.9 KB · Views: 323
  • jSD_FlexGrid 0.45.zip
    38.7 KB · Views: 221
  • iSD_FlexGrid 0.45.zip
    327.4 KB · Views: 198
Last edited:

Star-Dust

Expert
Licensed User
Longtime User
Release new version
  • 0.36
    • Fix bugs: SortForCol; SetColsNumber
 

David Hawkins

Active Member
Licensed User
Longtime User
Star-Dust excellent work sorting now sorted.
Regards
David

PS if it's not rude can I suggest some more changes in the future please, I have some ideas which I think will make the library the greatest grid on Earth-Solar System-Milky-Way-Universe.
 

Star-Dust

Expert
Licensed User
Longtime User
Of course you can suggest. I don't always have the time to make changes, but I'm happy to do it when I can.

I generally prefer improvements that are useful to everyone and that have general application. Some only suggest things that only serve their application but that others would not benefit from.
 

Star-Dust

Expert
Licensed User
Longtime User
Sorry there is no such function
 

David Hawkins

Active Member
Licensed User
Longtime User
Hi Star-Dust Are you saying that the text and background colors cannot be changed or that there is no 'EditCellonsite' function.

EditCellonsite:
        If Col = 2 Then
            FlexGrid1.EditCellonsite(Row, 2)
        End If

Regards

David
 

Star-Dust

Expert
Licensed User
Longtime User
Sorry there is no such function to change the background and text color for Editor Cell
 

David Hawkins

Active Member
Licensed User
Longtime User
Hi Star-Dust is there a way to center the FlexGrid1.TypeCheck the following code does not do it.

Flex Grid:
        FlexGrid1.ColsName = Array As String("Select", "LocationID", "Locations")
        'FlexGrid1.HeaderFont = xui.CreateDefaultBoldFont(16)
        FlexGrid1.ColsWidth = Array As Int(20%x, 0, 80%x)
        FlexGrid1.ColsType = Array As Int(FlexGrid1.TypeCheck, FlexGrid1.TypeInt, FlexGrid1.TypeString)
        FlexGrid1.ColsAlignment = Array As String("CENTER", "CENTER", "CENTER")
 

Star-Dust

Expert
Licensed User
Longtime User
Hi Star-Dust Are you saying that the text and background colors cannot be changed or that there is no 'EditCellonsite' function.

EditCellonsite:
        If Col = 2 Then
            FlexGrid1.EditCellonsite(Row, 2)
        End If

Regards

David
  • Added: EditTextColor and EditBackgroundColor fields to be able to select colors for the on-site editable cell. By default it is black background and white text
Hi Star-Dust is there a way to center the FlexGrid1.TypeCheck the following code does not do it.

Flex Grid:
        FlexGrid1.ColsName = Array As String("Select", "LocationID", "Locations")
        'FlexGrid1.HeaderFont = xui.CreateDefaultBoldFont(16)
        FlexGrid1.ColsWidth = Array As Int(20%x, 0, 80%x)
        FlexGrid1.ColsType = Array As Int(FlexGrid1.TypeCheck, FlexGrid1.TypeInt, FlexGrid1.TypeString)
        FlexGrid1.ColsAlignment = Array As String("CENTER", "CENTER", "CENTER")
fix bugs on rel. 0.38
 

Star-Dust

Expert
Licensed User
Longtime User
Update rel . 039

Singleline and multiline option of the design now also affects the column header and column foot
 

Mauricio Pereira

Member
Licensed User
Longtime User
Update rel . 039

Singleline and multiline option of the design now also affects the column header and column foot

Update rel . 039

Singleline and multiline option of the design now also affects the column header and column foot
Star-Dust
I'm using Flexgrid (excellent).
I'm having the following problem:
Several statements are executed and the table is assembled (using Flexgrid1.AddRow, etc...)
In the sequence, when the command "FlexGrid1.EditCellOnSite(0,0)" is executed, the program cancels with the message "java.lang.Runtime.Exception: Object should first be initialized (B4XView)".
What has to be initialized?
 

Star-Dust

Expert
Licensed User
Longtime User
I don't have this problem, please make a code example that throws you this error. Please specify which platform you are working on
 

Mauricio Pereira

Member
Licensed User
Longtime User
I don't have this problem, please make a code example that throws you this error. Please specify which platform you are working on
Star-Dust
My mistake.

I had set up the entire table structure but had not created the cells. So I was trying to edit what didn't exist.
Sorry for wasting your time but once again congratulations for the librarie.
 

Mauricio Pereira

Member
Licensed User
Longtime User
Star-Dust
My mistake.

I had set up the entire table structure but had not created the cells. So I was trying to edit what didn't exist.
Sorry for wasting your time but once again congratulations for the librarie.
Star-Dust
I have an application using your FlexGrid librarie.
It is basically a data entry table (only numbers and the letter M).
To enter data in each cell of the table I used a "own keyboard" and filled the cell with SendKeys.
It worked perfectly.
But, with Android 13, SendKeys doesn't work anymore.
Can I have access to the Flexgrid editing "field"?
I tried with Flexgrid getvalue and flexgrid setvalue but it doesn't work because when using these functions the editing of the cell "turns off".
If I had access to "edit variable", I could do, for example:
edit field = edit field & "1"", edit field = edit field & "2", etc...
Ideally, input values should appear in the cell being edited.
Thank you in advance for your attention.
 

Star-Dust

Expert
Licensed User
Longtime User
You can do this without accessing the view. Do not use EditCellOnSite but when you click on the cell you open your own panel with an EditText that you can customize as you wish
 

Mauricio Pereira

Member
Licensed User
Longtime User
You can do this without accessing the view. Do not use EditCellOnSite but when you click on the cell you open your own panel with an EditText that you can customize as you wish
Star-Dust,
Yes, I had already thought about this solution but, if I understand correctly, the entered data will appear in Editext and at the "end" will be moved to the cell being edited.
The solution with senkeys was more "elegant" 😃 because the data being entered appeared in the cell itself being edited.
 

Mauricio Pereira

Member
Licensed User
Longtime User
Star-Dust,
Yes, I had already thought about this solution but, if I understand correctly, the entered data will appear in Editext and at the "end" will be moved to the cell being edited.
The solution with senkeys was more "elegant" 😃 because the data being entered appeared in the cell itself being edited.
Star-Dust,
Initially, I clarify that all the questions below are exclusively by code, that is, without touching the screen.
In an application using your Flexgrid, we have 6 columns and several rows.
Because of the size of the screen, only 3 columns are displayed at a time. If we use EditOnSite, and scroll to the right in the same row, when we reach column 4 the screen scrolls automatically and columns 2, 3 and 4 are visible. Even when we reach the last column and move forward, the screen scrolls to column 1 of the next row.
When instead of Editonsite we use SelectCell, the scroll does not happen. So when we move from column 3 to 4 (by code), the cell is selected but invisible unless scrolling by hand.
My question is whether we can do this scrolling by code.
Thank you in advance for your attention.
 
Top