Mit Little/Big Endian und damit BGRA vs. RGBA vs. ARGB hat das aber nichts zu tun?
EDIT: Vergleiche am Ende von TAlphaColorRec:
Delphi-Quellcode:
PAlphaColorRec = ^TAlphaColorRec;
TAlphaColorRec = record
const
Alpha = TAlphaColor($FF000000);
Aliceblue = Alpha or TAlphaColor($F0F8FF);
//...
Null = TAlphaColor($00000000);
constructor Create(const Color: TAlphaColor);
class var ColorToRGB: function (Color: TAlphaColor): Longint;
case Cardinal of
0:
(Color: TAlphaColor);
2:
(HiWord, LoWord: Word);
3:
{$IFDEF BIGENDIAN}
(A, R, G, B: System.Byte);
{$ELSE}
(B, G, R, A: System.Byte);
{$ENDIF}
end;