4D Doc Center : WR SET STYLESHEET INFO

4D Write v14

WR SET STYLESHEET INFO


WR SET STYLESHEET INFO ( area ; numHoja ; nombre ; aplicarA ; atajo )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
numHoja	Entero largo	Número de la hoja de estilo
nombre	Alfa	Nombre de la hoja de estilo
aplicarA	Entero	0=caracteres 1=párrafos
atajo	Alfa	un caracter "" si no hay atajo

Descripción

El comando WR SET STYLESHEET INFO permite modificar las propiedades de la hoja de estilo cuyo número de referencia se pasa en numHoja y que aparece en area. El número de hoja de estilo corresponde al orden de aparición de la hoja de estilo cuando se muestra en la lista desplegable de hojas de estilo o en la lista en la caja de diálogo Hojas de estilo.

nombre: si nombre es una cadena vacía, el nombre original de la hoja de estilos no se modificará. El nombre de una hoja de estilo no debe exceder los 31 caracteres.

Atención: dos hojas de estilo pueden tener el mismo nombre, sin embargo, siempre tienen diferentes números de referencia.

aplicarA: si aplicarA es igual a -1, el valor actual seguirá siendo el mismo. También puede pasar una de las siguientes constantes, que se encuentran en el tema WR Parámetros:

Constante	Tipo	Valor
wr apply to characters	Entero largo	0
wr apply to paragraphs	Entero largo	1

Una hoja de estilo de párrafo siempre se aplica a todos los párrafos de la selección, aunque el primer y último párrafo estén parcialmente seleccionados. Por defecto, una nueva hoja de estilo se aplica a los caracteres.

atajo: el parámetro opcional atajo permite asignar un atajo de teclado a la hoja de estilos. Sólo acepta un carácter. Para utilizar el atajo tendrá que presionar la tecla pasada en este parámetro con la tecla Ctrl (en Windows) o la tecla Comando (Mac OS). Se recomienda utilizar un número con el fin de evitar todo conflicto con los atajos de teclado estándar de 4D Write.

Si se omite atajo o si se trata de una cadena vacía, ningún atajo se asignará a la hoja de estilos.

numHoja: si desea que el número de hoja de estilos permanezca idéntico, es necesario llamar al comando WR GET STYLESHEET INFO utilizar el número de referencia devuelto por ese comando.

Ejemplo

Usted quiere modificar la definición de la hoja de estilo “Title”: su nombre cambia a “Title 14”, su fuente se define en Times 14 con negrita y color 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