4D Write v15
WR Get text property
- 4D Write - Langage
-
- WR Gestion de texte
-
- Gestion de texte, Introduction
- WR BACKSPACE
- WR DELETE SELECTION
- WR Direct find
- WR Find
- WR Get font
- WR GET PARAGRAPHS
- WR Get selected text
- WR GET SELECTION
- WR Get styled text
- WR Get text
- WR Get text property
- WR GET WORDS
- WR INSERT STYLED TEXT
- WR INSERT TEXT
- WR Mouse to selection
- WR Replace
- WR SELECT
- WR SET FONT
- WR SET SELECTION
- WR SET TEXT PROPERTY
WR Get text property
| WR Get text property ( 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.
- 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 Get text property(LaZone;wr left margin;$Uniforme)
If(Gauche<3) `Fixons la marge gauche à 3
WR SET TEXT PROPERTY(LaZone;wr left margin;3)
End if
Droite:=WR Get text property(LaZone;wr right margin;$Uniforme)
If(Droite>43) `Fixons la marge droite à 43
WR SET TEXT PROPERTY(LaZone;wr right margin;43)
End ifVous 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 Get text property(LaZone;wr line spacing;$Uniforme)
If($Uniforme=0)
ALERT("La sélection contient plusieurs types d'interlignages.")
$Affect:=True
Else
$Affect:=False
End if
Alignement:=WR Get text property(LaZone;wr justification;$Uniforme)
If($Uniforme=0)
ALERT("La sélection contient des alignements différents.")
End if- La méthode objet de Interligne fixe votre choix pour l’interlignage :
WR SET TEXT PROPERTY(LaZone;Interligne)- La méthode objet de Alignement fixe votre choix pour l’interlignage :
WR SET TEXT PROPERTY(LaZone;Alignement)- Dans l’événement formulaire “Sur chargement”, vous cachez la règle et la barre de menus :
If(Form event=On Load)
WR SET DOC PROPERTY(LaZone;wr view menubar;0)
WR SET DOC PROPERTY(LaZone;wr view rulers;0)
End if
Produit : 4D Write
Thème : WR Gestion de texte
Numéro :
89442
Modifié : 4D Write 2003
4D Write - Langage ( 4D Write v15)
