Histórico da Página

...

Portuguese

Pagetitle

	AddFontAlias
	AddFontAlias

Colapse ALL

Expand ALL

Função: AddFontAlias

Cria uma tabela de conversão de fontes com origem e destino. Assim, se a fonte origem for utilizada em um objeto, o sistema automaticamente assumirá a fonte destino.

Sintaxe

AddFontAlias ( < cOrigem>, < cDestino> ) --> Nil

Parâmetros/Elementos

Nome	Tipo	Descrição	Obrigatório	Referência
cOrigem	Caracter	Indica a fonte que será incluída na lista para conversão.	X
cDestino	Caracter	Indica a fonte destino à conversão.	X

Retorno

Nil (Nulo)

Observações

Utilize essa função somente nos programas executados através do Smart Client.

Exemplos

#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local aFontList := NilLocal lFontOrigem := .F., lFontDestino := .F.Local oDialog := NilLocal oFontOrigem := Nil, oFontDestino := NilLocal oSayOrigem := Nil, oSayDestino := Nil  aFontList := GetFontList()  AEval(aFontList, {|aFontList|IIf(aFontList == "Tahoma", lFontOrigem  := .T.,)})  AEval(aFontList, {|aFontList|IIf(aFontList == "Arial" , lFontDestino := .T.,)})  If !(lFontOrigem .And. lFontDestino)    Return MsgStop("Não foi possível encontrar a fonte origem ou a fonte destino")  EndIf  AddFontAlias("Tahoma", "Arial")  oFontDestino := tFont():New("Arial" , , -12, , .F., , , , , .F., .F.)  oFontOrigem  := tFont():New("Tahoma", , -12, , .F., , , , , .F., .F.)//+----------------------------------------------------------------------------+//|Cria o diálogo para exemplificar o uso do AddFontAlias                      |//+----------------------------------------------------------------------------+  oDialog := tDialog():New()    oDialog:cTitle  := "Exemplo do AddFontAlias"    oDialog:nWidth  := 800    oDialog:nHeight := 600  oSayOrigem := tSay():New(10, 10, {||"Tahoma -> Arial"}, oDialog, , oFontOrigem , , , , .T., , , 200, 20)  oSayOrigem := tSay():New(40, 10, {||"Arial"          }, oDialog, , oFontDestino, , , , .T., , , 200, 20)//+----------------------------------------------------------------------------+//|Apresenta o diálogo                                                         |//+----------------------------------------------------------------------------+  oDialog:Activate()Return

Preview

Exemplo da função AddFontAlias