4D Write v16WR DELETE STYLESHEET |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
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 v16)