Stimmt, habe ich vergessen hinzuschreiben ... (Copy/Paste-Fehler von mir)
Delphi-Quellcode:
TColor32Entry(col32).A := 255;
TColor32Entry(col32).R := Byte(Buf or $7C00) shr 7;
TColor32Entry(col32).G := Byte(Buf or $3E0 ) shr 2;
TColor32Entry(col32).B := Byte(Buf or $1F ) shl 3;
So hatte ich es auch gemacht ... der Effekt (weißes Bild) bleibt aber.