xref: /reactos/dll/cpl/timedate/dateandtime.c (revision c7bba39a) 
1 /*
2  * PROJECT:     ReactOS Timedate Control Panel
3  * LICENSE:     GPL - See COPYING in the top level directory
4  * FILE:        dll/cpl/timedate/dateandtime.c
5  * PURPOSE:     Date & Time property page
6  * COPYRIGHT:   Copyright 2004-2007 Eric Kohl
7  *              Copyright 2006 Ged Murphy <gedmurphy@gmail.com>
8  *              Copyright 2006 Thomas Weidenmueller <w3seek@reactos.com>
9  *
10  */
11 
12 #include "timedate.h"
13 
14 static WNDPROC pOldWndProc = NULL;
15 
16 BOOL
17 SystemSetTime(LPSYSTEMTIME lpSystemTime,
18               BOOL SystemTime)
19 {
20     HANDLE hToken;
21     DWORD PrevSize;
22     TOKEN_PRIVILEGES priv, previouspriv;
23     BOOL Ret = FALSE;
24 
25     /*
26      * Enable the SeSystemtimePrivilege privilege
27      */
28 
29     if (OpenProcessToken(GetCurrentProcess(),
30                          TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,
31                          &hToken))
32     {
33         priv.PrivilegeCount = 1;
34         priv.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
35 
36         if (LookupPrivilegeValueW(NULL,
37                                   SE_SYSTEMTIME_NAME,
38                                   &priv.Privileges[0].Luid))
39         {
40             if (AdjustTokenPrivileges(hToken,
41                                       FALSE,
42                                       &priv,
43                                       sizeof(previouspriv),
44                                       &previouspriv,
45                                       &PrevSize) &&
46                 GetLastError() == ERROR_SUCCESS)
47             {
48                 /*
49                  * We successfully enabled it, we're permitted to change the time.
50                  * Check the second parameter for SystemTime and if TRUE set System Time.
51                  * Otherwise, if FALSE set the Local Time.
52                  * Call SetLocalTime twice to ensure correct results.
53                  */
54                 if (SystemTime)
55                 {
56                     Ret = SetSystemTime(lpSystemTime);
57                 }
58                 else
59                 {
60                     Ret = SetLocalTime(lpSystemTime) &&
61                           SetLocalTime(lpSystemTime);
62                 }
63 
64                 /*
65                  * For the sake of security, restore the previous status again
66                  */
67                 if (previouspriv.PrivilegeCount > 0)
68                 {
69                     AdjustTokenPrivileges(hToken,
70                                           FALSE,
71                                           &previouspriv,
72                                           0,
73                                           NULL,
74                                           0);
75                 }
76             }
77         }
78         CloseHandle(hToken);
79     }
80 
81     return Ret;
82 }
83 
84 
85 static VOID
86 SetLocalSystemTime(HWND hwnd)
87 {
88     SYSTEMTIME Time;
89 
90     if (DateTime_GetSystemtime(GetDlgItem(hwnd,
91                                           IDC_TIMEPICKER),
92                                &Time) == GDT_VALID &&
93         SendMessageW(GetDlgItem(hwnd,
94                                 IDC_MONTHCALENDAR),
95                      MCCM_GETDATE,
96                      (WPARAM)&Time,
97                      0))
98     {
99         /* Set Local Time with SystemTime = FALSE */
100         SystemSetTime(&Time, FALSE);
101 
102         SetWindowLongPtrW(hwnd,
103                           DWLP_MSGRESULT,
104                           PSNRET_NOERROR);
105 
106         SendMessageW(GetDlgItem(hwnd,
107                                 IDC_MONTHCALENDAR),
108                      MCCM_RESET,
109                      (WPARAM)&Time,
110                      0);
111 
112         /* Broadcast the time change message */
113         SendMessageW(HWND_BROADCAST,
114                      WM_TIMECHANGE,
115                      0,
116                      0);
117     }
118 }
119 
120 
121 static VOID
122 SetTimeZoneName(HWND hwnd)
123 {
124     TIME_ZONE_INFORMATION TimeZoneInfo;
125     WCHAR TimeZoneString[128];
126     WCHAR TimeZoneText[128];
127     WCHAR TimeZoneName[128];
128     DWORD TimeZoneId;
129 
130     TimeZoneId = GetTimeZoneInformation(&TimeZoneInfo);
131 
132     LoadStringW(hApplet, IDS_TIMEZONETEXT, TimeZoneText, 128);
133 
134     switch (TimeZoneId)
135     {
136         case TIME_ZONE_ID_STANDARD:
137         case TIME_ZONE_ID_UNKNOWN:
138             wcscpy(TimeZoneName, TimeZoneInfo.StandardName);
139             break;
140 
141         case TIME_ZONE_ID_DAYLIGHT:
142             wcscpy(TimeZoneName, TimeZoneInfo.DaylightName);
143             break;
144 
145         case TIME_ZONE_ID_INVALID:
146         default:
147             LoadStringW(hApplet, IDS_TIMEZONEINVALID, TimeZoneName, 128);
148             break;
149     }
150 
151     wsprintfW(TimeZoneString, TimeZoneText, TimeZoneName);
152     SendDlgItemMessageW(hwnd, IDC_TIMEZONE, WM_SETTEXT, 0, (LPARAM)TimeZoneString);
153 }
154 
155 
156 static VOID
157 FillMonthsComboBox(HWND hCombo)
158 {
159     SYSTEMTIME LocalDate = {0};
160     WCHAR szBuf[64];
161     INT i;
162     UINT Month;
163 
164     GetLocalTime(&LocalDate);
165 
166     SendMessageW(hCombo,
167                  CB_RESETCONTENT,
168                  0,
169                  0);
170 
171     for (Month = 1;
172          Month <= 13;
173          Month++)
174     {
175         i = GetLocaleInfoW(LOCALE_USER_DEFAULT,
176                            ((Month < 13) ? LOCALE_SMONTHNAME1 + Month - 1 : LOCALE_SMONTHNAME13),
177                            szBuf,
178                            sizeof(szBuf) / sizeof(szBuf[0]));
179         if (i > 1)
180         {
181             i = (INT)SendMessageW(hCombo,
182                                   CB_ADDSTRING,
183                                   0,
184                                   (LPARAM)szBuf);
185             if (i != CB_ERR)
186             {
187                 SendMessageW(hCombo,
188                              CB_SETITEMDATA,
189                              (WPARAM)i,
190                              Month);
191 
192                 if (Month == (UINT)LocalDate.wMonth)
193                 {
194                     SendMessageW(hCombo,
195                                  CB_SETCURSEL,
196                                  (WPARAM)i,
197                                  0);
198                 }
199             }
200         }
201     }
202 }
203 
204 
205 static WORD
206 GetCBSelectedMonth(HWND hCombo)
207 {
208     INT i;
209     WORD Ret = (WORD)-1;
210 
211     i = (INT)SendMessageW(hCombo,
212                           CB_GETCURSEL,
213                           0,
214                           0);
215     if (i != CB_ERR)
216     {
217         i = (INT)SendMessageW(hCombo,
218                               CB_GETITEMDATA,
219                               (WPARAM)i,
220                               0);
221 
222         if (i >= 1 && i <= 13)
223             Ret = (WORD)i;
224     }
225 
226     return Ret;
227 }
228 
229 
230 static VOID
231 ChangeMonthCalDate(HWND hMonthCal,
232                    WORD Day,
233                    WORD Month,
234                    WORD Year)
235 {
236     SendMessageW(hMonthCal,
237                  MCCM_SETDATE,
238                  MAKEWPARAM(Day,
239                             Month),
240                  MAKELPARAM(Year,
241                             0));
242 }
243 
244 static VOID
245 AutoUpdateMonthCal(HWND hwndDlg,
246                    PNMMCCAUTOUPDATE lpAutoUpdate)
247 {
248     UNREFERENCED_PARAMETER(lpAutoUpdate);
249 
250     /* Update the controls */
251     FillMonthsComboBox(GetDlgItem(hwndDlg,
252                                   IDC_MONTHCB));
253 }
254 
255 
256 static INT_PTR CALLBACK
257 DTPProc(HWND hwnd,
258         UINT uMsg,
259         WPARAM wParam,
260         LPARAM lParam)
261 {
262     switch (uMsg)
263     {
264         case WM_KEYDOWN:
265             /* Stop the timer when the user is about to change the time */
266             if ((wParam != VK_LEFT) & (wParam != VK_RIGHT))
267                 KillTimer(GetParent(hwnd), ID_TIMER);
268             break;
269     }
270 
271     return CallWindowProcW(pOldWndProc, hwnd, uMsg, wParam, lParam);
272 }
273 
274 /* Property page dialog callback */
275 INT_PTR CALLBACK
276 DateTimePageProc(HWND hwndDlg,
277          UINT uMsg,
278          WPARAM wParam,
279          LPARAM lParam)
280 {
281     SYSTEMTIME st;
282     GetLocalTime(&st);
283 
284     switch (uMsg)
285     {
286         case WM_INITDIALOG:
287             FillMonthsComboBox(GetDlgItem(hwndDlg,
288                                           IDC_MONTHCB));
289 
290             SetTimer(hwndDlg, ID_TIMER, 1000, NULL);
291 
292             /* Set range and current year */
293             SendMessageW(GetDlgItem(hwndDlg, IDC_YEAR), UDM_SETRANGE, 0, MAKELONG ((short) 9999, (short) 1900));
294             SendMessageW(GetDlgItem(hwndDlg, IDC_YEAR), UDM_SETPOS, 0, MAKELONG( (short) st.wYear, 0));
295 
296             pOldWndProc = (WNDPROC)SetWindowLongPtrW(GetDlgItem(hwndDlg, IDC_TIMEPICKER), GWLP_WNDPROC, (LONG_PTR)DTPProc);
297             break;
298 
299         case WM_TIMER:
300             SendMessageW(GetDlgItem(hwndDlg, IDC_TIMEPICKER), DTM_SETSYSTEMTIME, GDT_VALID, (LPARAM) &st);
301             break;
302 
303         case WM_COMMAND:
304             switch (LOWORD(wParam))
305             {
306                 case IDC_MONTHCB:
307                     if (HIWORD(wParam) == CBN_SELCHANGE)
308                     {
309                         ChangeMonthCalDate(GetDlgItem(hwndDlg,
310                                                       IDC_MONTHCALENDAR),
311                                                       (WORD) -1,
312                                                       GetCBSelectedMonth((HWND)lParam),
313                                                       (WORD) -1);
314                     }
315                     break;
316             }
317             break;
318 
319         case WM_CTLCOLORSTATIC:
320             if ((HWND)lParam == GetDlgItem(hwndDlg, IDC_YEARTEXT))
321                 return (INT_PTR)GetSysColorBrush(COLOR_WINDOW);
322             break;
323 
324         case WM_NOTIFY:
325         {
326             LPNMHDR lpnm = (LPNMHDR)lParam;
327 
328             switch (lpnm->idFrom)
329             {
330                 case IDC_YEAR:
331                     switch (lpnm->code)
332                     {
333                         case UDN_DELTAPOS:
334                         {
335                             SHORT wYear;
336                             LPNMUPDOWN updown = (LPNMUPDOWN)lpnm;
337                             wYear = (SHORT)SendMessageW(GetDlgItem(hwndDlg, IDC_YEAR), UDM_GETPOS, 0, 0);
338                             /* Enable the 'Apply' button */
339                             PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
340                             ChangeMonthCalDate(GetDlgItem(hwndDlg,
341                                                IDC_MONTHCALENDAR),
342                                                (WORD) -1,
343                                                (WORD) -1,
344                                                (WORD) (wYear + updown->iDelta));
345                         }
346                         break;
347                     }
348                     break;
349 
350                 case IDC_TIMEPICKER:
351                     switch (lpnm->code)
352                     {
353                         case DTN_DATETIMECHANGE:
354                             /* Stop the timer */
355                             KillTimer(hwndDlg, ID_TIMER);
356 
357                             /* Tell the clock to stop ticking */
358                             SendDlgItemMessageW(hwndDlg, IDC_CLOCKWND, CLM_STOPCLOCK,
359                                                 0, 0);
360 
361                             /* Enable the 'Apply' button */
362                             PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
363                             break;
364                     }
365                     break;
366 
367                 case IDC_MONTHCALENDAR:
368                     switch (lpnm->code)
369                     {
370                         case MCCN_SELCHANGE:
371                             /* Enable the 'Apply' button */
372                             PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
373                             break;
374 
375                         case MCCN_AUTOUPDATE:
376                             AutoUpdateMonthCal(hwndDlg,
377                                                  (PNMMCCAUTOUPDATE)lpnm);
378                             break;
379                     }
380                     break;
381 
382                 default:
383                     switch (lpnm->code)
384                     {
385                         case PSN_SETACTIVE:
386                             SetTimeZoneName(hwndDlg);
387                             break;
388 
389                         case PSN_APPLY:
390                             SetLocalSystemTime(hwndDlg);
391                             SetTimer(hwndDlg, ID_TIMER, 1000, NULL);
392 
393                             /* Tell the clock to start ticking */
394                             SendDlgItemMessageW(hwndDlg, IDC_CLOCKWND, CLM_STARTCLOCK,
395                                                 0, 0);
396                             return TRUE;
397                     }
398                     break;
399             }
400         }
401         break;
402 
403         case WM_TIMECHANGE:
404             /* FIXME: We don't get this message as we're not a top-level window... */
405             SendMessageW(GetDlgItem(hwndDlg,
406                                     IDC_MONTHCALENDAR),
407                          MCCM_RESET,
408                          0,
409                          0);
410             break;
411 
412         case WM_DESTROY:
413             KillTimer(hwndDlg, ID_TIMER);
414             break;
415     }
416 
417     return FALSE;
418 }
419