4D Write v14

WR SET TAB

Inicio

 
4D Write v14
WR SET TAB

WR SET TAB 


 

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

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)

 
PROPIEDADES 

Producto: 4D Write
Tema: WR Tabulaciones
Número 89478

 
HISTORIA 

Creado por: 4D Write 6.5

 
VER TAMBIÉN 

WR GET TAB
WR SET STYLESHEET TAB

 
ARTICLE USAGE

4D Write - Lenguaje ( 4D Write v11.6)
4D Write - Lenguaje ( 4D Write v12)
4D Write - Lenguaje ( 4D Write v14)
4D Write - Lenguaje ( 4D v13)
4D Write - Lenguaje ( 4D Write v14 R2)
4D Write - Lenguaje ( 4D Write v14 R3)
4D Write - Lenguaje ( 4D Write v14 R4)