WR FIXER TAB

4D - Documentation   Français   English   German   4D Write, Commandes par thèmes   4D Write, Liste alphabétique des commandes   4D Write, Constantes par thèmes   Retour   Précédent   Suivant

version 6.5


WR FIXER TAB (zone; numTab; position; justification; caractèreConduite)

ParamètreTypeDescription
zoneEntier longZone 4D Write
numTabEntier longNuméro de tabulation
positionNumériquePosition de la tabulation
justificationEntierValeur de justification de la tabulation
caractèreConduiteAlphaCaractè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 (Valeur)Justification du texte
wr tab gauche (1)Aligné à gauche
wr tab centrée (2)Centré
wr tab droite (3)Aligné à droite
wr tab décimale (4)Décimale
wr tab séparateur vertical (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;350;$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)

Référence

WR FIXER TAB FEUILLESTYLE, WR LIRE TAB.


4D - Documentation   Français   English   German   4D Write, Commandes par thèmes   4D Write, Liste alphabétique des commandes   4D Write, Constantes par thèmes   Retour   Précédent   Suivant