8 bit Color Byte zu 24 bit Farbe umrechnen

[Kroko1999]

Delphi-Quellcode:

function ColorByteTo24Bit (const AColor: Byte): TColor;
begin
  Result := Rgb ((AColor and $07) shl 5,
                 (AColor and $38) shl 2,
                 (AColor and $C0));
end;

wird zwar nicht ganz weiß, aber bei 3-3-2-Bit