| 4D Write v15WR Lire propriete texte | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D Write v15
 WR Lire propriete texte 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WR Lire propriete texte ( zone ; propriété ; uniforme ) -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |   | Zone 4D Write | |||||
| propriété | Entier |   | Numéro de propriété de texte à lire | |||||
| uniforme | Entier |   | 1 si toute la sélection a cette propriété, sinon 0 | |||||
| Résultat | Réel |   | Dépend de la propriété lue | |||||
La commande WR Lire propriete texte permet de savoir si la propriété passée en paramètre se trouve dans le texte sélectionné dans zone.
Le paramètre propriété vous permet de définir la propriété à examiner. Pour plus d'informations, reportez-vous à la description de la commande WR FIXER PROPRIETE TEXTE.
Si vous passez un numéro de propriété incorrect, l'erreur 1075 est retournée.
Vous voulez vérifier que les marges ne s’inscrivent pas au-delà d’une certaine valeur :
 Gauche:=WR Lire propriete texte(LaZone;wr marge gauche;$Uniforme)
 Si(Gauche<3) `Fixons la marge gauche à 3
    WR FIXER PROPRIETE TEXTE(LaZone;wr marge gauche;3)
 Fin de si
 Droite:=WR Lire propriete texte(LaZone;wr marge droite;$Uniforme)
 Si(Droite>43) `Fixons la marge droite à 43
    WR FIXER PROPRIETE TEXTE(LaZone;wr marge droite;43)
 Fin de siVous souhaitez laisser à l’utilisateur le soin de régler l’interligne et l’alignement dans un document sans qu’il ait cependant accès aux menus et à la règle. Le formulaire de saisie comporte un bouton Info et deux variables, Interligne et Alignement, associés à des méthodes objets.
 Interligne:=WR Lire propriete texte(LaZone;wr interligne;$Uniforme)
 Si($Uniforme=0)
    ALERTE("La sélection contient plusieurs types d'interlignages.")
    $Affect:=Vrai
 Sinon
    $Affect:=Faux
 Fin de si
 Alignement:=WR Lire propriete texte(LaZone;wr justification;$Uniforme)
 Si($Uniforme=0)
    ALERTE("La sélection contient des alignements différents.")
 Fin de si WR FIXER PROPRIETE TEXTE(LaZone;Interligne) WR FIXER PROPRIETE TEXTE(LaZone;Alignement) Si(Evenement formulaire=Sur chargement)
    WR FIXER PROPRIETE DOCUMENT(LaZone;wr barre menu;0)
    WR FIXER PROPRIETE DOCUMENT(LaZone;wr règles;0)
 Fin de si
	Produit :  4D Write
	Thème :  WR Gestion de texte
	Numéro :  
        89442
        
        
        
	Nom intl. :  WR Get text property
	Modifié :  4D Write 2003
	
	
	
	
	
	
	
	
	4D Write - Langage ( 4D Write v15)
	
	
	
	
	
	
	
 Ajouter un commentaire
Ajouter un commentaire