WR SET TAB

4D Write v15

WR SET TAB


WR SET TAB ( zone ; numTab ; position ; alignement ; caractèreConduite )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
numTab	Entier long	Numéro de tabulation
position	Entier long	Position de la tabulation
alignement	Entier	Valeur de justification de la tabulation
caractèreConduite	Chaîne	Caractère de conduite choisi

Description

La commande WR FIXER TAB permet de modifier les paramètres de la tabulation de numéro numTab en déplaçant la tabulation jusqu'à position et en fixant sa justification ainsi que son caractère de conduite.

Cette tabulation sera déplacée pour tous les paragraphes appartenant à la sélection courante. Si une tabulation existe déjà à cette position, elle sera remplacée par celle que vous venez de modifier.

position est exprimé dans l'unité courante, à partir de la marge gauche du document. Pour ne pas modifier la position de la tabulation, passez -1 dans ce paramètre.

justification contiendra le type de justification de la tabulation que vous modifiez. Pour ne pas modifier la justification de la tabulation, passez -1 dans ce paramètre. Sinon, vous pouvez utiliser les constantes suivantes, placées dans le thème “WR Tabulations” :

Constante	Type	Valeur
wr tab gauche	Entier long	1
wr tab centrée	Entier long	2
wr tab droite	Entier long	3
wr tab décimale	Entier long	4
wr tab séparateur vertical	Entier long	5

caractèreConduite peut être tout caractère affichable dont le code est compris entre 33 et 127. Ce caractère est affiché dans la police de la tabulation modifiée.

Exemple

Dans votre sélection, vous voulez supprimer les tabulations se trouvant à 168 points et déplacer les tabulations de 252 points à 280 points en leur affectant '$' comme caractère de conduite :

 C_LONGINT(LaZone;$i;$Nbtab;$Unit;$uniforme;$Justif)

 C_REAL($Pos)

 C_TEXT($carConduite)

 $Nbtab:=WR Get text property(LaZone;wr tab;$uniforme)

  `Récupérons l'unité du document pour le rétablir en fin de traitement

 $Unit:=WR Get doc property(LaZone;wr unit)

 If($Unit#2)

  `Fixons temporairement l'unité en points si ce n'est pas l'unité courante

    WR SET DOC PROPERTY(LaZone;wr unit;2)

 End if

 $i:=1

 Repeat

    WR GET TAB(LaZone;$i;$pos;$Justif;$carConduite)

    Case of

       :($Pos=168)

  `Nous voulons supprimer la tabulation se trouvant à 168 points

          WR DELETE TAB(LaZone;$i)

          $Nbtab:=$Nbtab-1

       :($Pos=252)

  `Vous voulez déplacer la tabulation qui est à 252 points et la mettre à 280 points

          WR SET TAB(LaZone;$i;280;$Justif;"$")

          $i:=$i+1

    End case

 Until($i=$Nbtab)

  `Rétablissons l'unité d'origine du document

 WR SET DOC PROPERTY(LaZone;wr unit;$Unit)

Voir aussi

WR GET TAB
WR SET STYLESHEET TAB