Part 1 of the comctl32 sync. I'll do it in 2 stages for testing purposes as it's...
[reactos.git] / reactos / dll / win32 / comctl32 / datetime.c
1 /*
2 * Date and time picker control
3 *
4 * Copyright 1998, 1999 Eric Kohl
5 * Copyright 1999, 2000 Alex Priem <alexp@sci.kun.nl>
6 * Copyright 2000 Chris Morgan <cmorgan@wpi.edu>
7 *
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12 *
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
17 *
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 *
22 * NOTE
23 *
24 * This code was audited for completeness against the documented features
25 * of Comctl32.dll version 6.0 on Oct. 20, 2004, by Dimitrie O. Paun.
26 *
27 * Unless otherwise noted, we believe this code to be complete, as per
28 * the specification mentioned above.
29 * If you discover missing features, or bugs, please note them below.
30 *
31 * TODO:
32 * -- DTS_APPCANPARSE
33 * -- DTS_SHORTDATECENTURYFORMAT
34 * -- DTN_FORMAT
35 * -- DTN_FORMATQUERY
36 * -- DTN_USERSTRING
37 * -- DTN_WMKEYDOWN
38 * -- FORMATCALLBACK
39 */
40
41 #include <math.h>
42 #include <string.h>
43 #include <stdarg.h>
44 #include <stdio.h>
45 #include <limits.h>
46
47 #include "windef.h"
48 #include "winbase.h"
49 #include "wingdi.h"
50 #include "winuser.h"
51 #include "winnls.h"
52 #include "commctrl.h"
53 #include "comctl32.h"
54 #include "wine/debug.h"
55 #include "wine/unicode.h"
56
57 WINE_DEFAULT_DEBUG_CHANNEL(datetime);
58
59 typedef struct
60 {
61 HWND hwndSelf;
62 HWND hMonthCal;
63 HWND hwndNotify;
64 HWND hUpdown;
65 DWORD dwStyle;
66 SYSTEMTIME date;
67 BOOL dateValid;
68 HWND hwndCheckbut;
69 RECT rcClient; /* rect around the edge of the window */
70 RECT rcDraw; /* rect inside of the border */
71 RECT checkbox; /* checkbox allowing the control to be enabled/disabled */
72 RECT calbutton; /* button that toggles the dropdown of the monthcal control */
73 BOOL bCalDepressed; /* TRUE = cal button is depressed */
74 int bDropdownEnabled;
75 int select;
76 HFONT hFont;
77 int nrFieldsAllocated;
78 int nrFields;
79 int haveFocus;
80 int *fieldspec;
81 RECT *fieldRect;
82 int *buflen;
83 WCHAR textbuf[256];
84 POINT monthcal_pos;
85 int pendingUpdown;
86 } DATETIME_INFO, *LPDATETIME_INFO;
87
88 /* in monthcal.c */
89 extern int MONTHCAL_MonthLength(int month, int year);
90 extern int MONTHCAL_CalculateDayOfWeek(SYSTEMTIME *date, BOOL inplace);
91
92 /* this list of defines is closely related to `allowedformatchars' defined
93 * in datetime.c; the high nibble indicates the `base type' of the format
94 * specifier.
95 * Do not change without first reading DATETIME_UseFormat.
96 *
97 */
98
99 #define DT_END_FORMAT 0
100 #define ONEDIGITDAY 0x01
101 #define TWODIGITDAY 0x02
102 #define THREECHARDAY 0x03
103 #define FULLDAY 0x04
104 #define ONEDIGIT12HOUR 0x11
105 #define TWODIGIT12HOUR 0x12
106 #define ONEDIGIT24HOUR 0x21
107 #define TWODIGIT24HOUR 0x22
108 #define ONEDIGITMINUTE 0x31
109 #define TWODIGITMINUTE 0x32
110 #define ONEDIGITMONTH 0x41
111 #define TWODIGITMONTH 0x42
112 #define THREECHARMONTH 0x43
113 #define FULLMONTH 0x44
114 #define ONEDIGITSECOND 0x51
115 #define TWODIGITSECOND 0x52
116 #define ONELETTERAMPM 0x61
117 #define TWOLETTERAMPM 0x62
118 #define ONEDIGITYEAR 0x71
119 #define TWODIGITYEAR 0x72
120 #define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */
121 #define FULLYEAR 0x74
122 #define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
123 #define FORMATCALLMASK 0x80
124 #define DT_STRING 0x0100
125
126 #define DTHT_DATEFIELD 0xff /* for hit-testing */
127
128 #define DTHT_NONE 0x1000
129 #define DTHT_CHECKBOX 0x2000 /* these should end at '00' , to make */
130 #define DTHT_MCPOPUP 0x3000 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
131 #define DTHT_GOTFOCUS 0x4000 /* tests for date-fields */
132 #define DTHT_NODATEMASK 0xf000 /* to mask check and drop down from others */
133
134 static BOOL DATETIME_SendSimpleNotify (const DATETIME_INFO *infoPtr, UINT code);
135 static BOOL DATETIME_SendDateTimeChangeNotify (const DATETIME_INFO *infoPtr);
136 extern void MONTHCAL_CopyTime(const SYSTEMTIME *from, SYSTEMTIME *to);
137 static const WCHAR allowedformatchars[] = {'d', 'h', 'H', 'm', 'M', 's', 't', 'y', 'X', 0};
138 static const int maxrepetition [] = {4,2,2,2,4,2,2,4,-1};
139
140
141 static DWORD
142 DATETIME_GetSystemTime (const DATETIME_INFO *infoPtr, SYSTEMTIME *systime)
143 {
144 if (!systime) return GDT_NONE;
145
146 if ((infoPtr->dwStyle & DTS_SHOWNONE) &&
147 (SendMessageW (infoPtr->hwndCheckbut, BM_GETCHECK, 0, 0) == BST_UNCHECKED))
148 return GDT_NONE;
149
150 *systime = infoPtr->date;
151
152 return GDT_VALID;
153 }
154
155
156 static BOOL
157 DATETIME_SetSystemTime (DATETIME_INFO *infoPtr, DWORD flag, const SYSTEMTIME *systime)
158 {
159 if (!systime) return 0;
160
161 TRACE("%04d/%02d/%02d %02d:%02d:%02d\n",
162 systime->wYear, systime->wMonth, systime->wDay,
163 systime->wHour, systime->wMinute, systime->wSecond);
164
165 if (flag == GDT_VALID) {
166 if (systime->wYear < 1601 || systime->wYear > 30827 ||
167 systime->wMonth < 1 || systime->wMonth > 12 ||
168 systime->wDay < 1 || systime->wDay > 31 ||
169 systime->wHour > 23 ||
170 systime->wMinute > 59 ||
171 systime->wSecond > 59 ||
172 systime->wMilliseconds > 999
173 )
174 return FALSE;
175
176 infoPtr->dateValid = TRUE;
177 infoPtr->date = *systime;
178 /* always store a valid day of week */
179 MONTHCAL_CalculateDayOfWeek(&infoPtr->date, TRUE);
180
181 SendMessageW (infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));
182 SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);
183 } else if ((infoPtr->dwStyle & DTS_SHOWNONE) && (flag == GDT_NONE)) {
184 infoPtr->dateValid = FALSE;
185 SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_UNCHECKED, 0);
186 }
187 else
188 return FALSE;
189
190 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
191 return TRUE;
192 }
193
194
195 /***
196 * Split up a formattxt in actions.
197 * See ms documentation for the meaning of the letter codes/'specifiers'.
198 *
199 * Notes:
200 * *'dddddd' is handled as 'dddd' plus 'dd'.
201 * *unrecognized formats are strings (here given the type DT_STRING;
202 * start of the string is encoded in lower bits of DT_STRING.
203 * Therefore, 'string' ends finally up as '<show seconds>tring'.
204 *
205 */
206 static void
207 DATETIME_UseFormat (DATETIME_INFO *infoPtr, LPCWSTR formattxt)
208 {
209 unsigned int i;
210 int j, k, len;
211 BOOL inside_literal = FALSE; /* inside '...' */
212 int *nrFields = &infoPtr->nrFields;
213
214 *nrFields = 0;
215 infoPtr->fieldspec[*nrFields] = 0;
216 len = strlenW(allowedformatchars);
217 k = 0;
218
219 for (i = 0; formattxt[i]; i++) {
220 TRACE ("\n%d %c:", i, formattxt[i]);
221 if (!inside_literal) {
222 for (j = 0; j < len; j++) {
223 if (allowedformatchars[j]==formattxt[i]) {
224 TRACE ("%c[%d,%x]", allowedformatchars[j], *nrFields, infoPtr->fieldspec[*nrFields]);
225 if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
226 infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
227 break;
228 }
229 if (infoPtr->fieldspec[*nrFields] >> 4 != j) {
230 (*nrFields)++;
231 infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
232 break;
233 }
234 if ((infoPtr->fieldspec[*nrFields] & 0x0f) == maxrepetition[j]) {
235 (*nrFields)++;
236 infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
237 break;
238 }
239 infoPtr->fieldspec[*nrFields]++;
240 break;
241 } /* if allowedformatchar */
242 } /* for j */
243 }
244 else
245 j = len;
246
247 if (formattxt[i] == '\'')
248 {
249 inside_literal = !inside_literal;
250 continue;
251 }
252
253 /* char is not a specifier: handle char like a string */
254 if (j == len) {
255 if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
256 infoPtr->fieldspec[*nrFields] = DT_STRING + k;
257 infoPtr->buflen[*nrFields] = 0;
258 } else if ((infoPtr->fieldspec[*nrFields] & DT_STRING) != DT_STRING) {
259 (*nrFields)++;
260 infoPtr->fieldspec[*nrFields] = DT_STRING + k;
261 infoPtr->buflen[*nrFields] = 0;
262 }
263 infoPtr->textbuf[k] = formattxt[i];
264 k++;
265 infoPtr->buflen[*nrFields]++;
266 } /* if j=len */
267
268 if (*nrFields == infoPtr->nrFieldsAllocated) {
269 FIXME ("out of memory; should reallocate. crash ahead.\n");
270 }
271 } /* for i */
272
273 TRACE("\n");
274
275 if (infoPtr->fieldspec[*nrFields] != 0) (*nrFields)++;
276 }
277
278
279 static BOOL
280 DATETIME_SetFormatW (DATETIME_INFO *infoPtr, LPCWSTR lpszFormat)
281 {
282 if (!lpszFormat) {
283 WCHAR format_buf[80];
284 DWORD format_item;
285
286 if (infoPtr->dwStyle & DTS_LONGDATEFORMAT)
287 format_item = LOCALE_SLONGDATE;
288 else if ((infoPtr->dwStyle & DTS_TIMEFORMAT) == DTS_TIMEFORMAT)
289 format_item = LOCALE_STIMEFORMAT;
290 else /* DTS_SHORTDATEFORMAT */
291 format_item = LOCALE_SSHORTDATE;
292 GetLocaleInfoW(LOCALE_USER_DEFAULT, format_item, format_buf, sizeof(format_buf)/sizeof(format_buf[0]));
293 lpszFormat = format_buf;
294 }
295
296 DATETIME_UseFormat (infoPtr, lpszFormat);
297 InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);
298
299 return 1;
300 }
301
302
303 static BOOL
304 DATETIME_SetFormatA (DATETIME_INFO *infoPtr, LPCSTR lpszFormat)
305 {
306 if (lpszFormat) {
307 BOOL retval;
308 INT len = MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, NULL, 0);
309 LPWSTR wstr = Alloc(len * sizeof(WCHAR));
310 if (wstr) MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, wstr, len);
311 retval = DATETIME_SetFormatW (infoPtr, wstr);
312 Free (wstr);
313 return retval;
314 }
315 else
316 return DATETIME_SetFormatW (infoPtr, 0);
317
318 }
319
320
321 static void
322 DATETIME_ReturnTxt (const DATETIME_INFO *infoPtr, int count, LPWSTR result, int resultSize)
323 {
324 static const WCHAR fmt_dW[] = { '%', 'd', 0 };
325 static const WCHAR fmt__2dW[] = { '%', '.', '2', 'd', 0 };
326 static const WCHAR fmt__3sW[] = { '%', '.', '3', 's', 0 };
327 SYSTEMTIME date = infoPtr->date;
328 int spec;
329 WCHAR buffer[80];
330
331 *result=0;
332 TRACE ("%d,%d\n", infoPtr->nrFields, count);
333 if (count>infoPtr->nrFields || count < 0) {
334 WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
335 return;
336 }
337
338 if (!infoPtr->fieldspec) return;
339
340 spec = infoPtr->fieldspec[count];
341 if (spec & DT_STRING) {
342 int txtlen = infoPtr->buflen[count];
343
344 if (txtlen > resultSize)
345 txtlen = resultSize - 1;
346 memcpy (result, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));
347 result[txtlen] = 0;
348 TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));
349 return;
350 }
351
352
353 switch (spec) {
354 case DT_END_FORMAT:
355 *result = 0;
356 break;
357 case ONEDIGITDAY:
358 wsprintfW (result, fmt_dW, date.wDay);
359 break;
360 case TWODIGITDAY:
361 wsprintfW (result, fmt__2dW, date.wDay);
362 break;
363 case THREECHARDAY:
364 GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SABBREVDAYNAME1+(date.wDayOfWeek+6)%7, result, 4);
365 /*wsprintfW (result,"%.3s",days[date.wDayOfWeek]);*/
366 break;
367 case FULLDAY:
368 GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SDAYNAME1+(date.wDayOfWeek+6)%7, result, resultSize);
369 break;
370 case ONEDIGIT12HOUR:
371 if (date.wHour == 0) {
372 result[0] = '1';
373 result[1] = '2';
374 result[2] = 0;
375 }
376 else
377 wsprintfW (result, fmt_dW, date.wHour - (date.wHour > 12 ? 12 : 0));
378 break;
379 case TWODIGIT12HOUR:
380 if (date.wHour == 0) {
381 result[0] = '1';
382 result[1] = '2';
383 result[2] = 0;
384 }
385 else
386 wsprintfW (result, fmt__2dW, date.wHour - (date.wHour > 12 ? 12 : 0));
387 break;
388 case ONEDIGIT24HOUR:
389 wsprintfW (result, fmt_dW, date.wHour);
390 break;
391 case TWODIGIT24HOUR:
392 wsprintfW (result, fmt__2dW, date.wHour);
393 break;
394 case ONEDIGITSECOND:
395 wsprintfW (result, fmt_dW, date.wSecond);
396 break;
397 case TWODIGITSECOND:
398 wsprintfW (result, fmt__2dW, date.wSecond);
399 break;
400 case ONEDIGITMINUTE:
401 wsprintfW (result, fmt_dW, date.wMinute);
402 break;
403 case TWODIGITMINUTE:
404 wsprintfW (result, fmt__2dW, date.wMinute);
405 break;
406 case ONEDIGITMONTH:
407 wsprintfW (result, fmt_dW, date.wMonth);
408 break;
409 case TWODIGITMONTH:
410 wsprintfW (result, fmt__2dW, date.wMonth);
411 break;
412 case THREECHARMONTH:
413 GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SMONTHNAME1+date.wMonth -1,
414 buffer, sizeof(buffer)/sizeof(buffer[0]));
415 wsprintfW (result, fmt__3sW, buffer);
416 break;
417 case FULLMONTH:
418 GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SMONTHNAME1+date.wMonth -1,
419 result, resultSize);
420 break;
421 case ONELETTERAMPM:
422 result[0] = (date.wHour < 12 ? 'A' : 'P');
423 result[1] = 0;
424 break;
425 case TWOLETTERAMPM:
426 result[0] = (date.wHour < 12 ? 'A' : 'P');
427 result[1] = 'M';
428 result[2] = 0;
429 break;
430 case FORMATCALLBACK:
431 FIXME ("Not implemented\n");
432 result[0] = 'x';
433 result[1] = 0;
434 break;
435 case ONEDIGITYEAR:
436 wsprintfW (result, fmt_dW, date.wYear-10* (int) floor(date.wYear/10));
437 break;
438 case TWODIGITYEAR:
439 wsprintfW (result, fmt__2dW, date.wYear-100* (int) floor(date.wYear/100));
440 break;
441 case INVALIDFULLYEAR:
442 case FULLYEAR:
443 wsprintfW (result, fmt_dW, date.wYear);
444 break;
445 }
446
447 TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));
448 }
449
450 static int wrap(int val, int delta, int minVal, int maxVal)
451 {
452 val += delta;
453 if (delta == INT_MIN || val < minVal) return maxVal;
454 if (delta == INT_MAX || val > maxVal) return minVal;
455 return val;
456 }
457
458 static void
459 DATETIME_IncreaseField (DATETIME_INFO *infoPtr, int number, int delta)
460 {
461 SYSTEMTIME *date = &infoPtr->date;
462
463 TRACE ("%d\n", number);
464 if ((number > infoPtr->nrFields) || (number < 0)) return;
465
466 if ((infoPtr->fieldspec[number] & DTHT_DATEFIELD) == 0) return;
467
468 switch (infoPtr->fieldspec[number]) {
469 case ONEDIGITYEAR:
470 case TWODIGITYEAR:
471 case FULLYEAR:
472 date->wYear = wrap(date->wYear, delta, 1752, 9999);
473 MONTHCAL_CalculateDayOfWeek(date, TRUE);
474 break;
475 case ONEDIGITMONTH:
476 case TWODIGITMONTH:
477 case THREECHARMONTH:
478 case FULLMONTH:
479 date->wMonth = wrap(date->wMonth, delta, 1, 12);
480 MONTHCAL_CalculateDayOfWeek(date, TRUE);
481 delta = 0;
482 /* fall through */
483 case ONEDIGITDAY:
484 case TWODIGITDAY:
485 case THREECHARDAY:
486 case FULLDAY:
487 date->wDay = wrap(date->wDay, delta, 1, MONTHCAL_MonthLength(date->wMonth, date->wYear));
488 MONTHCAL_CalculateDayOfWeek(date, TRUE);
489 break;
490 case ONELETTERAMPM:
491 case TWOLETTERAMPM:
492 delta *= 12;
493 /* fall through */
494 case ONEDIGIT12HOUR:
495 case TWODIGIT12HOUR:
496 case ONEDIGIT24HOUR:
497 case TWODIGIT24HOUR:
498 date->wHour = wrap(date->wHour, delta, 0, 23);
499 break;
500 case ONEDIGITMINUTE:
501 case TWODIGITMINUTE:
502 date->wMinute = wrap(date->wMinute, delta, 0, 59);
503 break;
504 case ONEDIGITSECOND:
505 case TWODIGITSECOND:
506 date->wSecond = wrap(date->wSecond, delta, 0, 59);
507 break;
508 case FORMATCALLBACK:
509 FIXME ("Not implemented\n");
510 break;
511 }
512
513 /* FYI: On 1752/9/14 the calendar changed and England and the
514 * American colonies changed to the Gregorian calendar. This change
515 * involved having September 14th follow September 2nd. So no date
516 * algorithm works before that date.
517 */
518 if (10000 * date->wYear + 100 * date->wMonth + date->wDay < 17520914) {
519 date->wYear = 1752;
520 date->wMonth = 9;
521 date->wDay = 14;
522 date->wSecond = 0;
523 date->wMinute = 0;
524 date->wHour = 0;
525 }
526 }
527
528
529 static void
530 DATETIME_ReturnFieldWidth (const DATETIME_INFO *infoPtr, HDC hdc, int count, SHORT *width)
531 {
532 /* fields are a fixed width, determined by the largest possible string */
533 /* presumably, these widths should be language dependent */
534 static const WCHAR fld_d1W[] = { '2', 0 };
535 static const WCHAR fld_d2W[] = { '2', '2', 0 };
536 static const WCHAR fld_d4W[] = { '2', '2', '2', '2', 0 };
537 static const WCHAR fld_am1[] = { 'A', 0 };
538 static const WCHAR fld_am2[] = { 'A', 'M', 0 };
539 int spec;
540 WCHAR buffer[80];
541 LPCWSTR bufptr;
542 SIZE size;
543
544 TRACE ("%d,%d\n", infoPtr->nrFields, count);
545 if (count>infoPtr->nrFields || count < 0) {
546 WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
547 return;
548 }
549
550 if (!infoPtr->fieldspec) return;
551
552 spec = infoPtr->fieldspec[count];
553 if (spec & DT_STRING) {
554 int txtlen = infoPtr->buflen[count];
555
556 if (txtlen > 79)
557 txtlen = 79;
558 memcpy (buffer, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));
559 buffer[txtlen] = 0;
560 bufptr = buffer;
561 }
562 else {
563 switch (spec) {
564 case ONEDIGITDAY:
565 case ONEDIGIT12HOUR:
566 case ONEDIGIT24HOUR:
567 case ONEDIGITSECOND:
568 case ONEDIGITMINUTE:
569 case ONEDIGITMONTH:
570 case ONEDIGITYEAR:
571 /* these seem to use a two byte field */
572 case TWODIGITDAY:
573 case TWODIGIT12HOUR:
574 case TWODIGIT24HOUR:
575 case TWODIGITSECOND:
576 case TWODIGITMINUTE:
577 case TWODIGITMONTH:
578 case TWODIGITYEAR:
579 bufptr = fld_d2W;
580 break;
581 case INVALIDFULLYEAR:
582 case FULLYEAR:
583 bufptr = fld_d4W;
584 break;
585 case THREECHARMONTH:
586 case FULLMONTH:
587 case THREECHARDAY:
588 case FULLDAY:
589 {
590 static const WCHAR fld_day[] = {'W','e','d','n','e','s','d','a','y',0};
591 static const WCHAR fld_abbrday[] = {'W','e','d',0};
592 static const WCHAR fld_mon[] = {'S','e','p','t','e','m','b','e','r',0};
593 static const WCHAR fld_abbrmon[] = {'D','e','c',0};
594
595 const WCHAR *fall;
596 LCTYPE lctype;
597 INT i, max_count;
598 LONG cx;
599
600 /* choose locale data type and fallback string */
601 switch (spec) {
602 case THREECHARDAY:
603 fall = fld_abbrday;
604 lctype = LOCALE_SABBREVDAYNAME1;
605 max_count = 7;
606 break;
607 case FULLDAY:
608 fall = fld_day;
609 lctype = LOCALE_SDAYNAME1;
610 max_count = 7;
611 break;
612 case THREECHARMONTH:
613 fall = fld_abbrmon;
614 lctype = LOCALE_SABBREVMONTHNAME1;
615 max_count = 12;
616 break;
617 default: /* FULLMONTH */
618 fall = fld_mon;
619 lctype = LOCALE_SMONTHNAME1;
620 max_count = 12;
621 break;
622 }
623
624 cx = 0;
625 for (i = 0; i < max_count; i++)
626 {
627 if(GetLocaleInfoW(LOCALE_USER_DEFAULT, lctype + i,
628 buffer, lstrlenW(buffer)))
629 {
630 GetTextExtentPoint32W(hdc, buffer, lstrlenW(buffer), &size);
631 if (size.cx > cx) cx = size.cx;
632 }
633 else /* locale independent fallback on failure */
634 {
635 GetTextExtentPoint32W(hdc, fall, lstrlenW(fall), &size);
636 cx = size.cx;
637 break;
638 }
639 }
640 *width = cx;
641 return;
642 }
643 case ONELETTERAMPM:
644 bufptr = fld_am1;
645 break;
646 case TWOLETTERAMPM:
647 bufptr = fld_am2;
648 break;
649 default:
650 bufptr = fld_d1W;
651 break;
652 }
653 }
654 GetTextExtentPoint32W (hdc, bufptr, strlenW(bufptr), &size);
655 *width = size.cx;
656 }
657
658 static void
659 DATETIME_Refresh (DATETIME_INFO *infoPtr, HDC hdc)
660 {
661 TRACE("\n");
662
663 if (infoPtr->dateValid) {
664 int i, prevright;
665 RECT *field;
666 RECT *rcDraw = &infoPtr->rcDraw;
667 SIZE size;
668 COLORREF oldTextColor;
669 SHORT fieldWidth = 0;
670 HFONT oldFont = SelectObject (hdc, infoPtr->hFont);
671 INT oldBkMode = SetBkMode (hdc, TRANSPARENT);
672 WCHAR txt[80];
673
674 DATETIME_ReturnTxt (infoPtr, 0, txt, sizeof(txt)/sizeof(txt[0]));
675 GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);
676 rcDraw->bottom = size.cy + 2;
677
678 prevright = infoPtr->checkbox.right = ((infoPtr->dwStyle & DTS_SHOWNONE) ? 18 : 2);
679
680 for (i = 0; i < infoPtr->nrFields; i++) {
681 DATETIME_ReturnTxt (infoPtr, i, txt, sizeof(txt)/sizeof(txt[0]));
682 GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);
683 DATETIME_ReturnFieldWidth (infoPtr, hdc, i, &fieldWidth);
684 field = &infoPtr->fieldRect[i];
685 field->left = prevright;
686 field->right = prevright + fieldWidth;
687 field->top = rcDraw->top;
688 field->bottom = rcDraw->bottom;
689 prevright = field->right;
690
691 if (infoPtr->dwStyle & WS_DISABLED)
692 oldTextColor = SetTextColor (hdc, comctl32_color.clrGrayText);
693 else if ((infoPtr->haveFocus) && (i == infoPtr->select)) {
694 RECT selection;
695
696 /* fill if focused */
697 HBRUSH hbr = CreateSolidBrush (comctl32_color.clrActiveCaption);
698
699 selection.left = 0;
700 selection.top = 0;
701 selection.right = size.cx;
702 selection.bottom = size.cy;
703 /* center rectangle */
704 OffsetRect(&selection, (field->right + field->left - size.cx)/2,
705 (field->bottom - size.cy)/2);
706
707 FillRect(hdc, &selection, hbr);
708 DeleteObject (hbr);
709 oldTextColor = SetTextColor (hdc, comctl32_color.clrWindow);
710 }
711 else
712 oldTextColor = SetTextColor (hdc, comctl32_color.clrWindowText);
713
714 /* draw the date text using the colour set above */
715 DrawTextW (hdc, txt, strlenW(txt), field, DT_CENTER | DT_VCENTER | DT_SINGLELINE);
716 SetTextColor (hdc, oldTextColor);
717 }
718 SetBkMode (hdc, oldBkMode);
719 SelectObject (hdc, oldFont);
720 }
721
722 if (!(infoPtr->dwStyle & DTS_UPDOWN)) {
723 DrawFrameControl(hdc, &infoPtr->calbutton, DFC_SCROLL,
724 DFCS_SCROLLDOWN | (infoPtr->bCalDepressed ? DFCS_PUSHED : 0) |
725 (infoPtr->dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
726 }
727 }
728
729
730 static INT
731 DATETIME_HitTest (const DATETIME_INFO *infoPtr, POINT pt)
732 {
733 int i;
734
735 TRACE ("%d, %d\n", pt.x, pt.y);
736
737 if (PtInRect (&infoPtr->calbutton, pt)) return DTHT_MCPOPUP;
738 if (PtInRect (&infoPtr->checkbox, pt)) return DTHT_CHECKBOX;
739
740 for (i = 0; i < infoPtr->nrFields; i++) {
741 if (PtInRect (&infoPtr->fieldRect[i], pt)) return i;
742 }
743
744 return DTHT_NONE;
745 }
746
747 /* Returns index of a closest date field from given counting to left
748 or -1 if there's no such fields at left */
749 static int DATETIME_GetPrevDateField(const DATETIME_INFO *infoPtr, int i)
750 {
751 for(--i; i >= 0; i--)
752 {
753 if (infoPtr->fieldspec[i] & DTHT_DATEFIELD) return i;
754 }
755 return -1;
756 }
757
758 static LRESULT
759 DATETIME_LButtonDown (DATETIME_INFO *infoPtr, INT x, INT y)
760 {
761 POINT pt;
762 int new;
763
764 pt.x = x;
765 pt.y = y;
766 new = DATETIME_HitTest (infoPtr, pt);
767
768 SetFocus(infoPtr->hwndSelf);
769
770 if (!(new & DTHT_NODATEMASK) || (new == DTHT_NONE))
771 {
772 if (new == DTHT_NONE)
773 new = infoPtr->nrFields - 1;
774 else
775 {
776 /* hitting string part moves selection to next date field to left */
777 if (infoPtr->fieldspec[new] & DT_STRING)
778 {
779 new = DATETIME_GetPrevDateField(infoPtr, new);
780 if (new == -1) return 0;
781 }
782 /* never select full day of week */
783 if (infoPtr->fieldspec[new] == FULLDAY) return 0;
784 }
785 }
786 infoPtr->select = new;
787
788 if (infoPtr->select == DTHT_MCPOPUP) {
789 RECT rcMonthCal;
790 SendMessageW(infoPtr->hMonthCal, MCM_GETMINREQRECT, 0, (LPARAM)&rcMonthCal);
791
792 /* FIXME: button actually is only depressed during dropdown of the */
793 /* calendar control and when the mouse is over the button window */
794 infoPtr->bCalDepressed = TRUE;
795
796 /* recalculate the position of the monthcal popup */
797 if(infoPtr->dwStyle & DTS_RIGHTALIGN)
798 infoPtr->monthcal_pos.x = infoPtr->calbutton.left -
799 (rcMonthCal.right - rcMonthCal.left);
800 else
801 /* FIXME: this should be after the area reserved for the checkbox */
802 infoPtr->monthcal_pos.x = infoPtr->rcDraw.left;
803
804 infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom;
805 ClientToScreen (infoPtr->hwndSelf, &(infoPtr->monthcal_pos));
806 SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x,
807 infoPtr->monthcal_pos.y, rcMonthCal.right - rcMonthCal.left,
808 rcMonthCal.bottom - rcMonthCal.top, 0);
809
810 if(IsWindowVisible(infoPtr->hMonthCal)) {
811 ShowWindow(infoPtr->hMonthCal, SW_HIDE);
812 infoPtr->bDropdownEnabled = FALSE;
813 DATETIME_SendSimpleNotify (infoPtr, DTN_CLOSEUP);
814 } else {
815 const SYSTEMTIME *lprgSysTimeArray = &infoPtr->date;
816 TRACE("update calendar %04d/%02d/%02d\n",
817 lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay);
818 SendMessageW(infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));
819
820 if (infoPtr->bDropdownEnabled) {
821 ShowWindow(infoPtr->hMonthCal, SW_SHOW);
822 DATETIME_SendSimpleNotify (infoPtr, DTN_DROPDOWN);
823 }
824 infoPtr->bDropdownEnabled = TRUE;
825 }
826
827 TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",
828 infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hwndNotify, GetDesktopWindow ());
829 }
830
831 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
832
833 return 0;
834 }
835
836
837 static LRESULT
838 DATETIME_LButtonUp (DATETIME_INFO *infoPtr)
839 {
840 if(infoPtr->bCalDepressed) {
841 infoPtr->bCalDepressed = FALSE;
842 InvalidateRect(infoPtr->hwndSelf, &(infoPtr->calbutton), TRUE);
843 }
844
845 return 0;
846 }
847
848
849 static LRESULT
850 DATETIME_Paint (DATETIME_INFO *infoPtr, HDC hdc)
851 {
852 if (!hdc) {
853 PAINTSTRUCT ps;
854 hdc = BeginPaint (infoPtr->hwndSelf, &ps);
855 DATETIME_Refresh (infoPtr, hdc);
856 EndPaint (infoPtr->hwndSelf, &ps);
857 } else {
858 DATETIME_Refresh (infoPtr, hdc);
859 }
860
861 /* Not a click on the dropdown box, enabled it */
862 infoPtr->bDropdownEnabled = TRUE;
863
864 return 0;
865 }
866
867
868 static LRESULT
869 DATETIME_Button_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
870 {
871 if( HIWORD(wParam) == BN_CLICKED) {
872 DWORD state = SendMessageW((HWND)lParam, BM_GETCHECK, 0, 0);
873 infoPtr->dateValid = (state == BST_CHECKED);
874 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
875 }
876 return 0;
877 }
878
879
880
881 static LRESULT
882 DATETIME_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
883 {
884 TRACE("hwndbutton = %p\n", infoPtr->hwndCheckbut);
885 if(infoPtr->hwndCheckbut == (HWND)lParam)
886 return DATETIME_Button_Command(infoPtr, wParam, lParam);
887 return 0;
888 }
889
890
891 static LRESULT
892 DATETIME_Enable (DATETIME_INFO *infoPtr, BOOL bEnable)
893 {
894 TRACE("%p %s\n", infoPtr, bEnable ? "TRUE" : "FALSE");
895 if (bEnable)
896 infoPtr->dwStyle &= ~WS_DISABLED;
897 else
898 infoPtr->dwStyle |= WS_DISABLED;
899
900 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
901
902 return 0;
903 }
904
905
906 static LRESULT
907 DATETIME_EraseBackground (const DATETIME_INFO *infoPtr, HDC hdc)
908 {
909 HBRUSH hBrush, hSolidBrush = NULL;
910 RECT rc;
911
912 if (infoPtr->dwStyle & WS_DISABLED)
913 hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrBtnFace);
914 else
915 {
916 hBrush = (HBRUSH)SendMessageW(infoPtr->hwndNotify, WM_CTLCOLOREDIT,
917 (WPARAM)hdc, (LPARAM)infoPtr->hwndSelf);
918 if (!hBrush)
919 hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrWindow);
920 }
921
922 GetClientRect (infoPtr->hwndSelf, &rc);
923
924 FillRect (hdc, &rc, hBrush);
925
926 if (hSolidBrush)
927 DeleteObject(hSolidBrush);
928
929 return -1;
930 }
931
932
933 static LRESULT
934 DATETIME_Notify (DATETIME_INFO *infoPtr, const NMHDR *lpnmh)
935 {
936 TRACE ("Got notification %x from %p\n", lpnmh->code, lpnmh->hwndFrom);
937 TRACE ("info: %p %p %p\n", infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hUpdown);
938
939 if (lpnmh->code == MCN_SELECT) {
940 ShowWindow(infoPtr->hMonthCal, SW_HIDE);
941 infoPtr->dateValid = TRUE;
942 SendMessageW (infoPtr->hMonthCal, MCM_GETCURSEL, 0, (LPARAM)&infoPtr->date);
943 TRACE("got from calendar %04d/%02d/%02d day of week %d\n",
944 infoPtr->date.wYear, infoPtr->date.wMonth, infoPtr->date.wDay, infoPtr->date.wDayOfWeek);
945 SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);
946 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
947 DATETIME_SendDateTimeChangeNotify (infoPtr);
948 DATETIME_SendSimpleNotify(infoPtr, DTN_CLOSEUP);
949 }
950 if ((lpnmh->hwndFrom == infoPtr->hUpdown) && (lpnmh->code == UDN_DELTAPOS)) {
951 const NM_UPDOWN *lpnmud = (const NM_UPDOWN*)lpnmh;
952 TRACE("Delta pos %d\n", lpnmud->iDelta);
953 infoPtr->pendingUpdown = lpnmud->iDelta;
954 }
955 return 0;
956 }
957
958
959 static LRESULT
960 DATETIME_KeyDown (DATETIME_INFO *infoPtr, DWORD vkCode)
961 {
962 int fieldNum = infoPtr->select & DTHT_DATEFIELD;
963 int wrap = 0;
964
965 if (!(infoPtr->haveFocus)) return 0;
966 if ((fieldNum==0) && (infoPtr->select)) return 0;
967
968 if (infoPtr->select & FORMATCALLMASK) {
969 FIXME ("Callbacks not implemented yet\n");
970 }
971
972 switch (vkCode) {
973 case VK_ADD:
974 case VK_UP:
975 DATETIME_IncreaseField (infoPtr, fieldNum, 1);
976 DATETIME_SendDateTimeChangeNotify (infoPtr);
977 break;
978 case VK_SUBTRACT:
979 case VK_DOWN:
980 DATETIME_IncreaseField (infoPtr, fieldNum, -1);
981 DATETIME_SendDateTimeChangeNotify (infoPtr);
982 break;
983 case VK_HOME:
984 DATETIME_IncreaseField (infoPtr, fieldNum, INT_MIN);
985 DATETIME_SendDateTimeChangeNotify (infoPtr);
986 break;
987 case VK_END:
988 DATETIME_IncreaseField (infoPtr, fieldNum, INT_MAX);
989 DATETIME_SendDateTimeChangeNotify (infoPtr);
990 break;
991 case VK_LEFT:
992 do {
993 if (infoPtr->select == 0) {
994 infoPtr->select = infoPtr->nrFields - 1;
995 wrap++;
996 } else {
997 infoPtr->select--;
998 }
999 } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
1000 break;
1001 case VK_RIGHT:
1002 do {
1003 infoPtr->select++;
1004 if (infoPtr->select==infoPtr->nrFields) {
1005 infoPtr->select = 0;
1006 wrap++;
1007 }
1008 } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
1009 break;
1010 }
1011
1012 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1013
1014 return 0;
1015 }
1016
1017
1018 static LRESULT
1019 DATETIME_Char (DATETIME_INFO *infoPtr, WPARAM vkCode)
1020 {
1021 int fieldNum = infoPtr->select & DTHT_DATEFIELD;
1022
1023 if (vkCode >= '0' && vkCode <= '9') {
1024 int num = vkCode-'0';
1025 int newDays;
1026
1027 /* this is a somewhat simplified version of what Windows does */
1028 SYSTEMTIME *date = &infoPtr->date;
1029 switch (infoPtr->fieldspec[fieldNum]) {
1030 case ONEDIGITYEAR:
1031 case TWODIGITYEAR:
1032 date->wYear = date->wYear - (date->wYear%100) +
1033 (date->wYear%10)*10 + num;
1034 MONTHCAL_CalculateDayOfWeek(date, TRUE);
1035 DATETIME_SendDateTimeChangeNotify (infoPtr);
1036 break;
1037 case INVALIDFULLYEAR:
1038 case FULLYEAR:
1039 /* reset current year initialy */
1040 date->wYear = ((date->wYear/1000) ? 0 : 1)*(date->wYear%1000)*10 + num;
1041 MONTHCAL_CalculateDayOfWeek(date, TRUE);
1042 DATETIME_SendDateTimeChangeNotify (infoPtr);
1043 break;
1044 case ONEDIGITMONTH:
1045 case TWODIGITMONTH:
1046 if ((date->wMonth%10) > 1 || num > 2)
1047 date->wMonth = num;
1048 else
1049 date->wMonth = (date->wMonth%10)*10+num;
1050 MONTHCAL_CalculateDayOfWeek(date, TRUE);
1051 DATETIME_SendDateTimeChangeNotify (infoPtr);
1052 break;
1053 case ONEDIGITDAY:
1054 case TWODIGITDAY:
1055 newDays = (date->wDay%10)*10+num;
1056 if (newDays > MONTHCAL_MonthLength(date->wMonth, date->wYear))
1057 date->wDay = num;
1058 else
1059 date->wDay = newDays;
1060 MONTHCAL_CalculateDayOfWeek(date, TRUE);
1061 DATETIME_SendDateTimeChangeNotify (infoPtr);
1062 break;
1063 case ONEDIGIT12HOUR:
1064 case TWODIGIT12HOUR:
1065 if ((date->wHour%10) > 1 || num > 2)
1066 date->wHour = num;
1067 else
1068 date->wHour = (date->wHour%10)*10+num;
1069 DATETIME_SendDateTimeChangeNotify (infoPtr);
1070 break;
1071 case ONEDIGIT24HOUR:
1072 case TWODIGIT24HOUR:
1073 if ((date->wHour%10) > 2)
1074 date->wHour = num;
1075 else if ((date->wHour%10) == 2 && num > 3)
1076 date->wHour = num;
1077 else
1078 date->wHour = (date->wHour%10)*10+num;
1079 DATETIME_SendDateTimeChangeNotify (infoPtr);
1080 break;
1081 case ONEDIGITMINUTE:
1082 case TWODIGITMINUTE:
1083 if ((date->wMinute%10) > 5)
1084 date->wMinute = num;
1085 else
1086 date->wMinute = (date->wMinute%10)*10+num;
1087 DATETIME_SendDateTimeChangeNotify (infoPtr);
1088 break;
1089 case ONEDIGITSECOND:
1090 case TWODIGITSECOND:
1091 if ((date->wSecond%10) > 5)
1092 date->wSecond = num;
1093 else
1094 date->wSecond = (date->wSecond%10)*10+num;
1095 DATETIME_SendDateTimeChangeNotify (infoPtr);
1096 break;
1097 }
1098 }
1099 return 0;
1100 }
1101
1102
1103 static LRESULT
1104 DATETIME_VScroll (DATETIME_INFO *infoPtr, WORD wScroll)
1105 {
1106 int fieldNum = infoPtr->select & DTHT_DATEFIELD;
1107
1108 if ((SHORT)LOWORD(wScroll) != SB_THUMBPOSITION) return 0;
1109 if (!(infoPtr->haveFocus)) return 0;
1110 if ((fieldNum==0) && (infoPtr->select)) return 0;
1111
1112 if (infoPtr->pendingUpdown >= 0) {
1113 DATETIME_IncreaseField (infoPtr, fieldNum, 1);
1114 DATETIME_SendDateTimeChangeNotify (infoPtr);
1115 }
1116 else {
1117 DATETIME_IncreaseField (infoPtr, fieldNum, -1);
1118 DATETIME_SendDateTimeChangeNotify (infoPtr);
1119 }
1120
1121 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1122
1123 return 0;
1124 }
1125
1126
1127 static LRESULT
1128 DATETIME_KillFocus (DATETIME_INFO *infoPtr, HWND lostFocus)
1129 {
1130 TRACE("lost focus to %p\n", lostFocus);
1131
1132 if (infoPtr->haveFocus) {
1133 DATETIME_SendSimpleNotify (infoPtr, NM_KILLFOCUS);
1134 infoPtr->haveFocus = 0;
1135 }
1136
1137 InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);
1138
1139 return 0;
1140 }
1141
1142
1143 static LRESULT
1144 DATETIME_NCCreate (HWND hwnd, const CREATESTRUCTW *lpcs)
1145 {
1146 DWORD dwExStyle = GetWindowLongW(hwnd, GWL_EXSTYLE);
1147 /* force control to have client edge */
1148 dwExStyle |= WS_EX_CLIENTEDGE;
1149 SetWindowLongW(hwnd, GWL_EXSTYLE, dwExStyle);
1150
1151 return DefWindowProcW(hwnd, WM_NCCREATE, 0, (LPARAM)lpcs);
1152 }
1153
1154
1155 static LRESULT
1156 DATETIME_SetFocus (DATETIME_INFO *infoPtr, HWND lostFocus)
1157 {
1158 TRACE("got focus from %p\n", lostFocus);
1159
1160 /* if monthcal is open and it loses focus, close monthcal */
1161 if (infoPtr->hMonthCal && (lostFocus == infoPtr->hMonthCal) &&
1162 IsWindowVisible(infoPtr->hMonthCal))
1163 {
1164 ShowWindow(infoPtr->hMonthCal, SW_HIDE);
1165 DATETIME_SendSimpleNotify(infoPtr, DTN_CLOSEUP);
1166 /* note: this get triggered even if monthcal loses focus to a dropdown
1167 * box click, which occurs without an intermediate WM_PAINT call
1168 */
1169 infoPtr->bDropdownEnabled = FALSE;
1170 return 0;
1171 }
1172
1173 if (infoPtr->haveFocus == 0) {
1174 DATETIME_SendSimpleNotify (infoPtr, NM_SETFOCUS);
1175 infoPtr->haveFocus = DTHT_GOTFOCUS;
1176 }
1177
1178 InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);
1179
1180 return 0;
1181 }
1182
1183
1184 static BOOL
1185 DATETIME_SendDateTimeChangeNotify (const DATETIME_INFO *infoPtr)
1186 {
1187 NMDATETIMECHANGE dtdtc;
1188
1189 dtdtc.nmhdr.hwndFrom = infoPtr->hwndSelf;
1190 dtdtc.nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);
1191 dtdtc.nmhdr.code = DTN_DATETIMECHANGE;
1192
1193 dtdtc.dwFlags = infoPtr->dateValid ? GDT_VALID : GDT_NONE;
1194
1195 dtdtc.st = infoPtr->date;
1196 return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
1197 dtdtc.nmhdr.idFrom, (LPARAM)&dtdtc);
1198 }
1199
1200
1201 static BOOL
1202 DATETIME_SendSimpleNotify (const DATETIME_INFO *infoPtr, UINT code)
1203 {
1204 NMHDR nmhdr;
1205
1206 TRACE("%x\n", code);
1207 nmhdr.hwndFrom = infoPtr->hwndSelf;
1208 nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);
1209 nmhdr.code = code;
1210
1211 return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
1212 nmhdr.idFrom, (LPARAM)&nmhdr);
1213 }
1214
1215 static LRESULT
1216 DATETIME_Size (DATETIME_INFO *infoPtr, INT width, INT height)
1217 {
1218 /* set size */
1219 infoPtr->rcClient.bottom = height;
1220 infoPtr->rcClient.right = width;
1221
1222 TRACE("Height=%d, Width=%d\n", infoPtr->rcClient.bottom, infoPtr->rcClient.right);
1223
1224 infoPtr->rcDraw = infoPtr->rcClient;
1225
1226 if (infoPtr->dwStyle & DTS_UPDOWN) {
1227 SetWindowPos(infoPtr->hUpdown, NULL,
1228 infoPtr->rcClient.right-14, 0,
1229 15, infoPtr->rcClient.bottom - infoPtr->rcClient.top,
1230 SWP_NOACTIVATE | SWP_NOZORDER);
1231 }
1232 else {
1233 /* set the size of the button that drops the calendar down */
1234 /* FIXME: account for style that allows button on left side */
1235 infoPtr->calbutton.top = infoPtr->rcDraw.top;
1236 infoPtr->calbutton.bottom= infoPtr->rcDraw.bottom;
1237 infoPtr->calbutton.left = infoPtr->rcDraw.right-15;
1238 infoPtr->calbutton.right = infoPtr->rcDraw.right;
1239 }
1240
1241 /* set enable/disable button size for show none style being enabled */
1242 /* FIXME: these dimensions are completely incorrect */
1243 infoPtr->checkbox.top = infoPtr->rcDraw.top;
1244 infoPtr->checkbox.bottom = infoPtr->rcDraw.bottom;
1245 infoPtr->checkbox.left = infoPtr->rcDraw.left;
1246 infoPtr->checkbox.right = infoPtr->rcDraw.left + 10;
1247
1248 InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);
1249
1250 return 0;
1251 }
1252
1253 static LRESULT
1254 DATETIME_StyleChanging(DATETIME_INFO *infoPtr, WPARAM wStyleType, STYLESTRUCT *lpss)
1255 {
1256 TRACE("(styletype=%lx, styleOld=0x%08x, styleNew=0x%08x)\n",
1257 wStyleType, lpss->styleOld, lpss->styleNew);
1258
1259 /* block DTS_SHOWNONE change */
1260 if ((lpss->styleNew ^ lpss->styleOld) & DTS_SHOWNONE)
1261 {
1262 if (lpss->styleOld & DTS_SHOWNONE)
1263 lpss->styleNew |= DTS_SHOWNONE;
1264 else
1265 lpss->styleNew &= ~DTS_SHOWNONE;
1266 }
1267
1268 return 0;
1269 }
1270
1271 static LRESULT
1272 DATETIME_StyleChanged(DATETIME_INFO *infoPtr, WPARAM wStyleType, const STYLESTRUCT *lpss)
1273 {
1274 TRACE("(styletype=%lx, styleOld=0x%08x, styleNew=0x%08x)\n",
1275 wStyleType, lpss->styleOld, lpss->styleNew);
1276
1277 if (wStyleType != GWL_STYLE) return 0;
1278
1279 infoPtr->dwStyle = lpss->styleNew;
1280
1281 if ( !(lpss->styleOld & DTS_SHOWNONE) && (lpss->styleNew & DTS_SHOWNONE) ) {
1282 infoPtr->hwndCheckbut = CreateWindowExW (0, WC_BUTTONW, 0, WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX,
1283 2, 2, 13, 13, infoPtr->hwndSelf, 0,
1284 (HINSTANCE)GetWindowLongPtrW (infoPtr->hwndSelf, GWLP_HINSTANCE), 0);
1285 SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, 1, 0);
1286 }
1287 if ( (lpss->styleOld & DTS_SHOWNONE) && !(lpss->styleNew & DTS_SHOWNONE) ) {
1288 DestroyWindow(infoPtr->hwndCheckbut);
1289 infoPtr->hwndCheckbut = 0;
1290 }
1291 if ( !(lpss->styleOld & DTS_UPDOWN) && (lpss->styleNew & DTS_UPDOWN) ) {
1292 infoPtr->hUpdown = CreateUpDownControl (WS_CHILD | WS_BORDER | WS_VISIBLE, 120, 1, 20, 20,
1293 infoPtr->hwndSelf, 1, 0, 0, UD_MAXVAL, UD_MINVAL, 0);
1294 }
1295 if ( (lpss->styleOld & DTS_UPDOWN) && !(lpss->styleNew & DTS_UPDOWN) ) {
1296 DestroyWindow(infoPtr->hUpdown);
1297 infoPtr->hUpdown = 0;
1298 }
1299
1300 InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1301 return 0;
1302 }
1303
1304
1305 static LRESULT
1306 DATETIME_SetFont (DATETIME_INFO *infoPtr, HFONT font, BOOL repaint)
1307 {
1308 infoPtr->hFont = font;
1309 if (repaint) InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
1310 return 0;
1311 }
1312
1313
1314 static LRESULT
1315 DATETIME_Create (HWND hwnd, const CREATESTRUCTW *lpcs)
1316 {
1317 DATETIME_INFO *infoPtr = Alloc (sizeof(DATETIME_INFO));
1318 STYLESTRUCT ss = { 0, lpcs->style };
1319
1320 if (!infoPtr) return -1;
1321
1322 infoPtr->hwndSelf = hwnd;
1323 infoPtr->dwStyle = lpcs->style;
1324
1325 infoPtr->nrFieldsAllocated = 32;
1326 infoPtr->fieldspec = Alloc (infoPtr->nrFieldsAllocated * sizeof(int));
1327 infoPtr->fieldRect = Alloc (infoPtr->nrFieldsAllocated * sizeof(RECT));
1328 infoPtr->buflen = Alloc (infoPtr->nrFieldsAllocated * sizeof(int));
1329 infoPtr->hwndNotify = lpcs->hwndParent;
1330 infoPtr->select = -1; /* initially, nothing is selected */
1331 infoPtr->bDropdownEnabled = TRUE;
1332
1333 DATETIME_StyleChanged(infoPtr, GWL_STYLE, &ss);
1334 DATETIME_SetFormatW (infoPtr, 0);
1335
1336 /* create the monthcal control */
1337 infoPtr->hMonthCal = CreateWindowExW (0, MONTHCAL_CLASSW, 0, WS_BORDER | WS_POPUP | WS_CLIPSIBLINGS,
1338 0, 0, 0, 0, infoPtr->hwndSelf, 0, 0, 0);
1339
1340 /* initialize info structure */
1341 GetLocalTime (&infoPtr->date);
1342 infoPtr->dateValid = TRUE;
1343 infoPtr->hFont = GetStockObject(DEFAULT_GUI_FONT);
1344
1345 SetWindowLongPtrW (hwnd, 0, (DWORD_PTR)infoPtr);
1346
1347 return 0;
1348 }
1349
1350
1351
1352 static LRESULT
1353 DATETIME_Destroy (DATETIME_INFO *infoPtr)
1354 {
1355 if (infoPtr->hwndCheckbut)
1356 DestroyWindow(infoPtr->hwndCheckbut);
1357 if (infoPtr->hUpdown)
1358 DestroyWindow(infoPtr->hUpdown);
1359 if (infoPtr->hMonthCal)
1360 DestroyWindow(infoPtr->hMonthCal);
1361 SetWindowLongPtrW( infoPtr->hwndSelf, 0, 0 ); /* clear infoPtr */
1362 Free (infoPtr->buflen);
1363 Free (infoPtr->fieldRect);
1364 Free (infoPtr->fieldspec);
1365 Free (infoPtr);
1366 return 0;
1367 }
1368
1369
1370 static INT
1371 DATETIME_GetText (DATETIME_INFO *infoPtr, INT count, LPWSTR dst)
1372 {
1373 WCHAR buf[80];
1374 int i;
1375
1376 if (!dst || (count <= 0)) return 0;
1377
1378 dst[0] = 0;
1379 for (i = 0; i < infoPtr->nrFields; i++)
1380 {
1381 DATETIME_ReturnTxt(infoPtr, i, buf, sizeof(buf)/sizeof(buf[0]));
1382 if ((strlenW(dst) + strlenW(buf)) < count)
1383 strcatW(dst, buf);
1384 else break;
1385 }
1386 return strlenW(dst);
1387 }
1388
1389
1390 static LRESULT WINAPI
1391 DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
1392 {
1393 DATETIME_INFO *infoPtr = ((DATETIME_INFO *)GetWindowLongPtrW (hwnd, 0));
1394 LRESULT ret;
1395
1396 TRACE ("%x, %lx, %lx\n", uMsg, wParam, lParam);
1397
1398 if (!infoPtr && (uMsg != WM_CREATE) && (uMsg != WM_NCCREATE))
1399 return DefWindowProcW( hwnd, uMsg, wParam, lParam );
1400
1401 switch (uMsg) {
1402
1403 case DTM_GETSYSTEMTIME:
1404 return DATETIME_GetSystemTime (infoPtr, (SYSTEMTIME *) lParam);
1405
1406 case DTM_SETSYSTEMTIME:
1407 return DATETIME_SetSystemTime (infoPtr, wParam, (SYSTEMTIME *) lParam);
1408
1409 case DTM_GETRANGE:
1410 ret = SendMessageW (infoPtr->hMonthCal, MCM_GETRANGE, wParam, lParam);
1411 return ret ? ret : 1; /* bug emulation */
1412
1413 case DTM_SETRANGE:
1414 return SendMessageW (infoPtr->hMonthCal, MCM_SETRANGE, wParam, lParam);
1415
1416 case DTM_SETFORMATA:
1417 return DATETIME_SetFormatA (infoPtr, (LPCSTR)lParam);
1418
1419 case DTM_SETFORMATW:
1420 return DATETIME_SetFormatW (infoPtr, (LPCWSTR)lParam);
1421
1422 case DTM_GETMONTHCAL:
1423 return (LRESULT)infoPtr->hMonthCal;
1424
1425 case DTM_SETMCCOLOR:
1426 return SendMessageW (infoPtr->hMonthCal, MCM_SETCOLOR, wParam, lParam);
1427
1428 case DTM_GETMCCOLOR:
1429 return SendMessageW (infoPtr->hMonthCal, MCM_GETCOLOR, wParam, 0);
1430
1431 case DTM_SETMCFONT:
1432 return SendMessageW (infoPtr->hMonthCal, WM_SETFONT, wParam, lParam);
1433
1434 case DTM_GETMCFONT:
1435 return SendMessageW (infoPtr->hMonthCal, WM_GETFONT, wParam, lParam);
1436
1437 case WM_NOTIFY:
1438 return DATETIME_Notify (infoPtr, (LPNMHDR)lParam);
1439
1440 case WM_ENABLE:
1441 return DATETIME_Enable (infoPtr, (BOOL)wParam);
1442
1443 case WM_ERASEBKGND:
1444 return DATETIME_EraseBackground (infoPtr, (HDC)wParam);
1445
1446 case WM_GETDLGCODE:
1447 return DLGC_WANTARROWS | DLGC_WANTCHARS;
1448
1449 case WM_PRINTCLIENT:
1450 case WM_PAINT:
1451 return DATETIME_Paint (infoPtr, (HDC)wParam);
1452
1453 case WM_KEYDOWN:
1454 return DATETIME_KeyDown (infoPtr, wParam);
1455
1456 case WM_CHAR:
1457 return DATETIME_Char (infoPtr, wParam);
1458
1459 case WM_KILLFOCUS:
1460 return DATETIME_KillFocus (infoPtr, (HWND)wParam);
1461
1462 case WM_NCCREATE:
1463 return DATETIME_NCCreate (hwnd, (LPCREATESTRUCTW)lParam);
1464
1465 case WM_SETFOCUS:
1466 return DATETIME_SetFocus (infoPtr, (HWND)wParam);
1467
1468 case WM_SIZE:
1469 return DATETIME_Size (infoPtr, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));
1470
1471 case WM_LBUTTONDOWN:
1472 return DATETIME_LButtonDown (infoPtr, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));
1473
1474 case WM_LBUTTONUP:
1475 return DATETIME_LButtonUp (infoPtr);
1476
1477 case WM_VSCROLL:
1478 return DATETIME_VScroll (infoPtr, (WORD)wParam);
1479
1480 case WM_CREATE:
1481 return DATETIME_Create (hwnd, (LPCREATESTRUCTW)lParam);
1482
1483 case WM_DESTROY:
1484 return DATETIME_Destroy (infoPtr);
1485
1486 case WM_COMMAND:
1487 return DATETIME_Command (infoPtr, wParam, lParam);
1488
1489 case WM_STYLECHANGING:
1490 return DATETIME_StyleChanging(infoPtr, wParam, (LPSTYLESTRUCT)lParam);
1491
1492 case WM_STYLECHANGED:
1493 return DATETIME_StyleChanged(infoPtr, wParam, (LPSTYLESTRUCT)lParam);
1494
1495 case WM_SETFONT:
1496 return DATETIME_SetFont(infoPtr, (HFONT)wParam, (BOOL)lParam);
1497
1498 case WM_GETFONT:
1499 return (LRESULT) infoPtr->hFont;
1500
1501 case WM_GETTEXT:
1502 return (LRESULT) DATETIME_GetText(infoPtr, wParam, (LPWSTR)lParam);
1503
1504 case WM_SETTEXT:
1505 return CB_ERR;
1506
1507 default:
1508 if ((uMsg >= WM_USER) && (uMsg < WM_APP) && !COMCTL32_IsReflectedMessage(uMsg))
1509 ERR("unknown msg %04x wp=%08lx lp=%08lx\n",
1510 uMsg, wParam, lParam);
1511 return DefWindowProcW (hwnd, uMsg, wParam, lParam);
1512 }
1513 }
1514
1515
1516 void
1517 DATETIME_Register (void)
1518 {
1519 WNDCLASSW wndClass;
1520
1521 ZeroMemory (&wndClass, sizeof(WNDCLASSW));
1522 wndClass.style = CS_GLOBALCLASS;
1523 wndClass.lpfnWndProc = DATETIME_WindowProc;
1524 wndClass.cbClsExtra = 0;
1525 wndClass.cbWndExtra = sizeof(DATETIME_INFO *);
1526 wndClass.hCursor = LoadCursorW (0, (LPCWSTR)IDC_ARROW);
1527 wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
1528 wndClass.lpszClassName = DATETIMEPICK_CLASSW;
1529
1530 RegisterClassW (&wndClass);
1531 }
1532
1533
1534 void
1535 DATETIME_Unregister (void)
1536 {
1537 UnregisterClassW (DATETIMEPICK_CLASSW, NULL);
1538 }