AddFontAlias

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

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

#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