4D v13
PV Add font
PV Add font
| PV Add font ( area ; nome ) -> Resultado | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| area | Inteiro longo |
|
Área 4D View | |||||
| nome | cadeia |
|
Nome da fonte | |||||
| Resultado | Inteiro longo |
|
Número da fonte | |||||
O comando PV Add font associa a fonte nome a area e devolve sua identificação única.
Se nome já existe, o comando PV Add font devolve seu identificador (o número também pode ser obtido utilizando o comando PV GET FONT LIST).
Para maior informação sobre o funcionamento das fontes associadas a uma área 4D View, consulte a seção PV Estilo, Introdução.
Este método funciona em comutação (switch): elimina uma fonte da área 4D View ou, pelo contrário, associa ela se foi eliminada anteriormente.
C_STRING(255;$NomeFonte) `Nome de fonte a adicionar/eliminar de Area
ARRAY LONGINT($FontNumArray;0) `Array dos números de fontes
ARRAY STRING(255;$FontNameArray;0) `Array dos nomes de fontes
C_INTEGER($Posiçao) `Posição da fonte nos arrays de números e de nomes
$FontName:="Arial"
PV GET FONT LIST(Area;$FontNumArray;$FontNameArray) `Lista das fontes disponíveis
$Position:=Find in array($FontNameArray;$NomeFonte)
If($Posiçao=-1) `Fonte $FontName não disponível para a área?
$Position:=Size of array($FontNameArray)+1 `A agregaremos
INSERT IN ARRAY($FontNameArray;$Posiçao) `Redimencionamento...
INSERT IN ARRAY($FontNumArray;$Posiçao) `...arrays
$FontNameArray{$Posiçao}:=$NomeFonte `Atribuição do nome da nova fonte
$FontNumArray{$Posiçao}:=PV Add font(Area;$NomeFonte) `Atribuição do número da fonte
Else `Fonte $FontName presente na área
PV REMOVE FONT(Area;$FontNumArray{$Posiçao}) `A removeremos
End if
Produto: 4D
Tema: PV Estilo
Número
15889
Criado por: 4D View 6.8
PV GET FONT LIST
PV REMOVE FONT
