dll/cpl/input/add.c

   1 /*
   2  * PROJECT:         input.dll
   3  * FILE:            dll/win32/input/add.c
   4  * PURPOSE:         input.dll
   5  * PROGRAMMER:      Dmitry Chapyshev (dmitry@reactos.org)
   6  *                  Colin Finck
   7  * UPDATE HISTORY:
   8  *      06-09-2007  Created
   9  */
  10
  11 #include "resource.h"
  12 #include "input.h"
  13
  14 static HWND hLangList;
  15 static HWND hLayoutList;
  16
  17 static VOID
  18 SelectLayoutByLang(VOID)
  19 {
  20     TCHAR Layout[MAX_PATH], Lang[MAX_PATH], LangID[CCH_LAYOUT_ID + 1];
  21     INT iIndex;
  22     LCID Lcid;
  23
  24     iIndex = SendMessage(hLangList, CB_GETCURSEL, 0, 0);
  25     Lcid = SendMessage(hLangList, CB_GETITEMDATA, iIndex, 0);
  26
  27     GetLocaleInfo(MAKELCID(Lcid, SORT_DEFAULT), LOCALE_ILANGUAGE, Lang, sizeof(Lang) / sizeof(TCHAR));
  28
  29     wsprintf(LangID, _T("0000%s"), Lang);
  30
  31     if (GetLayoutName(LangID, Layout))
  32     {
  33         SendMessage(hLayoutList, CB_SELECTSTRING,
  34                     (WPARAM) -1, (LPARAM)Layout);
  35     }
  36 }
  37
  38 INT
  39 GetLayoutCount(LPTSTR szLang)
  40 {
  41     HKEY hKey;
  42     TCHAR szLayoutID[3 + 1], szPreload[CCH_LAYOUT_ID + 1], szLOLang[MAX_PATH];
  43     DWORD dwIndex = 0, dwType, dwSize;
  44     UINT Count = 0, i, j;
  45
  46     if (RegOpenKeyEx(HKEY_CURRENT_USER, _T("Keyboard Layout\\Preload"),
  47         0, KEY_QUERY_VALUE, &hKey) == ERROR_SUCCESS)
  48     {
  49         dwSize = sizeof(szLayoutID);
  50
  51         while (RegEnumValue(hKey, dwIndex, szLayoutID, &dwSize, NULL, &dwType, NULL, NULL) == ERROR_SUCCESS)
  52         {
  53             dwSize = sizeof(szPreload);
  54             RegQueryValueEx(hKey, szLayoutID, NULL, NULL, (LPBYTE)szPreload, &dwSize);
  55
  56             for (i = 4, j = 0; i < _tcslen(szPreload)+1; i++, j++)
  57                 szLOLang[j] = szPreload[i];
  58
  59             if (_tcscmp(szLOLang, szLang) == 0) Count += 1;
  60
  61             dwSize = sizeof(szLayoutID);
  62             dwIndex++;
  63         }
  64
  65         RegCloseKey(hKey);
  66     }
  67
  68     return Count;
  69 }
  70
  71 static VOID
  72 AddNewLayout(HWND hwndDlg)
  73 {
  74     TCHAR NewLayout[CCH_ULONG_DEC + 1], Lang[MAX_PATH],
  75           LangID[CCH_LAYOUT_ID + 1], Layout[MAX_PATH],
  76           SubPath[CCH_LAYOUT_ID + 1], szMessage[MAX_PATH];
  77     INT iLayout, iLang;
  78     HKEY hKey, hSubKey;
  79     DWORD cValues;
  80     PTSTR pts;
  81     LCID lcid;
  82
  83     iLayout = SendMessage(hLayoutList, CB_GETCURSEL, 0, 0);
  84     if (iLayout == CB_ERR) return;
  85
  86     if (RegOpenKeyEx(HKEY_CURRENT_USER, _T("Keyboard Layout\\Preload"), 0, KEY_ALL_ACCESS, &hKey) == ERROR_SUCCESS)
  87     {
  88         if (RegQueryInfoKey(hKey, NULL, NULL, NULL, NULL, NULL, NULL, &cValues, NULL, NULL, NULL, NULL) == ERROR_SUCCESS)
  89         {
  90             _ultot(cValues + 1, NewLayout, 10);
  91
  92             iLang = SendMessage(hLangList, CB_GETCURSEL, 0, 0);
  93             lcid = SendMessage(hLangList, CB_GETITEMDATA, iLang, 0);
  94             pts = (PTSTR) SendMessage(hLayoutList, CB_GETITEMDATA, iLayout, 0);
  95
  96             GetLocaleInfo(MAKELCID(lcid, SORT_DEFAULT), LOCALE_ILANGUAGE, Lang, sizeof(Lang) / sizeof(TCHAR));
  97             wsprintf(LangID, _T("0000%s"), Lang);
  98
  99             if (IsLayoutExists(pts, LangID))
 100             {
 101                 LoadString(hApplet, IDS_LAYOUT_EXISTS2, szMessage, sizeof(szMessage) / sizeof(TCHAR));
 102                 MessageBox(hwndDlg, szMessage, NULL, MB_OK | MB_ICONINFORMATION);
 103
 104                 RegCloseKey(hKey);
 105                 return;
 106             }
 107
 108             if (_tcscmp(LangID, pts) != 0)
 109             {
 110                 if (!GetLayoutName(pts, Layout))
 111                 {
 112                     RegCloseKey(hKey);
 113                     return;
 114                 }
 115             }
 116             else
 117             {
 118                 if (!GetLayoutName(LangID, Layout))
 119                 {
 120                     RegCloseKey(hKey);
 121                     return;
 122                 }
 123             }
 124
 125             if (SendMessage(hLayoutList, CB_SELECTSTRING, (WPARAM) -1, (LPARAM)Layout) != CB_ERR)
 126             {
 127                 if (GetLayoutCount(Lang) >= 1)
 128                 {
 129                     wsprintf(SubPath, _T("d%03d%s"), GetLayoutCount(Lang), Lang);
 130                 }
 131                 else if ((_tcscmp(LangID, pts) != 0) && (GetLayoutCount(Lang) == 0))
 132                 {
 133                     wsprintf(SubPath, _T("d%03d%s"), 0, Lang);
 134                 }
 135                 else SubPath[0] = '\0';
 136             }
 137             else
 138             {
 139                 RegCloseKey(hKey);
 140                 return;
 141             }
 142
 143             if (_tcslen(SubPath) != 0)
 144             {
 145                 if (RegCreateKeyEx(HKEY_CURRENT_USER, _T("Keyboard Layout\\Substitutes"), 0, NULL,
 146                                    REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS,
 147                                    NULL, &hSubKey, NULL) == ERROR_SUCCESS)
 148                 {
 149                     if (RegSetValueEx(hSubKey, SubPath, 0, REG_SZ, (LPBYTE)pts,
 150                                       (DWORD)((CCH_LAYOUT_ID + 1) * sizeof(TCHAR))) != ERROR_SUCCESS)
 151                     {
 152                         RegCloseKey(hSubKey);
 153                         RegCloseKey(hKey);
 154                         return;
 155                     }
 156                     RegCloseKey(hSubKey);
 157                 }
 158                 lstrcpy(pts, SubPath);
 159             }
 160
 161             if (RegSetValueEx(hKey,
 162                               NewLayout,
 163                               0,
 164                               REG_SZ,
 165                               (LPBYTE)pts,
 166                               (DWORD)((CCH_LAYOUT_ID + 1) * sizeof(TCHAR))) == ERROR_SUCCESS)
 167             {
 168                 UpdateLayoutsList();
 169             }
 170         }
 171         RegCloseKey(hKey);
 172     }
 173 }
 174
 175 VOID
 176 CreateKeyboardLayoutList(HWND hItemsList)
 177 {
 178     HKEY hKey;
 179     PTSTR pstrLayoutID;
 180     TCHAR szLayoutID[CCH_LAYOUT_ID + 1], KeyName[MAX_PATH];
 181     DWORD dwIndex = 0;
 182     DWORD dwSize;
 183
 184     if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, _T("System\\CurrentControlSet\\Control\\Keyboard Layouts"), 0, KEY_ENUMERATE_SUB_KEYS, &hKey) == ERROR_SUCCESS)
 185     {
 186         dwSize = sizeof(szLayoutID) / sizeof(TCHAR);
 187
 188         while (RegEnumKeyEx(hKey, dwIndex, szLayoutID, &dwSize, NULL, NULL, NULL, NULL) == ERROR_SUCCESS)
 189         {
 190             INT iIndex;
 191
 192             GetLayoutName(szLayoutID, KeyName);
 193
 194             iIndex = (INT) SendMessage(hItemsList, CB_ADDSTRING, 0, (LPARAM)KeyName);
 195
 196             pstrLayoutID = (PTSTR)HeapAlloc(hProcessHeap, 0, sizeof(szLayoutID));
 197             lstrcpy(pstrLayoutID, szLayoutID);
 198             SendMessage(hItemsList, CB_SETITEMDATA, iIndex, (LPARAM)pstrLayoutID);
 199
 200             // FIXME!
 201             if (_tcscmp(szLayoutID, _T("00000409")) == 0)
 202             {
 203                 SendMessage(hItemsList, CB_SETCURSEL, (WPARAM)iIndex, (LPARAM)0);
 204             }
 205
 206             dwIndex++;
 207
 208             dwSize = sizeof(szLayoutID) / sizeof(TCHAR);
 209         }
 210
 211         RegCloseKey(hKey);
 212     }
 213 }
 214
 215 /* Language enumerate procedure */
 216 static BOOL CALLBACK
 217 LanguagesEnumProc(LPTSTR lpLanguage)
 218 {
 219     LCID Lcid;
 220     TCHAR Lang[1024];
 221     INT Index;
 222
 223     Lcid = _tcstoul(lpLanguage, NULL, 16);
 224
 225     GetLocaleInfo(Lcid, LOCALE_SLANGUAGE, Lang, sizeof(Lang));
 226     Index = (INT)SendMessage(hLangList, CB_ADDSTRING,
 227                              0, (LPARAM)Lang);
 228
 229     SendMessage(hLangList, CB_SETITEMDATA,
 230                 Index, (LPARAM)Lcid);
 231
 232     // FIXME!
 233     if (Lcid == 0x0409)
 234     {
 235         SendMessage(hLangList, CB_SELECTSTRING,
 236                     (WPARAM) -1, (LPARAM)Lang);
 237     }
 238
 239     return TRUE;
 240 }
 241
 242 INT_PTR CALLBACK
 243 AddDlgProc(HWND hDlg,
 244            UINT message,
 245            WPARAM wParam,
 246            LPARAM lParam)
 247 {
 248     UNREFERENCED_PARAMETER(lParam);
 249
 250     switch (message)
 251     {
 252         case WM_INITDIALOG:
 253         {
 254             hLangList = GetDlgItem(hDlg, IDC_INPUT_LANG_COMBO);
 255             hLayoutList = GetDlgItem(hDlg, IDC_KEYBOARD_LO_COMBO);
 256             EnumSystemLocales(LanguagesEnumProc, LCID_INSTALLED);
 257             CreateKeyboardLayoutList(hLayoutList);
 258         }
 259         break;
 260
 261         case WM_COMMAND:
 262         {
 263             switch (LOWORD(wParam))
 264             {
 265                 case IDC_INPUT_LANG_COMBO:
 266                 {
 267                     if (HIWORD(wParam) == CBN_SELCHANGE)
 268                     {
 269                         SelectLayoutByLang();
 270                     }
 271                 }
 272                 break;
 273
 274                 case IDOK:
 275                 {
 276                     AddNewLayout(hDlg);
 277                     EndDialog(hDlg, LOWORD(wParam));
 278                 }
 279                 break;
 280
 281                 case IDCANCEL:
 282                 {
 283                     EndDialog(hDlg, LOWORD(wParam));
 284                 }
 285             }
 286         }
 287         break;
 288
 289         case WM_DESTROY:
 290         {
 291             INT iCount;
 292
 293             for(iCount = SendMessage(hLayoutList, CB_GETCOUNT, 0, 0); --iCount >= 0;)
 294                 HeapFree(hProcessHeap, 0, (LPVOID)SendMessage(hLayoutList, CB_GETITEMDATA, iCount, 0));
 295         }
 296         break;
 297     }
 298
 299     return FALSE;
 300 }
 301
 302 /* EOF */