B4J Question initializing a RadioButton resets the form BackColor ?

[a n g l o]

hello,
not using the designer (all layouts removed).
try this code on a new project :

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private rb As RadioButton
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.BackColor=fx.Colors.Yellow
    MainForm.Show
    rb.Initialize("rb")
End Sub

without the last line, the form is yellow. the last line resets it to default gray that can't be changed anymore.
am i doing something wrong ?
Thank you

 

[stevel05]

Not sure why that happens, but this works:

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private rb As RadioButton
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    CSSUtils.SetBackgroundColor(MainForm.RootPane,fx.Colors.Yellow)
    rb.Initialize("rb")
    MainForm.RootPane.AddNode(rb,0,0,30,30)
End Sub

 

[a n g l o]

Thank You !
yes that works (the AddNode line is not relevant, it works without it too).
so instead of

MainForm.BackColor=fx.Colors.Yellow

i have to write

CSSUtils.SetBackgroundColor(MainForm.RootPane,fx.Colors.Yellow)

and that fixed it.
ok and thanks again !
however, i still prefer to understand why ALREADY yellow form becomes gray like that.
Thanks

 

[Erel]

Form.BackColor shouldn't be used in most cases. You should instead change the color of the root pane(l).

Sub Process_Globals
    Private MainForm As Form
    Private xui As XUI
    Private rb As RadioButton
End Sub


Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    Dim root As B4XView = MainForm.RootPane
    root.Color = xui.Color_Yellow
    rb.Initialize("rb")
End Sub

There is a strange issue here however it will work fine once you set the root panel color.

 

[a n g l o]

Thank you !
is 1 of the 2 working answers i've received (CSSUtils vs XUI) is preferable ?

 

[Erel]

The result is the same. XUI is cross platform and simpler to use.