8 bit Color Byte zu 24 bit Farbe umrechnen

[Flocke]

Sind Fehlfarben
Variier mal die Bitbreiten:

Delphi-Quellcode:

r := 16 * ((( ab        and 3) * 15) div 3);
g := 16 * ((((ab shr 2) and 7) * 15) div 7);
b := 16 * ((((ab shr 5) and 7) * 15) div 7);

Delphi-Quellcode:

r := 16 * ((( ab        and 7) * 15) div 7);
g := 16 * ((((ab shr 3) and 3) * 15) div 3);
b := 16 * ((((ab shr 5) and 7) * 15) div 7);