Android Question CSBuilder Click And Label Click

DonManfred said:

https://www.b4x.com/android/forum/threads/charsequence-csbuilder-tutorial.76226/#content
Check the Tutorial about the Clickable word and use this technique to mark the number clickable. Use the event to dial the number then...

Click to expand...

Erel said:

Maybe it is better to switch to LongClick instead for the label. Otherwise you will get false clicks.

Click to expand...

alon said:

btw, is there a long click for the cs builder?

Click to expand...

Sub Process_Globals
   Private LastCSClick As Long
End Sub

Sub Globals
   Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   Dim cs As CSBuilder
   cs.Initialize.Append("1 2 3 ").Clickable("csLabel1", "tag").Append("click").Pop.Append("...").PopAll
   Label1.Text = cs
   cs.EnableClickEvents(Label1)
End Sub

Sub csLabel1_Click (Tag As Object)
   LastCSClick = DateTime.Now
   Log("cs click")
End Sub

Sub Label1_Click
   Sleep(0)
   If LastCSClick + 200 > DateTime.Now Then
       Log("Ignoring label click")
       Return
   End If
   Log("Label1_Click")
End Sub

Erel said:

No.

Workaround to ignore label clicks:

B4X:

Sub Process_Globals
   Private LastCSClick As Long
End Sub

Sub Globals
   Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   Dim cs As CSBuilder
   cs.Initialize.Append("1 2 3 ").Clickable("csLabel1", "tag").Append("click").Pop.Append("...").PopAll
   Label1.Text = cs
   cs.EnableClickEvents(Label1)
End Sub

Sub csLabel1_Click (Tag As Object)
   LastCSClick = DateTime.Now
   Log("cs click")
End Sub

Sub Label1_Click
   Sleep(0)
   If LastCSClick + 200 > DateTime.Now Then
       Log("Ignoring label click")
       Return
   End If
   Log("Label1_Click")
End Sub

Click to expand...