version 2003 (Modifiée)
WR Lire propriete texte (zone; propriété; uniforme) Numérique
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 | Numérique | Dépend de la propriété lue |
Description
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.
Exemples
(1) 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
(2) 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
Référence