4D Doc Center : WR Get stylesheet font

4D Write v14

WR Get stylesheet font


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 STRING(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