PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Gestion couleur de fond
Gestion couleur de fond
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