4D Write v16WR DELETE STYLESHEET |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
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_LONGINT(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 Write
Tema: WR Hoja de estilo
Número
89451
Creado por: 4D Write 6.5
4D Write - Lenguaje ( 4D Write v16)