Discussion :

[defluc]

Bonjour

Dans une application qui ouvre une feuille Excel, les cellules de la feuille sont mises en couleur suivant un choix fait par l'utilisateur via ColorDialog.
Comment puis-je automatiquement changer la couleur de la police pour que le contraste préserve la lisibilité du texte dans la cellule (Cellule foncée, texte clair et vice-versa)?
Si possible en restant dans la même tonalité car je voudrais pouvoir inverser la couleur du texte et celle du fond pour rétablir la même apparence que les autres cellules.


Merci d'avance

[adc]

On peut rechercher la couleur en mode XOr, en général ça marche bien.
Mias si on veut utiliser uniquement les 16 couleurs, On peut utiliser une table de correspondance.

[defluc]

Et comment paramétrer XOr ?

[adc]

On peut faire un XOr sur chacune des composantes RGB

par exemple, si CouleurSrc est la couleur de départ ça donne :

Code :

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

1
2
3
4
5
6
 
R := GetRValue(ColorToRGB(CouleurSrc);
G := GetGValue(ColorToRGB(CouleurSrc);
B := GetBValue(ColorToRGB(CouleurSrc);
 
CouleurDest := RGB(R xor $FF, G xor $FF, B xor $FF)

Attention avec le gris ça marche pas car ça donne gris aussi, il faut donc faire un cas particulier.
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[defluc]

Les tonalités sont changées : un fond bleu marine donne un texte jaune clair, un fond rouge donne un texte "Aqua";
A mon avis, il doit exister un algorithme qui permet de foncer une couleur ou de la pâlir d'une valeur donnée en préservant sa tonalité.

[denokan]

effectivement un algo a été proposé sur ce forum récemment et je t'engage à faire une recherche avec le mot clé couleur

[LadyWasky]

Dans le même état d'esprit que ADC :

Code :

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

1
2
3
4
var CouleurFond,CouleurPolice:Tcolor;
...
CouleurFond:=TColor($FFFFFF-ColorToRGB(CouleurPolice));
//ou vice-versa

Même remarque pour du gris moyen-->ça reste du gris sur fond gris