4D Doc Center : WR Get font

4D Write v14

WR Get font


WR Get font ( area ; uniforme ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
uniforme	Entero largo	1 si toda la selecciona tiene la misma fuente, de lo contrario 0
Resultado	Cadena	Nombre de la fuente del último carácter de la selección

Descripción

El comando WR Get font devuelve el nombre de la fuente aplicada al último carácter de la selección en el área 4D Write referenciada por area.

Si uniforme = 1, se aplica la misma fuente a toda la selección.
Si uniforme = 0, otras fuentes se utilizan en la selección.

Ejemplo

Usted quiere recuperar la fuente de la selección actual para aplicarla a todo el documento:

 vFont:=WR Get font(Area;vUniform)

 If(vUniform=0) `Si hay varias fuentes en la selección actual

    CONFIRM("Hay varias fuentes en la selección, la fuente del último caracter es "+"

    "+vFont+". Quiere aplicar esta fuente a todo el documento?")

 Else

    CONFIRM("La fuente de su selección es "+vFont+". ¿Quiere aplicar esta fuente a todo el documento?)

 End if

 If(OK=1)

    WR EXECUTE COMMAND(Area;wr cmd select all) `Selección de todo el documento

    WR SET FONT(Area;vFont) `Aplicar la nueva fuente

  `Mover el punto de inserción al comienzo del documento

    WR SET SELECTION(Area;0;0)

    WR SCROLL TO SELECTION(Area) `Mostrar la selección de texto actual

 End if