B4A Library DialogPlus (WEP)

This is wrapper for this GitHub project https://github.com/orhanobut/dialogplus
Currently it has just basic dialog with listview like attached picture .


DialogPlus
Author: SMM
Version: 0.03

• DialogPlus
  Events:
  • _onitemclick (position as int As )
  Methods:
  • BasicDialog (ListView As ListView, Expanded As Boolean, gravity As Int)
  • Initialize (EventName As String)
  • dismiss

Sample

Dim dialog As DialogPlus
    dialog.Initialize("dp")
    Dim lv As ListView
    lv.Initialize("")
    lv.AddSingleLine("Test0")
    lv.AddSingleLine("Test1")
    lv.SingleLineLayout.Label.Color=Colors.red
    lv.AddSingleLine("Test2")
    lv.AddSingleLine("Test3")
    lv.AddSingleLine("Test4")
    lv.AddSingleLine("Test5")
    lv.AddSingleLine("Test6")
'  
  
    dialog.BasicDialog( lv,True,Gravity.CENTER)

Event

Sub dp_onitemclick(position As Int)
    dialog.dismiss
    Log(position)
   
End Sub