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