[ion] 19960: - Temporary fix for making locale switches possible. Patch by zebasoftis. Fixes bug 481.

- Temporary fix for making locale switches possible. Patch by
zebasoftis. Fixes bug 481.
Modified: trunk/reactos/lib/cpl/intl/locale.c
  _____  

Modified: trunk/reactos/lib/cpl/intl/locale.c
--- trunk/reactos/lib/cpl/intl/locale.c	2005-12-08 00:38:57 UTC (rev
19959)
+++ trunk/reactos/lib/cpl/intl/locale.c	2005-12-08 00:52:03 UTC (rev
19960)
@@ -96,7 +96,23 @@

 	DWORD ret;
 	TCHAR value[9];
 	DWORD valuesize;
+	WCHAR ACPPage[9];
+	WCHAR OEMPage[9];
 
+	ret = GetLocaleInfoW(MAKELCID(lcid, SORT_DEFAULT),
LOCALE_IDEFAULTCODEPAGE, (WORD*)OEMPage, sizeof(OEMPage));
+	if (ret == 0)
+	{
+		MessageBoxW(NULL, L"Problem reading OEM code page",
L"Big Problem", MB_OK);
+		return;
+	}
+
+	GetLocaleInfoW(MAKELCID(lcid, SORT_DEFAULT),
LOCALE_IDEFAULTANSICODEPAGE, (WORD*)ACPPage, sizeof(ACPPage));
+	if (ret == 0)
+	{
+		MessageBoxW(NULL, L"Problem reading ANSI code page",
L"Big Problem", MB_OK);
+		return;
+	}
+
 	ret = RegOpenKeyW(HKEY_CURRENT_USER, L"Control
Panel\\International", &localeKey);
 
 	if (ret != ERROR_SUCCESS)
@@ -112,6 +128,21 @@
 	RegSetValueExW(localeKey, L"Locale", 0, REG_SZ, (BYTE *)value,
valuesize);
 	RegCloseKey(localeKey);
 
+	ret = RegOpenKeyW(HKEY_USERS, L".DEFAULT\\Control
Panel\\International", &localeKey);
+
+	if (ret != ERROR_SUCCESS)
+	{
+		// some serious error
+		MessageBoxW(NULL, L"Problem opening
HKU\\.DEFAULT\\Control Panel\\International key", L"Big Problem",
MB_OK);
+		return;
+	}
+
+	wsprintf(value, L"%04X", (DWORD)lcid);
+	valuesize = (wcslen(value) + 1) * sizeof(WCHAR);
+
+	RegSetValueExW(localeKey, L"Locale", 0, REG_SZ, (BYTE *)value,
valuesize);
+	RegCloseKey(localeKey);
+
 	// Set language
 	ret = RegOpenKeyW(HKEY_LOCAL_MACHINE,
L"SYSTEM\\CurrentControlSet\\Control\\NLS\\Language", &langKey);
 
@@ -123,7 +154,24 @@
 
 	RegSetValueExW(langKey, L"Default", 0, REG_SZ, (BYTE *)value,
valuesize );
 	RegSetValueExW(langKey, L"InstallLanguage", 0, REG_SZ, (BYTE
*)value, valuesize );
+
 	RegCloseKey(langKey);
+
+
+	// Set language
+	ret = RegOpenKeyW(HKEY_LOCAL_MACHINE,
L"SYSTEM\\CurrentControlSet\\Control\\NLS\\CodePage", &langKey);
+
+	if (ret != ERROR_SUCCESS)
+	{
+		MessageBoxW(NULL, L"Problem opening
HKLM\\SYSTEM\\CurrentControlSet\\Control\\NLS\\CodePage key", L"Big
Problem", MB_OK);
+		return;
+	}
+
+	RegSetValueExW(langKey, L"OEMCP", 0, REG_SZ, (BYTE *)OEMPage,
(wcslen(OEMPage) +1 ) * sizeof(WCHAR) );
+	RegSetValueExW(langKey, L"ACP", 0, REG_SZ, (BYTE *)ACPPage,
(wcslen(ACPPage) +1 ) * sizeof(WCHAR) );
+
+	RegCloseKey(langKey);
+
 }
 
 /* Property page dialog callback */