hb_langName(), hb_langSelect()

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

hb_langName(), hb_langSelect()

Mensagem por Kapiaba »

Estranho não funcionar com xHarbour, mas com o Harbour, perfeito e o autor é o Culik... ou fiz algo errado?

https://github.com/vszakats/harbour-cor ... n/lang.txt

Código: Selecionar todos

      #include "FiveWin.ch"
      #include "error.ch"
      #include "hblang.ch"

      REQUEST HB_LANG_PT
      REQUEST HB_LANG_RO
      REQUEST HB_LANG_ES
      REQUEST HB_LANG_HU
      PROCEDURE Main()
         ? hb_langName( "pt" )
         ? hb_langName( "<non-existent>" )
         hb_langSelect( "pt" )       // Default language is now Portuguese
         ? CDoW( Date() )            // Segunda-feira
         ? "Current language is", hb_langName()              // Portuguese
         ? "Old language id selected is", hb_langSelect()    // PT
         hb_langSelect( "ro" )       // Default language is now Romanian
         ? CMonth( Date() )          // Mai
         ? "Old language id selected is", hb_langSelect()    // RO
         hb_langSelect( "es" )       // Default language is now Spanish
         ? "Current language is", hb_langName()              // Spanish
         ? CMonth( Date() )          // Mayo
         ? CDoW( Date() )            // Lunes
         RETURN
wmanesco
Usuário Nível 3
Usuário Nível 3
Mensagens: 116
Registrado em: 09 Set 2016 13:18
Localização: ITAJAI - SC

hb_langName(), hb_langSelect()

Mensagem por wmanesco »

Acredito que com xharbour não vai funcionar mesmo
William Manesco
Harbour 3.x | Fivewin | BCC | MySQL (TDolphin) | HBQT | HBIDE | Atom
Responder