Color zu Hex

[himitsu]

^^

Delphi-Quellcode:

Function ColorToHTMLColor(Color: TColor): String;
  Begin
    Color := ColorToRGB(Color);
    Result := Format('#%.2x%.2x%.2x', [GetRValue(Color),
      GetGValue(Color), GetBValue(Color)]);
  End;

// oder

Function ColorToHTMLColor(Color: TColor): String;
  Begin
    Color := ColorToRGB(Color);
    Color := ((Color shl 16) and $FF0000) or (Color and $00FF00)
      or ((Color shr 16) and $0000FF);
    Result := '#' + IntToStr(Color, 6);
  End;

// ...