B4A Library [B4A] [XUI] New Library - HaloAdvanced

Hello,
HaloAdvanced 1.01 - This is a useful new library.
It allows you to enrich almost every list with the HALO EFFECT, which sometimes lacks this visual effect.
So, meeting possible needs, I made this contribution:

An example of calling it up in the menu (aspm_adva) by entering only two lines of code:

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    aspm_halo.initialize
End Sub

Private Sub aspm_adva_ItemClick(Index As Int,Tag As Object)
    Try
  
    aspm_halo.CreateHaloEffect(aspm_adva.CustomListView.GetPanel(Index),aspm_adva.CustomListView.GetPanel(Index).Width/2,aspm_adva.CustomListView.GetPanel(Index).Height/2,0x9BFFFFFF)
    Select Index
        Case 0
            Return
        Case 1
            If Starter.loc.UsrLng.EqualsIgnoreCase("en") Or Starter.loc.Locale.EqualsIgnoreCase("en") Then Return
            Starter.loc.UsrLng = "en"
            Starter.loc.ForceLocale("en")
        Case 3
            If Starter.loc.UsrLng.EqualsIgnoreCase("pl") Or Starter.loc.Locale.EqualsIgnoreCase("pl") Then Return
            Starter.loc.UsrLng = "pl"
            Starter.loc.ForceLocale("pl")
        Case 5
            If Starter.loc.UsrLng.EqualsIgnoreCase(Starter.loc.FindLocale) Then Return
            Starter.loc.UsrLng = Starter.loc.FindLocale
            Starter.loc.ForceLocale(Starter.loc.UsrLng)
        Case Else
            'more ...
    End Select

    Main.pmr.SetString("lang", Starter.loc.UsrLng)
    Starter.loc.LocalizeLayout(svMainScrollView.Panel)
    If SubExists(Main, "RestartActivity") Then CallSub(Main, "RestartActivity")
  
    Catch
        Return
    End Try
End Sub

---

If any of my posts were helpful, please consider a donation of any amount
... or clicking the Like button would be appreciated too.

 

[Alexander Stolte]

Good menu choice
Looks good.

The UI behind the menu also seems to be nice

 

[T201016]

Hi, @Alexander Stolte
I just watched your ASPopupMenuAdvanced execution, where I missed the halo effect in one of the lists, and I came up with my own library like that.