8 bit Color Byte zu 24 bit Farbe umrechnen

[cyberblast]

Ich glaube es muss was in diese Richtung sein...sieht schon fast identisch aus wie das original:

Delphi-Quellcode:

     r := ((ab and $07) shl 1) shl 4;
     g := ((ab and $38) shr 2) shl 4;
     b := (((ab and $C0) or (ab and $1) shl 5));