4D v13

WR Lire police

Accueil

 
4D Write v13
4D Write - Langage
WR Gestion de texte
WR Lire police

WR Lire police 


 

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

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

 
PROPRIÉTÉS 

Produit : 4D
Thème : WR Gestion de texte
Numéro : 89463
Nom intl. : WR Get font

 
INDEX

Liste alphabétique des commandes

 
HISTORIQUE 

Créé : 4D Write 6.5

 
VOIR AUSSI  

WR FIXER POLICE
WR Lire police feuillestyle
WR Lire propriete texte