Discussion :

[Papy214]

Bonjour,

Un client va pouvoir choisir la couleur de fond de son application.
Mais du coup, il faut que j'adapte la couleur de la police de caractères ne fonction de cette couleur.

Quelqu'un ici a déjà été confronté à ce problème de couleur "adaptée" à la couleur de fond ?
Parce que si il choisit bleu, sur fond bleu, ça va pas le faire.

[Paul TOTH]

Bonjour,

Un client va pouvoir choisir la couleur de fond de son application.
Mais du coup, il faut que j'adapte la couleur de la police de caractères ne fonction de cette couleur.

Quelqu'un ici a déjà été confronté à ce problème de couleur "adaptée" à la couleur de fond ?
Parce que si il choisit bleu, sur fond bleu, ça va pas le faire.

j'utilise cette fonction pour choisir entre blanc et noir

Code :

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

1
2
3
4
5
6
7
8
 
function IsDark(AColor: TColor): Boolean;
var
  Color: Integer;
begin
  Color := ColorToRGB(AColor); // conversion clXXX en couleur RGB
  Result := 0.2125 * TColorRec(Color).R + 0.7174 * TColorRec(Color).G + 0.0721 * TColorRec(Color).B <= 128;
end;

[Gilbert Geyer]

Bonjour,

Quelqu'un ici a déjà été confronté à ce problème de couleur "adaptée" à la couleur de fond ?
Parce que si il choisit bleu, sur fond bleu, ça va pas le faire.

avec CouleurTexte := XOR CouleurFond ou avec CouleurTexte := Not (XOR CouleurFond) la couleur du texte est opposée à celle du fond.
Les couleurs sont des integer.

A+.

Edit : Paul Toth a dégaine plus vite que moi : lol

[Papy214]

Je viens de tester ça qui rend pas mal :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  C: TColorRec;
  I: Integer;
  RGBs: array[0..2] of Byte absolute I;
begin
  Color := RGB(TrackBarR.Position, TrackBarG.Position, TrackBarB.Position);
  I := ColorToRGB(Color);
  Label1.Font.Color := RGB(255 - RGBs[0], 255 - RGBs[1], 255 - RGBs[2]);

C'est un peu du XOR fait autrement.

Paul, ta fonction permet de savoir si il faut utiliser du blanc ou du noir pour la fonte ?
Je pourrais me limiter à ces 2 couleurs, pourquoi pas.
Je teste l'effet.

[Papy214]

La solution de Paul est finalement retenue pour éviter d'avoir des couleurs bizarroïdes si le client choisit un fond trop exotique.

Merci à tous les deux.

[Jipété]

Sinon, tu peux aussi aller lire les 130 et quelques entrées de cette discussion récente d'où il ressort qu'il n'existe pas de solution universelle applicable à tous les cas de figure (toutes les couleurs de fond, dans ton cas).

Bon courage...

[Papy214]

ouch ....

Je lirai ça ce soir à la veillée. Même s'il n'y a pas de formule magique, je peux au moins en tirer quelques idées supplémentaires.

Merci