B4J Question [SOLVED] xui.PaintOrColorToColor - reverse function?

[LucaMs]

How to get a Paint (?) if you have an int variable set using xui.PaintOrColorToColor?

 

[Erel]

You don't want to get a paint when working with XUI. Only ints.

If you do want to get a paint for some strange reason then:

Dim p as Paint = fx.Colors.From32Bit(0xffff0000)

 

[LucaMs]

for some strange reason

The reason is very clear: I'm a bit confused

Actually what I'm doing is saving a map of preferences (using B4XSerializator) and one of them is the MainForm back color, which is a Paint object.

mMainFormColor = mmapPref.GetDefault("MainFormColor", xui.Color_Green)

At this point I don't know how to set the MainForm.BackColor to mMainFormColor.

 

[Erel]

IntColor = fx.Colors.To32Bit(MainForm.BackColor)

 

[Erel]

I'm confused.

This code is also correct:

IntColor = XUI.PaintOrColorToColor(MainForm.BackColor)

 

[LucaMs]

But I have to set the MainForm.BackColor, not get it.

 

[Erel]

Form.BackColor = fx.Colors.From32Bit(mmapPref.GetDefault("MainFormColor", xui.Color_Green))

 

[LucaMs]

I was thinking to that From32bit... about how to convert my Int to... 32bit

 

[LucaMs]

(here it is nearly a different question... I don't know if I should open a new thread).

I tried directly:

MainForm.BackColor = fx.Colors.From32Bit(xui.Color_Blue)

but this has no effects.

Strangely, BackColor requires a Paint object and From32Bit returns a javafx.scene.paint.Color, which is accepted but, as I said, the MainForm back color does not change.

 

[Erel]

The color is represented as 4 bytes (ARGB) = 32 bits.

 

[Erel]

Works fine here:

MainForm.BackColor = fx.Colors.From32Bit(xui.Color_Blue)
Dim x As B4XView = MainForm.RootPane
x.Color = xui.Color_Transparent

The real question is why do you need to set BackColor. Set MainForm.RootPane color instead.

 

[LucaMs]

The real question is why do you need to set BackColor. Set MainForm.RootPane color instead.

Because I "searched" a property to set the RootPane color but I didn't find it (right now I found "Style", I think I should use it).

 

[Erel]

right now I found "Style", I think I should use it

Don't. Use B4XView as I did in the post above.

 

[LucaMs]

Don't. Use B4XView as I did in the post above.

Done (although I have not understood its functioning well )

 

[Erel]

Very simple.

Dim x As B4XView = AnyViewType
'work with x

 

[LucaMs]

Very simple.

Dim x As B4XView = AnyViewType
'work with x

Yes but this is the part I don't understand:

x.Color = xui.Color_Transparent

 

[Erel]

I wanted to test whether the BackColor works. You need to set the root pane color to transparent in order to see the back color.