Android Question [Class] Flexible Table

Sergey_New

Well-Known Member
Licensed User
Longtime User
If possible, how can I change a short press to a long press and vice versa depending on the app settings?
If this isn't possible, what are your suggestions for using the following tapping methods in lists, tables, and the like:
1. Short press - to open the contents of a table row.
2. Long press - to select a row only.
 
Solution
In the Table class you have the Cell_Click Routine and the Cell_LongClick routine.
You should manage the difference in these routines.
B4X: 
Private Sub Cell_Click
    Dim rc As RowCol
    Dim L As Label
    L = Sender
    rc = L.Tag

'    SelectRow(rc.Row)
    SelectRow(rc)
    If SubExists(cCallBack, cEventName & "_CellClick") Then
        CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
    End If
End Sub
Depending on your global variable you could call either
CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
or
CallSub3(cCallBack, cEventName & "_CellLongClick", rc.Col, rc.Row)
Or any other routine.

And the same in the the other one.
Sort by date Sort by votes

klaus

Expert
Licensed User
Longtime User
In the Table class you have the CellClick and the CellLongClick events.
It is up to you to do what you want with each event.
You can check in each event the current settings and execute different code depending on these settings.
 
Upvote 0

Sergey_New

Well-Known Member
Licensed User
Longtime User
klaus said:
It is up to you to do what you want with each event.
Click to expand...
Thanks! I do this for every Activity containing a Table.
I'd like to use a variable from the application to modify the CellClick and CellLongClick events in the class itself.
 
Upvote 0

klaus

Expert
Licensed User
Longtime User
Sorry, but i do not want to modify the class for specific needs.
The class must remain 'universal'.
But anyway, as you have the source code, feel free to make the modifications for your special requirements.
The source code is open source and you can use it and modify it.
 
Upvote 0

Sergey_New

Well-Known Member
Licensed User
Longtime User
klaus said:
The source code is open source and you can use it and modify it.
Click to expand...
I tried this, but it didn't work.
Can you tell me how to change the class that produces the desired result?
 
Upvote 0

Sergey_New

Well-Known Member
Licensed User
Longtime User
klaus said:
Show me what you have tested
Click to expand...
I add the required value (Starter.OneClick) to this code
B4X: 
Private Sub InitTable
    Data.Initialize
    If visibleRows.IsInitialized=False Then
        If Starter.OneClick Then
            Cell_Click
        Else
            Cell_LongClick
        End If
    End If
    visibleRows.Initialize
    '...
Perhaps new functions need to be created for Cell_Click and Cell_LongClick, but I don't know how to do that correctly.
 
Upvote 0

klaus

Expert
Licensed User
Longtime User
In the Table class you have the Cell_Click Routine and the Cell_LongClick routine.
You should manage the difference in these routines.
B4X: 
Private Sub Cell_Click
    Dim rc As RowCol
    Dim L As Label
    L = Sender
    rc = L.Tag

'    SelectRow(rc.Row)
    SelectRow(rc)
    If SubExists(cCallBack, cEventName & "_CellClick") Then
        CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
    End If
End Sub
Depending on your global variable you could call either
CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
or
CallSub3(cCallBack, cEventName & "_CellLongClick", rc.Col, rc.Row)
Or any other routine.

And the same in the the other one.
 
Upvote 0
Solution

Sergey_New

Well-Known Member
Licensed User
Longtime User
klaus said:
Depending on your global variable you could call either
Click to expand...
Thank you so much, everything works!
Here's what I got.
B4X: 
Private Sub Cell_LongClick
    Dim rc As RowCol
    Dim L As Label
    L = Sender
    rc = L.Tag
    SelectRow(rc)
    If SubExists(cCallBack, cEventName & "_CellLongClick") Then
        If Starter.OneClick Then
            CallSub3(cCallBack, cEventName & "_CellLongClick", rc.Col, rc.Row)
        Else
            CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
        End If
'        CallSub3(cCallBack, cEventName & "_CellLongClick", rc.Col, rc.Row)
    End If
End Sub

Private Sub Cell_Click
    Dim rc As RowCol
    Dim L As Label
    L = Sender
    rc = L.Tag
    SelectRow(rc)
    If SubExists(cCallBack, cEventName & "_CellClick") Then
        If Starter.OneClick Then
            CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
        Else
            CallSub3(cCallBack, cEventName & "_CellLongClick", rc.Col, rc.Row)
        End If
'        CallSub3(cCallBack, cEventName & "_CellClick", rc.Col, rc.Row)
    End If
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Question
Android Question Flexible Table old version
Replies
12
Views
1K
Sergey_New
R
  • Article
B4A Class FlexibleTable, JumpToRowAndSelect problem
Replies
16
Views
3K
RB Smissaert
R
  • Article
B4J Library [B4X] [XUI] SD FlexGrid (Table)
10 11 12
Replies
229
Views
87K
Sylou
M
  • Article
B4A Library [Class] Flexible Table
64 65 66
Replies
1K
Views
415K
klaus
  • Article
B4A Library [Class] TableView - Supports tables of any size
18 19 20
Replies
381
Views
219K
advansis
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…