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:
If any of my posts were helpful, please consider a donation of any amount
... or clicking the Like button would be appreciated too.
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:
Calling example:
'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 SubIf any of my posts were helpful, please consider a donation of any amount
Last edited:
