B4A Library Droppy - Dropdown Menu

this is a wrap for this Github project.

Droppy
Version: 1

• DroppyMenuItemView
  Methods:
  • Initialize (EventName As String, anchor As View)
  • IsInitialized As Boolean
  • getChildAt (index As Int) As View
  Properties:
  • ChildCount As Int [read only]
• DroppyMenuPopup
  Events:
  • onClicked (view As Object, index As Int)
  • onDismissed ( As )
  Methods:
  • Initialize (EventName As String, anchor As View)
  • IsInitialized As Boolean
  • addMenuItem (item As String) As DroppyMenuPopupBuilderWrapper
  • addMenuItem2 (item As String, resource As String) As DroppyMenuPopupBuilderWrapper
  • addMenuItem3 (view As View) As DroppyMenuPopupBuilderWrapper
  • addSeparator As DroppyMenuPopupBuilderWrapper
  • addclickcallback As DroppyMenuPopupBuilderWrapper
  • addonDismissCallback As DroppyMenuPopupBuilderWrapper
  • build
  • dismiss (itemSelected As Boolean)
  • fromMenu (menu As Int) As DroppyMenuPopupBuilderWrapper
  • getMenuItemById (id As Int) As DroppyMenuItemInterface
  • hideAnimationCompleted (itemSelected As Boolean)
  • setXOffset (xOffset As Int) As DroppyMenuPopupBuilderWrapper
  • setYOffset (yOffset As Int) As DroppyMenuPopupBuilderWrapper
  • show
  • triggerOnAnchorClick (onAnchorClick As Boolean) As DroppyMenuPopupBuilderWrapper
  Properties:
  • MenuView As View [read only]

Setup:
- Download the library zip and extract the three files to your additional libs folder. Droppy.xml/jar/aar
- Download Resource.zip for the Resources in the Example-Project. Here are the Images for the Dropmenu

Example Code (simplyfied; see Exampleproject for a full Example)

    pop.Initialize("Droppy",Button1)
    pop.addMenuItem("Test1").addMenuItem2("Test2","ic_add_alert_black_18dp").addMenuItem("Options").addclickcallback.addonDismissCallback.addSeparator.addMenuItem("Options1a").addMenuItem("Options1b").triggerOnAnchorClick(True).build

Sub Droppy_onClicked(view As Object, index As Int)
    Log($"Droppy_onClicked(${view}, ${index})"$)
    If view Is Button Then
        Log("btn")
    else if view Is Label Then
        Log("lbl")
    else if view Is DroppyMenuItemView Then
        Dim item As DroppyMenuItemView = view
        Log(item.ChildCount)
        If item.ChildCount = 1 Then
            If item.getChildAt(0) Is Label Then
                Dim lbl As Label = item.getChildAt(0)
                Log(lbl.Text)
            End If
        End If
    End If
End Sub
Sub Droppy_onDismissed()
    Log($"Droppy_onDismissed()"$)
End Sub

 

[DonManfred]

with this code you´ll create a scrollable Menu (as of the amount of items)

    pop.Initialize("Droppy",Button4)
    pop.addMenuItem("Test4").addMenuItem2("Test5","ic_warning_black_18dp").addMenuItem("Options4").addclickcallback.addonDismissCallback.addSeparator.addMenuItem("Options4a").addMenuItem("Options 5").addMenuItem("Options 6").addMenuItem("Options 7").addMenuItem("Options 8").addMenuItem("Options 9").addMenuItem("Options 10").addMenuItem("Options 11").addMenuItem("Options 12").addMenuItem("Options 13").addMenuItem("Options 14").addMenuItem("Options 15").addMenuItem("Options 16").addMenuItem("Options 17").addMenuItem("Options 17").addMenuItem("Options 18").addMenuItem("Options 19").addMenuItem("Options 20").addMenuItem("Options 21").addMenuItem("Options 22").addMenuItem("Options 23").addMenuItem("Options 24").addMenuItem("Options 25").addMenuItem("Options 26").addMenuItem("Options 27").addMenuItem("Options 28").addMenuItem("Options 29").addMenuItem("Options 30").addMenuItem("Options 31").addMenuItem("Options 32").addMenuItem("Options 33").addMenuItem("Options34").addMenuItem("Options 35").addMenuItem("Options 36").addMenuItem("Options 37").addMenuItem("Options 38").addMenuItem("Options39").addMenuItem("Options40").addMenuItem("Options41").addMenuItem("Options42").addMenuItem("Options43").addMenuItem("Options44").addMenuItem("Options45").addMenuItem("Options46").addMenuItem("Options47").addMenuItem("Options48").addMenuItem("Options49").addMenuItem("Options50").addMenuItem("Options51").addMenuItem("Options52").addMenuItem("Options53").addMenuItem("Options 54").addMenuItem("Options 55").addMenuItem("Options 56").addMenuItem("Options 57").addMenuItem("Options 58").addMenuItem("Options 59").addMenuItem("Sixty").triggerOnAnchorClick(True).build

 

[javiers]

Hi, congratulations on your work.
When I open the sample project, I get the following error:

Unknown type: droppymenuitemview
Are you missing a library reference?

 

[DonManfred]

Unknown type: droppymenuitemview

seems i packaged the wrong jar... Try download the library again. DroppyV1.01.zip from #1

 

[javiers]

Thank you!! Solved.

 

[jimmyF]

Hi! Thank you for this. It is a great idea.

I have added a checkbox and would like to know how to dismiss the menu after checking/unchecking the CheckBox.

Dim cb As CheckBox
    cb.Initialize("cb")
    cb.Text="Check Me!"
    cb.Color=Colors.Red
    cb.TextSize=20
    cb.TextColor=Colors.White   
pop.addMenuItem2("Test4","ic_error_outline_black_18dp").addMenuItem3(cb).addclickcallback.addonDismissCallback.addSeparator.addMenuItem("Options3a").triggerOnAnchorClick(True).build

Sub cb_CheckedChange(Checked As Boolean)
    Log("cb_CheckedChange: " & Checked)
******I want to dismiss the menu at this point
    pop.dismiss(????????????)

End Sub

Any help would be appreciated.
Thanks

 

[DonManfred]

Any help would be appreciated

You need to have the rigth reference to the pop object...

Asuming you are only using one popupmenu you can to it this way

Sub cb_CheckedChange(Checked As Boolean)
    Log($"cb_CheckedChange(${Checked})"$)
    pop.dismiss(True)
End Sub

 

[jimmyF]

It certainly helps to call the proper popupmenu!

Thank you.
This has many possibilities.

 

[Multiverse app]

Great work, again!

 

[cxdzbl]

How do I initialize the character size and color of the label?

 

[DonManfred]

How do I initialize the character size and color of the label?

get the view (see example on how), get the label inside and cast it to a label (as shown in example).
change the labels font, textsize, whatever

 

[cxdzbl]

get the view (see example on how), get the label inside and cast it to a label (as shown in example).
change the labels font, textsize, whatever

I can only modify the style of text by clicking on the event, but I still can't initialize the text in Activity_Create. I hope you can give me a code, thanks.

 

[DonManfred]

I hope you can give me a code

Similar to the code in the click event you can use this technique to change the labels in activity_create.
You just need to write the code.
The lib does not expose methods to do this directly.

 

[cxdzbl]

Similar to the code in the click event you can use this technique to change the labels in activity_create.
You just need to write the code.
The lib does not expose methods to do this directly.

Maybe it's the communication of our language. I didn't notice addMenuItem3 (). Thank you. But I still have a question. I need to long press the event display menu, and don't click Show

 

[DonManfred]

What is the defined targetsdk set inside the manifest?
Which android.jar are you using? use the newest one (from api 25)

 

[petr4ppc]

Dear friends,

I get error:

invalid resource directory name ..\resource ic_add_alert_black_18dp.png

where I must put the directory "resource"? Please?
Thank you
p4ppc

 

[DonManfred]

where I must put the directory "resource"?

In the Path of your b4a file. Beside the Files and Objects Folder

 

[petr4ppc]

DonManfred,

I have this folder beside and inside, everywhere where it is possible to put this folder and - nothing.

B4A Version: 8.30
Parsing code. (0.00s)
Compiling code. (0.08s)

ObfuscatorMap.txt file created in Objects folder.
Compiling layouts code. (0.00s)
Organizing libraries. (0.00s)
Generating R file. Error
invalid resource directory name: ..\resource ic_add_alert_black_18dp.png
invalid resource directory name: ..\resource ic_error_black_18dp.png
invalid resource directory name: ..\resource ic_error_outline_black_18dp.png
invalid resource directory name: ..\resource ic_warning_black_18dp.png

I am using B4A8.30, phone with Android 8.
It is possible that I must add some permissions?

Thank you very much
p4ppc

 

[petr4ppc]

Dear friends,

I found this:
Include #AdditionalRes in File > Export As Zip

Is it answer to my question? I cant add AdditionalRes.

Thank you,
Best regards
p4ppc

 

[DonManfred]

Is it answer to my question?

As it is not related to this thread: You should create a new Thread for your Issue/Question.