4D Write v16WR Lire police feuillestyle |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR Lire police feuillestyle
|
WR Lire police feuillestyle ( zone ; numFeuille ) -> Résultat | ||||||||
Paramètre | Type | Description | ||||||
zone | Entier long |
![]() |
Zone 4D Write | |||||
numFeuille | Entier long |
![]() |
Numéro de la feuille de style | |||||
Résultat | Chaîne |
![]() |
Nom de la police de caractères définie pour numFeuille | |||||
La commande WR Lire police feuillestyle retourne le nom de la police de caractères qui a été définie pour la feuille de style numFeuille. Si aucune police n'est définie pour cette feuille de style, une chaîne vide est retournée.
Vous souhaitez enlever l'attribut Police des feuilles de style pour lesquelles il a été défini, et lorsque la police n'est pas installée dans votre système :
TABLEAU TEXTE(TabPolice)
WR POLICES INSTALLEES(TabPolice)
$nbFeuilleStyle:=WR Compter(LaZone;wr nb feuilles de style)
Boucle($i;1;$nbFeuilleStyle)
$Police:=WR Lire police feuillestyle(LaZone;$i)
Si(($Police#"") & (Chercher dans tableau(TabPolice;$Police)=0))
WR FIXER POLICE FEUILLESTYLE(LaZone;$i;"")
Fin de si
Fin de boucle
Produit : 4D Write
Thème : WR Feuille de style
Numéro :
89462
Nom intl. : WR Get stylesheet font
Créé : 4D Write 6.5
4D Write - Langage ( 4D Write v16)