Sub Activity_KeyPress (KeyCode As Int) As Boolean
'Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "Activity_KeyPress", Array(KeyCode))
Return True
End Sub
Sub Activity_Resume
'B4XPages.Delegate.Activity_Resume
B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "Activity_Resume",Array(Null))
End Sub
Sub Activity_Pause (UserClosed As Boolean)
'B4XPages.Delegate.Activity_Pause
B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "Activity_Pause",Array(UserClosed))
End Sub