version 6.5
WR Lire police (zone; uniforme) Alpha
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 | Alpha | 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
Référence
WR FIXER POLICE, WR Lire police feuillestyle, WR Lire propriete texte.