4D Write v16
WR Get font
- 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
4D Write v16
WR Get font
WR Get font
| WR Get font ( zone ; uniforme ) -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D Write | |||||
| uniforme | Entier long |
|
1 si toute la sélection a cette propriété, sinon 0 | |||||
| Résultat | Chaîne |
|
Nom de la police du dernier caractère de la sélection | |||||
La commande WR Lire police retourne le nom de la police de caractère du dernier caractère appartenant au texte sélectionné dans zone.
Vous voulez relire la police de la sélection courante pour l'appliquer à tout votre document.
vPolice:=WR Get font(LaZone;vUniforme)
If(vUniforme=0) `S'il y a plusieurs polices dans la sélection
CONFIRM("Il y a plusieurs polices dans la sélection, la police utilisée pour le dernier "+"caractère est
"+vPolice+". Voulez-vous appliquer cette police à tout le document?")
Else
CONFIRM("La police de votre sélection est "+vPolice+". Voulez-vous appliquer cette police à
tout le document?")
End if
If(OK=1)
WR EXECUTE COMMAND(LaZone;wr cmd select all) `Sélection de tout le document
WR SET FONT(LaZone;vPolice) `Affectation de la nouvelle police
WR SET SELECTION(LaZone;0;0) `On positionne le curseur en début de document
WR SCROLL TO SELECTION(LaZone) `Affichage de la sélection de texte courante
End if
Voir aussi
PROPRIÉTÉS
Produit : 4D Write
Thème : WR Gestion de texte
Numéro :
89463
HISTORIQUE
Créé : 4D Write 6.5
UTILISATION DE L'ARTICLE
4D Write - Langage ( 4D Write v16)
© 1985-2018 4D SAS / 4D, Inc. Tous droits réservés.