pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

OuvrePopup (en anglais OpenPopup)

// Ouverture d'une fenêtre de sélection de couleur
Couleur est un entier = OuvrePopup (CouleurFenSélecteur)
// Si une couleur a été sélectionné
// (nCouleur <= 0 si on annule la fenêtre)
SI Couleur > 0 ALORS
    // changement de couleur du rectangle du bouton
    BTN_Couleur..Libellé = gRectangle(0,0,72,16, Couleur, 0)
FIN


Début de la page

OuvrePopupPosition (en anglais OpenPopupPosition)

// Ouverture d'une fenêtre de sélection de couleur
Couleur est un entier = OuvrePopupPosition (CouleurFenSélecteur, ...
                        poBas + poDroite + poSelonChamp , ...
                        BTN_CouleurAction, CouleurCourante)
// Si une couleur a été sélectionné
// (nCouleur <= 0 si on annule la fenêtre)
SI Couleur > 0 ALORS
    // On conserve la nouvelle couleur sélectionné
    CouleurCourante = Couleur
    // changement de couleur du rectangle du bouton
    BTN_Couleur..Libellé = gRectangle(0,0,72,16, CouleurCourante, 0)
FIN


Début de la page