4D Doc Center : WR SET TAB

4D Write v14

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	cadeia	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_STRING(2;$fill)

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

  `Guardar a unidade atual

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

 If($Unit#2)

  `Definir a unidade em pontos se não foi definida

    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)

  `Apagado da tabulação a 168 pontos

          WR DELETE TAB(Area;$i)

          $Nbtab:=$Nbtab-1

       :($Pos=252)

  `Mover a tabulação que está a 252 pontos a 280 pontos

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

          $i:=$i+1

    End case

 Until($i=$Nbtab)

  `Voltar a unidade original

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