Mit diesem Code kannst Du die ARGB Werte bekommen:
B4X:
Sub GetARGB(Color As Int) As Int()
Dim col(4) As Int
col(0) = Bit.UnsignedShiftRight(Bit.AND(Color, 0xff000000), 24)
col(1) = Bit.UnsignedShiftRight(Bit.AND(Color, 0xff0000), 16)
col(2) = Bit.UnsignedShiftRight(Bit.AND(Color, 0xff00), 8)
col(3) = Bit.AND(Color, 0xff)
Return col
End Sub
Hallo Klaus,
danke für deine Antwort. Mir war nicht klar, was diese Werte bedeuten.
Durch Deine Antwort habe ich wieder dazugelernt. Jetzt weiß ich, wie ich diese Werte erzielen und anwenden Kann.