Fonte VisualLib (truetype)

[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!

[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

[momente]

Valeu asimoes,

Vou fazer estes testes,

muito obrigado!