Farben nach R,G,B umwandeln in 4-stell. hex-code?

[Moppi]

Da habe ich noch byte gefunden:

   R = byte((color16 / 2048)*8);
   G = byte((color16 & 2016)/8);
   B = byte((color16 & 31)*8);