4D Doc Center : WR UPDATE STYLESHEET

4D Write v14

WR UPDATE STYLESHEET


WR UPDATE STYLESHEET ( area ; numFolha )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
numFolha	Inteiro longo	Número da folha de estilo

Descrição

O comando WR UPDATE STYLESHEET atualiza o formato mostrado de todo o texto utilizando a folha de estilo referenciada por numFolha na área 4D Write referenciada por area. Depois de que se executa este comando, todo o texto formatado com o estilo referenciado será formatado de acordo com a definição atual desse estilo.

Exemplo

Você quer substituir as tabulações na folha de estilo "LayoutPar" e atualizar as áreas de texto onde essa folha de estilo se aplica:

  `Pesquisa do número da folha de estilo

 $StyleSheetNb:=WR Count(Area;wr nb stylesheets)

 For($i;1;$StyleSheetNb)

    WR GET STYLESHEET INFO(Area;$i;$Name;$ApplyTo;$Prot;$Shortcut)

    If($Name="LayoutPar")

       SheetNumber:=$i

    End if

 End for

  `Obtenção do número de tabulações na folha de estilo

 $NbTab:=WR Get stylesheet text prop(Area;SheetNumber;wr tab;Apply)

  `Excluir todas as tabulações

 For($i;1;$NbTab)

    WR DELETE STYLESHEET TAB(Area;SheetNumber;1)

 End for

  `Inserir novas tabulações

 WR ADD STYLESHEET TAB(Area;SheetNumber;10;wr left tab;Char(126))

 ...

  `Atualização de todo parágrafo ao que se aplica a folha de estilo

 WR UPDATE STYLESHEET(Area;SheetNumber)