B4J Question Set label fill color from color stored as int.

[Nokia]

if I have a color stored as int (-16777216). How do I convert int color to use in a style.

lbl.Style = $"-fx-text-fill: <color here>;"$

 

[zed]

Try this

Dim myString As String
myString = intToExString(-16777216)
Log(myString)

private Sub intToExString(i As Int) As String
    Dim hexstr As String
    hexstr = Bit.ToHexString(i)
    Return hexstr
End Sub

 

[Nokia]

Try this

Dim myString As String
myString = intToExString(-16777216)
Log(myString)

private Sub intToExString(i As Int) As String
    Dim hexstr As String
    hexstr = Bit.ToHexString(i)
    Return hexstr
End Sub

I tried and tried a similar code as well and with both, the color does not come out right. I have added "#" or "0x" to the bigging and the color does not come out right.

 

[stevel05]

Another option:

Public Sub IntColorToCssRGBA(color As Int) As String
    Dim BC As ByteConverter
    Dim ARGB() As Byte = BC.IntsToBytes(Array As Int(color))
    Dim Alpha As Double = (Bit.And(ARGB(0),0XFF) / 255)
    Return $"rgba(${Bit.And(ARGB(1),0XFF)},${Bit.And(ARGB(2),0XFF)},${Bit.And(ARGB(3),0xFF)},${NumberFormat2(Alpha,1,2,2,False)})"$
End Sub

Out of curiosity, why can't you change it directly on the Label?

 

[Erel]

lbl.TextColor = YourIntColor

Make sure that lbl is declared as B4XView.

 

[Nokia]

Another option:

Public Sub IntColorToCssRGBA(color As Int) As String
Dim BC As ByteConverter
Dim ARGB() As Byte = BC.IntsToBytes(Array As Int(color))
Dim Alpha As Double = (Bit.And(ARGB(0),0XFF) / 255)
Return $"rgba(${Bit.And(ARGB(1),0XFF)},${Bit.And(ARGB(2),0XFF)},${Bit.And(ARGB(3),0xFF)},${NumberFormat2(Alpha,1,2,2,False)})"$
End Sub

Out of curiosity, why can't you change it directly on the Label?

this worked. thx..

I'm saving the colors in a database file as part of configuration settings.

 

[Nokia]

lbl.TextColor = YourIntColor

Make sure that lbl is declared as B4XView.

This also worked, but I declared the lbl as label. Is this going to pose a problem?

 

[zed]

We break our heads with 10 lines of code and then @Erel arrives and Bam! Just one line.

 

[Erel]

Better to declare it as B4XView, but you can always cast it back and forth:

lbl.As(B4XView).TextColor = YourIntColor

BTW, if you modify the Style property then you should do it with CSSUtils. Otherwise you will override other properties.

 

[aeric]

I thought it was about the label background color.

 

[Nokia]

I thought it was about the label background color.

for text color