- Update to r53061
[reactos.git] / dll / cpl / intl / generalp.c
1 /*
2 * ReactOS
3 * Copyright (C) 2004, 2005 ReactOS Team
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License along
16 * with this program; if not, write to the Free Software Foundation, Inc.,
17 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 */
19 /* $Id$
20 *
21 * PROJECT: ReactOS International Control Panel
22 * FILE: lib/cpl/intl/generalp.c
23 * PURPOSE: General property page
24 * PROGRAMMER: Eric Kohl
25 * Klemens Friedl
26 * Aleksey Bragin
27 */
28
29 #include "intl.h"
30
31 #define SAMPLE_NUMBER _T("123456789")
32 #define NO_FLAG 0
33
34 HWND hList;
35 HWND hLocaleList, hGeoList;
36 BOOL bSpain = FALSE;
37
38 static BOOL CALLBACK
39 LocalesEnumProc(LPTSTR lpLocale)
40 {
41 LCID lcid;
42 TCHAR lang[255];
43 INT index;
44 BOOL bNoShow = FALSE;
45
46 lcid = _tcstoul(lpLocale, NULL, 16);
47
48 /* Display only languages with installed support */
49 /* See bug #4898.
50 if (!IsValidLocale(lcid, LCID_INSTALLED))
51 return TRUE;
52 */
53
54 if (lcid == MAKELCID(MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH), SORT_DEFAULT) ||
55 lcid == MAKELCID(MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_MODERN), SORT_DEFAULT))
56 {
57 if (bSpain == FALSE)
58 {
59 LoadString(hApplet, IDS_SPAIN, lang, 255);
60 bSpain = TRUE;
61 }
62 else
63 {
64 bNoShow = TRUE;
65 }
66 }
67 else
68 {
69 GetLocaleInfo(lcid, LOCALE_SLANGUAGE, lang, sizeof(lang)/sizeof(TCHAR));
70 }
71
72 if (bNoShow == FALSE)
73 {
74 index = SendMessage(hList,
75 CB_ADDSTRING,
76 0,
77 (LPARAM)lang);
78
79 SendMessage(hList,
80 CB_SETITEMDATA,
81 index,
82 (LPARAM)lcid);
83 }
84
85 return TRUE;
86 }
87
88 /* Update all locale samples */
89 static VOID
90 UpdateLocaleSample(HWND hwndDlg, LCID lcidLocale)
91 {
92 TCHAR OutBuffer[MAX_SAMPLES_STR_SIZE];
93
94 /* Get number format sample */
95 GetNumberFormat(lcidLocale, NO_FLAG, SAMPLE_NUMBER, NULL, OutBuffer,
96 MAX_SAMPLES_STR_SIZE);
97 SendMessage(GetDlgItem(hwndDlg, IDC_NUMSAMPLE_EDIT),
98 WM_SETTEXT, 0, (LPARAM)OutBuffer);
99
100 /* Get monetary format sample */
101 GetCurrencyFormat(lcidLocale, LOCALE_USE_CP_ACP, SAMPLE_NUMBER, NULL,
102 OutBuffer, MAX_SAMPLES_STR_SIZE);
103 SendMessage(GetDlgItem(hwndDlg, IDC_MONEYSAMPLE_EDIT),
104 WM_SETTEXT, 0, (LPARAM)OutBuffer);
105
106 /* Get time format sample */
107 GetTimeFormat(lcidLocale, NO_FLAG, NULL, NULL, OutBuffer, MAX_SAMPLES_STR_SIZE);
108 SendMessage(GetDlgItem(hwndDlg, IDC_TIMESAMPLE_EDIT),
109 WM_SETTEXT,
110 0,
111 (LPARAM)OutBuffer);
112
113 /* Get short date format sample */
114 GetDateFormat(lcidLocale, DATE_SHORTDATE, NULL, NULL, OutBuffer,
115 MAX_SAMPLES_STR_SIZE);
116 SendMessage(GetDlgItem(hwndDlg, IDC_SHORTTIMESAMPLE_EDIT), WM_SETTEXT,
117 0, (LPARAM)OutBuffer);
118
119 /* Get long date sample */
120 GetDateFormat(lcidLocale, DATE_LONGDATE, NULL, NULL, OutBuffer,
121 MAX_SAMPLES_STR_SIZE);
122 SendMessage(GetDlgItem(hwndDlg, IDC_FULLTIMESAMPLE_EDIT),
123 WM_SETTEXT, 0, (LPARAM)OutBuffer);
124 }
125
126 static VOID
127 CreateLanguagesList(HWND hwnd)
128 {
129 TCHAR langSel[255];
130
131 hList = hwnd;
132 bSpain = FALSE;
133 EnumSystemLocales(LocalesEnumProc, LCID_SUPPORTED);
134
135 /* Select current locale */
136 /* or should it be System and not user? */
137 GetLocaleInfo(GetUserDefaultLCID(), LOCALE_SLANGUAGE, langSel, sizeof(langSel)/sizeof(TCHAR));
138
139 SendMessage(hList,
140 CB_SELECTSTRING,
141 -1,
142 (LPARAM)langSel);
143 }
144
145 /* Sets new locale */
146 VOID
147 SetNewLocale(LCID lcid)
148 {
149 // HKCU\\Control Panel\\International\\Locale = 0409 (type=0)
150 // HKLM,"SYSTEM\CurrentControlSet\Control\NLS\Language","Default",0x00000000,"0409" (type=0)
151 // HKLM,"SYSTEM\CurrentControlSet\Control\NLS\Language","InstallLanguage",0x00000000,"0409" (type=0)
152
153 // Set locale
154 HKEY localeKey;
155 HKEY langKey;
156 DWORD ret;
157 TCHAR value[9];
158 DWORD valuesize;
159 TCHAR ACPPage[9];
160 TCHAR OEMPage[9];
161
162 ret = GetLocaleInfo(MAKELCID(lcid, SORT_DEFAULT), LOCALE_IDEFAULTCODEPAGE, OEMPage, sizeof(OEMPage)/sizeof(TCHAR));
163 if (ret == 0)
164 {
165 MessageBox(NULL, _T("Problem reading OEM code page"), _T("Big Problem"), MB_OK);
166 return;
167 }
168
169 ret = GetLocaleInfo(MAKELCID(lcid, SORT_DEFAULT), LOCALE_IDEFAULTANSICODEPAGE, ACPPage, sizeof(ACPPage)/sizeof(TCHAR));
170 if (ret == 0)
171 {
172 MessageBox(NULL, _T("Problem reading ANSI code page"), _T("Big Problem"), MB_OK);
173 return;
174 }
175
176 ret = RegOpenKey(HKEY_CURRENT_USER, _T("Control Panel\\International"), &localeKey);
177 if (ret != ERROR_SUCCESS)
178 {
179 // some serious error
180 MessageBox(NULL, _T("Problem opening HKCU\\Control Panel\\International key"),
181 _T("Big Problem"), MB_OK);
182 return;
183 }
184
185 wsprintf(value, _T("%04X"), (DWORD)lcid);
186 valuesize = (_tcslen(value) + 1) * sizeof(TCHAR);
187
188 RegSetValueEx(localeKey, _T("Locale"), 0, REG_SZ, (LPBYTE)value, valuesize);
189 RegCloseKey(localeKey);
190
191 ret = RegOpenKey(HKEY_USERS, _T(".DEFAULT\\Control Panel\\International"), &localeKey);
192 if (ret != ERROR_SUCCESS)
193 {
194 // some serious error
195 MessageBox(NULL, _T("Problem opening HKU\\.DEFAULT\\Control Panel\\International key"),
196 _T("Big Problem"), MB_OK);
197 return;
198 }
199
200 wsprintf(value, _T("%04X"), (DWORD)lcid);
201 valuesize = (_tcslen(value) + 1) * sizeof(TCHAR);
202
203 RegSetValueEx(localeKey, _T("Locale"), 0, REG_SZ, (BYTE *)value, valuesize);
204 RegCloseKey(localeKey);
205
206 // Set language
207 ret = RegOpenKey(HKEY_LOCAL_MACHINE, _T("SYSTEM\\CurrentControlSet\\Control\\NLS\\Language"), &langKey);
208 if (ret != ERROR_SUCCESS)
209 {
210 MessageBoxW(NULL, _T("Problem opening HKLM\\SYSTEM\\CurrentControlSet\\Control\\NLS\\Language key"),
211 _T("Big Problem"), MB_OK);
212 return;
213 }
214
215 RegSetValueEx(langKey, _T("Default"), 0, REG_SZ, (BYTE *)value, valuesize );
216 RegSetValueEx(langKey, _T("InstallLanguage"), 0, REG_SZ, (BYTE *)value, valuesize );
217
218 RegCloseKey(langKey);
219
220
221 /* Set language */
222 ret = RegOpenKey(HKEY_LOCAL_MACHINE, _T("SYSTEM\\CurrentControlSet\\Control\\NLS\\CodePage"), &langKey);
223 if (ret != ERROR_SUCCESS)
224 {
225 MessageBox(NULL, _T("Problem opening HKLM\\SYSTEM\\CurrentControlSet\\Control\\NLS\\CodePage key"),
226 _T("Big Problem"), MB_OK);
227 return;
228 }
229
230 RegSetValueExW(langKey, _T("OEMCP"), 0, REG_SZ, (BYTE *)OEMPage, (_tcslen(OEMPage) +1 ) * sizeof(TCHAR));
231 RegSetValueExW(langKey, _T("ACP"), 0, REG_SZ, (BYTE *)ACPPage, (_tcslen(ACPPage) +1 ) * sizeof(TCHAR));
232
233 RegCloseKey(langKey);
234 }
235
236 /* Location enumerate procedure */
237 BOOL
238 CALLBACK
239 LocationsEnumProc(GEOID gId)
240 {
241 TCHAR loc[MAX_STR_SIZE];
242 INT index;
243
244 GetGeoInfo(gId, GEO_FRIENDLYNAME, loc, MAX_STR_SIZE, LANG_SYSTEM_DEFAULT);
245 index = (INT)SendMessage(hGeoList,
246 CB_ADDSTRING,
247 0,
248 (LPARAM)loc);
249
250 SendMessage(hGeoList,
251 CB_SETITEMDATA,
252 index,
253 (LPARAM)gId);
254
255 return TRUE;
256 }
257
258 /* Enumerate all system locations identifiers */
259 static
260 VOID
261 CreateLocationsList(HWND hWnd)
262 {
263 GEOID userGeoID;
264 TCHAR loc[MAX_STR_SIZE];
265
266 hGeoList = hWnd;
267
268 EnumSystemGeoID(GEOCLASS_NATION, 0, LocationsEnumProc);
269
270 /* Select current location */
271 userGeoID = GetUserGeoID(GEOCLASS_NATION);
272 GetGeoInfo(userGeoID,
273 GEO_FRIENDLYNAME,
274 loc,
275 MAX_STR_SIZE,
276 LANG_SYSTEM_DEFAULT);
277
278 SendMessage(hGeoList,
279 CB_SELECTSTRING,
280 (WPARAM) -1,
281 (LPARAM)loc);
282 }
283
284 DWORD
285 VerifyUnattendLCID(HWND hwndDlg)
286 {
287 LRESULT lCount, lIndex, lResult;
288
289 lCount = SendMessage(hList, CB_GETCOUNT, (WPARAM)0, (LPARAM)0);
290 if (lCount == CB_ERR)
291 {
292 return 0;
293 }
294
295 for (lIndex = 0; lIndex < lCount; lIndex++)
296 {
297 lResult = SendMessage(hList, CB_GETITEMDATA, (WPARAM)lIndex, (LPARAM)0);
298 if (lResult == CB_ERR)
299 {
300 continue;
301 }
302
303 if (lResult == (LRESULT)UnattendLCID)
304 {
305 SendMessage(hList, CB_SETCURSEL, (WPARAM)lIndex, (LPARAM)0);
306 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
307 return 1;
308 }
309 }
310
311 return 0;
312 }
313
314
315 /* Property page dialog callback */
316 INT_PTR CALLBACK
317 GeneralPageProc(HWND hwndDlg,
318 UINT uMsg,
319 WPARAM wParam,
320 LPARAM lParam)
321 {
322 switch(uMsg)
323 {
324 case WM_INITDIALOG:
325 CreateLanguagesList(GetDlgItem(hwndDlg, IDC_LANGUAGELIST));
326 UpdateLocaleSample(hwndDlg, LOCALE_USER_DEFAULT);
327 CreateLocationsList(GetDlgItem(hwndDlg, IDC_LOCATION_COMBO));
328 if (IsUnattendedSetupEnabled)
329 {
330 if (VerifyUnattendLCID(hwndDlg))
331 {
332 SetNewLocale(UnattendLCID);
333 PostQuitMessage(0);
334 }
335 return TRUE;
336 }
337 break;
338
339 case WM_COMMAND:
340 switch (LOWORD(wParam))
341 {
342 case IDC_LANGUAGELIST:
343 if (HIWORD(wParam) == CBN_SELCHANGE)
344 {
345 LCID NewLcid;
346 INT iCurSel;
347
348 iCurSel = SendMessage(hList,
349 CB_GETCURSEL,
350 0,
351 0);
352 if (iCurSel == CB_ERR)
353 break;
354
355 NewLcid = SendMessage(hList,
356 CB_GETITEMDATA,
357 iCurSel,
358 0);
359 if (NewLcid == (LCID)CB_ERR)
360 break;
361
362 UpdateLocaleSample(hwndDlg, NewLcid);
363
364 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
365 }
366 break;
367
368 case IDC_LOCATION_COMBO:
369 if (HIWORD(wParam) == CBN_SELCHANGE)
370 {
371 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
372 }
373 break;
374 case IDC_SETUP_BUTTON:
375 {
376 LCID NewLcid;
377 INT iCurSel;
378
379 iCurSel = SendMessage(hList,
380 CB_GETCURSEL,
381 0,
382 0);
383 if (iCurSel == CB_ERR)
384 break;
385
386 NewLcid = SendMessage(hList,
387 CB_GETITEMDATA,
388 iCurSel,
389 0);
390 if (NewLcid == (LCID)CB_ERR)
391 break;
392
393 SetupApplet(GetParent(hwndDlg), NewLcid);
394 }
395 break;
396 }
397 break;
398
399 case WM_NOTIFY:
400 {
401 LPNMHDR lpnm = (LPNMHDR)lParam;
402
403 if (lpnm->code == (UINT)PSN_APPLY)
404 {
405 /* Apply changes */
406 LCID NewLcid;
407 GEOID NewGeoID;
408 INT iCurSel;
409
410 PropSheet_UnChanged(GetParent(hwndDlg), hwndDlg);
411
412 /* Acquire new value */
413 iCurSel = SendMessage(hList,
414 CB_GETCURSEL,
415 0,
416 0);
417 if (iCurSel == CB_ERR)
418 break;
419
420 NewLcid = SendMessage(hList,
421 CB_GETITEMDATA,
422 iCurSel,
423 0);
424 if (NewLcid == (LCID)CB_ERR)
425 break;
426
427 iCurSel = SendMessage(GetDlgItem(hwndDlg, IDC_LOCATION_COMBO),
428 CB_GETCURSEL,
429 0,
430 0);
431 if (iCurSel == CB_ERR)
432 break;
433
434 NewGeoID = SendMessage(GetDlgItem(hwndDlg, IDC_LOCATION_COMBO),
435 CB_GETITEMDATA,
436 iCurSel,
437 0);
438 if (NewGeoID == (GEOID)CB_ERR)
439 break;
440
441 /* Set new locale */
442 SetNewLocale(NewLcid);
443 AddNewKbLayoutsByLcid(NewLcid);
444 SetUserGeoID(NewGeoID);
445 SetNonUnicodeLang(hwndDlg, NewLcid);
446 }
447 }
448 break;
449 }
450
451 return FALSE;
452 }
453
454
455 /* EOF */