Valeur d'un TColor en Hexadécimal

Bonjour

Je cherche à trouver la valeur hexadécimal d'une constante TColor et affecter la propriété Color d'un bouton de cette valeur. Un peux comme suit:

Code:

---

1 2	Button1.Color:= ColorToHex(clInactiveCaptionText);

---

Bien sur ColorToHex( n'existe pas, mais pouvez vous m'aider svp...

Merci beaucoup

utilise intToHex, un TColor est un int

euh, Button1.Color:=clInactiveCaptionText; marche bien !

Désoler, je vais tenté de mieux m'expliquer.

En fait je peux me servir de la constante clInactiveCaptionText, mais le problème est que cette couleur change selon les setting de windows. Donc je veux trouver le code Ex: $00FF2299 de cette couleur pour l'affecter à la propriété.

Voiçi un exemple de mon code, bien sur il n'est pas fonctionnel, mais cela peux vous donner une piste

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Var R, G, B: Integer; sColor : String; Begin PnSaisieRepartition.Color:= clInactiveCaptionText; R:= GetRValue(PnSaisieRepartition.Color); G:= GetGValue(PnSaisieRepartition.Color); B:= GetBValue(PnSaisieRepartition.Color); sColor:= (IntToHex(R, 2) + IntToHex(G, 2) + IntToHex(B, 2)); PnSaisieRepartition.Color := $00 + StrToInt(sColor);   End;

---

Merci pour l'aide

Tu veux connaitre la valeur Hexa de clInactiveCaptionText ?

Code:

---

1 2	Showmessage(inttoHex(clInactiveCaptionText,8));

---

Salut

J'avoue ne pas comprendre...
Comme tourlourou, je dirais que

Code:

---

Button1.Color:=clInactiveCaptionText;

---

affecte toujours ladite couleur à Button1, sans qu'il soit nécessaire de décortiquer sa valeur hexa...
et clInactiveCaptionText est toujours telle que définie dans les paramètres d'apparence de Win...

Y'a kekchoze qui nous a échappé ???????????????

Je n'ai pas compric ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Var R, G, B: Integer; sColor : String; Begin PnSaisieRepartition.Color:= clInactiveCaptionText; R:= GetRValue(PnSaisieRepartition.Color); G:= GetGValue(PnSaisieRepartition.Color); B:= GetBValue(PnSaisieRepartition.Color); sColor:= (IntToHex(R, 2) + IntToHex(G, 2) + IntToHex(B, 2)); PnSaisieRepartition.Color := $00 + StrToInt(sColor);   End;

---

c'est un code qui ne fait rien du tout ça...
regarde ton algorythme :
1) tu mets une couleur (tcolor) dans PnSaisieRepartition.Color -->OK
2) tu décomposes PnSaisieRepartition.Color en valeurs RGB
3) tu recompose la même couleur et essaies de la remettre dans PnSaisieRepartition.Color...

bon passons, admettons
En tout cas J'écrirais plutôt ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

uses windows; //pour la fonctin RGB()   Var R, G, B: byte; sColor : String; Begin PnSaisieRepartition.Color:= clInactiveCaptionText; R:= GetRValue(PnSaisieRepartition.Color); G:= GetGValue(PnSaisieRepartition.Color); B:= GetBValue(PnSaisieRepartition.Color); PnSaisieRepartition.Color := TColor(RGB(r,g,b)); End;

---

Salut,

Bien sur je savais très bien que mon code n'étais vraiment efficace, mais bon, ce n'étais que pour faire des tests et découvrir les fonctions. Pour ma part ce qui a répondu a mon problème est le code suivant:

Code:

---

Showmessage(IntToHex(clInactiveCaptionText,8));

---

Il me retourne la valeur "80000013" et c'est justement cette valeur hexadécimal que cherchais à connaitre. Donc mon code est remplacé par:

Code:

---

PnSaisieRepartition.Color := $80000013;

---

Bien sur on aurait pu remplacer le code ci-haut par :

Code:

---

PnSaisieRepartition.Color:= clInactiveCaptionText;

---

Mais le problème est que cette couleur (clInactiveCaptionText) change selon les setting de windows, et moi je voulais que ce soie cette couleur (bleu pâle) peu importe les setting de windows.

En t k, un gros merci pour l'aide....

@+

Moi j'aurais une requete en plus!
En effet je crée des TLabel en fct de données dans une table.
Je souhaiterais avoir une couleur pour chaque label...

Donc si j'ai bien compris votre post, je dois décomposer en R,G,B puis leur affecter des valeurs (que je pourrais avoir en faisant un truc aléatoire) puis que je rassemble en inttohex pour pouvoir affecter la valeur color... est_ce ça???

:aie: