WR Lire police

4D Write v16

WR Lire police


WR Lire police ( zone ; uniforme ) -> Résultat

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
uniforme	Entier long	1 si toute la sélection a cette propriété, sinon 0
Résultat	Chaîne	Nom de la police du dernier caractère de la sélection

Description

La commande WR Lire police retourne le nom de la police de caractère du dernier caractère appartenant au texte sélectionné dans zone.

Si uniforme = 1, toute la sélection est dans cette police de caractère.
Si uniforme = 0, d'autres polices de caractère sont utilisées dans la sélection.

Exemple

Vous voulez relire la police de la sélection courante pour l'appliquer à tout votre document.

 vPolice:=WR Lire police(LaZone;vUniforme)

 Si(vUniforme=0) `S'il y a plusieurs polices dans la sélection

    CONFIRMER("Il y a plusieurs polices dans la sélection, la police utilisée pour le dernier "+"caractère est

    "+vPolice+". Voulez-vous appliquer cette police à tout le document?")

 Sinon

    CONFIRMER("La police de votre sélection est "+vPolice+". Voulez-vous appliquer cette police à

    tout le document?")

 Fin de si

 Si(OK=1)

    WR EXECUTER COMMANDE(LaZone;wr cmd tout sélectionner) `Sélection de tout le document

    WR FIXER POLICE(LaZone;vPolice) `Affectation de la nouvelle police

    WR FIXER SELECTION(LaZone;0;0) `On positionne le curseur en début de document

    WR AFFICHER SELECTION(LaZone) `Affichage de la sélection de texte courante

 Fin de si

Voir aussi

WR FIXER POLICE
WR Lire police feuillestyle
WR Lire propriete texte