| 4D Write v15WR DELETE STYLESHEET | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D Write v15
 WR DELETE STYLESHEET 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WR DELETE STYLESHEET ( zone ; numFeuille ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |   | Zone 4D Write | |||||
| numFeuille | Entier long |   | Numéro de la feuille de style | |||||
La commande WR DELETE STYLESHEET permet de supprimer la feuille de style spécifiée par numFeuille de la zone 4D Write.
Attention : Les feuilles de style système ne peuvent pas être supprimées. La commande WR LIRE INFO FEUILLESTYLE vous permet de savoir si la feuille de style numéro numFeuille est une feuille de style protégée.
Vous souhaitez supprimer toutes les feuilles de style non protégées contenues dans votre document :
 C_LONGINT(LaZone)
 C_LONGINT(NbFeuilleStyle;$NumFeuille)
  //Comptons le nombre de feuille de style
 NbFeuilleStyle:=WR Count(LaZone;wr nb stylesheets)
 $NumFeuille:=1
 For($i;1;NbFeuilleStyle)
    WR GET STYLESHEET INFO(LaZone;$NumFeuille;$LeNom;$AppliqueSur;$Protégée;$Raccourci)
    If($Protégée=0) //Si la feuille de style n'est pas protégée, on la supprime
       WR DELETE STYLESHEET(LaZone;$NumFeuille)
    Else
       $NumFeuille:=$NumFeuille+1
    End if
 End for
	Produit :  4D Write
	Thème :  WR Feuille de style
	Numéro :  
        89451
        
        
        
	
	Créé :  4D Write 6.5
	4D Write - Langage ( 4D Write v15)
	
	
	
	
	
	
	
 Ajouter un commentaire
Ajouter un commentaire