WR SET TAB

4D Write v16

WR SET TAB


WR SET TAB ( area ; numTab ; posiçao ; alinhamento ; caracterCond )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
numTab	Inteiro longo	Número de tabulação
posiçao	Inteiro longo	Nova posição da tabulação
alinhamento	Inteiro	Novo valor de alinhamento da tabulação
caracterCond	String	Novo caractere selecionado como caractere de preenchimento

Descrição

O comando WR SET TAB permite estabelecer os parâmetros da tabulação, cujo número é passado em numTab (as tabulações se contam de esquerda a direita). O comando WR SET TAB move a tabulação a posiçao e define o caractere de preenchimento, assim como também a alinhamento da tabulação.

A tabulação selecionada será modificada para todos os parágrafos da seleção atual. Se uma tabulação já existe na nova localização será substituída pela tabulação que acaba de modificar.

posiçao é a distância desde a margem esquerda. posiçao se expressa na unidade atual por padrão para o documento. Se não quer mudar a posição da tabulação, passe -1 no parâmetro.

alinhamento especifica o alinhamento da tabulação. Se não deseja modificar o alinhamento da tabulação, passe -1 neste parâmetro. Caso contrário, pode utilizar as seguintes constantes, que se encontram no tema "WR Tabs":

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

caracterCond pode ser qualquer caractere cujo código esteja entre 33 e 127. Este caractere é mostrado na mesma fonte que a tabulação modificada.

Exemplo

Na seleção, você quer apagar as tabulações localizadas a 168 pontos, mover as tabulações de 252 pontos a 280 pontos e atribuir '$' como caractere de preenchimento:

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

 C_REAL($Pos)

 C_TEXT($fill)

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

  `Storing current unit

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

 If($Unit#2)

  `Setting unit to points if not already set

    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)

  `Deleting tab stops located at 168 points

          WR DELETE TAB(Area;$i)

          $Nbtab:=$Nbtab-1

       :($Pos=252)

  `Moving tab stops located at 252 points to 280 points

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

          $i:=$i+1

    End case

 Until($i=$Nbtab)

  `Going back to original unit

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

Ver também

WR GET TAB
WR SET STYLESHEET TAB