RGB -> TColor -> RGB

[sakura]

Wird ja oft genug nach gefragt Und nicht alle brauchen gleich die HTML Lösung, also, hier ist die einfache Variante.

Delphi-Quellcode:

function RGB2TColor(const R, G, B: Byte): Integer; 
begin 
  // convert hexa-decimal values to RGB 
  Result := R + G shl 8 + B shl 16; 
end;


procedure TColor2RGB(const Color: TColor; var R, G, B: Byte); 
begin 
  // convert hexa-decimal values to RGB 
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
end;

......