Hi Rathinagiri !
Problems on HMG messages/translations persist...
Because now in Harbour 3.2x When select Languages we can use any codepage...
Set_Language Return value as: "language.codepage" (and HMG need to code for correc language and CP Messages Show )
*** Return expected for HMG is only "Language" ( ES, PT, EN, Etc...)
Samples for Portuguese Language ( I spect a value of: "pt.PT850" ):
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT( 'PT', "PT850" ) // Result is: pt.PT850
HB_LANGSELECT( 'pt-BR', "PT850" ) // Result is: pt.PT850
HB_LANGSELECT( hb_UserLang(), "PT850" ) // Result is: pt.PT850
Use of hb_UserLang() is the reccomended way
files to fix:
i_lang.ch
Code: Select all
* Sample
Line(51): #translate SET LANGUAGE TO PORTUGUESE => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_PT ; HB_LANGSELECT( "PT" ) ; InitMessages()
need change to
Line(51): #translate SET LANGUAGE TO PORTUGUESE => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_PT ; HB_LANGSELECT( hb_UserLang(), "PT850" ) ; InitMessages()
h_controlmisc.prg
Code: Select all
* Sample
Line(5585) case cLang == "PT"
need change to
Line(5585) case cLang == "pt.PT850"
h_init.prg
Code: Select all
* Sample
Line(2278) case cLang == "PT"
need change to
Line(2278) case cLang == "pt.PT850"
h_windows.prg
HFCL\Source\gridprint.prg
Code: Select all
* Sample
Line(3114) case cLang == "PT"
need change to
Line(3114) case cLang == "pt.PT850"
Best regards