Conversion d'une couleur TColor en chaîne HTML


Voici la fonction qui permet de convertir une valeur au format TColor en une chaine hexadécimale pour les couleurs utilisée dans les fichiers HTML:

TColor vers chaine HTML

function ColorToHex(Color: TColor): string;
begin
  Result := Format('#%.2x%.2x%.2x', [GetRValue(Color),
                                     GetGValue(Color),
                                     GetBValue(Color)]);
end;



Voici maintenant la fonction qui permet de faire le chemin inverse, c'est à dire convertir une chaine hexadécimale en TColor:

HTML vers TColor

function HexToColor(s: string): TColor;
begin
  if pos('#', s) <> 0 then Delete(s, pos('#', s), 1);
  if pos('$', s) <> 0 then Delete(s, pos('$', s), 1);
  Result := rgb(StrToInt('$' + Copy(s, 1, 2)),
                StrToInt('$' + Copy(s, 3, 2)),
                StrToInt('$' + Copy(s, 5, 2)));
end;



3 requête(s) SQL executée(s) en 0.000 Secs - Temps total de génération de la page : 0.007 Secs