4D Write v14
WR SUPPRIMER FEUILLESTYLE
- 4D Write - Langage
-
- WR Feuille de style
-
- Feuille de style, Introduction
- WR AJOUTER TAB FEUILLESTYLE
- WR APPLIQUER FEUILLESTYLE
- WR Creer feuillestyle
- WR FIXER INFO FEUILLESTYLE
- WR FIXER POLICE FEUILLESTYLE
- WR FIXER PROP FEUILLESTYLE
- WR FIXER TAB FEUILLESTYLE
- WR LIRE INFO FEUILLESTYLE
- WR Lire police feuillestyle
- WR Lire prop feuillestyle
- WR LIRE TAB FEUILLESTYLE
- WR MISE A JOUR FEUILLESTYLE
- WR SUPPRIMER FEUILLESTYLE
- WR SUPPRIMER TAB FEUILLESTYLE
WR SUPPRIMER FEUILLESTYLE
| WR SUPPRIMER FEUILLESTYLE ( zone ; numFeuille ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
4D Write area | |||||
| numFeuille | Entier long |
|
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
Produit : 4D Write
Thème : WR Feuille de style
Numéro :
89451
Nom intl. : WR DELETE STYLESHEET
Créé : 4D Write 6.5
4D Write - Langage ( 4D Write v11.6)
4D Write - Langage ( 4D Write v12)
4D Write - Langage ( 4D Write v14)
4D Write - Langage ( 4D v13)
4D Write - Langage ( 4D Write v14 R2)
4D Write - Langage ( 4D Write v14 R3)
4D Write - Langage ( 4D Write v14 R4)
