dll/cpl/intl/currency.c

   1 /*
   2  *  ReactOS
   3  *  Copyright (C) 2004 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 /*
  20  * PROJECT:         ReactOS International Control Panel
  21  * FILE:            dll/cpl/intl/currency.c
  22  * PURPOSE:         Currency property page
  23  * PROGRAMMERS:     Eric Kohl
  24  *                  Katayama Hirofumi MZ (katayama.hirofumi.mz@gmail.com)
  25  */
  26
  27 #include "intl.h"
  28
  29 #define POSITIVE_EXAMPLE   L"123456789.00"
  30 #define NEGATIVE_EXAMPLE   L"-123456789.00"
  31
  32
  33 static VOID
  34 UpdateExamples(HWND hwndDlg, PGLOBALDATA pGlobalData)
  35 {
  36     WCHAR szBuffer[MAX_FMT_SIZE];
  37     CURRENCYFMTW CurrencyFormat;
  38
  39     CurrencyFormat.NumDigits = pGlobalData->nCurrDigits;
  40     CurrencyFormat.LeadingZero = pGlobalData->nNumLeadingZero;
  41     CurrencyFormat.Grouping = GroupingFormats[pGlobalData->nCurrGrouping].nInteger;
  42     CurrencyFormat.lpDecimalSep = pGlobalData->szCurrDecimalSep;
  43     CurrencyFormat.lpThousandSep = pGlobalData->szCurrThousandSep;
  44     CurrencyFormat.NegativeOrder = pGlobalData->nCurrNegFormat;
  45     CurrencyFormat.PositiveOrder = pGlobalData->nCurrPosFormat;
  46     CurrencyFormat.lpCurrencySymbol = pGlobalData->szCurrSymbol;
  47
  48     /* Positive example */
  49     GetCurrencyFormatW(pGlobalData->UserLCID, 0,
  50                        POSITIVE_EXAMPLE,
  51                        &CurrencyFormat, szBuffer, MAX_FMT_SIZE);
  52
  53     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYPOSSAMPLE, WM_SETTEXT, 0, (LPARAM)szBuffer);
  54
  55     /* Negative example */
  56     GetCurrencyFormatW(pGlobalData->UserLCID, 0,
  57                        NEGATIVE_EXAMPLE,
  58                        &CurrencyFormat, szBuffer, MAX_FMT_SIZE);
  59
  60     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYNEGSAMPLE, WM_SETTEXT, 0, (LPARAM)szBuffer);
  61 }
  62
  63
  64 static VOID
  65 InitCurrencySymbols(HWND hwndDlg, PGLOBALDATA pGlobalData)
  66 {
  67     /* Limit text length */
  68     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYSYMBOL,
  69                         CB_LIMITTEXT,
  70                         MAX_CURRSYMBOL - 1,
  71                         0);
  72
  73     /* Set currency symbols */
  74     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYSYMBOL,
  75                         CB_ADDSTRING,
  76                         0,
  77                         (LPARAM)pGlobalData->szCurrSymbol);
  78
  79     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYSYMBOL,
  80                         CB_SETCURSEL,
  81                         0, /* Index */
  82                         0);
  83 }
  84
  85
  86 static VOID
  87 InitCurrencyPositiveFormats(HWND hwndDlg, PGLOBALDATA pGlobalData)
  88 {
  89     WCHAR szBuffer[MAX_FMT_SIZE];
  90     CURRENCYFMTW cyFmt;
  91     INT i;
  92
  93     /* positive currency values */
  94     cyFmt.NumDigits = pGlobalData->nCurrDigits;
  95     cyFmt.LeadingZero = 0;
  96     cyFmt.Grouping = 3;
  97     cyFmt.lpDecimalSep = pGlobalData->szCurrDecimalSep;
  98     cyFmt.lpThousandSep = pGlobalData->szCurrThousandSep;
  99     cyFmt.lpCurrencySymbol = pGlobalData->szCurrSymbol;
 100     cyFmt.NegativeOrder = 0;
 101
 102     for (i = 0; i < 4; i++)
 103     {
 104         cyFmt.PositiveOrder = i;
 105         GetCurrencyFormatW(pGlobalData->UserLCID, 0,
 106                            L"1.1",
 107                            &cyFmt, szBuffer, MAX_FMT_SIZE);
 108
 109         SendDlgItemMessageW(hwndDlg, IDC_CURRENCYPOSVALUE,
 110                             CB_INSERTSTRING,
 111                             -1,
 112                             (LPARAM)szBuffer);
 113     }
 114
 115     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYPOSVALUE,
 116                         CB_SETCURSEL,
 117                         pGlobalData->nCurrPosFormat,
 118                         0);
 119 }
 120
 121
 122 static VOID
 123 InitCurrencyNegativeFormats(HWND hwndDlg, PGLOBALDATA pGlobalData)
 124 {
 125     WCHAR szBuffer[MAX_FMT_SIZE];
 126     CURRENCYFMTW cyFmt;
 127     int i;
 128
 129     /* negative currency values */
 130     cyFmt.NumDigits = pGlobalData->nCurrDigits;
 131     cyFmt.LeadingZero = 0;
 132     cyFmt.Grouping = 3;
 133     cyFmt.lpDecimalSep = pGlobalData->szCurrDecimalSep;
 134     cyFmt.lpThousandSep = pGlobalData->szCurrThousandSep;
 135     cyFmt.lpCurrencySymbol = pGlobalData->szCurrSymbol;
 136     cyFmt.PositiveOrder = 0;
 137
 138     for (i = 0; i < 16; i++)
 139     {
 140         cyFmt.NegativeOrder = i;
 141         GetCurrencyFormatW(pGlobalData->UserLCID, 0,
 142                            L"-1.1",
 143                            &cyFmt, szBuffer, MAX_FMT_SIZE);
 144
 145         SendDlgItemMessageW(hwndDlg, IDC_CURRENCYNEGVALUE,
 146                             CB_INSERTSTRING,
 147                             -1,
 148                             (LPARAM)szBuffer);
 149     }
 150
 151     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYNEGVALUE,
 152                         CB_SETCURSEL,
 153                         pGlobalData->nCurrNegFormat,
 154                         0);
 155 }
 156
 157
 158 static VOID
 159 InitCurrencyDecimalSeparators(HWND hwndDlg, PGLOBALDATA pGlobalData)
 160 {
 161     /* Limit text length */
 162     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYDECSEP,
 163                         CB_LIMITTEXT,
 164                         MAX_CURRDECIMALSEP - 1,
 165                         0);
 166
 167     /* Decimal separator */
 168     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYDECSEP,
 169                         CB_ADDSTRING,
 170                         0,
 171                         (LPARAM)pGlobalData->szCurrDecimalSep);
 172
 173     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYDECSEP,
 174                         CB_SETCURSEL,
 175                         0, /* Index */
 176                         0);
 177 }
 178
 179
 180 /* Initialize the number of fractional digits */
 181 static VOID
 182 InitCurrencyNumFracDigits(HWND hwndDlg, PGLOBALDATA pGlobalData)
 183 {
 184     WCHAR szBuffer[MAX_FMT_SIZE];
 185     int i;
 186
 187     /* Create standard list of fractional symbols */
 188     for (i = 0; i < 10; i++)
 189     {
 190         szBuffer[0] = L'0' + i;
 191         szBuffer[1] = 0;
 192         SendDlgItemMessageW(hwndDlg, IDC_CURRENCYDECNUM,
 193                             CB_ADDSTRING,
 194                             0,
 195                             (LPARAM)szBuffer);
 196     }
 197
 198     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYDECNUM,
 199                         CB_SETCURSEL,
 200                         pGlobalData->nCurrDigits,
 201                         0);
 202 }
 203
 204
 205 /* Initialize the list of group separators */
 206 static VOID
 207 InitCurrencyGroupSeparators(HWND hwndDlg, PGLOBALDATA pGlobalData)
 208 {
 209     /* Limit text length */
 210     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYGRPSEP,
 211                         CB_LIMITTEXT,
 212                         MAX_CURRTHOUSANDSEP - 1,
 213                         0);
 214
 215     /* Digit group separator */
 216     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYGRPSEP,
 217                         CB_ADDSTRING,
 218                         0,
 219                         (LPARAM)pGlobalData->szCurrThousandSep);
 220
 221     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYGRPSEP,
 222                         CB_SETCURSEL,
 223                         0, /* Index */
 224                         0);
 225 }
 226
 227
 228 static VOID
 229 InitDigitGroupCB(HWND hwndDlg, PGLOBALDATA pGlobalData)
 230 {
 231     WCHAR szBuffer[MAX_FMT_SIZE];
 232     CURRENCYFMTW cyFmt;
 233     INT i;
 234
 235     /* Digit grouping */
 236     cyFmt.NumDigits = 0;
 237     cyFmt.LeadingZero = 0;
 238     cyFmt.lpDecimalSep = L"";
 239     cyFmt.lpThousandSep = pGlobalData->szCurrThousandSep;
 240     cyFmt.PositiveOrder = 0;
 241     cyFmt.NegativeOrder = 0;
 242     cyFmt.lpCurrencySymbol = L"";
 243
 244     for (i = 0 ; i < MAX_GROUPINGFORMATS ; i++)
 245     {
 246        cyFmt.Grouping = GroupingFormats[i].nInteger;
 247
 248        GetCurrencyFormatW(pGlobalData->UserLCID, 0,
 249                           L"123456789",
 250                           &cyFmt, szBuffer, MAX_FMT_SIZE);
 251        SendDlgItemMessageW(hwndDlg, IDC_CURRENCYGRPNUM,
 252                            CB_INSERTSTRING,
 253                            -1,
 254                            (LPARAM)szBuffer);
 255     }
 256
 257     SendDlgItemMessageW(hwndDlg, IDC_CURRENCYGRPNUM,
 258                         CB_SETCURSEL,
 259                         pGlobalData->nCurrGrouping,
 260                         0);
 261 }
 262
 263
 264 static
 265 BOOL
 266 GetCurrencySetting(
 267      HWND hwndDlg,
 268      PGLOBALDATA pGlobalData)
 269 {
 270     WCHAR szCurrSymbol[MAX_CURRSYMBOL];
 271     WCHAR szCurrDecimalSep[MAX_CURRDECIMALSEP];
 272     WCHAR szCurrThousandSep[MAX_CURRTHOUSANDSEP];
 273     INT nCurrPosFormat;
 274     INT nCurrNegFormat;
 275     INT nCurrDigits;
 276     INT nCurrGrouping;
 277
 278     /* Currency symbol */
 279     GetSelectedComboBoxText(hwndDlg,
 280                             IDC_CURRENCYSYMBOL,
 281                             szCurrSymbol,
 282                             MAX_CURRSYMBOL);
 283
 284     if (szCurrSymbol[0] == L'\0')
 285     {
 286         /* TODO: Show error message */
 287
 288         return FALSE;
 289     }
 290
 291     /* Positive Amount */
 292     GetSelectedComboBoxIndex(hwndDlg,
 293                              IDC_CURRENCYPOSVALUE,
 294                              &nCurrPosFormat);
 295
 296     /* Negative Amount */
 297     GetSelectedComboBoxIndex(hwndDlg,
 298                              IDC_CURRENCYNEGVALUE,
 299                              &nCurrNegFormat);
 300
 301     /* Decimal separator */
 302     GetSelectedComboBoxText(hwndDlg,
 303                             IDC_CURRENCYDECSEP,
 304                             szCurrDecimalSep,
 305                             MAX_CURRDECIMALSEP);
 306
 307     if (szCurrDecimalSep[0] == L'\0')
 308     {
 309         /* TODO: Show error message */
 310
 311         return FALSE;
 312     }
 313
 314     /* Number of fractional digits */
 315     GetSelectedComboBoxIndex(hwndDlg,
 316                              IDC_CURRENCYDECNUM,
 317                              &nCurrDigits);
 318
 319     /* Grouping symbol */
 320     GetSelectedComboBoxText(hwndDlg,
 321                             IDC_CURRENCYGRPSEP,
 322                             szCurrThousandSep,
 323                             MAX_CURRTHOUSANDSEP);
 324
 325     if (szCurrThousandSep[0] == L'\0')
 326     {
 327         /* TODO: Show error message */
 328
 329         return FALSE;
 330     }
 331
 332     /* Digit grouping */
 333     GetSelectedComboBoxIndex(hwndDlg,
 334                              IDC_CURRENCYGRPNUM,
 335                              &nCurrGrouping);
 336
 337     /* Store settings in global data */
 338     wcscpy(pGlobalData->szCurrSymbol, szCurrSymbol);
 339     pGlobalData->nCurrGrouping = nCurrGrouping;
 340     wcscpy(pGlobalData->szCurrDecimalSep, szCurrDecimalSep);
 341     wcscpy(pGlobalData->szCurrThousandSep, szCurrThousandSep);
 342     pGlobalData->nCurrPosFormat = nCurrPosFormat;
 343     pGlobalData->nCurrNegFormat = nCurrNegFormat;
 344     pGlobalData->nCurrDigits = nCurrDigits;
 345
 346     return TRUE;
 347 }
 348
 349 /* Property page dialog callback */
 350 INT_PTR CALLBACK
 351 CurrencyPageProc(HWND hwndDlg,
 352                  UINT uMsg,
 353                  WPARAM wParam,
 354                  LPARAM lParam)
 355 {
 356     PGLOBALDATA pGlobalData;
 357
 358     pGlobalData = (PGLOBALDATA)GetWindowLongPtr(hwndDlg, DWLP_USER);
 359
 360     switch (uMsg)
 361     {
 362         case WM_INITDIALOG:
 363             pGlobalData = (PGLOBALDATA)((LPPROPSHEETPAGE)lParam)->lParam;
 364             SetWindowLongPtr(hwndDlg, DWLP_USER, (LONG_PTR)pGlobalData);
 365
 366             InitCurrencySymbols(hwndDlg, pGlobalData);
 367             InitCurrencyPositiveFormats(hwndDlg, pGlobalData);
 368             InitCurrencyNegativeFormats(hwndDlg, pGlobalData);
 369             InitCurrencyDecimalSeparators(hwndDlg, pGlobalData);
 370             InitCurrencyNumFracDigits(hwndDlg, pGlobalData);
 371             InitCurrencyGroupSeparators(hwndDlg, pGlobalData);
 372             InitDigitGroupCB(hwndDlg, pGlobalData);
 373             UpdateExamples(hwndDlg, pGlobalData);
 374             break;
 375
 376         case WM_COMMAND:
 377             switch (LOWORD(wParam))
 378             {
 379                 case IDC_CURRENCYSYMBOL:
 380                 case IDC_CURRENCYPOSVALUE:
 381                 case IDC_CURRENCYNEGVALUE:
 382                 case IDC_CURRENCYDECSEP:
 383                 case IDC_CURRENCYDECNUM:
 384                 case IDC_CURRENCYGRPSEP:
 385                 case IDC_CURRENCYGRPNUM:
 386                     if (HIWORD(wParam) == CBN_SELCHANGE ||
 387                         HIWORD(wParam) == CBN_EDITCHANGE)
 388                     {
 389                         /* Enable the Apply button */
 390                         PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
 391                     }
 392             }
 393             break;
 394
 395         case WM_NOTIFY:
 396             if (((LPNMHDR)lParam)->code == (UINT)PSN_APPLY)
 397             {
 398                 if (GetCurrencySetting(hwndDlg, pGlobalData))
 399                 {
 400                     pGlobalData->bUserLocaleChanged = TRUE;
 401                     UpdateExamples(hwndDlg, pGlobalData);
 402                 }
 403             }
 404             break;
 405     }
 406     return FALSE;
 407 }
 408
 409 /* EOF */