4D Write v14

WR Get font

Inicio

 
4D Write v14
WR Get font

WR Get font 


 

WR Get font ( area ; uniforme ) -> Resultado 
Parámetro Tipo   Descripción
area  Entero largo in Área 4D Write
uniforme  Entero largo in 1 si toda la selecciona tiene la misma fuente, de lo contrario 0
Resultado  Cadena in Nombre de la fuente del último carácter de la selecció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

 
PROPIEDADES 

Producto: 4D Write
Tema: WR Gestión de texto
Número 89463

 
HISTORIA 

Creado por: 4D Write 6.5

 
VER TAMBIÉN 

WR Get stylesheet font
WR Get text property
WR SET FONT

 
ARTICLE USAGE

4D Write - Lenguaje ( 4D Write v11.6)
4D Write - Lenguaje ( 4D Write v12)
4D Write - Lenguaje ( 4D Write v14)
4D Write - Lenguaje ( 4D v13)
4D Write - Lenguaje ( 4D Write v14 R2)
4D Write - Lenguaje ( 4D Write v14 R3)
4D Write - Lenguaje ( 4D Write v14 R4)