(No WRAP, but B4A) 
I've been in a new challenge. I reworked a little release published by @JordiCP. Find Here
He entered the Java code taken by GitHub (see https://github.com/henrychuangtw/Android-ChatHead) and wrapped it with "#IF JAVA" inside a B4A module.
With his permission I extended a bit of the B4A code and retouched the Java code (for that little I remember Java) and I realized one thing I longed for: A flying button that always stands out even on other Apps On the Desktop.
You can get the full version by making a donation..
SD_FloatingStandOut
Author: Star-Dust
Version: 0.09
N.B. Don't forget ADD to Manifest
<uses-permission android:name="android.permission.SYSTEM_ALERT_WINDOW"/>
request permission SDK 23+
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
With resumable sub
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			I've been in a new challenge. I reworked a little release published by @JordiCP. Find Here
He entered the Java code taken by GitHub (see https://github.com/henrychuangtw/Android-ChatHead) and wrapped it with "#IF JAVA" inside a B4A module.
With his permission I extended a bit of the B4A code and retouched the Java code (for that little I remember Java) and I realized one thing I longed for: A flying button that always stands out even on other Apps On the Desktop.
You can get the full version by making a donation..
SD_FloatingStandOut
Author: Star-Dust
Version: 0.09
- FloatingStandOut
 Code module
 Subs in this code module will be accessible from all modules.- Fields:- ActiveService As Boolean
- ENABLEDROP As Boolean
- EventClick As String
- EventDoubleClick As String
- EventLongClick As String
- EventMove As String
- HALF_STICK_TO_BORDER As Boolean
- HeightImage As Int
- NameFileImage As String
- NotificationBody As String
- NotificationTitle As String
- PathImage As String
- StartActivity_OnClick As Boolean
- StartActivity_OnDoubleClick As Boolean
- StartActivity_OnLongClick As Boolean
- STICK_TO_BORDER As Boolean
- StopFloating_OnClick As Boolean
- StopFloating_OnDoubleClick As Boolean
- StopFloating_OnLongClick As Boolean
- WhiteCircle As Boolean
- WidthImage As Int
- X As Int
- Y As Int
 
- Functions:- Process_Globals As String
- SetEvent (EventName As String) As String
 SetEvent("FL")
 Sub FL_OnClick(X as int, Y as int)
 Sub FL_OnDoubleClick(X as int, Y as int)
 Sub FL_OnLongClick(X as int, Y as int)
 Sub FL_OnMove(X as int, Y as int)
- SetImageBitmap (img As Bitmap) As String
- SetStartActivity (OnClick As Boolean, OnDoubleClick As Boolean, OnLongClick As Boolean) As String
- SetStopFloating (OnClick As Boolean, OnDoubleClick As Boolean, OnLongClick As Boolean) As String
- Start (Me_CallBack As Object) As String
 Es. Start(Me,Application.PackageName)
- Stop As String
 
 
- Fields:
- SpecialPermission- Functions:- ActivatePermissionResumable As ResumableSub
- Class_Globals As String
- GetPermission As Boolean
- Initialize  As String
 Inizializza l'oggetto. Puoi aggiungere parametri a questo metodo,se necessario.
- IsInitialized  As Boolean
 Verifica se l'oggetto sia stato inizializzato.
- OpenSettingPermission As String
- SdkVersion As Int
 
 
- Functions:
- chElement- Fields:- active As Boolean
- id As Int
- instance As JavaObject
- IsInitialized As Boolean
 Verifica se l'oggetto sia stato inizializzato.
- ttype As chType
- xpos As Int
- ypos As Int
 
- Functions:- Initialize
 Inizializza i campi al loro valore predefinito.
 
- Initialize
 
- Fields:
- standout- Fields:- CallBack As Object
- Snotif As Notification
 
- Functions:- process_globals
 
 
- Fields:
N.B. Don't forget ADD to Manifest
<uses-permission android:name="android.permission.SYSTEM_ALERT_WINDOW"/>
request permission SDK 23+
			
				B4X:
			
		
		
		    Dim Permission As SpecialPermission
    Permission.Initialize
    If Permission.GetPermission Then
        FloatingStandOut.Start(Me)
    Else
        Permission.OpenSettingPermission
    End IfWith resumable sub
			
				B4X:
			
		
		
		Sub RequestPermission
    Dim Permission As SpecialPermission
    Permission.Initialize
    Log(Permission.GetPermission)
    Wait For (Permission.ActivatePermissionResumable) Complete (Success As Boolean)
    If Success Then FloatingStandOut.Start(Me)
End SubAttachments
			
				Last edited: 
			
		
	
							 
				 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		