Discussion :

[lejert]

Bonjour,

Je ne connais rien au language 4D... autant le dire tout de suite... lol

Je développe une appli dans un autre language... j'aurais cependant besoin d'un spécialiste pour une toute petite question.

J'ai dans une BDD des couleurs qui sont de la forme d'entiers tels que 89 , 35 , 5 , 228 ...

Ces couleurs viennent de 4D, fort probablement de la librairie 4D Draw...

J'aimerais pouvoir convertir ces entiers en triple Rouge Vert Bleu sous format hexadecimal par exemple tels que : #0B457A

Comme je n'ai pas 4D installé, j'aimerai connaitre l'algo générique qui me permettrait que faire cette conversion, si c'est touefois possible.

Sinon, il existe peut être un fichier texte avec la correspondance des couleurs ... ? Ou celui ci ne doit pas etre difficile a faire pour qqun qui a 4D... j'ai vu des articles la dessus ...

Merci d'avance.

[Thomas4D]

Bonjour,

Comme vous êtes sur le forum 4D, voici des réponses dans ce langage.

(Vous pouvez essayer de transposer si nécessaire).

1/ Pour ce qui concerne la manière dont 4D Draw code ses couleurs, vous pouvez jeter un oeil sur ce lien (si vous avez besoin de convertir) :

http://4d.developpez.com/tips/2006/g...VB-couleur-4D/

2/ Pour ce qui est de faire une conversion des trois valeurs numériques en chaine hexadécimale, c'est (assez simple) sous 4D :

Vous écrivez une petite méthode utilitaire :

` Methode : Methode_Couleurs_Hexa
C_ENTIER LONG($1;$2;$3)
C_TEXTE($0)

C_ENTIER LONG($rouge;$vert;$bleu)
C_ENTIER LONG($couleur)
C_TEXTE($couleur_Hexa)

Si (Nombre de parametres>2) `les trois valeurs numeriques de couleur en argument
$rouge:=$1
$vert:=$2
$bleu:=$3
$couleur:=($rouge*65536)+($vert*256)+$bleu
$couleur_Hexa:=Chaine($couleur;"&$") `format HexaDecimal
$0:="#"+Sous chaine($couleur_Hexa;2) `format attendu dans l'exemple.
Fin de si

` ---

et vous l'appelez avec une autre méthode en lui passant les paramètres voulus :

` Methode : test
` (a executer dans 4D 2003/2004/v11 SQL)
C_ENTIER LONG($rouge;$vert;$bleu)
C_TEXTE($couleur_Hexa)
$rouge:=48
$vert:=65
$bleu:=255
$couleur_Hexa:=Methode_Couleurs_Hexa ($rouge;$vert;$bleu)
ALERTE($couleur_Hexa) `affichera dans cet exemple "#3041FF"

Bonne fin de journée,

Thomas