PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Gestion couleur
Gestion couleur
Débuté par MURIEL, 14 aoû. 2018 17:14 - 8 réponses
Membre enregistré
6 messages
Posté le 14 août 2018 - 17:14
Bonjour A Tous,
Je souhaiterais a travers un formulaire de saisie avoir une combo de choix de couleurs afin de pouvoir paramétrer une table de Catégorie.
J'ai bien créée une table "Couleur" mais je n'arrive pas a afficher celles-ci dans la combo avec le fond correspondant.
J'avoue ne pas savoir comment faire...
Quelqu'un peut-il me guider ?
Avec mes remerciements anticipés,
Cordialement,
Muriel.
Membre enregistré
948 messages
Popularité : +30 (92 votes)
Posté le 14 août 2018 - 17:40
Coucou,

Regarde du coté des fonctions gX :

Example gStylo : https://doc.pcsoft.fr/?3029039&name=gstylo_fonction

--
In üs we trust - #92i
Message modifié, 14 août 2018 - 17:40
Posté le 14 août 2018 - 19:16
Je vous remercie pour votre réponse si rapide... C'est super !

Voici donc ce que j'ai écris :

POUR TOUT T_couleur
ListeAjoute(COMBO_T_couleur,gStylo(T_couleur.coul_nom))
FIN

A l'affichage j'obtiens ceci ce qui est déjà pas mal :





Ce n'est pas tout a fait ce que je voulais. J'aurais aimé avoir la couleur en fond avec le libellé et non le libellé écrit avec la couleur. De plus, ce qui m'étonne c'est que la première lettre du libellé est tronquée ?! une idée

D'avance merci,

Muriel
Posté le 15 août 2018 - 10:36
Merci pour votre réponse Charly,

J'ai donc écris les instructions suivantes mais je n'obtiens pas le résultat escompté :

POUR TOUT T_couleur
ListeAjoute(COMBO_T_couleur,gFond(T_couleur.coul_nom))
FIN

Ce qui me donne l'affichage suivant :





En fait j'aimerais avoir le nom de la couleur et un carré (image ?) représentant la couleur.

Une autre indée ?!

Merci à Tous pour vos suggestions.

Muriel
Posté le 16 août 2018 - 17:14
Bonjour,

MURIEL avait prétendu :
Bonjour A Tous,
Je souhaiterais a travers un formulaire de saisie avoir une combo de choix de
couleurs afin de pouvoir paramétrer une table de Catégorie.
J'ai bien créée une table "Couleur" mais je n'arrive pas a afficher celles-ci
dans la combo avec le fond correspondant.
J'avoue ne pas savoir comment faire...
Quelqu'un peut-il me guider ?
Avec mes remerciements anticipés,
Cordialement,
Muriel.


Regarde la fonction SelectCouleur qui te donnera une "valeur" (comme
dans l'exemple) que tu peux affecer driectement à la propriété couleur,
CouleurFond de ton champ, colone ou ligne de table etc ....

Si tu as deja la valuer numerique tu peux l'affecter directement
Tu peux aussi utiliser RVB(x,y,z) etc .

a plus
a plus

--
-------------------------------------------------------------
www.ctc-soft.com
Gestion biblo-documentaire (free-share)
Comptabilité shareware
Logiciels de Gestion de saisie terrain
Spécialisé Tournées de boulangers
-------------------------------------------------------------
Posté le 17 août 2018 - 13:31
Bonjour et merci d'avoir pris la peine de répondre a ma question .:merci:
J'ai eu des difficultés pour accéder au Forum d'où cette multiplication de messages de ma part }:(
Finalement après des recherches sur le site, j'ai utilisé le champ popup palette couleur qui au final me convient après quelques arrangements.
Cordialement,
Muriel
Membre enregistré
834 messages
Popularité : +13 (13 votes)
Posté le 17 août 2018 - 14:43
Muriel bonjour,





ListeAjoute(COMBO_couleur,"Rouge Clair")
COMBO_couleur[1]..CouleurFond = RougeClair

ListeAjoute(COMBO_couleur,"Vert Clair")
COMBO_couleur[2]..CouleurFond = VertClair

ListeAjoute(COMBO_couleur,"Jaune Or")
COMBO_couleur[3]..CouleurFond = JauneOr

ListeAjoute(COMBO_couleur,"BleuClair")
COMBO_couleur[4]..CouleurFond = BleuClair

En espérant avoir compris votre demande.............

Tu as la fonction DonneCouleur() qui est bien.

J.Michel

--
Synchronize Systems International LTD
Développement d'outils de gestion

Environnements AS400 – Windows
Langages GAP III – CL – Visual Basic - Visual Adélia - Adélia - Windev
http://www.cashpower.fr/

Bangkok / Pattaya
Posté le 17 août 2018 - 19:25
Merci Jean-Michel pour votre suggestion. :merci:
C'est quand même fou le nombre de possibilités pour effectuer cette opération :D
Membre enregistré
834 messages
Popularité : +13 (13 votes)
Posté le 18 août 2018 - 17:42
ou..........




ListeAjoute(COMBO_couleur,"Rouge Clair")
COMBO_couleur[1].COL_coul..CouleurFond = RougeClair

ListeAjoute(COMBO_couleur,"Vert Clair")
COMBO_couleur[2].COL_coul..CouleurFond = VertClair

ListeAjoute(COMBO_couleur,"Jaune Or")
COMBO_couleur[3].COL_coul..CouleurFond = JauneOr

ListeAjoute(COMBO_couleur,"BleuClair")
COMBO_couleur[4].COL_coul..CouleurFond = BleuClair


--
Synchronize Systems International LTD
Développement d'outils de gestion

Environnements AS400 – Windows
Langages GAP III – CL – Visual Basic - Visual Adélia - Adélia - Windev
http://www.cashpower.fr/

Bangkok / Pattaya