1 #include "intl.h"
2 #include <wingdi.h>
3
4 #include <debug.h>
5
6 typedef struct CPStruct
7 {
8 UINT CodePage;
9 DWORD Flags;
10 WCHAR Name[MAX_PATH];
11 struct CPStruct *NextItem;
12 } CPAGE, *PCPAGE;
13
14 #define CODEPAGE_INSTALLED 0x00000001
15 #define CODEPAGE_NOT_REMOVEABLE 0x00000002
16 #define CODEPAGE_INSTALL 0x00000004
17 #define CODEPAGE_REMOVE 0x00000008
18
19 static PCPAGE PCPage = NULL;
20 static BOOL bSpain = FALSE;
21 static HWND hLangList;
22
23 static BOOL
GetSupportedCP(HINF hInf)24 GetSupportedCP(
25 HINF hInf)
26 {
27 WCHAR szSection[MAX_PATH];
28 INFCONTEXT Context, Context2;
29 PCPAGE pCodePage;
30 CPINFOEX cpInfEx;
31 UINT uiCodePage;
32
33 if (!SetupFindFirstLine(hInf,
34 L"CodePages",
35 NULL,
36 &Context))
37 return FALSE;
38
39 for (;;)
40 {
41 if (SetupGetIntField(&Context, 0, (PINT)&uiCodePage))
42 {
43 pCodePage = HeapAlloc(GetProcessHeap(), 0, sizeof(CPAGE));
44 if (pCodePage == NULL)
45 return FALSE;
46
47 pCodePage->CodePage = uiCodePage;
48 pCodePage->Flags = 0;
49 (pCodePage->Name)[0] = UNICODE_NULL;
50
51 if (GetCPInfoExW(uiCodePage, 0, &cpInfEx))
52 {
53 wcscpy(pCodePage->Name, cpInfEx.CodePageName);
54 }
55 else
56 {
57 SetupGetStringFieldW(&Context, 1, pCodePage->Name, MAX_PATH, NULL);
58 }
59
60 if (wcslen(pCodePage->Name) != 0)
61 {
62 pCodePage->NextItem = PCPage;
63 PCPage = pCodePage;
64
65 wsprintf(szSection, L"CODEPAGE_REMOVE_%d", uiCodePage);
66
67 if ((uiCodePage == GetACP()) ||
68 (uiCodePage == GetOEMCP()) ||
69 (!SetupFindFirstLineW(hInf, szSection, L"AddReg", &Context2)))
70 {
71 pCodePage->Flags |= CODEPAGE_NOT_REMOVEABLE;
72 }
73 }
74 else
75 {
76 HeapFree(GetProcessHeap(), 0, pCodePage);
77 }
78 }
79
80 if (!SetupFindNextLine(&Context, &Context))
81 break;
82 }
83
84 return TRUE;
85 }
86
87 static BOOL CALLBACK
InstalledCPProc(PWSTR lpStr)88 InstalledCPProc(PWSTR lpStr)
89 {
90 PCPAGE lpCP;
91 UINT uiCP;
92
93 lpCP = PCPage;
94 uiCP = _wtol(lpStr);
95
96 for (;;)
97 {
98 if (!lpCP)
99 break;
100
101 if (lpCP->CodePage == uiCP)
102 {
103 lpCP->Flags |= CODEPAGE_INSTALLED;
104 break;
105 }
106
107 lpCP = lpCP->NextItem;
108 }
109
110 return TRUE;
111 }
112
113 static VOID
InitCodePagesList(HWND hwndDlg)114 InitCodePagesList(HWND hwndDlg)
115 {
116 PCPAGE pCodePage;
117 INT ItemIndex;
118 HWND hList;
119 LV_COLUMN column;
120 LV_ITEM item;
121 RECT ListRect;
122 HINF hIntlInf;
123
124 hIntlInf = SetupOpenInfFileW(L"intl.inf", NULL, INF_STYLE_WIN4, NULL);
125 if (hIntlInf == INVALID_HANDLE_VALUE)
126 return;
127
128 if (!SetupOpenAppendInfFile(NULL, hIntlInf, NULL))
129 {
130 SetupCloseInfFile(hIntlInf);
131 hIntlInf = NULL;
132 return;
133 }
134
135 if (!GetSupportedCP(hIntlInf))
136 return;
137
138 SetupCloseInfFile(hIntlInf);
139
140 if (!EnumSystemCodePagesW(InstalledCPProc, CP_INSTALLED))
141 {
142 /* Hack: EnumSystemCodePages returns FALSE on successful completion! */
143 /* return; */
144 }
145
146 hList = GetDlgItem(hwndDlg, IDC_CONV_TABLES);
147
148 ZeroMemory(&column, sizeof(LV_COLUMN));
149 column.mask = LVCF_FMT | LVCF_WIDTH;
150 column.fmt = LVCFMT_LEFT;
151 GetClientRect(hList, &ListRect);
152 column.cx = ListRect.right - GetSystemMetrics(SM_CYHSCROLL);
153 ListView_InsertColumn(hList, 0, &column);
154
155 (VOID) ListView_SetExtendedListViewStyle(hList, LVS_EX_CHECKBOXES | LVS_EX_FULLROWSELECT);
156
157 pCodePage = PCPage;
158
159 for (;;)
160 {
161 if (pCodePage == NULL)
162 break;
163
164 ZeroMemory(&item, sizeof(LV_ITEM));
165 item.mask = LVIF_TEXT | LVIF_PARAM | LVIF_STATE;
166 item.state = 0;
167 item.stateMask = LVIS_STATEIMAGEMASK;
168 item.pszText = pCodePage->Name;
169 item.lParam = (LPARAM)pCodePage;
170
171 ItemIndex = ListView_InsertItem(hList, &item);
172 if (ItemIndex != -1)
173 {
174 if (pCodePage->Flags & CODEPAGE_INSTALLED)
175 {
176 ListView_SetItemState(hList, ItemIndex,
177 INDEXTOSTATEIMAGEMASK(LVIS_SELECTED),
178 LVIS_STATEIMAGEMASK);
179 }
180 else
181 {
182 ListView_SetItemState(hList, ItemIndex,
183 INDEXTOSTATEIMAGEMASK(LVIS_FOCUSED),
184 LVIS_STATEIMAGEMASK);
185 }
186 }
187
188 pCodePage = pCodePage->NextItem;
189 }
190 }
191
192 static BOOL CALLBACK
LocalesEnumProc(PWSTR lpLocale)193 LocalesEnumProc(PWSTR lpLocale)
194 {
195 LCID lcid;
196 WCHAR lang[255];
197 INT index;
198 BOOL bNoShow = FALSE;
199
200 lcid = wcstoul(lpLocale, NULL, 16);
201
202 if (lcid == MAKELCID(MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH), SORT_DEFAULT) ||
203 lcid == MAKELCID(MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_MODERN), SORT_DEFAULT))
204 {
205 if (bSpain == FALSE)
206 {
207 LoadStringW(hApplet, IDS_SPAIN, lang, 255);
208 bSpain = TRUE;
209 }
210 else
211 {
212 bNoShow = TRUE;
213 }
214 }
215 else
216 {
217 GetLocaleInfoW(lcid, LOCALE_SLANGUAGE, lang, sizeof(lang)/sizeof(WCHAR));
218 }
219
220 if (bNoShow == FALSE)
221 {
222 index = SendMessageW(hLangList,
223 CB_ADDSTRING,
224 0,
225 (LPARAM)lang);
226
227 SendMessageW(hLangList,
228 CB_SETITEMDATA,
229 index,
230 (LPARAM)lcid);
231 }
232
233 return TRUE;
234 }
235
236 static VOID
InitLanguagesList(HWND hwndDlg,PGLOBALDATA pGlobalData)237 InitLanguagesList(
238 HWND hwndDlg,
239 PGLOBALDATA pGlobalData)
240 {
241 WCHAR langSel[255];
242
243 hLangList = GetDlgItem(hwndDlg, IDC_LANGUAGE_COMBO);
244
245 bSpain = FALSE;
246 EnumSystemLocalesW(LocalesEnumProc, LCID_SUPPORTED);
247
248 /* Select current locale */
249 GetLocaleInfoW(pGlobalData->SystemLCID, LOCALE_SLANGUAGE, langSel, sizeof(langSel)/sizeof(WCHAR));
250
251 SendMessageW(hLangList, CB_SELECTSTRING, -1, (LPARAM)langSel);
252 }
253
254 static VOID
GetCurrentDPI(LPTSTR szDPI)255 GetCurrentDPI(LPTSTR szDPI)
256 {
257 DWORD dwType, dwSize, dwDPI, dwDefDPI = 0x00000060; // Default 96 DPI
258 HKEY hKey;
259
260 if (RegCreateKeyExW(HKEY_LOCAL_MACHINE, L"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\FontDPI", 0, NULL,
261 REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, NULL, &hKey, NULL) != ERROR_SUCCESS)
262 {
263 wcscpy(szDPI, L"96");
264 return;
265 }
266
267 dwType = REG_DWORD;
268 dwSize = sizeof(DWORD);
269
270 if (RegQueryValueExW(hKey, L"LogPixels", NULL, &dwType, (LPBYTE)&dwDPI, &dwSize) != ERROR_SUCCESS)
271 {
272 if (RegSetValueExW(hKey, L"LogPixels", 0, REG_DWORD, (LPBYTE)&dwDefDPI, sizeof(DWORD)) == ERROR_SUCCESS)
273 {
274 wcscpy(szDPI, L"96");
275 RegCloseKey(hKey);
276 return;
277 }
278 }
279 else
280 {
281 wsprintf(szDPI, L"%d", dwDPI);
282 }
283
284 RegCloseKey(hKey);
285 }
286
287 static
288 VOID
SaveFontSubstitutionSettings(HWND hwnd,PGLOBALDATA pGlobalData)289 SaveFontSubstitutionSettings(
290 HWND hwnd,
291 PGLOBALDATA pGlobalData)
292 {
293 WCHAR szDefCP[5 + 1], szSection[MAX_PATH], szDPI[3 + 1];
294 HINF hFontInf;
295 UINT Count;
296
297 GetLocaleInfoW(MAKELCID(pGlobalData->SystemLCID, SORT_DEFAULT), LOCALE_IDEFAULTCODEPAGE, szDefCP, sizeof(szDefCP) / sizeof(WCHAR));
298 GetCurrentDPI(szDPI);
299
300 wsprintf(szSection, L"Font.CP%s.%s", szDefCP, szDPI);
301
302 hFontInf = SetupOpenInfFileW(L"font.inf", NULL, INF_STYLE_WIN4, NULL);
303 if (hFontInf == INVALID_HANDLE_VALUE)
304 return;
305
306 if (!SetupOpenAppendInfFile(NULL, hFontInf, NULL))
307 {
308 SetupCloseInfFile(hFontInf);
309 return;
310 }
311
312 Count = (UINT)SetupGetLineCount(hFontInf, szSection);
313 if (Count <= 0)
314 return;
315
316 if (!SetupInstallFromInfSectionW(hwnd, hFontInf, szSection, SPINST_REGISTRY & ~SPINST_FILES,
317 NULL, NULL, 0, NULL, NULL, NULL, NULL))
318 {
319 PrintErrorMsgBox(IDS_ERROR_UNICODE);
320 }
321
322 SetupCloseInfFile(hFontInf);
323 }
324
325
326 static
327 VOID
SaveFontLinkingSettings(HWND hwnd,PGLOBALDATA pGlobalData)328 SaveFontLinkingSettings(
329 HWND hwnd,
330 PGLOBALDATA pGlobalData)
331 {
332 /* TODO */
333 }
334
335
336 static
337 VOID
SaveSystemSettings(PGLOBALDATA pGlobalData)338 SaveSystemSettings(
339 PGLOBALDATA pGlobalData)
340 {
341 WCHAR ACPPage[9];
342 WCHAR OEMPage[9];
343 HKEY langKey;
344 DWORD ret;
345 WCHAR value[5];
346 DWORD valuesize;
347
348 ret = GetLocaleInfoW(MAKELCID(pGlobalData->SystemLCID, SORT_DEFAULT), LOCALE_IDEFAULTCODEPAGE, OEMPage, sizeof(OEMPage)/sizeof(WCHAR));
349 if (ret == 0)
350 {
351 PrintErrorMsgBox(IDS_ERROR_OEM_CODE_PAGE);
352 return;
353 }
354
355 ret = GetLocaleInfoW(MAKELCID(pGlobalData->SystemLCID, SORT_DEFAULT), LOCALE_IDEFAULTANSICODEPAGE, ACPPage, sizeof(ACPPage)/sizeof(WCHAR));
356 if (ret == 0)
357 {
358 PrintErrorMsgBox(IDS_ERROR_ANSI_CODE_PAGE);
359 return;
360 }
361
362 /* Set codepages */
363 ret = RegOpenKeyW(HKEY_LOCAL_MACHINE, L"SYSTEM\\CurrentControlSet\\Control\\NLS\\CodePage", &langKey);
364 if (ret != ERROR_SUCCESS)
365 {
366 PrintErrorMsgBox(IDS_ERROR_NLS_CODE_REG);
367 return;
368 }
369
370 RegSetValueExW(langKey, L"OEMCP", 0, REG_SZ, (BYTE *)OEMPage, (wcslen(OEMPage) +1 ) * sizeof(WCHAR));
371 RegSetValueExW(langKey, L"ACP", 0, REG_SZ, (BYTE *)ACPPage, (wcslen(ACPPage) +1 ) * sizeof(WCHAR));
372
373 RegCloseKey(langKey);
374
375
376 wsprintf(value, L"%04hX", LANGIDFROMLCID(pGlobalData->SystemLCID));
377 valuesize = (wcslen(value) + 1) * sizeof(WCHAR);
378
379 /* Set language */
380 ret = RegOpenKeyW(HKEY_LOCAL_MACHINE, L"SYSTEM\\CurrentControlSet\\Control\\NLS\\Language", &langKey);
381 if (ret != ERROR_SUCCESS)
382 {
383 PrintErrorMsgBox(IDS_ERROR_NLS_KEY_REG);
384 return;
385 }
386
387 RegSetValueExW(langKey, L"Default", 0, REG_SZ, (BYTE *)value, valuesize);
388 RegCloseKey(langKey);
389 }
390
391
392 LRESULT
ListViewCustomDraw(LPARAM lParam)393 ListViewCustomDraw(
394 LPARAM lParam)
395 {
396 LPNMLVCUSTOMDRAW lplvcd = (LPNMLVCUSTOMDRAW)lParam;
397
398 switch (lplvcd->nmcd.dwDrawStage)
399 {
400 case CDDS_PREPAINT:
401 return CDRF_NOTIFYITEMDRAW;
402
403 case CDDS_ITEMPREPAINT:
404 if (((PCPAGE)lplvcd->nmcd.lItemlParam)->Flags & CODEPAGE_NOT_REMOVEABLE)
405 {
406 lplvcd->clrText = GetSysColor(COLOR_GRAYTEXT);
407 }
408 else
409 {
410 lplvcd->clrText = GetSysColor(COLOR_WINDOWTEXT);
411 }
412 lplvcd->clrTextBk = GetSysColor(COLOR_WINDOW);
413 return CDRF_NEWFONT;
414 }
415
416 return CDRF_DODEFAULT;
417 }
418
419
420 /* Property page dialog callback */
421 INT_PTR CALLBACK
AdvancedPageProc(HWND hwndDlg,UINT uMsg,WPARAM wParam,LPARAM lParam)422 AdvancedPageProc(HWND hwndDlg,
423 UINT uMsg,
424 WPARAM wParam,
425 LPARAM lParam)
426 {
427 PGLOBALDATA pGlobalData;
428
429 pGlobalData = (PGLOBALDATA)GetWindowLongPtr(hwndDlg, DWLP_USER);
430
431 switch (uMsg)
432 {
433 case WM_INITDIALOG:
434 pGlobalData = (PGLOBALDATA)((LPPROPSHEETPAGE)lParam)->lParam;
435 SetWindowLongPtr(hwndDlg, DWLP_USER, (LONG_PTR)pGlobalData);
436
437 InitLanguagesList(hwndDlg, pGlobalData);
438 InitCodePagesList(hwndDlg);
439 break;
440
441 case WM_COMMAND:
442 switch (LOWORD(wParam))
443 {
444 case IDC_LANGUAGE_COMBO:
445 if (HIWORD(wParam) == CBN_SELCHANGE)
446 {
447 LCID lcid;
448 INT iIndex;
449
450 iIndex = SendMessage(hLangList, CB_GETCURSEL, 0, 0);
451 if (iIndex == CB_ERR)
452 break;
453
454 lcid = SendMessage(hLangList, CB_GETITEMDATA, iIndex, 0);
455 if (lcid == (LCID)CB_ERR)
456 break;
457
458 pGlobalData->SystemLCID = lcid;
459
460 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
461 }
462 break;
463
464 case IDC_APPLY_CUR_USER_DEF_PROFILE:
465 if (HIWORD(wParam) == BN_CLICKED)
466 {
467 if (SendDlgItemMessageW(hwndDlg, IDC_APPLY_CUR_USER_DEF_PROFILE, BM_GETCHECK, 0, 0))
468 {
469 ResourceMessageBox(hwndDlg,
470 MB_OK | MB_ICONWARNING,
471 IDS_APPLY_DEFAULT_TITLE,
472 IDS_APPLY_DEFAULT_TEXT);
473 pGlobalData->bApplyToDefaultUser = TRUE;
474 }
475 else
476 {
477 pGlobalData->bApplyToDefaultUser = FALSE;
478 }
479
480 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
481 }
482 break;
483 }
484 break;
485
486 case WM_NOTIFY:
487 if (((LPNMHDR)lParam)->code == PSN_APPLY)
488 {
489 PropSheet_UnChanged(GetParent(hwndDlg), hwndDlg);
490
491 SaveSystemSettings(pGlobalData);
492 SaveFontSubstitutionSettings(hwndDlg, pGlobalData);
493 SaveFontLinkingSettings(hwndDlg, pGlobalData);
494 }
495 else if (((LPNMHDR)lParam)->idFrom == IDC_CONV_TABLES &&
496 ((LPNMHDR)lParam)->code == NM_CUSTOMDRAW)
497 {
498 SetWindowLongPtr(hwndDlg,
499 DWLP_MSGRESULT,
500 (LONG_PTR)ListViewCustomDraw(lParam));
501 return TRUE;
502 }
503 break;
504 }
505
506 return FALSE;
507 }
508
509 /* EOF */
510