Search Results

Edit: B4XDialogs is part of XUI Views library. Use that instead: XUI Views - Cross platform views and dialogs B4XDialog class helps with creating cross platform custom dialogs. The dialog is made... As B4XView = xui.CreatePanel("") p.SetLayoutAnimated(0, 0, 0, 300dip, 170dip) 'set... most cases it requires a bit more work as you also want to handle keyboard changes: 'B4A Sub..., NewHeight) End Sub 'B4i Sub Page1_KeyboardStateChanged (Height As Float) If Dialog.Visible Then...

Have you created a nice dialog based on B4XDialog? Post it here. If you have any question then start a new thread....

This code allows the user to close the dialog with 'escape' or one of the following keys: Y, N or C. It depends on agraham's jReflection library. Sub AddKeyPressedListener Dim r As Reflector r.Target = MainForm.RootPane r.AddEventHandler("keypressed", "javafx.scene.input.KeyEvent.KEY_PRESSED") End Sub Sub KeyPressed_Event (e As Event) If Dialog.Visibl...

B4A project is attached. By default, when a B4XDialog is shown it will close other visible dialogs. This is prevented with this line: Dim rs As Object = MainDialog.ShowCustom(CustomPanel, "Ok", "", "") MainDialog.Base.Parent.Tag = "" 'this will prevent...) The other interesting thing is how to handle the back key: Sub B4XPage_CloseRequest As ResumableSub For Each d As B4XDialog In Array(SecondDialog, MainDialog) 'order is important. Should start...

Slides the dialog from one of the sides. Sub AnimateDialog (dlg As B4XDialog, FromEdge As String) Dim base As B4XView = dlg.Base Dim top As Int = base.Top Dim left As Int = base.Left Select FromEdge.ToLowerCase Case "bottom" base.Top = base.Parent.Height Case "top" base.Top = -base.Height Case "left"... Usage example: Sub Globals Private dialog As B4XDialog Private xui As XUI End Sub Sub...

"Having had" to study the source code of the XUI Views a bit, I noticed that, in the B4A version, the elevation of the Background panel of the B4XDialog has been set to 4dip. This is obviously a problem, if there was a View with higher elevation in the underlying layout (to avoid writing nonsense, I have experienced it, although I was practically certain). How to create this type of View, dialogs, that are certainly displayed above any other? What is the maximum elevation value...

SetLightThemeDialog(dialog As B4XDialog) dialog.BackgroundColor = Colors.White dialog.ButtonsColor... Then you can use the others codes whenever you need: Sub SetLightThemeList(list As B4XListTemplate... SetLightThemeInput(input As B4XInputTemplate) Dim TextColor As Int = 0xFF5B5B5B input..., Colors.Red) End Sub 109140 Sub SetLightThemeSearch(search As B4XSearchTemplate) Dim... Sub SetLightThemeDate(datetemplate As B4XDateTemplate) Dim TextColor As Int = 0xFF5B5B5B...

We can consider this a B4XDialog bug, because it must prevent a menu from being selected (the base panel should cover all)....

Is possible change the order from buttons? and aling the buttons :"top-left" "center" "top-right" customdialog screen?...

I get a "java.lang.NumberFormatException" error with B4J Version 8.30. Same code works fine with B4J 8.10 When using the following code in a button click event, I get the following exception: "java.lang.NumberFormatException: empty String" Sub Button1_Click dialog.Title = "Insert some text" Dim input As B4XInputTemplate input.Initialize input.lblTitle.Text = "Testing" input.RegexPattern = ".+" 'require at least...