Das Gleiche, nur in die andere Richtung:
Delphi-Quellcode:
farbe:= (bneu shl 16) + (gneu shl 8) + rneu;
...
Edit:
Hier ein einfach Beispiel:
Delphi-Quellcode:
var
L: LongInt;
R, G, B: Byte;
begin
L := ColorToRGB(Farbe);
//macht aus Delphi-Color RGB-Color, konvertiert also auch clRed in rot
R := Byte(L);
G := Byte(L
shr 8);
B := Byte(L
shr 16);
//mach was mit den einzelnen R, G und B Bytes und dann wieder zusammensetzten
Farbe := (B
shl 16) + (G
shl 8) + R;
end;