4D Doc Center : PV Add font

4D View v14

PV Add font


PV Add font ( area ; nombre ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D View
nombre	Cadena	Nombre de la fuente
Resultado	Entero largo	Número de la fuente

Descripción

El comando PV Add font asocia la fuente nombre al area y devuelve su identificación única.

Si nombre ya existe, el comando PV Add font devuelve su identificador (el número también se puede obtener utilizando el comando PV GET FONT LIST).

Para mayor información sobre el funcionamiento de las fuentes asociadas a un área 4D View, consulte la sección PV Estilo, Introducción.

Ejemplo

Este método funciona en conmutación (switch): elimina una fuente del área 4D View o, por el contrario, la asocia si fue eliminada anteriormente.

 C_STRING(255;$NomFuente) `Nombre de fuente a añadir/eliminar de Area

 

 ARRAY LONGINT($FontNumArray;0) `Array de los números de fuentes

 ARRAY STRING(255;$FontNameArray;0) `Array de los nombres de fuentes

 C_INTEGER($Posicion) `Posición de la fuente en los arrays de números y de nombres

 

 $FontName:="Arial"

 

 PV GET FONT LIST(Area;$FontNumArray;$FontNameArray) `Lista de las fuentes disponibles

 $Position:=Find in array($FontNameArray;$NomFuente)

 

 If($Posicion=-1) `¿Fuente $FontName no disponible para el área?

    $Position:=Size of array($FontNameArray)+1 `La añadiremos

    INSERT IN ARRAY($FontNameArray;$Posicion) `Redimencionamiento...

    INSERT IN ARRAY($FontNumArray;$Posicion) `...arrays

    $FontNameArray{$Posicion}:=$NomFuente `Asignación del nombre de la nueva fuente

    $FontNumArray{$Posicion}:=PV Add font(Area;$NomFuente) `Asignación del número de la fuente

 

 Else `Fuente $FontName presente en el área

    PV REMOVE FONT(Area;$FontNumArray{$Posicion}) `La eliminamos

 End if