WR Get stylesheet font

4D Write v16


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

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
numHoja	Entero largo	Número de la hoja de estilo
Resultado	Cadena	Nombre de la fuente, o "" si la fuente no está definida

Descripción

El comando WR Get stylesheet font devuelve el nombre de la fuente asignada a la hoja de estilo cuyo número se pasa en numHoja en el área 4D Write referenciada por area. Las hojas de estilo se numeran de arriba a abajo como se muestra en el diálogo de hojas de estilo. Si ninguna fuente se ha definido para esa hoja de estilo, se devuelve una cadena vacía.

Ejemplo

Usted quiere eliminar el atributo "Fuente" de cada hoja de estilo donde se utiliza y donde la fuente no esté instalada en el sistema:

 ARRAY TEXT(80;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 también

WR Get font
WR SET STYLESHEET FONT