B4J Question How to CSS style the selected/highlighted buttons on jRLDialogsX dialogs?

[m4.s]

I've searched the forum and haven't seen a way to style the buttons added to this B4J library's displayed dialogs (i.e. when they receive focus), including nothing specific in the author's main thread here:

jRLDialogsX - Dialogs Library

jRLDialogsX is an open source B4J Dialogs Library providing a comprehensive set of Dialogs. The library is coded as a B4J Class with Inline Java, no additional libraries or wrappers required. Note: Requirements minimum B4J v5.80 and Java JDK v8 (8u40+). Version: 1.88 - Attached the B4J library...

www.b4x.com

By default, all such dialog buttons have this light blue styling; which appears to just be the Windows default:

But I want to be able to style them to match various module themes in my B4J application.

 

[MicroDrie]

Without a program example it becomes difficult to give a precise answer. There are two options. Whether the interface is made using a form designed in the designer and can be adapted there or, for example, in the listview, the button is added via the program. In that case, this example will work:

' Add a button to the ListView. The eventname is the same as the button text.
' Any Button property can be set
Sub AddListViewButton(s As String)
    Dim b As Button
    b.Initialize(s)
    b.PrefWidth = BUTTONWIDTH
    b.Id = s
    b.Text = s
'    --- Change the default button colors
    b.Style = "-fx-text-fill:blue;-fx-background-color:yellow;"
'    --- List the style
'    Log(b.Style)
    lvButtons.Items.Add(b)
End Sub[

 

[m4.s]

As I originally stated, I'm referring specifically to styling jRLDialogsX dialog buttons.

 

[MicroDrie]

Based on a partial screen view without any program code use explanation, I have given you a working proof of concept how the color of a dynamically added button can be adjusted to styling jRLDialogsX dialog buttons.

For the display of a button created with the designer in the jRLDialogsX library part you can either adjust in the designer whether you have to use a run-time method to override default designer settings or you can use the supplied program code from the library and adjust it to your preference.

Depending on your circumstances, your wishes and possibilities, and the fact that this library is somewhat dated, using todays [B4X] XUI Views - Cross platform views and dialogs may be more convenient to achieve exactly what you want.

 

[rwblinn]

As I originally stated, I'm referring specifically to styling jRLDialogsX dialog buttons.

Hi,
have enhanced the library, but not fully tested. The folder examples contains the full example with some dialog button styling.
Give a try = If OK will update the documentation and the post in the B4J Libraries.

'Set Button CSS styling
Dlg.OKButtonStyle = "-fx-font-size: 24px;-fx-background-color: indianred;"

'Clear Button CSS styling to use the default
Dlg.OKButtonStyle = ""

Sub Information_Action
    SetParentWindow
    Dlg.OKButtonText = tfOKButtonText.Text
    Dlg.OKButtonStyle = "-fx-font-size: 24px;-fx-background-color: indianred;"
    Dlg.InformationDialog("InformationDialog Title", "Header", "Content")
End Sub

Sub Warning_Action
    SetParentWindow
    Dlg.OKButtonText = tfOKButtonText.Text
    Dlg.OKButtonStyle = ""
    Dlg.WarningDialog("WarningDialog Title", "Header", "Content")
End Sub

Sub Confirmation_Action
    SetParentWindow
    Dlg.OKButtonText = tfOKButtonText.Text
    Dlg.OKButtonStyle = "-fx-font-size: 24px;-fx-background-color: green;"
    Dlg.CancelButtonText = tfCancelButtonText.Text
    Dlg.CancelButtonStyle = "-fx-font-size: 24px;-fx-background-color: red;"
    taDialogResult.Text = Dlg.ConfirmationDialog("ConfirmationDialog Title", "Header", "Content")
End Sub

Sub YesNoCancel_Action
    SetParentWindow
    Dlg.YesButtonText = tfYESButtonText.Text
    Dlg.YesButtonStyle = "-fx-font-size: 24px;-fx-background-color: green;"
    Dlg.NoButtonText = tfNOButtonText.Text
    Dlg.NoButtonStyle = "-fx-font-size: 24px;-fx-background-color: red;"
    Dlg.CancelButtonText = tfCancelButtonText.Text
    Dlg.CancelButtonStyle = "-fx-font-size: 24px;-fx-background-color: blue;"
    taDialogResult.Text = Dlg.YesNoCancelDialog("YesNoCancelDialog Title", "Header", "Content")
End Sub