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)