WR UPDATE STYLESHEET
version 6.5
WR UPDATE STYLESHEET (area; stylesheetNumber)
| Parameter | Type | Description | |
| area | Longint |  | 4D Write area |
| stylesheetNumber | Longint | | Stylesheet number |
Description
The WR UPDATE STYLESHEET command updates the displayed formatting of all the text using the style sheet referenced by styleSheetNumber in the 4D Write area referenced by area. After this command is executed, all text formatted with the referenced style will be formatted according to the current definition of that style.
Example
You want to replace the tab stops in the "LayoutPar" style sheet and update text areas wherever that style sheet is applied:
`Looking for the style sheet number
$StyleSheetNb:=WR Count(Area;wr nb stylesheets)
For ($i;1;$StyleSheetNb)
WR GET STYLESHEET INFO(Area;$i;$Name;$ApplyTo;$Prot;$Shortcut)
If ($Name="LayoutPar")
SheetNumber:=$i
End if
End for
`Getting the number of tab stops in the style sheet
$NbTab:=WR Get stylesheet text prop(Area;SheetNumber;wr tab;Apply)
`Deleting all tab stops
For ($i;1;$NbTab)
WR DELETE STYLESHEET TAB(Area;SheetNumber;1)
End for
`Inserting new tabs
WR ADD STYLESHEET TAB(Area;SheetNumber;10;wr left tab;Char(126))
...
`Updating each paragraph that the style sheet is applied to
WR UPDATE STYLESHEET(Area;SheetNumber)
See Also