Savez vous comment convertir une variable Tcolor en couleur hexa html?

Merci ;)

Lanosic

Var s: string
Begin
if TColor1.Execute then
Begin
S := Format( '#%.2x%.2x%.2x', [ GetRValue( TColor1.Color),
GetGValue( TColor1.Color), GetBValue( TColor1.Color)]);
End;
End;

RMD

www.logiciels-rmd.com


-------------------------------
Réponse au message :
-------------------------------

> Savez vous comment convertir une variable Tcolor en couleur hexa html?
>
> Merci ;)
>
> Lanosic

Voila les deux fonctions réciproques :

{ *****************************************************************************
  - Méthode : TPlanning.HexToColor(s: string): TColor;
  - Description : Cette méthode permet de convertir un string (Hex) en TColor.
  - Entrees : s (la chaine de caractères, couleur hexadécimale).
  - Sorties : TColor (le TColor Créé).
}
function TPlanning.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;

{ *****************************************************************************
  - Méthode : TPlanning.ColorToHex(Color: TColor): string;
  - Description : Cette méthode permet de convertir TColor en string (Hex).
  - Entrees : Color (la couleur à convertir).
  - Sorties : string (le résultat de la conversion).
}
function TPlanning.ColorToHex(Color: TColor): string;
begin
  Result := intToHex(GetRValue(Color), 2) + intToHex(GetGValue(Color), 2) + intToHex(GetBValue(Color), 2);
end;

-----------------------------
Membre de la blindprod :
http://www.blindprod.fr.st

Bonjour,

J'aurais juste une petite question à propos du topic; que faut -il faire afin de pouvoir disposer de ces fameux GetRValue GetBValue et GetRValue?
Car j'ai essayé cette méthode et hélas, mon compilateur delphi 06 ne pouvait pas les interpréter.

Merci

Bonjour
Le post dans lequel tu as posté date de 4ans, les auteurs ne sont peut etre plus ici et personne ne verra ta question.
Je te conseille de créer un nouveau post pour chaque nouvelle question !
a bientot
ps : GetRValue est dans l'API windows, unité Windows.pas
Ajoute "Windows" dans les uses et tu devrais pouvoir y acceder.
>> http://msdn.microsoft.com/en-us/library/aa923923.aspx << lien trouvé avec google en cherchant "msdn GetRValue"
a+