8 bit Color Byte zu 24 bit Farbe umrechnen

[cyberblast]

Das Format heisst KBM und wird wohl ein Kenwood eigenes Format sein.
Es hat einen 16-Bit grossen Header und ein paar Frames. Die einen Formate enthalten eine Palette, aber zu denen bin ich noch nicht gekommen.
Bin nun an dem Formaten die ohne Palette arbeiten. Bei einem anderen warens 1.5 Byte pixel, also 12bit, da musste ich einfach 0.5 bytes mal 16 rechnen und ich hatte den richtigen wert.
Aus den 8-bit Werten bin ich noch nicht ganz schlau geworden, sieht aber schon sehr ähnlich aus mit dem eurem Algorhytmus.

Und so siehts noch ein wenig besser aus:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
   ab : byte;
   r, g, b : byte;
begin
     ab := $FF;
     //10 101 101
     r := ab and $07 shl 5;
     g := ab and $38 shl 2;
     b := ab and $C0 + (ab and $01 shl 5);
     showmessage(inttostr(r));
     showmessage(inttostr(g));
     showmessage(inttostr(b));
end;