Clipper On Line • Ver Tópico - hb_langName(), hb_langSelect()
Mudar para estilo Clássico
Discussão sobre a biblioteca Fivewin - O Clipper para Windows.
Postar uma resposta

hb_langName(), hb_langSelect()

19 Out 2016 09:06

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:
      #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



hb_langName(), hb_langSelect()

23 Out 2016 13:38

Acredito que com xharbour não vai funcionar mesmo
Postar uma resposta