8 bit Color Byte zu 24 bit Farbe umrechnen

[Flocke]

Normalerweise löst man das über Bitwiederholungen:

Delphi-Quellcode:

function ColorByteTo24Bit (const AColor: Byte): TColor;
var
  R, G, B: Byte;
begin
  R := (AColor and $07) shl 5;
  G := (AColor and $38) shl 2;
  B := (AColor and $C0);
  Result := RGB(R or (R shr 3) or (R shr 6),
                G or (G shr 3) or (G shr 6),
                B or (B shr 2) or (B shr 4) or (B shr 6));
end;