OVH Cloud OVH Cloud

[WD75] Selecteur de couleur Hexa

5 réponses
Avatar
Roumegou Eric
Bonjour,

encore une question (j'espère pas à côté celle là) ...

J'ai besoin d'un sélecteur de couleur qui me ramene un code RVB en
hexa.
Le composant donné avec la 7.5 renvoie un n° de couleur qui me semble
être les seules couleurs prédéfinies Windev.

Ou pourrais-je avoir cela ?

--
Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)

5 réponses

Avatar
Roumegou Eric
Il se trouve que Roumegou Eric a formulé :
Bonjour,

encore une question (j'espère pas à côté celle là) ...

J'ai besoin d'un sélecteur de couleur qui me ramene un code RVB en hexa.
Le composant donné avec la 7.5 renvoie un n° de couleur qui me semble être
les seules couleurs prédéfinies Windev.

Ou pourrais-je avoir cela ?



en fait le composant WD me renvoie une couleur qui doit être le
résultat de ce calcul
Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


Comment avoir le contraire de RVB ?

--
Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)
Avatar
Firetox
Bonjour, eric

Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


R = ETBinaire(Couleur ,0xFF)
V = ETBinaire(Couleur ,0xFF00)/0x100
B = ETBinaire(Couleur ,0xFF0000)/0x10000

bon dev
@+


"Roumegou Eric" a écrit dans le message de news:

Il se trouve que Roumegou Eric a formulé :
Bonjour,

encore une question (j'espère pas à côté celle là) ...

J'ai besoin d'un sélecteur de couleur qui me ramene un code RVB en hexa.
Le composant donné avec la 7.5 renvoie un n° de couleur qui me semble
être les seules couleurs prédéfinies Windev.

Ou pourrais-je avoir cela ?



en fait le composant WD me renvoie une couleur qui doit être le résultat
de ce calcul
Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


Comment avoir le contraire de RVB ?

--
Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)




Avatar
Roumegou Eric
Après mure réflexion, Firetox a écrit :
Bonjour, eric

Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


R = ETBinaire(Couleur ,0xFF)
V = ETBinaire(Couleur ,0xFF00)/0x100
B = ETBinaire(Couleur ,0xFF0000)/0x10000



Salut Fred
Tout simplement génial, merci beaucoup.

mais ça s'invente pas ça. On pouvait le trouver dans la doc ?


bon dev
@+


"Roumegou Eric" a écrit dans le message de news:

Il se trouve que Roumegou Eric a formulé :
Bonjour,

encore une question (j'espère pas à côté celle là) ...

J'ai besoin d'un sélecteur de couleur qui me ramene un code RVB en hexa.
Le composant donné avec la 7.5 renvoie un n° de couleur qui me semble être
les seules couleurs prédéfinies Windev.

Ou pourrais-je avoir cela ?



en fait le composant WD me renvoie une couleur qui doit être le résultat de
ce calcul
Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


Comment avoir le contraire de RVB ?

-- Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)







--
Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)
Avatar
Firetox
Non pas dans la doc

mais ce code traine n peu sur tous les forum de prog C ou delphi
donc quand j'en ai eu besoin j'ai pris le code C et transforme en windev
et il reposait tranquillement dans mon projet recherche_dev

mais dans la doc : non il n'y a rien

@+

"Roumegou Eric" a écrit dans le message de news:

Après mure réflexion, Firetox a écrit :
Bonjour, eric

Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


R = ETBinaire(Couleur ,0xFF)
V = ETBinaire(Couleur ,0xFF00)/0x100
B = ETBinaire(Couleur ,0xFF0000)/0x10000



Salut Fred
Tout simplement génial, merci beaucoup.

mais ça s'invente pas ça. On pouvait le trouver dans la doc ?


bon dev
@+


"Roumegou Eric" a écrit dans le message de news:

Il se trouve que Roumegou Eric a formulé :
Bonjour,

encore une question (j'espère pas à côté celle là) ...

J'ai besoin d'un sélecteur de couleur qui me ramene un code RVB en
hexa.
Le composant donné avec la 7.5 renvoie un n° de couleur qui me semble
être les seules couleurs prédéfinies Windev.

Ou pourrais-je avoir cela ?



en fait le composant WD me renvoie une couleur qui doit être le résultat
de ce calcul
Couleur = 65536 * Composante Bleu + 256 * Composante Verte + Composante
Rouge.


Comment avoir le contraire de RVB ?

-- Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)







--
Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)




Avatar
Roumegou Eric
Firetox a écrit :
Non pas dans la doc

mais ce code traine n peu sur tous les forum de prog C ou delphi
donc quand j'en ai eu besoin j'ai pris le code C et transforme en windev
et il reposait tranquillement dans mon projet recherche_dev

mais dans la doc : non il n'y a rien





Alors vraiment merci.
Donc en recap pour l'histo du forum
Vous avez besoin d'un sélecteur de couleur Hexa en 7.5
1 - Utiliser le composant SélecteurCouleur
2 - ce petit code sur un bouton

nCouleur,rouge,vert,bleu est un entier
//Ouvre le sélecteur de couleur à côté du bouton BTSELCOUL
nCouleur = gnSélectionnerCouleur("BTSELCOUL")
Rouge = ETBinaire(nCouleur ,0xFF)
Vert = ETBinaire(nCouleur ,0xFF00)/0x100
Bleu = ETBinaire(nCouleur ,0xFF0000)/0x10000
DIA_COLOR="#"+NumériqueVersChaine(rouge,"02X")+NumériqueVersChaine(vert,"02X")+NumériqueVersChaine(bleu,"02X")//
Couleur renvoyée
color..CouleurFond=ncouleur

color est champs libellé vide pour montrer la couleur sélectionnée.
DIA_COLOR est ma zone qui va recevoir la couleur RVB et que je pourrais
utiliser dans mes parametrages de site Web.



-- Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)







--
Eric Roumégou
Webmaster des Wtablettes
http://cerbermail.com/?qE7t4Qvilo
(cliquez sur le lien ci dessus pour me contacter en privé)