Problème pour récupérer les composantes RVB d'un TColor
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:
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