|
Started by Muriel, Aug., 14 2018 5:07 PM - 1 reply |
| |
| | | |
|
| |
Posted on August, 14 2018 - 5:07 PM |
Bonjour, J'aimerais, dans une fenetre de saisie, avoir une combo avec des choix de couleurs de fond afin de paramétrer une table de catégories. Mais j'avoue que je ne sais pas comment faire ?! Quelqu'un peut-il m'aider ? Par avance, je vous en remercie, Cordialement, Muriel PS : je dispose de la version Windev 23 |
| |
| |
| | | |
|
| | |
| |
Posted on August, 15 2018 - 3:53 PM |
Le 14/08/2018 à 15:07, Muriel a écrit :
Bonjour, J'aimerais, dans une fenetre de saisie, avoir une combo avec des choix de couleurs de fond afin de paramétrer une table de catégories. Mais j'avoue que je ne sais pas comment faire ?! Quelqu'un peut-il m'aider ? Par avance, je vous en remercie, Cordialement, Muriel PS : je dispose de la version Windev 23
BOnjour Muriel ... c'est assez simple je crois SI HNbEnr(AgendaEvénement) > 0 ALORS HLit(AgendaCatégorie,numCategorie) CARRE_PREMIER..CouleurFond = AgendaCatégorie.Couleur LIB_DEFAUT = AgendaCatégorie.Libellé FIN
le contenu de mon fichier Couleur = 7301605 etc etc j'ai 22 catégorie pour l'agenda
et dans l'affichage d'une ligne nCouleurFin est un entier nCouleurFoncé est un entier nCouleur est un entier =COL_Couleur SI nCouleur <> 0 ALORS // Eclairci la couleur nCouleurFin = TSL(CouleurTeinte(nCouleur), CouleurSaturation(nCouleur), Min(100, CouleurLuminosité(nCouleur) + 10)) nCouleurFoncé = TSL(CouleurTeinte(nCouleur), Max(0, CouleurSaturation(nCouleur) - 20), Max(0, CouleurLuminosité(nCouleur) - 20)) // Début du dessin dDébutDessin(IMG_PICCAT, dEffacer + dAvecOpacité) dRectangle(0, 0, 15, 15, MagentaClair, MagentaClair) // Cadre dLigne( 2, 1, 13, 1, nCouleurFoncé, 1) dLigne( 2, 14, 13, 14, nCouleurFoncé, 1) dLigne( 1, 2, 1, 13, nCouleurFoncé, 1) dLigne(14, 2, 14, 13, nCouleurFoncé, 1) // Dégradé dRectangleDégradé(2, 2, 14, 14, nCouleurFin, nCouleur) SI nCouleur = -1 ALORS dLigne(2, 2, 13, 13, RougeFoncé, 1) FIN // Sauvegarde COL_CouleurPicto = dSauveImageGIF(IMG_PICCAT, enMémoire) FIN
bon windev |
| |
| |
| | | |
|
| | | | |
| | |
|