#Region Project Attributes
#ApplicationLabel: PowerMenu
#VersionCode: 1
#VersionName: 2023.09.08
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#AdditionalRes: C:\Users\ccp\Desktop\PowerMenu\resAccessibility\res, com.tillekesoft.accessibilityservices
#End Region
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: False
#End Region
Sub Process_Globals
Private xui As XUI
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime = True Then
Activity.LoadLayout("layMain")
CallSubDelayed(AccServ,"Check_ServiceEnabled")
End If
End Sub
Sub Activity_Resume
Log("Resume")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
Log("Pause")
End Sub
'Chiude l'applicazione
Sub Application_Exit
Dim jo As JavaObject
jo.InitializeContext
jo.RunMethod("finishAndRemoveTask", Null)
ExitApplication
End Sub
Private Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
Application_Exit
Return True
End Sub