4D Doc Center : WR Create stylesheet

4D Write v14

WR Create stylesheet


WR Create stylesheet ( area ; nome ; aplicarA ; atalho ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
nome	cadeia	Nome da folha de estilo
aplicarA	Inteiro longo	0=caracteres 1=parágrafos
atalho	cadeia	Um caractere
Resultado	Inteiro longo	Número da folha de estilo

Descrição

O comando WR Create stylesheet cria uma nova folha de estilos e devolve o número que lhe foi atribuído. As características da nova folha de estilos são fixadas pelos parâmetros nome, aplicarA e atalho. Pode modificar a folha de estilo utilizando os comandos WR SET STYLESHEET TEXT PROP, WR SET STYLESHEET FONT, WR SET STYLESHEET TAB e o número de referencia de folha de estilos.

nome: O nome de uma folha de estilo não deve exceder os 31 caracteres.

No parâmetro aplicarA, 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

Quando se aplica aos parágrafos, começa com o primeiro parágrafo em sua seleção e se aplica até o final do último parágrafo desta seleção. Se omitido aplicarA, a folha de estilo será aplicado aos caracteres.

O parâmetro opcional atalho permite atribuir um atalho do teclado à 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 trata de uma cadeia vazia, nenhum atalho será atribuído a folha de estilos.

Exemplo

Você quer adicionar a cada documento sua própria folha de estilo de caracteres personalizados e aplicar ela a seleção. A folha de estilo se atribui ao atalho Comando+1 em Mac OS e Ctrl+1 em Windows. A fonte utilizada é Comic Sans MS 12 pontos.

 $NumSheet:=WR Create stylesheet(Area;"MyOwnStyle";wr apply to characters;"1")

 WR SET STYLESHEET FONT(Area;$NumSheet;"Comic Sans MS")

 WR SET STYLESHEET TEXT PROP(Area;$NumSheet;wr font size;12;1)

 WR EXECUTE COMMAND(Area;wr cmd select all)

 WR APPLY STYLESHEET(Area;$NumSheet)