4D Write v14
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
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
Produto: 4D Write
Tema: WR Folha de estilo
Número
89451
Criado por: 4D Write 6.5
4D Write - Linguagem ( 4D Write v11.6)
4D Write - Linguagem ( 4D Write v12)
4D Write - Linguagem ( 4D Write v14)
4D Write - Linguagem ( 4D v13)
4D Write - Linguagem ( 4D Write v14 R2)
4D Write - Linguagem ( 4D Write v14 R3)
4D Write - Linguagem ( 4D Write v14 R4)
