4D Doc Center : WR DELETE TAB

4D Write v14

WR DELETE TAB


WR DELETE TAB ( area ; numTab )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
numTab	Inteiro longo	Número de tabulação

Descrição

O comando WR DELETE TAB apaga a tabulação cujo número é passado em numTab. Se outras tabulações se encontram na mesma posição, também são apagados.

Nota: Se a seleção consiste de vários parágrafos, a numeração é relativa ao último parágrafo selecionado.

Exemplo

Você quer apagar todas as tabulações presentes em seu documento:

 C_LONGINT(Area;$i;$TabNum;$uniform)

  `Inserir o cursor ao início da área

 WR SET SELECTION(Area;0;0)

  `Contagem do número de parágrafos no documento

 NbParag:=WR Count(Area;wr nb paragraphs)

  `Processamento de cada parágrafo

 For($i;1;NbParag)

  `Recuperar a posição do parágrafo

    WR GET PARAGRAPHS(Area;START;Pos)

  `Ir ao interior do parágrafo

    WR SET SELECTION(Area;START+1;START+1)

  `Obter o número de tabulações

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

    While($TabNum#0)

       WR DELETE TAB(Area;1)

       $TabNum:=$TabNum-1

    End while

  `Reposição justo depois do último parágrafo processado

    WR GET SELECTION(Area;Pos;Pos)

 End for