Couleur Hexa

lan0sic Messages postés 25 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 6 mars 2005 - 18 févr. 2003 à 00:19
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 18 sept. 2009 à 19:39
Savez vous comment convertir une variable Tcolor en couleur hexa html?

Merci ;)

Lanosic
A voir également:

6 réponses

cs_RMD Messages postés 84 Date d'inscription mercredi 25 septembre 2002 Statut Membre Dernière intervention 21 mai 2004
18 févr. 2003 à 18:27
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
0
eldered Messages postés 232 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 25 mai 2022
10 oct. 2005 à 12:11
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
0
IAmIvyAlice Messages postés 14 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 18 septembre 2009
8 juin 2009 à 14:03
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
0
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
9 juin 2009 à 14:08
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+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
IAmIvyAlice Messages postés 14 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 18 septembre 2009
18 sept. 2009 à 17:05
Salut JolioDelphi,

Merci pour ta réponse.

J'ouvrirai un nouveau topic la prochaine fois.

IV (Ivy)
0
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 34
18 sept. 2009 à 19:39
procedure ColorToHTML(const C: integer): string;
var
  BTC : array[$0..$F] of char = '0123456789abcdef';
begin
  result := '#000000';
  result[1] := BTC[byte(C) shr 4];
  result[2] := BTC[byte(C)        and $F]; 
  result[3] := BTC[byte(C shr 12) and $F]; 
  result[4] := BTC[byte(C shr 8)  and $F]; 
  result[5] := BTC[byte(C shr 20) and $F]; 
  result[6] := BTC[byte(C shr 16) and $F]; 
end;



pouf.
0
Rejoignez-nous