WR Get stylesheet font

4D Write v16


WR Get stylesheet font ( area ; numFolha ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
numFolha	Inteiro longo	Número da folha de estilo
Resultado	String	Nome da fonte, ou "" se a fonte não está definida

Descrição

O comando WR Get stylesheet font devolve o nome da fonte atribuída a folha de estilo cujo número é passado em numFolha na área 4D Write referenciada por area. As folhas de estilo são numeradas de cima para baixo como é visto no diálogo de folhas de estilo. Se nenhuma fonte foi definida para esta folha de estilo, é retornada uma cadeia vazia.

Exemplo

Você quer excluir o atributo "Fonte" de cada folha de estilo onde se utiliza e onde a fonte não esteja instalada no sistema:

 ARRAY TEXT(FontsArray)

 WR FONTS TO ARRAY(FontsArray)

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

 For($i;1;$StyleSheetNum)

    $Fonts:=WR Get stylesheet font(Area;$i)

    If(($Fonts#"")&(Find in array(Area;$Fonts)=0))

       WR SET STYLESHEET FONT(Area;$i;"")

    End if

 End for

Ver também

WR Get font
WR SET STYLESHEET FONT