Página 2 de 2
Re: Fonte VisualLib (truetype)
Enviado: 09 Jun 2009 10:34
por momente
Na verdade amigo o sistema abre todo desconfigurado, ficando impossível de ler alguma coisa, estou usando da mesma maneira que usava com a gtwvt, agora com gtwvg, sem problema nenhum em máquinas xp e vista. Na verdade não estou muito triste, pois o cliente passou da hora de trocar aquelas máquinas, rs. Mas enquanto não troca preciso tentar resolver.
Não é uma coisa muito necessária, mas se conseguir vai agilizar meu trabalho.
Obrigado!
Re: Fonte VisualLib (truetype)
Enviado: 09 Jun 2009 10:54
por asimoes
Olá Momente,
Pois é, o 98 tá ficando raro de achar alguém usando. Como é que você tá usando a fonte, você instalou na pasta fonts ou tá usando a função addfont dica do nosso amigo Leonardo (SYGECOM) veja no código abaixo:
Código: Selecionar todos
INIT FUNCTION SETUPAPP()
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")
HB_SetCODEPAGE( "PT850" )
REQUEST WVT_SETCODEPAGE
WVT_SETCODEPAGE(255) //850
SETMODE(25,80)
AddFont()
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE BRITISH
SET ESCAPE ON
SET CENTURY ON
SET DELIMITERS TO
SET CURSOR OFF
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1990
Do Case
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024
Wvt_SetFont('VisualLib',28) //,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
Wvt_SetFont('VisualLib',20) //,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
OtherWise
Wvt_SetFont('VisualLib',15) //,7,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
EndCase
WvT_SetAltF4Close( .F. )
WvT_SetTITLE('Sistema X - Vs.1.0')
RETURN Nil
STATIC FUNCTION AddFont()
Local nRet := AddFontResource("VISUALLIB.TTF")
If nRet == 0
MsgBox("A fonte VISUALLIB.TTF não foi adicionada ao sistema.")
Else
MsgBox("A fonte VISUALLIB.TTF foi adicionada ao sistema.")
EndIf
RETURN Nil
Uma suposição: Se você conseguiu instalar a fonte, verifique se ela está disponível para uso no word ou excel por exemplo.
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 09 Jun 2009 17:27
por momente
Valeu asimoes,
Vou fazer estes testes,
muito obrigado!