PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Gestion couleur
Gestion couleur
Started by MURIEL, Aug., 14 2018 5:14 PM - 8 replies
Registered member
6 messages
Posted on August, 14 2018 - 5:14 PM
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.
Registered member
948 messages
Popularité : +30 (92 votes)
Posted on August, 14 2018 - 5:40 PM
Coucou,

Regarde du coté des fonctions gX :

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

--
In üs we trust - #92i
Message modified, August, 14 2018 - 5:40 PM
Posted on August, 14 2018 - 7:16 PM
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
Posted on August, 15 2018 - 10:36 AM
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
Posted on August, 16 2018 - 5:14 PM
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
-------------------------------------------------------------
Posted on August, 17 2018 - 1:31 PM
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
Registered member
834 messages
Popularité : +13 (13 votes)
Posted on August, 17 2018 - 2:43 PM
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
Posted on August, 17 2018 - 7:25 PM
Merci Jean-Michel pour votre suggestion. :merci:
C'est quand même fou le nombre de possibilités pour effectuer cette opération :D
Registered member
834 messages
Popularité : +13 (13 votes)
Posted on August, 18 2018 - 5:42 PM
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