Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
Dim RowData As Map = B4XTable1.GetRow(RowId)
Dim cell As String = RowData.Get(ColumnId)
B4XPages.SetTitle(Me, cell)
OpenMenu(RowId)
End Sub
Private Sub OpenMenu(RowId As Long)
Dim Counter As Int = 0
For Each VisibleRow As Long In B4XTable1.VisibleRowIds
If VisibleRow = RowId Then
Exit
End If
Counter = Counter +1
Next
Log(Counter)
Dim TargetTop As Float = B4XTable1.mBase.Top + B4XTable1.pnlHeader.Height + B4XTable1.HeadersHeight + B4XTable1.RowHeight*Counter + B4XTable1.RowHeight/2
FloatingActionMenu.Initialize(Me,"FloatingActionMenu",Root)
FloatingActionMenu.Color = xui.Color_White
FloatingActionMenu.TextColor = xui.Color_Black
FloatingActionMenu.ItemProperties.SeperatorVisible = True
FloatingActionMenu.AddItem("Item #1",FloatingActionMenu.FontToBitmap(Chr(0xE190),True,30,xui.Color_Black),0)
FloatingActionMenu.AddItem("Item #2",FloatingActionMenu.FontToBitmap(Chr(0xE190),True,30,xui.Color_Black),1)
FloatingActionMenu.AddItem("Item #3",FloatingActionMenu.FontToBitmap(Chr(0xE190),True,30,xui.Color_Black),2)
Dim Height As Float = FloatingActionMenu.ItemProperties.Height*FloatingActionMenu.Size
If TargetTop + Height > Root.Height Then
TargetTop = Root.Height - Height
End If
FloatingActionMenu.ShowPicker(0,TargetTop,200dip,Height)
Wait For FloatingActionMenu_ItemClicked(Item As AS_FloatingActionMenu_Item)
Select Item.Value
Case 0
Log(Item.Text & " clicked")
Case 1
Log(Item.Text & " clicked")
Case 2
Log(Item.Text & " clicked")
End Select
End Sub