4D v13
WR Get stylesheet font
- 4D Write Language
-
- WR Style Sheet
-
- Style Sheet, Introduction
- 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 ; stylesheetNumber ) -> Function result | ||||||||
| Parameter | Type | Description | ||||||
| area | Longint |
|
4D Write area | |||||
| stylesheetNumber | Longint |
|
Stylesheet number | |||||
| Function result | String |
|
Name of the font, or "" if no font is defined | |||||
The WR Get stylesheet font command returns the name of the font that was assigned to the style sheet whose number was passed in styleSheetNumber in the 4D Write area referenced by area. Style sheet are numbered from top to bottom as shown in the style sheet dialog. If no font is defined for that style sheet, an empty string is returned.
You want to remove the "Font" attribute from each style sheet where it is used, whenever the specified font is not installed in the system:
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
Product: 4D
Theme: WR Style Sheet
Number:
89462
Created: 4D Write 6.5
WR Get font
WR SET STYLESHEET FONT
