4D Write v16

WR Lire propriete texte

Accueil

 
4D Write v16
WR Lire propriete texte

WR Lire propriete texte 


 

WR Lire propriete texte ( zone ; propriété ; uniforme ) -> Résultat 
Paramètre Type   Description
zone  Entier long in Zone 4D Write
propriété  Entier in Numéro de propriété de texte à lire
uniforme  Entier in 1 si toute la sélection a cette propriété, sinon 0
Résultat  Réel in 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.

  • Si uniforme vaut 1, toute la sélection possède cette propriété.
  • Si uniforme vaut 0, la propriété peut varier dans la sélection.
    La valeur retournée correspond alors à l'état du dernier caractère de la sélection.

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 si

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

  • La méthode objet du bouton Info lit les informations de la règle à l’endroit où se trouve le curseur :
 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
  • La méthode objet de Interligne fixe votre choix pour l’interlignage :
 WR FIXER PROPRIETE TEXTE(LaZone;Interligne)
  • La méthode objet de Alignement fixe votre choix pour l’interlignage :
 WR FIXER PROPRIETE TEXTE(LaZone;Alignement)
  • Dans l’événement formulaire “Sur chargement”, vous cachez la règle et la barre de menus :
 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



Voir aussi  

WR FIXER PROPRIETE TEXTE

 
PROPRIÉTÉS 

Produit : 4D Write
Thème : WR Gestion de texte
Numéro : 89442
Nom intl. : WR Get text property

 
HISTORIQUE 

Modifié : 4D Write 2003

 
UTILISATION DE L'ARTICLE

4D Write - Langage ( 4D Write v16)