Discussion :

[M4v3rick]

Comment en partant d'une couleur, peut-on retrouver les valeurs de chaque composante de cette couleur ?

Mon but est de pouvoir, en partant d'une couleur, en définir une nouvelle qui ira plus vers le rouge, le vert ou le bleu (suivant mes envies quoi).
Pour par exemple recréé des dégradés de couleurs !


un peu comme du code HTML :

Code :

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

1
2
#CC0000
#FF0000 => je le veux rouge + lumineux, donc j'augmente ces 2 valeurs

Ce que j'ai essayé :

Convertir la couleur en un entier puis ajouter une nouvelle valeur entière et reconvertir en TColor => Aïe, c'est pas vraiment un dégradé!


Puis j'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
    int a = ColorDialog1->Color;
    AnsiString couleur = IntToHex(a,8);
    AnsiString RR = this->reverseAS(couleur.SubString(couleur.Length()-2, 2));
    AnsiString VV = this->reverseAS(couleur.SubString(couleur.Length()-4, 2));
    AnsiString BB = this->reverseAS(couleur.SubString(couleur.Length()-6, 2));
    int b = RR.ToInt();
    ShowMessage(RR+VV+BB + "     " + b);

reverseAS est une fonction à moi pour inverser la chaîne ansistring...

Mais, pb, certaines couleurs ne passent pas !?


Bref, avez-vous une autre solution ?

[CGi]

macro défini dans API Win32:
GetBValue
GetGValue
GetRValue

[M4v3rick]

int r = GetRValue(ColorDialog1->Color);
int v = GetGValue(ColorDialog1->Color);
int b = GetBValue(ColorDialog1->Color);

Ca me donne effectivement les valeurs entières des composantes RVB.
Now, en partant d'un bleu pâle, j'aimerai arrivé à un bleu clair; il me suffit d'ajouter une valeur à la composante bleue, mais le résultat n'y est pas...

j'ai essayé ceci :

COLORREF color = RGB(r, v, b);

// que j'ai vu dans ton Truc&Astuce

Pourrais-tu m'expliquer en 2 mots ?

[M4v3rick]

Code :

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

1
2
3
4
5
6
7
8
9
    unsigned int r = GetRValue(ColorDialog1->Color);
    unsigned int v = GetGValue(ColorDialog1->Color);
    unsigned int b = GetBValue(ColorDialog1->Color);
 
    ShowMessage(AnsiString(r) + " " + AnsiString(v) + " " + AnsiString(b));
 
    COLORREF color = RGB(r+10, v, b);
 
    Shape2->Brush->Color = TColor(color);

Là, ici je peu jouer avec... Pour l'instant c'est bon , thx.

[M4v3rick]

Voilà, ça fonctionne correctement à présent.
J'ai pu convertir int (modifiés) en hexa (chaînes) puis les réutiliser dans du texte formaté pour des forums dont le moteur pour le balisage est le même que celui-ci...

Donc Merci !