Android Question Google kml colors

GiovanniPolese · May 5, 2023

Hi to All
is any already defined way to convert colors of type aarrggbb to B4X colors (for example I have color strings like : ff767676 or ff0000ff) or shall I do my own conversion?
Thanks

DonManfred · May 5, 2023

[B4X] HexToColor and ColorToHex

Converts hex color strings to a color int value and vice versa: Private Sub ColorToHex(clr As Int) As String Dim bc As ByteConverter Return bc.HexFromBytes(bc.IntsToBytes(Array As Int(clr))) End Sub Private Sub HexToColor(Hex As String) As Int Dim bc As ByteConverter If...

www.b4x.com

?

In B4J you can use

B4X:

fx.Colors.From32Bit(0xff8000ff)

to get a javafx.scene.paint.Color

GiovanniPolese · May 5, 2023

DonManfred said:
[B4X] HexToColor and ColorToHex

Converts hex color strings to a color int value and vice versa: Private Sub ColorToHex(clr As Int) As String Dim bc As ByteConverter Return bc.HexFromBytes(bc.IntsToBytes(Array As Int(clr))) End Sub Private Sub HexToColor(Hex As String) As Int Dim bc As ByteConverter If...

www.b4x.com

?

In B4J you can use

B4X:

fx.Colors.From32Bit(0xff8000ff)

to get a javafx.scene.paint.Color

Hi. Thanks but I don't understand. I work in B4A. This should be what I need, but I don't see where is this function.

udg · May 5, 2023

In the first post of that thread.
Anyway, here it is:

B4X:

Private Sub HexToColor(Hex As String) As Int
    Dim bc As ByteConverter
    If Hex.StartsWith("#") Then 
        Hex = Hex.SubString(1)
    Else If Hex.StartsWith("0x") Then 
        Hex = Hex.SubString(2)
    End If
    Dim ints() As Int = bc.IntsFromBytes(bc.HexToBytes(Hex))
    Return ints(0)
End Sub

GiovanniPolese · May 5, 2023

Ok. Got it. Thanks

GiovanniPolese · May 7, 2023

Hi. The code submitted seems not to give same colors of KML. Instead, I did the following:

B4X:

' txt is KML color
' return B4A color
sub KmlColor(txt as string) as int  
                Dim bc As ByteConverter
                Dim r(),g(),b() As Byte
        
                r = bc.HexToBytes(txt.SubString2(2,4))
                g = bc.HexToBytes(txt.SubString2(4,6))
                b =bc.HexToBytes(txt.SubString(6))
                
                return Colors.RGB(b(0),g(0),r(0)) 
end sub

It seems to work, but I don't know whether a better solution exists.

Android Question Google kml colors

GiovanniPolese

Well-Known Member

DonManfred

Expert

[B4X] HexToColor and ColorToHex

GiovanniPolese

Well-Known Member

[B4X] HexToColor and ColorToHex

udg

Expert

GiovanniPolese

Well-Known Member

GiovanniPolese

Well-Known Member

Similar Threads

Android Question Google kml colors

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency