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

PoliceCree (en anglais FontCreate)

// Création d'une police
MaPolice est une police
MaPolice = PoliceCrée ("Arial", 12, iGras , iJauneClair )
// Utilisation de cette police dans le champ "NomClient"
NomClient..Police = MaPolice


Début de la page

PoliceCree (en anglais FontCreate)

// Création d'une police normale
PNormal est une police = PoliceCrée ("Arial",12)
// CRéation d'une police en gras
PGras est une police = PoliceCrée ("Arial",12, iGras )
// Préparation de l'impression
iApercu( iPDF )
// Parcours d'un tableau
i est un entier
POUR i = 1 A 100
   // Utilisation de la police normale pour les
   // 50 premiers éléments du tableau

   SI nTab[i]>50 ALORS
      iPolice(PNormal)
   SINON
      // Utilisation de la police en gras pour les
      // 50 derniers éléments du tableau

      iPolice(PGras)
   FIN
FIN
// Lancement de l'impression
iFinImprime()


Début de la page

PoliceListe (en anglais FontList)

Info( PoliceListe ())
// Liste des polices dans une liste
ListeAjoute(Liste1, PoliceListe ())


Début de la page

PoliceSelect (en anglais FontSelect)

// Création d'une police par défaut
PDefaut est une police = PoliceCrée("Arial",12)
// Utilisation d'une variable pour stocker la police de l'utilisateur
PUtilisateur est une police
// Demande à l'utilisateur de modifier sa police
PoliceSelect (PUtilisateur, Vrai , PDefaut)


Début de la page