4D Doc Center : WR FIXER TAB

4D Write v14

WR FIXER TAB


WR FIXER 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	Commentaire
wr tab gauche	Entier long	1	Aligné à gauche
wr tab centrée	Entier long	2	Centré
wr tab droite	Entier long	3	Aligné à droite
wr tab décimale	Entier long	4	Décimale
wr tab séparateur vertical	Entier long	5	Séparateur Vertical

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_ENTIER LONG(LaZone;$i;$Nbtab;$Unit;$uniforme;$Justif)

 C_REEL($Pos)

 C_ALPHA(2;$carConduite)

 $Nbtab:=WR Lire propriete texte(LaZone;wr tabulation;$uniforme)

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

 $Unit:=WR Lire propriete document(LaZone;wr unité)

 Si($Unit#2)

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

    WR FIXER PROPRIETE DOCUMENT(LaZone;wr unité;2)

 Fin de si

 $i:=1

 Repeter

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

    Au cas ou

       :($Pos=168)

  `Nous voulons supprimer la tabulation se trouvant à 168 points

          WR SUPPRIMER TAB(LaZone;$i)

          $Nbtab:=$Nbtab-1

       :($Pos=252)

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

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

          $i:=$i+1

    Fin de cas

 Jusque($i=$Nbtab)

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

 WR FIXER PROPRIETE DOCUMENT(LaZone;wr unité;$Unit)