4D Write v16WR GET STYLESHEET TAB |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR GET STYLESHEET TAB
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WR GET STYLESHEET TAB ( zone ; numFeuille ; numTab ; position ; justification ; caractèreConduite ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D Write | |||||
| numFeuille | Entier long |
|
Numéro de la feuille de style | |||||
| numTab | Entier long |
|
Numéro de tabulation | |||||
| position | Entier long |
|
Position de la tabulation | |||||
| justification | Entier |
|
Valeur de justification de la tabulation | |||||
| caractèreConduite | Chaîne |
|
Caractère de conduite choisi | |||||
La commande WR LIRE TAB FEUILLESTYLE permet de récupérer les paramètres de la tabulation de numéro numTab appartenant à la feuille de style numFeuille.
Pour connaître le nombre de tabulations de la feuille de style, vous pouvez utiliser WR Lire prop feuillestyle (Zone;NumFeuille;wr tabulation;PriseEnCompte) qui vous retourne le nombre de tabulations.
position est exprimé dans l'unité, à partir de la marge gauche du document (à ne pas confondre avec la marge du paragraphe).
justification contiendra le type de justification de la tabulation que vous lisez.
| Valeur | Justification |
| 1 | Aligné à gauche |
| 2 | Centré |
| 3 | Aligné à droite |
| 4 | Décimale |
| 5 | Séparateur Vertical |
caractèreConduite est un caractère dont le code doit être compris entre 33 et 127 (se référer à la table fournie dans le manuel Langage de 4D). Ce caractère est affiché dans la police de la tabulation. Si la chaîne est vide, il n'y a pas de caractère de conduite.
Vous souhaitez changer le type de ligne de fuite pour toutes les tabulations de vos feuilles de style qui en possèdent et remettre à jour votre document.
$nbFeuilleStyle:=WR Count(LaZone;wr nb stylesheets)
For($i;1;$nbFeuilleStyle)
$NbTab:=WR Get stylesheet text prop(LaZone;$i;wr tab;$PriseEnCompte)
If($NbTab#0)
For($j;1;$NbTab)
WR GET STYLESHEET TAB(LaZone;$i;$j;$Pos;$Justif;$CarCond)
If($CarCond#"")
WR SET STYLESHEET TAB(LaZone;$i;$j;$Pos;$Justif;Char(126))
End if
End for
WR UPDATE STYLESHEET(LaZone;$i)
End if
End for
Produit : 4D Write
Thème : WR Feuille de style
Numéro :
89441
Créé : 4D Write 6.5
4D Write - Langage ( 4D Write v16)
Ajouter un commentaire