Discussion :

[kurul1]

Bonjour à tous

J'ai un souci pour récupérer les composantes RVB d'un TColor

Si dans mon TColor, je met une couleur primaire comme clRed ou clBlue,
Aucun problème.

En me référant a la FAQ, je fais ceci

Code :

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

1
2
3
4
5
6
 
   TColor Couleur = clRed;
 
   BYPE Rouge = GetRValue(Couleur);
   BYTE Vert = GetGValue(Couleur);
   BYPE Bleu = GetBValue(Couleur);

Jusque là, pas de problème

Or, dès que je met Couleur = clAppWorkSpace;

Plus rien ne va, les composantes Couleur me donne la couleur Noir

Est ce que quel'un aurait une solution

Merci d'avance

[Gilles Louïse]

Si vous mettez votre curseur sur clAppWorkSpace en appuyant sur Ctrl et que vous cliquiez le curseur qui devient une main, vous allez dans Graphics.hhp et on y lit :

Code :

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

static const TColor clAppWorkSpace = 0x8000000c;

ce qui est presque noir. En fait, vous avez Rouge=12 en décimal, soit effectivement c en hexadécimal, et les deux autres composantes à 0 et c'est ce qu'on obtient à l'exécution de votre code.

À bientôt
Gilles

[kurul1]

Merci pour ta réponse.

Mais, pourquoi la couleur clAppWorkSpace est grise quand on la sélectionne dans un TColorBox ?

[Gilles Louïse]

Il semble que ce soit bien cette couleur-là, par exemple le code :

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::ColorBox1Change(TObject *Sender)
{
TColor Couleur = ColorBox1->Selected;
ShowMessage("Rouge="+IntToStr(GetRValue(Couleur))
           +" Vert="+IntToStr(GetGValue(Couleur))
           +" Bleu="+IntToStr(GetBValue(Couleur)));
}

donnera bien Rouge=12 et les deux autres composantes à 0.

Si vous rajoutez un TLabel et que vous écriviez :

Code :

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

Label1->Color=Couleur;

on voit bien un gris, peut-être un peu plus foncé que celui proposé dans le composant.

À bientôt
Gilles

[kurul1]

En fait pour expliquer plus clairement, cette couleur est la couleur des arrière plan des applications dans windows. Par exemple, dans word, la couleur du fond de l'écran derrière ces pages est de cette couleur.

Je veux utiliser cette couleur pour mon application quand elle est au repos.

Ce que je ne comprend pas, c'est que lorsque j'utilise cette couleur pour peindre ma form en coloriant le Canvas, la couleur correspond, par contre lorsque je veux utiliser cette couleur dans OpenGL, la couleur ne correspond pas.

C'est ça qui me pose problème.

Exemple

Code :

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

1
2
3
4
5
 
   TColor Couleur = clAppWorkSpace
   Canvas->Brush->Color = Couleur;
   Canvas->Pen->Color = Couleur;
   Canvas->Rectangle(0, 0, Form->Width, Form->Height);

là aucun problème, la couleur correspond.

Or dès que je veux intégré ma couleur à OpenGL, cela ne va plus

Code :

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

1
2
3
4
5
6
7
8
 
        TCouleur Couleur = clAppWorkSpace;
 
        float Rouge = float(GetRValue(CouleurCible));
        float Vert = float(GetGValue(CouleurCible));
        float Bleu = float(GetBValue(CouleurCible));
 
        glClearColor(Rouge, Vert, Bleu, 1.0f);

J'obtiens la Couleur que tu me dis.
Pourquoi ces 2 couleurs ne sont pas identiques ?

[Gilles Louïse]

Je ne sais pas utiliser OpenGL avec C++ Builder6, je ne peux tester la fonction glClearColor.

Cela dit, d'après son nom, vous faites un Clear, c'est curieux, cela expliquerait peut-être que les composantes soient remises à 0.

À bientôt
Gilles

[kurul1]

Cette fonction efface la zone de dessin avec la couleur passé en paramètre.

Comme j'ai 12 0 0 dans mes composantes couleurs, elle m'efface l'écran avec cette couleur. Moi je voudrais qu'elle soit de la même couleur que si je l'avais effacé en dessinant sur le Canvas. C'est là qu'est le problème.

Pourquoi les couleurs ne correspondent pas.

[Greybird]

Bonjour,

Tout simplement parce que vous n'avez pas des valeurs RGB de la couleur.

TColor peut avoir principalement 4 formats
00bbggrr : utilisation de la fonction RGB
010000nn : utilisation de la fonction PaletteIndex
02bbggrr : utilisation de la fonction PaletteRGB
800000nn : constante définie dans Graphics.PAS en utilisant les constantes Windows.

Dans ton cas, on est dans le dernier cas, une constante Windows... Donc pas de données RGB...

Le truc est donc de trouver un moyen de convertir une constante Windows en sa valeur RGB. (probablement GetSysColor)

[kurul1]

Alors pourquoi quand je fait cela avec une couleur primaire style le rouge (clRed) ou le bleu (clBlue), il n'y a pas de problème. cela ne devrait pas marcher non plus.

Je me suis référé a la FAQ pour la récupération des composantes RGB d'un TColor donc, cette technique ne marche pas tout le temps ??

[Greybird]

Alors pourquoi quand je fait cela avec une couleur primaire style le rouge (clRed) ou le bleu (clBlue), il n'y a pas de problème. cela ne devrait pas marcher non plus.

Si. Il ne font pas confondre les constantes de couleurs système avec les constantes de couleurs classiques, même si elles sont mélées. clRed n'est rien d'autre que la couleur rouge, 0x000000FF. Les constantes systèmes sont des couleurs logiques, 0x800000xx.
clRed n'est en aucun cas une constante de couleur système.

Je me suis référé a la FAQ pour la récupération des composantes RGB d'un TColor donc, cette technique ne marche pas tout le temps ??

Effectivement, cette méthode ne fonctionne pas avec les couleurs systèmes. Une correction sera faite dans la prochaine mise à jour. Merci de nous l'avoir signalé !

Arnaud

[kurul1]

Je comprend mieux maintenant, merci pour ta réponse