Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
FloatingStandOut.SetEvent("FL")
FloatingStandOut.PathImage=File.DirAssets
FloatingStandOut.NameFileImage="iniciologin.png"
FloatingStandOut.X=50%x
FloatingStandOut.Y=50%y
FloatingStandOut.SetStartActivity(True,True,False)
' FloatingStandOut.SetStopFloating(False,False,True)
End Sub
Sub Activity_Resume
' FloatingStandOut.Stop
End Sub
Sub FL_OnClick(X As Int, Y As Int)
Log("FL_OnClick")'<-----------------Here---------'
StartActivity(Me)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
' FloatingStandOut.Start(Me)
End Sub
Sub Button1_Click
Dim Permission As SpecialPermission
Permission.Initialize
If Permission.GetPermission Then
FloatingStandOut.Start(Me)
Else
Permission.OpenSettingPermission
End If
Activity.Finish
End Sub