Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 150dip)
p.LoadLayout("dialogAskString")
dialog.BlurBackground=True
dialog.BackgroundColor = xui.Color_LightGray
dialog.OverlayColor= xui.Color_DarkGray
dialog.ButtonsColor=xui.Color_Gray
dialog.Title = "Name"
dialog.PutAtTop = True 'put the dialog at the top of the screen
Wait For (dialog.ShowCustom(p, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
DBService.InsertFolder(txtString.Text,0)
ShowFolders
End If