Sub ShowBlurredDialog_Example
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 300dip)
p.LoadLayout("Dialog")
DialogCLV.DefaultTextBackgroundColor = xui.Color_Transparent
DialogCLV.sv.Color = xui.Color_Transparent
p.SetColorAndBorder(0xaa111111, 2dip, 0xFFFFFFFF, 5dip)
For i = 1 To 30
DialogCLV.AddTextItem("Item #" & i, i)
Next
BlurredDialog1.Show(BasePanel.Parent, p)
Wait For DialogCLV_ItemClick (Index As Int, Value As Object)
Log("Selected value: " & Value)
Wait For (BlurredDialog1.Close) Complete (Closed As Boolean)
End Sub