| 4D v13WR DELETE STYLESHEET | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D Write v13
 WR DELETE STYLESHEET 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WR DELETE STYLESHEET ( area ; numHoja ) | ||||||||
| Parámetro | Tipo | Descripción | ||||||
| area | Entero largo |   | Área 4D Write | |||||
| numHoja | Entero largo |   | Número de la hoja de estilo | |||||
El comando WR DELETE STYLESHEET borra la hoja de estilo cuyo número se pasa en numHoja del área 4D Write referenciada por area.
Atención: la hojas de estilo del sistema no pueden borrarse. Puede utilizar el comando WR GET STYLESHEET INFO para determinar si la hoja de estilo está protegida.
Usted quiere borrar todas las hojas de estilo no protegidas en su documento:
 C_LONGINT(Area)
 C_INTEGER(NbStyleSheet;$SheetNum)
  `Conteo del número de hojas de estilo
 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) `Si la hoja de estilo no está protegida...
       WR DELETE STYLESHEET(Area;$SheetNum)
    Else
       $SheetNum:=$SheetNum+1
    End if
 End for
	Producto: 4D
	Tema: WR Hoja de estilo
	Número 
        89451
        
        
        
	
     Lista alfabética de los comandos
    Lista alfabética de los comandos
	Creado por: 4D Write 6.5