4D v13
PV Add font
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 | |||||
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.
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
Producto: 4D
Tema: PV Estilo
Número
15889
Lista alfabética de los comandos
Creado por: 4D View 6.8
PV GET FONT LIST
PV REMOVE FONT
