Back to my 1st choice: If files was previous saved as UTF8 we don't need to use translations
Thanks to 'vszakats' that remember me about this simple fact
Code: Select all
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_UTF8
PROCEDURE Main()
LOCAL cFile
LOCAL cText
/* Set language for Screen */
hb_langSelect( hb_UserLang(), "UTF8EX" )
hb_cdpSelect( "UTF8EX" )
/* Terminal and OS codepage */
// hb_SetTermCP( "UTF8EX" )
hb_SetTermCP( hb_cdpTerm() )
Set( _SET_OSCODEPAGE, hb_cdpOS() )
SETMODE( 62, 164 )
CLS
cFile := 'English.Lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
cFile := 'French.Lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
cFile := 'Italian.Lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
cFile := 'Polish.lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
cFile := 'Portuguese.Lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
cFile := 'Spanish.Lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
cFile := 'Turkish.Lng'
cText := MemoRead( cFile )
alert( cFile + ';;' + cText )
RETURN