4D v13
WR Get stylesheet font
- 4D Write - Lenguaje
-
- WR Hoja de estilo
-
- Hoja de estilo, Introducción
- WR ADD STYLESHEET TAB
- WR APPLY STYLESHEET
- WR Create stylesheet
- WR DELETE STYLESHEET
- WR DELETE STYLESHEET TAB
- WR Get stylesheet font
- WR GET STYLESHEET INFO
- WR GET STYLESHEET TAB
- WR Get stylesheet text prop
- WR SET STYLESHEET FONT
- WR SET STYLESHEET INFO
- WR SET STYLESHEET TAB
- WR SET STYLESHEET TEXT PROP
- WR UPDATE STYLESHEET
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 | |||||
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.
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
Producto: 4D
Tema: WR Hoja de estilo
Número
89462
Lista alfabética de los comandos
Creado por: 4D Write 6.5
WR Get font
WR SET STYLESHEET FONT
