|
|
|
|
|
|
|
|
|
|
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.
|
|
|
|
|
|
|
|
|
|