Changer la police d'une fenêtre par programmation

Un client, allergique à la police (pourtant standard ARIAL) de mon logiciel, voulait avoir une police différente sur mon logiciel...

Voici un script simplifié qui liste les objets d'une fenêtre et modifie la police par programmation :

Code (Text):

PROCEDURE PoliceECRAN(NomDeLaFenetre)

MaPolice est une Police
MaPolice = PoliceCrée("Verdana", 10) // <----- Ma nouvelle police pour cet écran

i est entier
sNomChamp est une chaîne

//On scan tous les champs de l'écran
// Premier champ de la fenêtre

i=1; sNomChamp = EnumèreChamp(NomDeLaFenetre, i)
TANTQUE sNomChamp<>""

       SELON {sNomChamp,indChamp}..Type
                CAS typTexte :
                      {sNomChamp,indChamp}..Police = MaPolice
                       
                CAS typLibellé
                     { sNomChamp,indChamp}..Police = MaPolice
                       
                CAS typBouton
                     {sNomChamp,indChamp}..Police = MaPolice
                       
                AUTRE CAS                        
                     // On ne modifie rien...
        FIN
               
        // Champ suivant
        i ; sNomChamp = EnumèreChamp(NomDeLaFenetre, i)
FIN