4D Write v15
WR DELETE STYLESHEET
- 4D Write - Linguagem
-
- WR Folha de estilo
-
- Folha de estilo, Introdução
- 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
4D Write v15
WR DELETE STYLESHEET
WR DELETE STYLESHEET
| WR DELETE STYLESHEET ( area ; numFolha ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| area | Inteiro longo |
|
Área 4D Write | |||||
| numFolha | Inteiro longo |
|
Número da folha de estilo | |||||
O comando WR DELETE STYLESHEET apaga a folha de estilo cujo número é passado em numFolha da área 4D Write referenciada por area.
Atenção: As folhas de estilo do sistema não podem ser apagadas. Pode utilizar o comando WR GET STYLESHEET INFO para determinar se a folha de estilo está protegida.
Você quer apagar todas as folhas de estilo não protegidas em seu documento:
C_LONGINT(Area)
C_INTEGER(NbStyleSheet;$SheetNum)
`Contagem do número de folhas 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) `Se a folha de estilo não está protegida...
WR DELETE STYLESHEET(Area;$SheetNum)
Else
$SheetNum:=$SheetNum+1
End if
End for
PROPRIEDADES
Produto: 4D Write
Tema: WR Folha de estilo
Número
89451
HISTÓRIA
Criado por: 4D Write 6.5
ARTICLE USAGE
4D Write - Linguagem ( 4D Write v15)
© 4D SAS 1985 - 2017. Todos os direitos reservados.