4D Doc Center : WR SET STYLESHEET INFO

4D Write v14

WR SET STYLESHEET INFO


WR SET STYLESHEET INFO ( area ; numFolha ; name ; aplicarA ; atalho )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
numFolha	Inteiro longo	Número da folha de estilo
name	Alfa	Nome da folha de estilo
aplicarA	Inteiro	0=caracteres 1=parágrafos
atalho	Alfa	um caractere "" se não há atalho

Descrição

O comando WR SET STYLESHEET INFO permite modificar as propriedades da folha de estilo cujo número de referencia é passado em numFolha e que aparece em area. O número de folha de estilo corresponde a ordem de surgimento da folha de estilo quando é mostrado na lista abaixo de folhas de estilo ou na lista na caixa de diálogo Folhas de estilo.

nome: Se nome é uma cadeia vazia, o nome original da folha de estilos não será modificado. O nome de uma folha de estilo não deve exceder os 31 caracteres.

Atenção: Duas folhas de estilo podem ter o mesmo nome, no entanto, sempre têm diferentes números de referencia.

aplicarA: Se aplicarA é igual a -1, o valor atual seguirá sendo o mesmo. Também pode passar uma das seguintes constantes, que se encontram no tema WR Parameters:

Constante	Tipo	Valor
wr apply to characters	Inteiro longo	0
wr apply to paragraphs	Inteiro longo	1

Uma folha de estilo de parágrafo sempre se aplica a todos os parágrafos da seleção, ainda que o primeiro e último parágrafo esteja parcialmente selecionados. Por padrão, uma nova folha de estilo se aplica aos caracteres.

atalho: O parâmetro opcional atalho permite atribuir um atalho do teclado a folha de estilos. Só aceita um caractere. Para utilizar o atalho terá que pressionar a tecla passada neste parâmetro com a tecla Ctrl (em Windows) ou a tecla Comando (Mac OS). Se recomenda utilizar um número com o propósito de evitar todo conflito com os atalhos de teclado padrão de 4D Write.

Se omitido atalho ou se tratada de uma cadeia vazia, nenhum atalho será atribuído a folha de estilos.

numFolha: Se deseja que o número de folha de estilos permaneça idêntico, é necessário chamar ao comando WR GET STYLESHEET INFO utilizar o número de referencia devolvido por esse comando.

Exemplo

Você quer modificar a definição da folha de estilo “Title”: seu nome muda a “Title 14”, sua fonte se define em Times 14 com negrito e cor azul.

 NbStyles:=WR Count(Area;12)

 For($i;1;NbStyles)

    WR GET STYLESHEET INFO(Area;$i;$Name;$ApplyTo;$Protected;$Shortcut)

    If($Name="Title")

       WR SET STYLESHEET INFO(Area;$i;"Title 14";$ApplyTo;$Shortcut)

       WR SET STYLESHEET FONT(Area;$i;"Times")

       WR SET STYLESHEET TEXT PROP(Area;$i;wr font size;14;1)

       WR SET STYLESHEET TEXT PROP(Area;$i;wr bold;1;1)

       WR SET STYLESHEET TEXT PROP(Area;$i;wr text color;212;1)

    End if

 End for