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;
...
...