Hi Rathi !
Of course: \HB32\src\codepage\*.*
After Set Local language/CodePage, Just call: Set ( _SET_LANGUAGE )
Below new contents for i_lang.ch
i_lang.ch
Code: Select all
// *---------------------------------------------------------------------------*
// SET LANGUAGE
// *---------------------------------------------------------------------------*
#translate SET LANGUAGE TO BASQUE => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_EU ; HB_LANGSELECT( hb_UserLang(), "DE850" ) ; InitMessages() // eu.DE850
#translate SET LANGUAGE TO BULGARIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_BG866 ; HB_LANGSELECT( hb_UserLang(), "BG866" ) ; InitMessages() // bg.BG866
#translate SET LANGUAGE TO CROATIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_HR852 ; HB_LANGSELECT( hb_UserLang(), "HR852" ) ; InitMessages() // hr.HR852
#translate SET LANGUAGE TO CZECH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_CS852 ; HB_LANGSELECT( hb_UserLang(), "CS852" ) ; InitMessages() // cs.CS852
#translate SET LANGUAGE TO DUTCH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_NL ; HB_LANGSELECT( hb_UserLang(), "NL850" ) ; InitMessages() // nl.NL850
#translate SET LANGUAGE TO ENGLISH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_EN ; HB_LANGSELECT( hb_UserLang(), "EN" ) ; InitMessages() // en.EN
#translate SET LANGUAGE TO FINNISH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_EN ; HB_LANGSELECT( hb_UserLang(), "FI850" ) ; InitMessages() // en.FI850
#translate SET LANGUAGE TO FRENCH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_FR ; HB_LANGSELECT( hb_UserLang(), "FR850" ) ; InitMessages() // fr.FR850
#translate SET LANGUAGE TO GERMAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_DEWIN ; HB_LANGSELECT( hb_UserLang(), "DEWIN" ) ; InitMessages() // de.DEWIN
#translate SET LANGUAGE TO GREEK => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_ELWIN ; HB_LANGSELECT( hb_UserLang(), "ELWIN" ) ; InitMessages() // el.ELWIN
#translate SET LANGUAGE TO HUNGARIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_HU852 ; HB_LANGSELECT( hb_UserLang(), "HU852" ) ; InitMessages() // hu.HU852
#translate SET LANGUAGE TO ITALIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_IT ; HB_LANGSELECT( hb_UserLang(), "IT850" ) ; InitMessages() // it.IT850
#translate SET LANGUAGE TO POLISH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_PLWIN ; HB_LANGSELECT( hb_UserLang(), "PLWIN" ) ; InitMessages() // pl.PLWIN
#translate SET LANGUAGE TO PORTUGUESE => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_PT ; HB_LANGSELECT( hb_UserLang(), "PT850" ) ; InitMessages() // pt.PT850
#translate SET LANGUAGE TO RUSSIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_RU ; HB_LANGSELECT( hb_UserLang(), "RU1251") ; InitMessages() // ru.RU125
#translate SET LANGUAGE TO SERBIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_SRWIN ; HB_LANGSELECT( hb_UserLang(), "SRWIN" ) ; InitMessages() // sr_cyr.SRWIN
#translate SET LANGUAGE TO SLOVENIAN => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_SLWIN ; HB_LANGSELECT( hb_UserLang(), "SLWIN" ) ; InitMessages() // sl.SLWIN
#translate SET LANGUAGE TO SPANISH => _HMG_SYSDATA \[ 211 \] := ' ' ; REQUEST HB_LANG_ES ; HB_LANGSELECT( hb_UserLang(), "ESWIN" ) ; InitMessages() // es.ESWIN
// *---------------------------------------------------------------------------*
// SET CODEPAGE
// *---------------------------------------------------------------------------*
#translate SET CODEPAGE TO BASQUE => REQUEST HB_CODEPAGE_EN ; HB_CDPSELECT("EN")
#translate SET CODEPAGE TO BULGARIAN => REQUEST HB_CODEPAGE_BG866 ; HB_CDPSELECT("BG866")
#translate SET CODEPAGE TO CROATIAN => REQUEST HB_CODEPAGE_HR852 ; HB_CDPSELECT("HR852")
#translate SET CODEPAGE TO CZECH => REQUEST HB_CODEPAGE_CS852 ; HB_CDPSELECT("CS852")
#translate SET CODEPAGE TO DUTCH => REQUEST HB_CODEPAGE_NL850 ; HB_CDPSELECT("NL850")
#translate SET CODEPAGE TO ENGLISH => REQUEST HB_CODEPAGE_EN ; HB_CDPSELECT("EN")
#translate SET CODEPAGE TO FINNISH => REQUEST HB_CODEPAGE_FI850 ; HB_CDPSELECT("FI850")
#translate SET CODEPAGE TO FRENCH => REQUEST HB_CODEPAGE_FR850 ; HB_CDPSELECT("FR850")
#translate SET CODEPAGE TO GERMAN => REQUEST HB_CODEPAGE_DEWIN ; HB_CDPSELECT("DEWIN")
#translate SET CODEPAGE TO GREEK => REQUEST HB_CODEPAGE_EL437 ; HB_CDPSELECT("EL437")
#translate SET CODEPAGE TO HUNGARIAN => REQUEST HB_CODEPAGE_HU852 ; HB_CDPSELECT("HU852")
#translate SET CODEPAGE TO ITALIAN => REQUEST HB_CODEPAGE_IT850 ; HB_CDPSELECT("IT850")
#translate SET CODEPAGE TO POLISH => REQUEST HB_CODEPAGE_PLWIN ; HB_CDPSELECT("PLWIN")
#translate SET CODEPAGE TO PORTUGUESE => REQUEST HB_CODEPAGE_PT850 ; HB_CDPSELECT("PT850")
#translate SET CODEPAGE TO RUSSIAN => REQUEST HB_CODEPAGE_RU1251 ; HB_CDPSELECT("RU1251")
#translate SET CODEPAGE TO SERBIAN => REQUEST HB_CODEPAGE_SRWIN ; HB_CDPSELECT("SRWIN")
#translate SET CODEPAGE TO SLOVENIAN => REQUEST HB_CODEPAGE_SLWIN ; HB_CDPSELECT("SLWIN")
#translate SET CODEPAGE TO SPANISH => REQUEST HB_CODEPAGE_ESWIN ; HB_CDPSELECT("ESWIN")
cLang := hb_langname()
? cLang // BASQUE => eu.DE850
? cLang // BULGARIAN => bg.BG866
? cLang // CROATIAN => hr.HR852
? cLang // CZECH => cs.CS852
? cLang // DUTCH => nl.NL850
? cLang // ENGLISH => en.EN
? cLang // FINNISH => en.FI850
? cLang // FRENCH => fr.FR850
? cLang // GERMAN => de.DEWIN
? cLang // GREEK => el.ELWIN
? cLang // HUNGARIAN => hu.HU852
? cLang // ITALIAN => it.IT850
? cLang // POLISH => pl.PLWIN
? cLang // PORTUGUESE => pt.PT850
? cLang // RUSSIAN => ru.RU125
? cLang // SERBIAN => sr_cyr.SRWIN
? cLang // SLOVENIAN => sl.SLWIN
? cLang // SPANISH => es.ESWIN
Then for correct HMG messages, adjust files:
h_controlmisc.prg
h_init.prg
h_windows.prg
HFCL\Source\gridprint.prg
*** Real user's requests, will be the best way for exactly CodePage set ***
Best regards