Discussion :

[sberube]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci beaucoup

[Rayek]

utilise intToHex, un TColor est un int

[tourlourou]

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

[sberube]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rayek]

Tu veux connaitre la valeur Hexa de clInactiveCaptionText ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[OutOfRange]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é ???????????????

[LadyWasky]

Je n'ai pas compric ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[sberube]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

PnSaisieRepartition.Color  := $80000013;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

@+

[forzaxelah]

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???