4D Doc Center : PV Add font

4D View v14

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

Descrição

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.

Exemplo

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