TObject->Color et composantes RGB

Bonjour,

(Borland c++ Builder 3)

Comment faire pour récupérer les composantes RGB d'un TColorDialog->Color ?

Et vice-versa, comment, puis-je attribuer une couleur à un objet (par exemple un panel) à partir des composantes RGB de cette couleur ?

Merci. Flo.

Citation:

---

Envoyé par Florian Sella

Bonjour,

Et vice-versa, comment, puis-je attribuer une couleur à un objet (par exemple un panel) à partir des composantes RGB de cette couleur ?

Merci. Flo.

---

Code:

---

1 2 3 4

int rouge = 255; int vert = 0; int bleu = 0; Panel1->Color = RGB(rouge, vert, bleu);

---

Merci JEG

et pour récupérer RGB à partir de la valeur de Color ?

Ah au fait, j'ai réussi à faire fonctionner mon algo pour segmenter sur des zones fermées connexes ou pas. Pour l'instant, niveau code, c'est un peu le bazard. Je le réarrange et je t'en fais part si ça t'intéresse toujours. (Par contre on fera pas du temps réel avec :lol: !!! --- il est un peu lourd je pense !!! ). Pour l'instant je l'utilise comme "pot de peinture", mais je récupère tous les pixels du compact, en différenciant les pixels-contours et les pixels internes. Faut également que je travaille sur le nombre d'itérations, je cumule plusieurs fois les mêmes infos sur plusieurs itérations.

Flo.

pour le RGB je ne sais plus dans le sens inverse, mais c'est peut-être une méthode de TColor.

Pour l'algo, ca m'interesse toujours, si tu t'en sers juste comme pot de peinture, il y a une méthode Fill() de ma classe TCanvas, qui te permet de remplir d'une certaine couleur tous les pixels contigus, mais ca ne fait pas de sélection

Voici la macro RGB :

Code:

---

1 2 3

#define RGB(r, g ,b) ((DWORD) (((BYTE) (r) | \   ((WORD) (g) << 8)) | \   (((DWORD) (BYTE) (b)) << 16)))

---

donc pour connaître r, g et b :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

DWORD dwStyle = RGB(196, 255, 205); BYTE b = dwStyle >> 16; BYTE g = (dwStyle & ~(b << 16)) >> 8; BYTE r = dwStyle & ~(b << 16) & ~(g << "8");* //*J'ai été obligé de mettre des guillemets autour du 8 sinon, à l'affichage de mon message j'ai un 8). //Les guillemets sont donc à effacer dans le code réel.     ShowMessage("r : " + IntToStr(r) + "\r\n" + "g : " + IntToStr(g) + "\r\n" + "b : " + IntToStr(b));

---

@+

Frédéric

Tu peux aussi découper ton code hexadécimal en chaine.

Code:

---

AnsiString Couleur = IntToHex(color, 8);

---

et ensuite, à l'aide de SubString, tu découpes ta chaine.
Sache seulement que dans l'ordre tu as :

Code:

---

00BBVVRR

---

Merci à vous trois pour les morceaux de codes.

Mais j'avoue que j'ai du mal à comprendre celui de fred.
A quel moment apparait le TObject->Color dont on veut connaitre les composante r,g,b ?

Merci

FLo

essaye de remplacer ca :

Code:

---

DWORD dwStyle = RGB(196, 255, 205);

---

par ca :

Code:

---

DWORD dwStyle = bidulle->Color;

---

Salut,
Merci JEG mais c'est un peu ma faute. D'où l'importance de bien nommer ses variables : j'aurais dû appeler ma variable dwColor plutôt que dwStyle.
@+
Frédéric

Avec la petite correction de JEG, il marche à merveille ton code fred.

Merci encore. Flo

Salut,
Je viens de trouver aussi l'équivalent dans les api windows avec GetRValue, GetBValue et GetGValue dont tu trouveras la définition dans wingdi.h :

Code:

---

1 2 3 4 5 6 7 8 9

#define GetRValue(rgb) ((BYTE)(rgb)) #define GetGValue(rgb) ((BYTE)(((WORD)(rgb)) >> 8 )) #define GetBValue(rgb) ((BYTE)((rgb)>>16))   Donc :   BYTE bRed = GetRValue((DWORD)MonObjet->Color); BYTE bGreen = GetGValue((DWORD)MonObjet->Color); BYTE bBlue = GetBValue((DWORD)MonObjet->Color);

---

C'est encore plus simple que ce que je t'avais proposé et ça montre la vraie traduction inverse de la macro RGB.

@+

Frédéric