4D Doc Center : WR SET TAB

4D Write v14

WR SET TAB


WR SET TAB ( area ; numTab ; posicion ; alineacion ; caracterCond )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
numTab	Entero largo	Número de tabulación
posicion	Entero largo	Nueva posición de la tabulación
alineacion	Entero	Nuevo valor de alineación de la tabulación
caracterCond	Cadena	Nuevo carácter seleccionado como carácter de relleno

Descripción

El comando WR SET TAB permite establecer los parámetros de la tabulación, cuyo número se pasa en numTab (las tabulaciones se cuentan de izquierda a derecha). El comando WR SET TAB mueve la tabulación a posicion y define el carácter de relleno, así como también la alineación de la tabulación.

La tabulación seleccionada será modificada para todos los párrafos de la selección actual. Si una tabulación ya existe en la nueva ubicación será reemplazada por la tabulación que acaba de modificar.

posicion es la distancia desde el margen izquierdo. posicion se expresa en la unidad actual por defecto para el documento. Si no quiere cambiar la posición de la tabulación, pase -1 en el parámetro.

alineacion especifica la alineación de la tabulación. Si no desea modificar la alineación de la tabulación, pase -1 en este parámetro. De lo contrario, puede utilizar las siguientes constantes, que se encuentran en el tema "WR Tabulaciones":

Constante	Tipo	Valor
wr left tab	Entero largo	1
wr centered tab	Entero largo	2
wr right tab	Entero largo	3
wr decimal tab	Entero largo	4
wr vertical separator tab	Entero largo	5

caracterCond puede ser cualquier carácter cuyo código esté entre 33 y 127. Este carácter se muestra en la misma fuente que la tabulación modificada.

Ejemplo

En la selección, usted quiere borrar las tabulaciones ubicadas a 168 puntos, mover las tabulaciones de 252 puntos a 280 puntos y asignar '$' como carácter de relleno:

 C_LONGINT(Area;$i;$Nbtab;$Unit;$uniform;$Justif)

 C_REAL($Pos)

 C_STRING(2;$fill)

 $Nbtab:=WR Get text property(Area;wr tab;$uniform)

  `Guardar la unidad actual

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

 If($Unit#2)

  `Definir la unidad en puntos si no se ha definido

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

 End if

 $i:=1

 Repeat

    WR GET TAB(Area;$i;$pos;$Justif;$fill)

    Case of

       :($Pos=168)

  `Borrado de la tabulación a 168 puntos

          WR DELETE TAB(Area;$i)

          $Nbtab:=$Nbtab-1

       :($Pos=252)

  `Mover la tabulación que está a 252 puntos a 280 puntos

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

          $i:=$i+1

    End case

 Until($i=$Nbtab)

  `Volver a la unidad original

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