B4A Library Popup Menu/List Library

What it does:
Shows an InputList modal dialog and allows the user to select an item from the list and hides on selection of the item.

Why we may need it:
This will eventually become redundant as Erel adds it to the Core library.
I needed to show some popup menus, and experimented with various ideas (panels, inputlist etc) but none were perfect. This should take care of screen size, modality etc in the same way other dialogs do.

How it works:
Nothing great. I just copied the function InputList from the Core library and replaced:

b.setSingleChoiceItems(items, CheckedItem, dr);

with

b.setItems(items, dr);

So in effect it just removes the RadioButtons from the InputList.

Sample code:

   Dim r As List 
   r.Initialize 
   r.AddAll(Array As String("Download","Upload","Share"))
   
   Dim x As id 
   m = x.InputList1(r,"Hello")
   Msgbox(m,"Result")

 

[Deleted member 103]

Hi thedesolatesoul,

thanks for sharing.

@Erel
can you the function in the core library add?


Ciao,
Filippo

 

[Djembefola]

Nice.
What i'm missing is setting the Position of the Popup Menu. The inputlist is always centered. Especially on a large tablet i would prefer to show it close to the touch coordinates instead of opening it at a fixed centered position.

Thanks for sharing.

 

[thedesolatesoul]

Nice.
What i'm missing is setting the Position of the Popup Menu. The inputlist is always centered. Especially on a large tablet i would prefer to show it close to the touch coordinates instead of opening it at a fixed centered position.

Thanks for sharing.

I have no idea how to do that. But it looks quite hard.

 

[Penko]

I couldn't find this implemented in the core library. Am I doing something wrong or it's just a limitation of B4A?

I want to remove the radiobuttons and have a pure list of options.

 

[thedesolatesoul]

I couldn't find this implemented in the core library. Am I doing something wrong or it's just a limitation of B4A?

I want to remove the radiobuttons and have a pure list of options.

It is not in the core library yet AFAIK. You can use this library for now.

 

[Penko]

I asked because I saw you discussed it a while ago and it may have been added in the meantime.

Thanks for your work!

May I ask that you give it a more sensible name rather than "id". I don't blame you, I just want to help others understand what you've done. To be honest, at the very first reading of your post, when I noticed the "id", it took me about 2 seconds...

Thanks for the work, I already implemented it with your library. By the way, I renamed my local version to InputListEnhanced but was "afraid" to modify the values inside the xml .

 

[thedesolatesoul]

If I were sensible...I would probably be a millionaire
honestly, i cant be bothered to change it now, this was always a temporary solution.
Also, i cant take any credit for this, it is mainly Erel's work. I just tweaked it slightly.

 

[Penko]

I fully understand and appreciate the work of both of you.

Sent from my HTC Desire using Tapatalk

 

[frapel]

:sign0087:

Thanx thanx thanx for "hacking" Erel modal InputList and for sharing with us...
me too I think Erel should add this to Core library 'cause wasn't immediate for me to find this thread...

B4A forum is made of great and hard-working people :icon_clap:
thedesolatesoul, thank you again

 

[unba1300]

What do we do with the id.jar and id.xml files in order to get this working? Thanks.

 

[thedesolatesoul]

Copy them to your additional libraries folder.

Sent from my GT-I9000 using Tapatalk 2

 

[unba1300]

Got it. (Then had to refresh the Libs list and check 'id'). Thank you.

 

[CharlesIPTI]

details

So technically what do you declare the variable 'm' as in your sample
And what is the Type 'id' that x is declared as please ??

Dim r As List
Dim m As UnknownPookiePoo


r.Initialize
r.AddAll(Array As String("Download","Upload","Share"))

Dim x As id
m = x.InputList1(r,"Hello")
Msgbox(m,"Result")

 

[thedesolatesoul]

So technically what do you declare the variable 'm' as in your sample

Integer

And what is the Type 'id' that x is declared as please ??

Is the class name defined in the library. You will need to add the library to your project which is attached in the first post.

 

[cnicolapc]

Congratulations for the library was what I needed.
is there a way to get the string value from the list instead of index?
Thank you
Nicola

 

[thedesolatesoul]

Congratulations for the library was what I needed.
is there a way to get the string value from the list instead of index?
Thank you
Nicola

Yes, there is, if you define your array of strings separately.

Untested code:

Dim Days() As String
Days = Array As String("Sunday", "Monday", "Funday")
Dim r As List 
r.Initialize 
r.AddAll(Days)

Dim x As id 
Dim m as Int
Dim responseString as String
m = x.InputList1(r,"Hello")
Msgbox(m,"Result Integer")
responseString = Days(m)
Msgbox(responseString,"Result String")

 

[cnicolapc]

thank you very much
Nicola

 

[cnicolapc]

Hi,
I would like to use it with a sql query but I'm missing something, what is wrong?
Thank you
Nicola

Sub BtnGenere_CLick
Dim Gene() As String
Dim r As List 
r.Initialize 
Dim x As id 
Dim m As Int
Dim responseString As String


   
   Dim ValoreGenere As String
   Dim r As List
   r.Initialize 
   
   ListaGenere.Initialize("ListaGenere")
   Cursor1 = Main.Sql1.ExecQuery("SELECT Genere FROM GenereTab Order By Genere ASC")
   For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
      ValoreGenere=Cursor1.GetString("Genere")
      If ValoreGenere.Length >=30 Then
      ValoreGenere=ValoreGenere.SubString2(0,30)&"..."
      End If
      ValoreGenere=ValoreGenere.Replace(Chr(13), " ")
      ValoreGenere=ValoreGenere.Replace(Chr(10), " ")
      
      Gene = Array As String(ValoreGenere)
         
         Next
      r.AddAll(Gene)      
   m = x.InputList1(r,"Hello")
Msgbox(m,"Result Integer")
responseString = Gene(m)
Msgbox(responseString,"Result String")
   

      End Sub

 

[thedesolatesoul]

In your case you do not even need an array (its better to have a list), because you dont know what the query will return. By the way, I know nothing about SQL.

Sub BtnGenere_CLick
Dim r As List 
r.Initialize 
Dim x As id 
Dim m As Int
Dim responseString As String


    
    Dim ValoreGenere As String
    Dim r As List
    r.Initialize 
    
    ListaGenere.Initialize("ListaGenere")
    Cursor1 = Main.Sql1.ExecQuery("SELECT Genere FROM GenereTab Order By Genere ASC")
    For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
        ValoreGenere=Cursor1.GetString("Genere")
        If ValoreGenere.Length >=30 Then
        ValoreGenere=ValoreGenere.SubString2(0,30)&"..."
        End If
        ValoreGenere=ValoreGenere.Replace(Chr(13), " ")
        ValoreGenere=ValoreGenere.Replace(Chr(10), " ")
        
        Gene = Array As String(ValoreGenere)
        r.Add(Gene)
            
       Next

    m = x.InputList1(r,"Hello")
Msgbox(m,"Result Integer")
responseString = r.Get(m)
Msgbox(responseString,"Result String")
    

        End Sub