4D Write v16
WR DELETE STYLESHEET
- 4D Write - Lenguaje
-
- WR Hoja de estilo
-
- Hoja de estilo, Introducción
- WR ADD STYLESHEET TAB
- WR APPLY STYLESHEET
- WR Create stylesheet
- WR DELETE STYLESHEET
- WR DELETE STYLESHEET TAB
- WR Get stylesheet font
- WR GET STYLESHEET INFO
- WR GET STYLESHEET TAB
- WR Get stylesheet text prop
- WR SET STYLESHEET FONT
- WR SET STYLESHEET INFO
- WR SET STYLESHEET TAB
- WR SET STYLESHEET TEXT PROP
- WR UPDATE STYLESHEET
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)
