ARGB nach Interger

[turboPASCAL]

Delphi-Quellcode:

function ARGB(A, R, G, B: Byte): COLORREF; // COLORREF = DWORD = Cardinal;
begin
  Result := B or (G shl 8) or (R shl 16) or (A shl 24);
end;