WR Lire police

4D - Documentation   Français   English   German   4D Write, Commandes par thèmes   4D Write, Liste alphabétique des commandes   4D Write, Constantes par thèmes   Retour   Précédent   Suivant

version 6.5


WR Lire police (zone; uniforme) Alpha

ParamètreTypeDescription
zoneEntier longZone 4D Write
uniformeEntier long1 si toute la sélection a cette propriété,
sinon 0
RésultatAlphaNom 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.


4D - Documentation   Français   English   German   4D Write, Commandes par thèmes   4D Write, Liste alphabétique des commandes   4D Write, Constantes par thèmes   Retour   Précédent   Suivant