| 4D v13WR SUPPRIMER FEUILLESTYLE | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D Write v13
 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
	Thème :  WR Feuille de style
	Numéro :  
        89451
        
        
        
	Nom intl. :  WR DELETE STYLESHEET
     Liste alphabétique des commandes
    Liste alphabétique des commandes
	Créé :  4D Write 6.5