1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice
Cookies Politique du forum

[Résolu] WD : Champ Interrupteur + couleurs libellés

Discussion dans 'Résolution problème & conseils' créé par SavageBeast, Nov 26, 2018.

  1. SavageBeast

    SavageBeast Member

    Inscrit:
    Juin 14, 2018
    Messages:
    52
    J'aime reçus:
    29
    Salut à tous ! Je pense être tombé sur un bug présent depuis la V17 à la V23. J'ai un champ Interrupteur, dont je veux changer la couleur des libellés indépendemment suivant la situation avec 2 boutons (ROUGE / VERT)

    En théorie, simple, en pratique ça bugue à 50% !

    Le code pour le bouton VERT :
    sTemp est une chaîne = ""
    POUR i = 1 À 5
    sTemp = INT_SansNom1..Libellé
    INT_SansNom1..Libellé = ""
    INT_SansNom1..Libellé = gStylo(VertClair) + sTemp
    FIN

    Le code pour le bouton ROUGE :
    sTemp est une chaîne = ""
    POUR i = 1 À 5

    sTemp = INT_SansNom1..Libellé
    INT_SansNom1..Libellé = ""
    INT_SansNom1..Libellé = gStylo(RougeClair) + sTemp
    FIN


    J'ai tenté de faire les changements en direct, sans passer par sTemp, ça marche la première fois, ça devient rouge, puis plus pour devenir vert. Même chose si je clique sur le bouton vert d'abord, ça s'affiche en vert, mais plus en rouge...

    Peu importe la couleur...

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Toute idée, solution, danse du feu ou de la pluie pouvant aider est la bienvenue (je ponds des softs >150K lignes de code, et je coince sur ce truc...besoin de vacances...)

    Merci pour votre aide.
    A+. SB
     
    #1 SavageBeast, Nov 26, 2018
    Dernière édition par un modérateur: Nov 26, 2018
    Tags:
  2. ProDev

    ProDev Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 11, 2018
    Messages:
    371
    J'aime reçus:
    372
    @

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Pour changer la couleur des libellés indépendamment
    INT_SansNom1[2]..Libellé = gStylo(RougeClair) +INT_SansNom1[2]..Libellé

    Bon dev
     
    #2 ProDev, Nov 26, 2018
  3. SavageBeast

    SavageBeast Member

    Inscrit:
    Juin 14, 2018
    Messages:
    52
    J'aime reçus:
    29
    Bonjour ProDev.

    J'ai déjà testé, et cela ne fonctionne pas. Tu peux changer la couleur 1x, mais c'est tout.

    Noir à Vert ou Rouge, OK
    Rouge à vert, ça ne fonctionne pas
    Vert à rouge, ça ne fonctionne pas.

    Testé sur les versions 17 à 23.
    Merci pour la suggestion.
     
    #3 SavageBeast, Nov 26, 2018
  4. ProDev

    ProDev Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 11, 2018
    Messages:
    371
    J'aime reçus:
    372
    @

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    Dans déclaration globale de la fenêtre sTemp= INT_SansNom1[2]..Libellé
    dans un boutton:
    INT_SansNom1[2]..Libellé=sTemp
    INT_SansNom1[2]..Libellé = gStylo(VertFoncé) +INT_SansNom1[2]..Libellé

    Ça marche 100%
     
    #4 ProDev, Nov 26, 2018
    joker apprécie ceci.
  5. SavageBeast

    SavageBeast Member

    Inscrit:
    Juin 14, 2018
    Messages:
    52
    J'aime reçus:
    29
    Re !

    Merci pour ta solution qui fonctionne ! j'ai dû créer un tableau de chaines pour mes options, et je dois encore gérer cela pour le multi-langues. Curieusement, cela n'est pas mentionné dans l'aide de WD.

    Bon... Je termine ma PROC, backup, et ras-le-bol pour aujopurd'hui ! :D :D
    A+, SB
     
    #5 SavageBeast, Nov 26, 2018
  6. FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    199
    J'aime reçus:
    368
    Je ne comprends pas, pourquoi faire simple, alors qu'on faire compliqué.
    Tu as essayé avec l'option couleur ?
    Code (Text):
    INT_COLOR..Couleur = RougeClair
    Plus de problème de langue.

    A+.
     
    #6 FreudWD, Nov 26, 2018
    joker apprécie ceci.
  7. SavageBeast

    SavageBeast Member

    Inscrit:
    Juin 14, 2018
    Messages:
    52
    J'aime reçus:
    29

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Je ne comprends pas, pourquoi faire simple, alors qu'on faire compliqué.
    Tu as essayé avec l'option couleur ?
    Code (Text):
    INT_COLOR..Couleur = RougeClair
    Plus de problème de langue.

    A+.
    Cliquez pour agrandir...
    C'est ce que j'ai fait au départ, et cela n'a pas fonctionné. Tu changes 1x de couleur, et après, plus moyen de le faire... C'est pour cela que je suis parti sur une autre approche, qui n'a pas fonctionné non plus... Finalement la solution de ProDev a permis de résoudre la situation...

    Une loufoquerie de plus de WD ....
    A+, SB
     
    #7 SavageBeast, Nov 26, 2018
  • FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    199
    J'aime reçus:
    368
    Pour moi, cela fonctionne de WD 20 à 23.

    Par contre en utilisant gStylo dans une zone texte,
    il ne faut pas qu’il y ait une double valeur à 0 dans un texte, vous devinez pourquoi.
    Donc, il ne faut pas utiliser un code couleur avec deux 0.

    Voici un exemple pour faire clignoter INT sur un seul bouton :
    Code (Text):
    tabLibelle est un tableau de chaînes
    sListeLibelle est une chaîne

    POUR nPosListe = 1 _À_ INT_COLOR..Occurrence
        SI ChaîneOccurrence(INT_COLOR[nPosListe]..Libellé, ")") = 0 ALORS
            TableauAjoute(tabLibelle, INT_COLOR[nPosListe]..Libellé)      
        SINON
            TableauAjoute(tabLibelle, ExtraitChaîne(INT_COLOR[nPosListe]..Libellé, 2, ")"))
        FIN
    FIN

    POUR nPosTab = 1 _À_ tabLibelle..Occurrence
        SI EstPair(nPosTab) = bAlterne ALORS
            sListeLibelle += gStylo(RGB(255,0,1)) + tabLibelle[nPosTab] + TAB
        SINON
            sListeLibelle += gStylo(RGB(1,0,255)) + tabLibelle[nPosTab] + TAB
        FIN
    FIN

    INT_COLOR..Libellé = sListeLibelle
    bAlterne = bAlterne ? Faux SINON Vrai
    Dans le globale de la fenêtre :
    Code (Text):
    bAlterne est un booléen = Vrai
    Avec mon exemple, vous mettez 0 à la place du 1 dans les RGB et vous verrez.

    A+.
     
    #8 FreudWD, Nov 26, 2018
    joker apprécie ceci.
    • (Vous devez vous identifier ou vous inscrire pour poster ici.)

    Partager cette page

    Chargement...