4D Write v14
WR DELETE STYLESHEET
- 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 DELETE STYLESHEET
| WR DELETE STYLESHEET ( area ; stylesheetNum ) | ||||||||
| Parameter | Type | Description | ||||||
| area | Longint |
|
4D Write area | |||||
| stylesheetNum | Longint |
|
Stylesheet number | |||||
The WR DELETE STYLESHEET command deletes the style sheet whose number was passed in styleSheetNum from the 4D Write area referenced by area. .
Warning: System style sheets cannot be deleted. You can use the WR GET STYLESHEET INFO command to determine if the style sheet is protected from deletion.
You want to delete each unprotected style sheets in your document:
C_LONGINT(Area)
C_INTEGER(NbStyleSheet;$SheetNum)
`Counting number of style sheets
NbStyleSheet:=WR Count(Area;wr nb stylesheets)
$SheetNum:=1
For($i;1;NbStyleSheet)
WR GET STYLESHEET INFO(Area;$SheetNum;$Name;$ApplyTo;$Protected;$Shortcut)
If($Protected=0) `If the style sheet is not protected...
WR DELETE STYLESHEET(Area;$SheetNum)
Else
$SheetNum:=$SheetNum+1
End if
End for
Product: 4D Write
Theme: WR Style Sheet
Number:
89451
Created: 4D Write 6.5
4D Write Language ( 4D Write v11.6)
4D Write Language ( 4D Write v12)
4D Write Language ( 4D Write v14)
4D Write Language ( 4D v13)
4D Write Language ( 4D Write v14 R2)
4D Write Language ( 4D Write v14 R3)
4D Write Language ( 4D Write v14 R4)
