-/*\r
- * Date and time picker control\r
- *\r
- * Copyright 1998, 1999 Eric Kohl\r
- * Copyright 1999, 2000 Alex Priem <alexp@sci.kun.nl>\r
- * Copyright 2000 Chris Morgan <cmorgan@wpi.edu>\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- *\r
- * NOTE\r
- * \r
- * This code was audited for completeness against the documented features\r
- * of Comctl32.dll version 6.0 on Oct. 20, 2004, by Dimitrie O. Paun.\r
- * \r
- * Unless otherwise noted, we believe this code to be complete, as per\r
- * the specification mentioned above.\r
- * If you discover missing features, or bugs, please note them below.\r
- * \r
- * TODO:\r
- * -- DTS_APPCANPARSE\r
- * -- DTS_SHORTDATECENTURYFORMAT\r
- * -- DTN_CLOSEUP\r
- * -- DTN_FORMAT\r
- * -- DTN_FORMATQUERY\r
- * -- DTN_USERSTRING\r
- * -- DTN_WMKEYDOWN\r
- * -- FORMATCALLBACK\r
- */\r
-\r
-#include <math.h>\r
-#include <string.h>\r
-#include <stdarg.h>\r
-#include <stdio.h>\r
-#include <limits.h>\r
-\r
-#include "windef.h"\r
-#include "winbase.h"\r
-#include "wingdi.h"\r
-#include "winuser.h"\r
-#include "winnls.h"\r
-#include "commctrl.h"\r
-#include "comctl32.h"\r
-#include "wine/debug.h"\r
-#include "wine/unicode.h"\r
-\r
-WINE_DEFAULT_DEBUG_CHANNEL(datetime);\r
-\r
-typedef struct\r
-{\r
- HWND hwndSelf;\r
- HWND hMonthCal;\r
- HWND hwndNotify;\r
- HWND hUpdown;\r
- DWORD dwStyle;\r
- SYSTEMTIME date;\r
- BOOL dateValid;\r
- HWND hwndCheckbut;\r
- RECT rcClient; /* rect around the edge of the window */\r
- RECT rcDraw; /* rect inside of the border */\r
- RECT checkbox; /* checkbox allowing the control to be enabled/disabled */\r
- RECT calbutton; /* button that toggles the dropdown of the monthcal control */\r
- BOOL bCalDepressed; /* TRUE = cal button is depressed */\r
- int select;\r
- HFONT hFont;\r
- int nrFieldsAllocated;\r
- int nrFields;\r
- int haveFocus;\r
- int *fieldspec;\r
- RECT *fieldRect;\r
- int *buflen;\r
- WCHAR textbuf[256];\r
- POINT monthcal_pos;\r
- int pendingUpdown;\r
-} DATETIME_INFO, *LPDATETIME_INFO;\r
-\r
-/* in monthcal.c */\r
-extern int MONTHCAL_MonthLength(int month, int year);\r
-\r
-/* this list of defines is closely related to `allowedformatchars' defined\r
- * in datetime.c; the high nibble indicates the `base type' of the format\r
- * specifier.\r
- * Do not change without first reading DATETIME_UseFormat.\r
- *\r
- */\r
-\r
-#define DT_END_FORMAT 0\r
-#define ONEDIGITDAY 0x01\r
-#define TWODIGITDAY 0x02\r
-#define THREECHARDAY 0x03\r
-#define FULLDAY 0x04\r
-#define ONEDIGIT12HOUR 0x11\r
-#define TWODIGIT12HOUR 0x12\r
-#define ONEDIGIT24HOUR 0x21\r
-#define TWODIGIT24HOUR 0x22\r
-#define ONEDIGITMINUTE 0x31\r
-#define TWODIGITMINUTE 0x32\r
-#define ONEDIGITMONTH 0x41\r
-#define TWODIGITMONTH 0x42\r
-#define THREECHARMONTH 0x43\r
-#define FULLMONTH 0x44\r
-#define ONEDIGITSECOND 0x51\r
-#define TWODIGITSECOND 0x52\r
-#define ONELETTERAMPM 0x61\r
-#define TWOLETTERAMPM 0x62\r
-#define ONEDIGITYEAR 0x71\r
-#define TWODIGITYEAR 0x72\r
-#define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */\r
-#define FULLYEAR 0x74\r
-#define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */\r
-#define FORMATCALLMASK 0x80\r
-#define DT_STRING 0x0100\r
-\r
-#define DTHT_DATEFIELD 0xff /* for hit-testing */\r
-\r
-#define DTHT_NONE 0\r
-#define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */\r
-#define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */\r
-#define DTHT_GOTFOCUS 0x400 /* tests for date-fields */\r
-\r
-static BOOL DATETIME_SendSimpleNotify (DATETIME_INFO *infoPtr, UINT code);\r
-static BOOL DATETIME_SendDateTimeChangeNotify (DATETIME_INFO *infoPtr);\r
-extern void MONTHCAL_CopyTime(const SYSTEMTIME *from, SYSTEMTIME *to);\r
-static const WCHAR allowedformatchars[] = {'d', 'h', 'H', 'm', 'M', 's', 't', 'y', 'X', '\'', 0};\r
-static const int maxrepetition [] = {4,2,2,2,4,2,2,4,-1,-1};\r
-\r
-\r
-static DWORD\r
-DATETIME_GetSystemTime (DATETIME_INFO *infoPtr, SYSTEMTIME *lprgSysTimeArray)\r
-{\r
- if (!lprgSysTimeArray) return GDT_NONE;\r
-\r
- if ((infoPtr->dwStyle & DTS_SHOWNONE) &&\r
- (SendMessageW (infoPtr->hwndCheckbut, BM_GETCHECK, 0, 0) == BST_UNCHECKED))\r
- return GDT_NONE;\r
-\r
- MONTHCAL_CopyTime (&infoPtr->date, lprgSysTimeArray);\r
-\r
- return GDT_VALID;\r
-}\r
-\r
-\r
-static BOOL\r
-DATETIME_SetSystemTime (DATETIME_INFO *infoPtr, DWORD flag, SYSTEMTIME *lprgSysTimeArray)\r
-{\r
- if (!lprgSysTimeArray) return 0;\r
-\r
- TRACE("%04d/%02d/%02d %02d:%02d:%02d\n",\r
- lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay,\r
- lprgSysTimeArray->wHour, lprgSysTimeArray->wMinute, lprgSysTimeArray->wSecond);\r
-\r
- if (flag == GDT_VALID) {\r
- infoPtr->dateValid = TRUE;\r
- MONTHCAL_CopyTime (lprgSysTimeArray, &infoPtr->date);\r
- SendMessageW (infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));\r
- SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);\r
- } else if (flag == GDT_NONE) {\r
- infoPtr->dateValid = FALSE;\r
- SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_UNCHECKED, 0);\r
- }\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
- return TRUE;\r
-}\r
-\r
-\r
-/***\r
- * Split up a formattxt in actions.\r
- * See ms documentation for the meaning of the letter codes/'specifiers'.\r
- *\r
- * Notes:\r
- * *'dddddd' is handled as 'dddd' plus 'dd'.\r
- * *unrecognized formats are strings (here given the type DT_STRING;\r
- * start of the string is encoded in lower bits of DT_STRING.\r
- * Therefore, 'string' ends finally up as '<show seconds>tring'.\r
- *\r
- */\r
-static void\r
-DATETIME_UseFormat (DATETIME_INFO *infoPtr, LPCWSTR formattxt)\r
-{\r
- unsigned int i;\r
- int j, k, len;\r
- int *nrFields = &infoPtr->nrFields;\r
-\r
- *nrFields = 0;\r
- infoPtr->fieldspec[*nrFields] = 0;\r
- len = strlenW(allowedformatchars);\r
- k = 0;\r
-\r
- for (i = 0; formattxt[i]; i++) {\r
- TRACE ("\n%d %c:", i, formattxt[i]);\r
- for (j = 0; j < len; j++) {\r
- if (allowedformatchars[j]==formattxt[i]) {\r
- TRACE ("%c[%d,%x]", allowedformatchars[j], *nrFields, infoPtr->fieldspec[*nrFields]);\r
- if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {\r
- infoPtr->fieldspec[*nrFields] = (j<<4) + 1;\r
- break;\r
- }\r
- if (infoPtr->fieldspec[*nrFields] >> 4 != j) {\r
- (*nrFields)++;\r
- infoPtr->fieldspec[*nrFields] = (j<<4) + 1;\r
- break;\r
- }\r
- if ((infoPtr->fieldspec[*nrFields] & 0x0f) == maxrepetition[j]) {\r
- (*nrFields)++;\r
- infoPtr->fieldspec[*nrFields] = (j<<4) + 1;\r
- break;\r
- }\r
- infoPtr->fieldspec[*nrFields]++;\r
- break;\r
- } /* if allowedformatchar */\r
- } /* for j */\r
-\r
- /* char is not a specifier: handle char like a string */\r
- if (j == len) {\r
- if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {\r
- infoPtr->fieldspec[*nrFields] = DT_STRING + k;\r
- infoPtr->buflen[*nrFields] = 0;\r
- } else if ((infoPtr->fieldspec[*nrFields] & DT_STRING) != DT_STRING) {\r
- (*nrFields)++;\r
- infoPtr->fieldspec[*nrFields] = DT_STRING + k;\r
- infoPtr->buflen[*nrFields] = 0;\r
- }\r
- infoPtr->textbuf[k] = formattxt[i];\r
- k++;\r
- infoPtr->buflen[*nrFields]++;\r
- } /* if j=len */\r
-\r
- if (*nrFields == infoPtr->nrFieldsAllocated) {\r
- FIXME ("out of memory; should reallocate. crash ahead.\n");\r
- }\r
- } /* for i */\r
-\r
- TRACE("\n");\r
-\r
- if (infoPtr->fieldspec[*nrFields] != 0) (*nrFields)++;\r
-}\r
-\r
-\r
-static BOOL\r
-DATETIME_SetFormatW (DATETIME_INFO *infoPtr, LPCWSTR lpszFormat)\r
-{\r
- if (!lpszFormat) {\r
- WCHAR format_buf[80];\r
- DWORD format_item;\r
-\r
- if (infoPtr->dwStyle & DTS_LONGDATEFORMAT)\r
- format_item = LOCALE_SLONGDATE;\r
- else if ((infoPtr->dwStyle & DTS_TIMEFORMAT) == DTS_TIMEFORMAT)\r
- format_item = LOCALE_STIMEFORMAT;\r
- else /* DTS_SHORTDATEFORMAT */\r
- format_item = LOCALE_SSHORTDATE;\r
- GetLocaleInfoW( GetSystemDefaultLCID(), format_item, format_buf, sizeof(format_buf)/sizeof(format_buf[0]));\r
- lpszFormat = format_buf;\r
- }\r
-\r
- DATETIME_UseFormat (infoPtr, lpszFormat);\r
- InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);\r
-\r
- return infoPtr->nrFields;\r
-}\r
-\r
-\r
-static BOOL\r
-DATETIME_SetFormatA (DATETIME_INFO *infoPtr, LPCSTR lpszFormat)\r
-{\r
- if (lpszFormat) {\r
- BOOL retval;\r
- INT len = MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, NULL, 0);\r
- LPWSTR wstr = Alloc(len * sizeof(WCHAR));\r
- if (wstr) MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, wstr, len);\r
- retval = DATETIME_SetFormatW (infoPtr, wstr);\r
- Free (wstr);\r
- return retval;\r
- }\r
- else\r
- return DATETIME_SetFormatW (infoPtr, 0);\r
-\r
-}\r
-\r
-\r
-static void\r
-DATETIME_ReturnTxt (DATETIME_INFO *infoPtr, int count, LPWSTR result, int resultSize)\r
-{\r
- static const WCHAR fmt_dW[] = { '%', 'd', 0 };\r
- static const WCHAR fmt__2dW[] = { '%', '.', '2', 'd', 0 };\r
- static const WCHAR fmt__3sW[] = { '%', '.', '3', 's', 0 };\r
- SYSTEMTIME date = infoPtr->date;\r
- int spec;\r
- WCHAR buffer[80];\r
-\r
- *result=0;\r
- TRACE ("%d,%d\n", infoPtr->nrFields, count);\r
- if (count>infoPtr->nrFields || count < 0) {\r
- WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);\r
- return;\r
- }\r
-\r
- if (!infoPtr->fieldspec) return;\r
-\r
- spec = infoPtr->fieldspec[count];\r
- if (spec & DT_STRING) {\r
- int txtlen = infoPtr->buflen[count];\r
-\r
- if (txtlen > resultSize)\r
- txtlen = resultSize - 1;\r
- memcpy (result, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));\r
- result[txtlen] = 0;\r
- TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));\r
- return;\r
- }\r
-\r
-\r
- switch (spec) {\r
- case DT_END_FORMAT:\r
- *result = 0;\r
- break;\r
- case ONEDIGITDAY:\r
- wsprintfW (result, fmt_dW, date.wDay);\r
- break;\r
- case TWODIGITDAY:\r
- wsprintfW (result, fmt__2dW, date.wDay);\r
- break;\r
- case THREECHARDAY:\r
- GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SABBREVDAYNAME1+(date.wDayOfWeek+6)%7, result, 4);\r
- /*wsprintfW (result,"%.3s",days[date.wDayOfWeek]);*/\r
- break;\r
- case FULLDAY:\r
- GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SDAYNAME1+(date.wDayOfWeek+6)%7, result, resultSize);\r
- break;\r
- case ONEDIGIT12HOUR:\r
- if (date.wHour == 0) {\r
- result[0] = '1';\r
- result[1] = '2';\r
- result[2] = 0;\r
- }\r
- else\r
- wsprintfW (result, fmt_dW, date.wHour - (date.wHour > 12 ? 12 : 0));\r
- break;\r
- case TWODIGIT12HOUR:\r
- if (date.wHour == 0) {\r
- result[0] = '1';\r
- result[1] = '2';\r
- result[2] = 0;\r
- }\r
- else\r
- wsprintfW (result, fmt__2dW, date.wHour - (date.wHour > 12 ? 12 : 0));\r
- break;\r
- case ONEDIGIT24HOUR:\r
- wsprintfW (result, fmt_dW, date.wHour);\r
- break;\r
- case TWODIGIT24HOUR:\r
- wsprintfW (result, fmt__2dW, date.wHour);\r
- break;\r
- case ONEDIGITSECOND:\r
- wsprintfW (result, fmt_dW, date.wSecond);\r
- break;\r
- case TWODIGITSECOND:\r
- wsprintfW (result, fmt__2dW, date.wSecond);\r
- break;\r
- case ONEDIGITMINUTE:\r
- wsprintfW (result, fmt_dW, date.wMinute);\r
- break;\r
- case TWODIGITMINUTE:\r
- wsprintfW (result, fmt__2dW, date.wMinute);\r
- break;\r
- case ONEDIGITMONTH:\r
- wsprintfW (result, fmt_dW, date.wMonth);\r
- break;\r
- case TWODIGITMONTH:\r
- wsprintfW (result, fmt__2dW, date.wMonth);\r
- break;\r
- case THREECHARMONTH:\r
- GetLocaleInfoW(GetSystemDefaultLCID(), LOCALE_SMONTHNAME1+date.wMonth -1, \r
- buffer, sizeof(buffer)/sizeof(buffer[0]));\r
- wsprintfW (result, fmt__3sW, buffer);\r
- break;\r
- case FULLMONTH:\r
- GetLocaleInfoW(GetSystemDefaultLCID(),LOCALE_SMONTHNAME1+date.wMonth -1,\r
- result, resultSize);\r
- break;\r
- case ONELETTERAMPM:\r
- result[0] = (date.wHour < 12 ? 'A' : 'P');\r
- result[1] = 0;\r
- break;\r
- case TWOLETTERAMPM:\r
- result[0] = (date.wHour < 12 ? 'A' : 'P');\r
- result[1] = 'M';\r
- result[2] = 0;\r
- break;\r
- case FORMATCALLBACK:\r
- FIXME ("Not implemented\n");\r
- result[0] = 'x';\r
- result[1] = 0;\r
- break;\r
- case ONEDIGITYEAR:\r
- wsprintfW (result, fmt_dW, date.wYear-10* (int) floor(date.wYear/10));\r
- break;\r
- case TWODIGITYEAR:\r
- wsprintfW (result, fmt__2dW, date.wYear-100* (int) floor(date.wYear/100));\r
- break;\r
- case INVALIDFULLYEAR:\r
- case FULLYEAR:\r
- wsprintfW (result, fmt_dW, date.wYear);\r
- break;\r
- }\r
-\r
- TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));\r
-}\r
-\r
-/* Offsets of days in the week to the weekday of january 1 in a leap year. */\r
-static const int DayOfWeekTable[] = {0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4};\r
-\r
-/* returns the day in the week(0 == sunday, 6 == saturday) */\r
-/* day(1 == 1st, 2 == 2nd... etc), year is the year value */\r
-static int DATETIME_CalculateDayOfWeek(DWORD day, DWORD month, DWORD year)\r
-{\r
- year-=(month < 3);\r
- \r
- return((year + year/4 - year/100 + year/400 +\r
- DayOfWeekTable[month-1] + day ) % 7);\r
-}\r
-\r
-static int wrap(int val, int delta, int minVal, int maxVal)\r
-{\r
- val += delta;\r
- if (delta == INT_MIN || val < minVal) return maxVal;\r
- if (delta == INT_MAX || val > maxVal) return minVal;\r
- return val;\r
-}\r
-\r
-static void\r
-DATETIME_IncreaseField (DATETIME_INFO *infoPtr, int number, int delta)\r
-{\r
- SYSTEMTIME *date = &infoPtr->date;\r
-\r
- TRACE ("%d\n", number);\r
- if ((number > infoPtr->nrFields) || (number < 0)) return;\r
-\r
- if ((infoPtr->fieldspec[number] & DTHT_DATEFIELD) == 0) return;\r
-\r
- switch (infoPtr->fieldspec[number]) {\r
- case ONEDIGITYEAR:\r
- case TWODIGITYEAR:\r
- case FULLYEAR:\r
- date->wYear = wrap(date->wYear, delta, 1752, 9999);\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);\r
- break;\r
- case ONEDIGITMONTH:\r
- case TWODIGITMONTH:\r
- case THREECHARMONTH:\r
- case FULLMONTH:\r
- date->wMonth = wrap(date->wMonth, delta, 1, 12);\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);\r
- delta = 0;\r
- /* fall through */\r
- case ONEDIGITDAY:\r
- case TWODIGITDAY:\r
- case THREECHARDAY:\r
- case FULLDAY:\r
- date->wDay = wrap(date->wDay, delta, 1, MONTHCAL_MonthLength(date->wMonth, date->wYear));\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);\r
- break;\r
- case ONELETTERAMPM:\r
- case TWOLETTERAMPM:\r
- delta *= 12;\r
- /* fall through */\r
- case ONEDIGIT12HOUR:\r
- case TWODIGIT12HOUR:\r
- case ONEDIGIT24HOUR:\r
- case TWODIGIT24HOUR:\r
- date->wHour = wrap(date->wHour, delta, 0, 23);\r
- break;\r
- case ONEDIGITMINUTE:\r
- case TWODIGITMINUTE:\r
- date->wMinute = wrap(date->wMinute, delta, 0, 59);\r
- break;\r
- case ONEDIGITSECOND:\r
- case TWODIGITSECOND:\r
- date->wSecond = wrap(date->wSecond, delta, 0, 59);\r
- break;\r
- case FORMATCALLBACK:\r
- FIXME ("Not implemented\n");\r
- break;\r
- }\r
-\r
- /* FYI: On 1752/9/14 the calendar changed and England and the\r
- * American colonies changed to the Gregorian calendar. This change\r
- * involved having September 14th follow September 2nd. So no date\r
- * algorithm works before that date.\r
- */\r
- if (10000 * date->wYear + 100 * date->wMonth + date->wDay < 17520914) {\r
- date->wYear = 1752;\r
- date->wMonth = 9;\r
- date->wDay = 14;\r
- date->wSecond = 0;\r
- date->wMinute = 0;\r
- date->wHour = 0;\r
- }\r
-}\r
-\r
-\r
-static void\r
-DATETIME_ReturnFieldWidth (DATETIME_INFO *infoPtr, HDC hdc, int count, SHORT *fieldWidthPtr)\r
-{\r
- /* fields are a fixed width, determined by the largest possible string */\r
- /* presumably, these widths should be language dependent */\r
- static const WCHAR fld_d1W[] = { '2', 0 };\r
- static const WCHAR fld_d2W[] = { '2', '2', 0 };\r
- static const WCHAR fld_d4W[] = { '2', '2', '2', '2', 0 };\r
- static const WCHAR fld_am1[] = { 'A', 0 };\r
- static const WCHAR fld_am2[] = { 'A', 'M', 0 };\r
- static const WCHAR fld_day[] = { 'W', 'e', 'd', 'n', 'e', 's', 'd', 'a', 'y', 0 };\r
- static const WCHAR fld_day3[] = { 'W', 'e', 'd', 0 };\r
- static const WCHAR fld_mon[] = { 'S', 'e', 'p', 't', 'e', 'm', 'b', 'e', 'r', 0 };\r
- static const WCHAR fld_mon3[] = { 'D', 'e', 'c', 0 };\r
- int spec;\r
- WCHAR buffer[80], *bufptr;\r
- SIZE size;\r
-\r
- TRACE ("%d,%d\n", infoPtr->nrFields, count);\r
- if (count>infoPtr->nrFields || count < 0) {\r
- WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);\r
- return;\r
- }\r
-\r
- if (!infoPtr->fieldspec) return;\r
-\r
- spec = infoPtr->fieldspec[count];\r
- if (spec & DT_STRING) {\r
- int txtlen = infoPtr->buflen[count];\r
-\r
- if (txtlen > 79)\r
- txtlen = 79;\r
- memcpy (buffer, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));\r
- buffer[txtlen] = 0;\r
- bufptr = buffer;\r
- }\r
- else {\r
- switch (spec) {\r
- case ONEDIGITDAY:\r
- case ONEDIGIT12HOUR:\r
- case ONEDIGIT24HOUR:\r
- case ONEDIGITSECOND:\r
- case ONEDIGITMINUTE:\r
- case ONEDIGITMONTH:\r
- case ONEDIGITYEAR:\r
- /* these seem to use a two byte field */\r
- case TWODIGITDAY:\r
- case TWODIGIT12HOUR:\r
- case TWODIGIT24HOUR:\r
- case TWODIGITSECOND:\r
- case TWODIGITMINUTE:\r
- case TWODIGITMONTH:\r
- case TWODIGITYEAR:\r
- bufptr = (WCHAR *)fld_d2W;\r
- break;\r
- case INVALIDFULLYEAR:\r
- case FULLYEAR:\r
- bufptr = (WCHAR *)fld_d4W;\r
- break;\r
- case THREECHARDAY:\r
- bufptr = (WCHAR *)fld_day3;\r
- break;\r
- case FULLDAY:\r
- bufptr = (WCHAR *)fld_day;\r
- break;\r
- case THREECHARMONTH:\r
- bufptr = (WCHAR *)fld_mon3;\r
- break;\r
- case FULLMONTH:\r
- bufptr = (WCHAR *)fld_mon;\r
- break;\r
- case ONELETTERAMPM:\r
- bufptr = (WCHAR *)fld_am1;\r
- break;\r
- case TWOLETTERAMPM:\r
- bufptr = (WCHAR *)fld_am2;\r
- break;\r
- default:\r
- bufptr = (WCHAR *)fld_d1W;\r
- break;\r
- }\r
- }\r
- GetTextExtentPoint32W (hdc, bufptr, strlenW(bufptr), &size);\r
- *fieldWidthPtr = size.cx;\r
-}\r
-\r
-static void \r
-DATETIME_Refresh (DATETIME_INFO *infoPtr, HDC hdc)\r
-{\r
- int i,prevright;\r
- RECT *field;\r
- RECT *rcDraw = &infoPtr->rcDraw;\r
- RECT *calbutton = &infoPtr->calbutton;\r
- RECT *checkbox = &infoPtr->checkbox;\r
- SIZE size;\r
- COLORREF oldTextColor;\r
- SHORT fieldWidth = 0;\r
-\r
- /* draw control edge */\r
- TRACE("\n");\r
-\r
- if (infoPtr->dateValid) {\r
- HFONT oldFont = SelectObject (hdc, infoPtr->hFont);\r
- INT oldBkMode = SetBkMode (hdc, TRANSPARENT);\r
- WCHAR txt[80];\r
-\r
- DATETIME_ReturnTxt (infoPtr, 0, txt, sizeof(txt)/sizeof(txt[0]));\r
- GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);\r
- rcDraw->bottom = size.cy + 2;\r
-\r
- prevright = checkbox->right = ((infoPtr->dwStyle & DTS_SHOWNONE) ? 18 : 2);\r
-\r
- for (i = 0; i < infoPtr->nrFields; i++) {\r
- DATETIME_ReturnTxt (infoPtr, i, txt, sizeof(txt)/sizeof(txt[0]));\r
- GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);\r
- DATETIME_ReturnFieldWidth (infoPtr, hdc, i, &fieldWidth);\r
- field = &infoPtr->fieldRect[i];\r
- field->left = prevright;\r
- field->right = prevright + fieldWidth;\r
- field->top = rcDraw->top;\r
- field->bottom = rcDraw->bottom;\r
- prevright = field->right;\r
-\r
- if (infoPtr->dwStyle & WS_DISABLED)\r
- oldTextColor = SetTextColor (hdc, comctl32_color.clrGrayText);\r
- else if ((infoPtr->haveFocus) && (i == infoPtr->select)) {\r
- /* fill if focussed */\r
- HBRUSH hbr = CreateSolidBrush (comctl32_color.clrActiveCaption);\r
- FillRect(hdc, field, hbr);\r
- DeleteObject (hbr);\r
- oldTextColor = SetTextColor (hdc, comctl32_color.clrWindow);\r
- }\r
- else\r
- oldTextColor = SetTextColor (hdc, comctl32_color.clrWindowText);\r
-\r
- /* draw the date text using the colour set above */\r
- DrawTextW (hdc, txt, strlenW(txt), field, DT_RIGHT | DT_VCENTER | DT_SINGLELINE);\r
- SetTextColor (hdc, oldTextColor);\r
- }\r
- SetBkMode (hdc, oldBkMode);\r
- SelectObject (hdc, oldFont);\r
- }\r
-\r
- if (!(infoPtr->dwStyle & DTS_UPDOWN)) {\r
- DrawFrameControl(hdc, calbutton, DFC_SCROLL,\r
- DFCS_SCROLLDOWN | (infoPtr->bCalDepressed ? DFCS_PUSHED : 0) |\r
- (infoPtr->dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );\r
- }\r
-}\r
-\r
-\r
-static INT\r
-DATETIME_HitTest (DATETIME_INFO *infoPtr, POINT pt)\r
-{\r
- int i;\r
-\r
- TRACE ("%ld, %ld\n", pt.x, pt.y);\r
-\r
- if (PtInRect (&infoPtr->calbutton, pt)) return DTHT_MCPOPUP;\r
- if (PtInRect (&infoPtr->checkbox, pt)) return DTHT_CHECKBOX;\r
-\r
- for (i=0; i < infoPtr->nrFields; i++) {\r
- if (PtInRect (&infoPtr->fieldRect[i], pt)) return i;\r
- }\r
-\r
- return DTHT_NONE;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_LButtonDown (DATETIME_INFO *infoPtr, WORD wKey, INT x, INT y)\r
-{\r
- POINT pt;\r
- int old, new;\r
-\r
- pt.x = x;\r
- pt.y = y;\r
- old = infoPtr->select;\r
- new = DATETIME_HitTest (infoPtr, pt);\r
-\r
- /* FIXME: might be conditions where we don't want to update infoPtr->select */\r
- infoPtr->select = new;\r
-\r
- SetFocus(infoPtr->hwndSelf);\r
-\r
- if (infoPtr->select == DTHT_MCPOPUP) {\r
- RECT rcMonthCal;\r
- SendMessageW(infoPtr->hMonthCal, MCM_GETMINREQRECT, 0, (LPARAM)&rcMonthCal);\r
-\r
- /* FIXME: button actually is only depressed during dropdown of the */\r
- /* calendar control and when the mouse is over the button window */\r
- infoPtr->bCalDepressed = TRUE;\r
-\r
- /* recalculate the position of the monthcal popup */\r
- if(infoPtr->dwStyle & DTS_RIGHTALIGN)\r
- infoPtr->monthcal_pos.x = infoPtr->calbutton.left - \r
- (rcMonthCal.right - rcMonthCal.left);\r
- else\r
- /* FIXME: this should be after the area reserved for the checkbox */\r
- infoPtr->monthcal_pos.x = infoPtr->rcDraw.left;\r
-\r
- infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom;\r
- ClientToScreen (infoPtr->hwndSelf, &(infoPtr->monthcal_pos));\r
- SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x,\r
- infoPtr->monthcal_pos.y, rcMonthCal.right - rcMonthCal.left,\r
- rcMonthCal.bottom - rcMonthCal.top, 0);\r
-\r
- if(IsWindowVisible(infoPtr->hMonthCal)) {\r
- ShowWindow(infoPtr->hMonthCal, SW_HIDE);\r
- } else {\r
- SYSTEMTIME *lprgSysTimeArray = &infoPtr->date;\r
- TRACE("update calendar %04d/%02d/%02d\n", \r
- lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay);\r
- SendMessageW(infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));\r
- ShowWindow(infoPtr->hMonthCal, SW_SHOW);\r
- }\r
-\r
- TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",\r
- infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hwndNotify, GetDesktopWindow ());\r
- DATETIME_SendSimpleNotify (infoPtr, DTN_DROPDOWN);\r
- }\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_LButtonUp (DATETIME_INFO *infoPtr, WORD wKey)\r
-{\r
- if(infoPtr->bCalDepressed) {\r
- infoPtr->bCalDepressed = FALSE;\r
- InvalidateRect(infoPtr->hwndSelf, &(infoPtr->calbutton), TRUE);\r
- }\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_Paint (DATETIME_INFO *infoPtr, HDC hdc)\r
-{\r
- if (!hdc) {\r
- PAINTSTRUCT ps;\r
- hdc = BeginPaint (infoPtr->hwndSelf, &ps);\r
- DATETIME_Refresh (infoPtr, hdc);\r
- EndPaint (infoPtr->hwndSelf, &ps);\r
- } else {\r
- DATETIME_Refresh (infoPtr, hdc);\r
- }\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_Button_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)\r
-{\r
- if( HIWORD(wParam) == BN_CLICKED) {\r
- DWORD state = SendMessageW((HWND)lParam, BM_GETCHECK, 0, 0);\r
- infoPtr->dateValid = (state == BST_CHECKED);\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
- }\r
- return 0;\r
-}\r
- \r
- \r
- \r
-static LRESULT\r
-DATETIME_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)\r
-{\r
- TRACE("hwndbutton = %p\n", infoPtr->hwndCheckbut);\r
- if(infoPtr->hwndCheckbut == (HWND)lParam)\r
- return DATETIME_Button_Command(infoPtr, wParam, lParam);\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_Enable (DATETIME_INFO *infoPtr, BOOL bEnable)\r
-{\r
- TRACE("%p %s\n", infoPtr, bEnable ? "TRUE" : "FALSE");\r
- if (bEnable)\r
- infoPtr->dwStyle &= ~WS_DISABLED;\r
- else\r
- infoPtr->dwStyle |= WS_DISABLED;\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_EraseBackground (DATETIME_INFO *infoPtr, HDC hdc)\r
-{\r
- HBRUSH hBrush, hSolidBrush = NULL;\r
- RECT rc;\r
-\r
- if (infoPtr->dwStyle & WS_DISABLED)\r
- hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrBtnFace);\r
- else\r
- {\r
- hBrush = (HBRUSH)SendMessageW(infoPtr->hwndNotify, WM_CTLCOLOREDIT,\r
- (WPARAM)hdc, (LPARAM)infoPtr->hwndSelf);\r
- if (!hBrush)\r
- hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrWindow);\r
- }\r
-\r
- GetClientRect (infoPtr->hwndSelf, &rc);\r
-\r
- FillRect (hdc, &rc, hBrush);\r
-\r
- if (hSolidBrush)\r
- DeleteObject(hSolidBrush);\r
-\r
- return -1;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_Notify (DATETIME_INFO *infoPtr, int idCtrl, LPNMHDR lpnmh)\r
-{\r
- TRACE ("Got notification %x from %p\n", lpnmh->code, lpnmh->hwndFrom);\r
- TRACE ("info: %p %p %p\n", infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hUpdown);\r
-\r
- if (lpnmh->code == MCN_SELECT) {\r
- ShowWindow(infoPtr->hMonthCal, SW_HIDE);\r
- infoPtr->dateValid = TRUE;\r
- SendMessageW (infoPtr->hMonthCal, MCM_GETCURSEL, 0, (LPARAM)&infoPtr->date);\r
- TRACE("got from calendar %04d/%02d/%02d day of week %d\n", \r
- infoPtr->date.wYear, infoPtr->date.wMonth, infoPtr->date.wDay, infoPtr->date.wDayOfWeek);\r
- SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- }\r
- if ((lpnmh->hwndFrom == infoPtr->hUpdown) && (lpnmh->code == UDN_DELTAPOS)) {\r
- LPNMUPDOWN lpnmud = (LPNMUPDOWN)lpnmh;\r
- TRACE("Delta pos %d\n", lpnmud->iDelta);\r
- infoPtr->pendingUpdown = lpnmud->iDelta;\r
- }\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_KeyDown (DATETIME_INFO *infoPtr, DWORD vkCode, LPARAM flags)\r
-{\r
- int fieldNum = infoPtr->select & DTHT_DATEFIELD;\r
- int wrap = 0;\r
-\r
- if (!(infoPtr->haveFocus)) return 0;\r
- if ((fieldNum==0) && (infoPtr->select)) return 0;\r
-\r
- if (infoPtr->select & FORMATCALLMASK) {\r
- FIXME ("Callbacks not implemented yet\n");\r
- }\r
-\r
- if (vkCode >= '0' && vkCode <= '9') {\r
- /* this is a somewhat simplified version of what Windows does */\r
- SYSTEMTIME *date = &infoPtr->date;\r
- switch (infoPtr->fieldspec[fieldNum]) {\r
- case ONEDIGITYEAR:\r
- case TWODIGITYEAR:\r
- date->wYear = date->wYear - (date->wYear%100) +\r
- (date->wYear%10)*10 + (vkCode-'0');\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(\r
- date->wDay,date->wMonth,date->wYear);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case INVALIDFULLYEAR:\r
- case FULLYEAR:\r
- date->wYear = (date->wYear%1000)*10 + (vkCode-'0');\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(\r
- date->wDay,date->wMonth,date->wYear);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case ONEDIGITMONTH:\r
- case TWODIGITMONTH:\r
- if ((date->wMonth%10) > 1 || (vkCode-'0') > 2)\r
- date->wMonth = vkCode-'0';\r
- else\r
- date->wMonth = (date->wMonth%10)*10+vkCode-'0';\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(\r
- date->wDay,date->wMonth,date->wYear);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case ONEDIGITDAY:\r
- case TWODIGITDAY:\r
- /* probably better checking here would help */\r
- if ((date->wDay%10) >= 3 && (vkCode-'0') > 1)\r
- date->wDay = vkCode-'0';\r
- else\r
- date->wDay = (date->wDay%10)*10+vkCode-'0';\r
- date->wDayOfWeek = DATETIME_CalculateDayOfWeek(\r
- date->wDay,date->wMonth,date->wYear);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case ONEDIGIT12HOUR:\r
- case TWODIGIT12HOUR:\r
- if ((date->wHour%10) > 1 || (vkCode-'0') > 2)\r
- date->wHour = vkCode-'0';\r
- else\r
- date->wHour = (date->wHour%10)*10+vkCode-'0';\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case ONEDIGIT24HOUR:\r
- case TWODIGIT24HOUR:\r
- if ((date->wHour%10) > 2)\r
- date->wHour = vkCode-'0';\r
- else if ((date->wHour%10) == 2 && (vkCode-'0') > 3)\r
- date->wHour = vkCode-'0';\r
- else\r
- date->wHour = (date->wHour%10)*10+vkCode-'0';\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case ONEDIGITMINUTE:\r
- case TWODIGITMINUTE:\r
- if ((date->wMinute%10) > 5)\r
- date->wMinute = vkCode-'0';\r
- else\r
- date->wMinute = (date->wMinute%10)*10+vkCode-'0';\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case ONEDIGITSECOND:\r
- case TWODIGITSECOND:\r
- if ((date->wSecond%10) > 5)\r
- date->wSecond = vkCode-'0';\r
- else\r
- date->wSecond = (date->wSecond%10)*10+vkCode-'0';\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- }\r
- }\r
- \r
- switch (vkCode) {\r
- case VK_ADD:\r
- case VK_UP:\r
- DATETIME_IncreaseField (infoPtr, fieldNum, 1);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case VK_SUBTRACT:\r
- case VK_DOWN:\r
- DATETIME_IncreaseField (infoPtr, fieldNum, -1);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case VK_HOME:\r
- DATETIME_IncreaseField (infoPtr, fieldNum, INT_MIN);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case VK_END:\r
- DATETIME_IncreaseField (infoPtr, fieldNum, INT_MAX);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- break;\r
- case VK_LEFT:\r
- do {\r
- if (infoPtr->select == 0) {\r
- infoPtr->select = infoPtr->nrFields - 1;\r
- wrap++;\r
- } else {\r
- infoPtr->select--;\r
- }\r
- } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));\r
- break;\r
- case VK_RIGHT:\r
- do {\r
- infoPtr->select++;\r
- if (infoPtr->select==infoPtr->nrFields) {\r
- infoPtr->select = 0;\r
- wrap++;\r
- }\r
- } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));\r
- break;\r
- }\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_VScroll (DATETIME_INFO *infoPtr, WORD wScroll)\r
-{\r
- int fieldNum = infoPtr->select & DTHT_DATEFIELD;\r
-\r
- if ((SHORT)LOWORD(wScroll) != SB_THUMBPOSITION) return 0;\r
- if (!(infoPtr->haveFocus)) return 0;\r
- if ((fieldNum==0) && (infoPtr->select)) return 0;\r
-\r
- if (infoPtr->pendingUpdown >= 0) {\r
- DATETIME_IncreaseField (infoPtr, fieldNum, 1);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- }\r
- else {\r
- DATETIME_IncreaseField (infoPtr, fieldNum, -1);\r
- DATETIME_SendDateTimeChangeNotify (infoPtr);\r
- }\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_KillFocus (DATETIME_INFO *infoPtr, HWND lostFocus)\r
-{\r
- TRACE("lost focus to %p\n", lostFocus);\r
-\r
- if (infoPtr->haveFocus) {\r
- DATETIME_SendSimpleNotify (infoPtr, NM_KILLFOCUS);\r
- infoPtr->haveFocus = 0;\r
- }\r
-\r
- InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_NCCreate (HWND hwnd, LPCREATESTRUCTW lpcs)\r
-{\r
- DWORD dwExStyle = GetWindowLongW(hwnd, GWL_EXSTYLE);\r
- /* force control to have client edge */\r
- dwExStyle |= WS_EX_CLIENTEDGE;\r
- SetWindowLongW(hwnd, GWL_EXSTYLE, dwExStyle);\r
-\r
- return DefWindowProcW(hwnd, WM_NCCREATE, 0, (LPARAM)lpcs);\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_SetFocus (DATETIME_INFO *infoPtr, HWND lostFocus)\r
-{\r
- TRACE("got focus from %p\n", lostFocus);\r
-\r
- if (infoPtr->haveFocus == 0) {\r
- DATETIME_SendSimpleNotify (infoPtr, NM_SETFOCUS);\r
- infoPtr->haveFocus = DTHT_GOTFOCUS;\r
- }\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static BOOL\r
-DATETIME_SendDateTimeChangeNotify (DATETIME_INFO *infoPtr)\r
-{\r
- NMDATETIMECHANGE dtdtc;\r
-\r
- dtdtc.nmhdr.hwndFrom = infoPtr->hwndSelf;\r
- dtdtc.nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);\r
- dtdtc.nmhdr.code = DTN_DATETIMECHANGE;\r
-\r
- dtdtc.dwFlags = (infoPtr->dwStyle & DTS_SHOWNONE) ? GDT_NONE : GDT_VALID;\r
-\r
- MONTHCAL_CopyTime (&infoPtr->date, &dtdtc.st);\r
- return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,\r
- (WPARAM)dtdtc.nmhdr.idFrom, (LPARAM)&dtdtc);\r
-}\r
-\r
-\r
-static BOOL\r
-DATETIME_SendSimpleNotify (DATETIME_INFO *infoPtr, UINT code)\r
-{\r
- NMHDR nmhdr;\r
-\r
- TRACE("%x\n", code);\r
- nmhdr.hwndFrom = infoPtr->hwndSelf;\r
- nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);\r
- nmhdr.code = code;\r
-\r
- return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,\r
- (WPARAM)nmhdr.idFrom, (LPARAM)&nmhdr);\r
-}\r
-\r
-static LRESULT\r
-DATETIME_Size (DATETIME_INFO *infoPtr, WORD flags, INT width, INT height)\r
-{\r
- /* set size */\r
- infoPtr->rcClient.bottom = height;\r
- infoPtr->rcClient.right = width;\r
-\r
- TRACE("Height=%ld, Width=%ld\n", infoPtr->rcClient.bottom, infoPtr->rcClient.right);\r
-\r
- infoPtr->rcDraw = infoPtr->rcClient;\r
- \r
- if (infoPtr->dwStyle & DTS_UPDOWN) {\r
- SetWindowPos(infoPtr->hUpdown, NULL,\r
- infoPtr->rcClient.right-14, 0,\r
- 15, infoPtr->rcClient.bottom - infoPtr->rcClient.top,\r
- SWP_NOACTIVATE | SWP_NOZORDER);\r
- }\r
- else {\r
- /* set the size of the button that drops the calendar down */\r
- /* FIXME: account for style that allows button on left side */\r
- infoPtr->calbutton.top = infoPtr->rcDraw.top;\r
- infoPtr->calbutton.bottom= infoPtr->rcDraw.bottom;\r
- infoPtr->calbutton.left = infoPtr->rcDraw.right-15;\r
- infoPtr->calbutton.right = infoPtr->rcDraw.right;\r
- }\r
-\r
- /* set enable/disable button size for show none style being enabled */\r
- /* FIXME: these dimensions are completely incorrect */\r
- infoPtr->checkbox.top = infoPtr->rcDraw.top;\r
- infoPtr->checkbox.bottom = infoPtr->rcDraw.bottom;\r
- infoPtr->checkbox.left = infoPtr->rcDraw.left;\r
- infoPtr->checkbox.right = infoPtr->rcDraw.left + 10;\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT \r
-DATETIME_StyleChanged(DATETIME_INFO *infoPtr, WPARAM wStyleType, LPSTYLESTRUCT lpss)\r
-{\r
- static const WCHAR buttonW[] = { 'b', 'u', 't', 't', 'o', 'n', 0 };\r
-\r
- TRACE("(styletype=%x, styleOld=0x%08lx, styleNew=0x%08lx)\n",\r
- wStyleType, lpss->styleOld, lpss->styleNew);\r
-\r
- if (wStyleType != GWL_STYLE) return 0;\r
- \r
- infoPtr->dwStyle = lpss->styleNew;\r
-\r
- if ( !(lpss->styleOld & DTS_SHOWNONE) && (lpss->styleNew & DTS_SHOWNONE) ) {\r
- infoPtr->hwndCheckbut = CreateWindowExW (0, buttonW, 0, WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX,\r
- 2, 2, 13, 13, infoPtr->hwndSelf, 0, \r
- (HINSTANCE)GetWindowLongPtrW (infoPtr->hwndSelf, GWLP_HINSTANCE), 0);\r
- SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, 1, 0);\r
- }\r
- if ( (lpss->styleOld & DTS_SHOWNONE) && !(lpss->styleNew & DTS_SHOWNONE) ) {\r
- DestroyWindow(infoPtr->hwndCheckbut);\r
- infoPtr->hwndCheckbut = 0;\r
- }\r
- if ( !(lpss->styleOld & DTS_UPDOWN) && (lpss->styleNew & DTS_UPDOWN) ) {\r
- infoPtr->hUpdown = CreateUpDownControl (WS_CHILD | WS_BORDER | WS_VISIBLE, 120, 1, 20, 20, \r
- infoPtr->hwndSelf, 1, 0, 0, UD_MAXVAL, UD_MINVAL, 0);\r
- }\r
- if ( (lpss->styleOld & DTS_UPDOWN) && !(lpss->styleNew & DTS_UPDOWN) ) {\r
- DestroyWindow(infoPtr->hUpdown);\r
- infoPtr->hUpdown = 0;\r
- }\r
-\r
- InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT\r
-DATETIME_Create (HWND hwnd, LPCREATESTRUCTW lpcs)\r
-{\r
- static const WCHAR SysMonthCal32W[] = { 'S', 'y', 's', 'M', 'o', 'n', 't', 'h', 'C', 'a', 'l', '3', '2', 0 };\r
- DATETIME_INFO *infoPtr = (DATETIME_INFO *)Alloc (sizeof(DATETIME_INFO));\r
- STYLESTRUCT ss = { 0, lpcs->style };\r
-\r
- if (!infoPtr) return -1;\r
-\r
- infoPtr->hwndSelf = hwnd;\r
- infoPtr->dwStyle = lpcs->style;\r
-\r
- infoPtr->nrFieldsAllocated = 32;\r
- infoPtr->fieldspec = (int *) Alloc (infoPtr->nrFieldsAllocated * sizeof(int));\r
- infoPtr->fieldRect = (RECT *) Alloc (infoPtr->nrFieldsAllocated * sizeof(RECT));\r
- infoPtr->buflen = (int *) Alloc (infoPtr->nrFieldsAllocated * sizeof(int));\r
- infoPtr->hwndNotify = lpcs->hwndParent;\r
- infoPtr->select = -1; /* initially, nothing is selected */\r
-\r
- DATETIME_StyleChanged(infoPtr, GWL_STYLE, &ss);\r
- DATETIME_SetFormatW (infoPtr, 0);\r
-\r
- /* create the monthcal control */\r
- infoPtr->hMonthCal = CreateWindowExW (0, SysMonthCal32W, 0, WS_BORDER | WS_POPUP | WS_CLIPSIBLINGS, \r
- 0, 0, 0, 0, infoPtr->hwndSelf, 0, 0, 0);\r
-\r
- /* initialize info structure */\r
- GetLocalTime (&infoPtr->date);\r
- infoPtr->dateValid = TRUE;\r
- infoPtr->hFont = GetStockObject(DEFAULT_GUI_FONT);\r
-\r
- SetWindowLongPtrW (hwnd, 0, (DWORD_PTR)infoPtr);\r
-\r
- return 0;\r
-}\r
-\r
-\r
-\r
-static LRESULT\r
-DATETIME_Destroy (DATETIME_INFO *infoPtr)\r
-{\r
- if (infoPtr->hwndCheckbut)\r
- DestroyWindow(infoPtr->hwndCheckbut);\r
- if (infoPtr->hUpdown)\r
- DestroyWindow(infoPtr->hUpdown);\r
- if (infoPtr->hMonthCal) \r
- DestroyWindow(infoPtr->hMonthCal);\r
- SetWindowLongPtrW( infoPtr->hwndSelf, 0, 0 ); /* clear infoPtr */\r
- Free (infoPtr);\r
- return 0;\r
-}\r
-\r
-\r
-static LRESULT WINAPI\r
-DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)\r
-{\r
- DATETIME_INFO *infoPtr = ((DATETIME_INFO *)GetWindowLongPtrW (hwnd, 0));\r
- LRESULT ret;\r
-\r
- TRACE ("%x, %x, %lx\n", uMsg, wParam, lParam);\r
-\r
- if (!infoPtr && (uMsg != WM_CREATE) && (uMsg != WM_NCCREATE))\r
- return DefWindowProcW( hwnd, uMsg, wParam, lParam );\r
-\r
- switch (uMsg) {\r
-\r
- case DTM_GETSYSTEMTIME:\r
- return DATETIME_GetSystemTime (infoPtr, (SYSTEMTIME *) lParam);\r
-\r
- case DTM_SETSYSTEMTIME:\r
- return DATETIME_SetSystemTime (infoPtr, wParam, (SYSTEMTIME *) lParam);\r
-\r
- case DTM_GETRANGE:\r
- ret = SendMessageW (infoPtr->hMonthCal, MCM_GETRANGE, wParam, lParam);\r
- return ret ? ret : 1; /* bug emulation */\r
-\r
- case DTM_SETRANGE:\r
- return SendMessageW (infoPtr->hMonthCal, MCM_SETRANGE, wParam, lParam);\r
-\r
- case DTM_SETFORMATA:\r
- return DATETIME_SetFormatA (infoPtr, (LPCSTR)lParam);\r
-\r
- case DTM_SETFORMATW:\r
- return DATETIME_SetFormatW (infoPtr, (LPCWSTR)lParam);\r
-\r
- case DTM_GETMONTHCAL:\r
- return (LRESULT)infoPtr->hMonthCal;\r
-\r
- case DTM_SETMCCOLOR:\r
- return SendMessageW (infoPtr->hMonthCal, MCM_SETCOLOR, wParam, lParam);\r
-\r
- case DTM_GETMCCOLOR:\r
- return SendMessageW (infoPtr->hMonthCal, MCM_GETCOLOR, wParam, 0);\r
-\r
- case DTM_SETMCFONT:\r
- return SendMessageW (infoPtr->hMonthCal, WM_SETFONT, wParam, lParam);\r
-\r
- case DTM_GETMCFONT:\r
- return SendMessageW (infoPtr->hMonthCal, WM_GETFONT, wParam, lParam);\r
-\r
- case WM_NOTIFY:\r
- return DATETIME_Notify (infoPtr, (int)wParam, (LPNMHDR)lParam);\r
-\r
- case WM_ENABLE:\r
- return DATETIME_Enable (infoPtr, (BOOL)wParam);\r
-\r
- case WM_ERASEBKGND:\r
- return DATETIME_EraseBackground (infoPtr, (HDC)wParam);\r
-\r
- case WM_GETDLGCODE:\r
- return DLGC_WANTARROWS | DLGC_WANTCHARS;\r
-\r
- case WM_PAINT:\r
- return DATETIME_Paint (infoPtr, (HDC)wParam);\r
-\r
- case WM_KEYDOWN:\r
- return DATETIME_KeyDown (infoPtr, wParam, lParam);\r
-\r
- case WM_KILLFOCUS:\r
- return DATETIME_KillFocus (infoPtr, (HWND)wParam);\r
-\r
- case WM_NCCREATE:\r
- return DATETIME_NCCreate (hwnd, (LPCREATESTRUCTW)lParam);\r
-\r
- case WM_SETFOCUS:\r
- return DATETIME_SetFocus (infoPtr, (HWND)wParam);\r
-\r
- case WM_SIZE:\r
- return DATETIME_Size (infoPtr, wParam, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));\r
-\r
- case WM_LBUTTONDOWN:\r
- return DATETIME_LButtonDown (infoPtr, (WORD)wParam, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));\r
-\r
- case WM_LBUTTONUP:\r
- return DATETIME_LButtonUp (infoPtr, (WORD)wParam);\r
-\r
- case WM_VSCROLL:\r
- return DATETIME_VScroll (infoPtr, (WORD)wParam);\r
-\r
- case WM_CREATE:\r
- return DATETIME_Create (hwnd, (LPCREATESTRUCTW)lParam);\r
-\r
- case WM_DESTROY:\r
- return DATETIME_Destroy (infoPtr);\r
-\r
- case WM_COMMAND:\r
- return DATETIME_Command (infoPtr, wParam, lParam);\r
-\r
- case WM_STYLECHANGED:\r
- return DATETIME_StyleChanged(infoPtr, wParam, (LPSTYLESTRUCT)lParam);\r
-\r
- default:\r
- if ((uMsg >= WM_USER) && (uMsg < WM_APP))\r
- ERR("unknown msg %04x wp=%08x lp=%08lx\n",\r
- uMsg, wParam, lParam);\r
- return DefWindowProcW (hwnd, uMsg, wParam, lParam);\r
- }\r
-}\r
-\r
-\r
-void\r
-DATETIME_Register (void)\r
-{\r
- WNDCLASSW wndClass;\r
-\r
- ZeroMemory (&wndClass, sizeof(WNDCLASSW));\r
- wndClass.style = CS_GLOBALCLASS;\r
- wndClass.lpfnWndProc = DATETIME_WindowProc;\r
- wndClass.cbClsExtra = 0;\r
- wndClass.cbWndExtra = sizeof(DATETIME_INFO *);\r
- wndClass.hCursor = LoadCursorW (0, (LPCWSTR)IDC_ARROW);\r
- wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);\r
- wndClass.lpszClassName = DATETIMEPICK_CLASSW;\r
-\r
- RegisterClassW (&wndClass);\r
-}\r
-\r
-\r
-void\r
-DATETIME_Unregister (void)\r
-{\r
- UnregisterClassW (DATETIMEPICK_CLASSW, NULL);\r
-}\r
+/*
+ * Date and time picker control
+ *
+ * Copyright 1998, 1999 Eric Kohl
+ * Copyright 1999, 2000 Alex Priem <alexp@sci.kun.nl>
+ * Copyright 2000 Chris Morgan <cmorgan@wpi.edu>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *
+ * NOTE
+ *
+ * This code was audited for completeness against the documented features
+ * of Comctl32.dll version 6.0 on Oct. 20, 2004, by Dimitrie O. Paun.
+ *
+ * Unless otherwise noted, we believe this code to be complete, as per
+ * the specification mentioned above.
+ * If you discover missing features, or bugs, please note them below.
+ *
+ * TODO:
+ * -- DTS_APPCANPARSE
+ * -- DTS_SHORTDATECENTURYFORMAT
+ * -- DTN_CLOSEUP
+ * -- DTN_FORMAT
+ * -- DTN_FORMATQUERY
+ * -- DTN_USERSTRING
+ * -- DTN_WMKEYDOWN
+ * -- FORMATCALLBACK
+ */
+
+#include <math.h>
+#include <string.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <limits.h>
+
+#include "windef.h"
+#include "winbase.h"
+#include "wingdi.h"
+#include "winuser.h"
+#include "winnls.h"
+#include "commctrl.h"
+#include "comctl32.h"
+#include "wine/debug.h"
+#include "wine/unicode.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(datetime);
+
+typedef struct
+{
+ HWND hwndSelf;
+ HWND hMonthCal;
+ HWND hwndNotify;
+ HWND hUpdown;
+ DWORD dwStyle;
+ SYSTEMTIME date;
+ BOOL dateValid;
+ HWND hwndCheckbut;
+ RECT rcClient; /* rect around the edge of the window */
+ RECT rcDraw; /* rect inside of the border */
+ RECT checkbox; /* checkbox allowing the control to be enabled/disabled */
+ RECT calbutton; /* button that toggles the dropdown of the monthcal control */
+ BOOL bCalDepressed; /* TRUE = cal button is depressed */
+ int select;
+ HFONT hFont;
+ int nrFieldsAllocated;
+ int nrFields;
+ int haveFocus;
+ int *fieldspec;
+ RECT *fieldRect;
+ int *buflen;
+ WCHAR textbuf[256];
+ POINT monthcal_pos;
+ int pendingUpdown;
+} DATETIME_INFO, *LPDATETIME_INFO;
+
+/* in monthcal.c */
+extern int MONTHCAL_MonthLength(int month, int year);
+
+/* this list of defines is closely related to `allowedformatchars' defined
+ * in datetime.c; the high nibble indicates the `base type' of the format
+ * specifier.
+ * Do not change without first reading DATETIME_UseFormat.
+ *
+ */
+
+#define DT_END_FORMAT 0
+#define ONEDIGITDAY 0x01
+#define TWODIGITDAY 0x02
+#define THREECHARDAY 0x03
+#define FULLDAY 0x04
+#define ONEDIGIT12HOUR 0x11
+#define TWODIGIT12HOUR 0x12
+#define ONEDIGIT24HOUR 0x21
+#define TWODIGIT24HOUR 0x22
+#define ONEDIGITMINUTE 0x31
+#define TWODIGITMINUTE 0x32
+#define ONEDIGITMONTH 0x41
+#define TWODIGITMONTH 0x42
+#define THREECHARMONTH 0x43
+#define FULLMONTH 0x44
+#define ONEDIGITSECOND 0x51
+#define TWODIGITSECOND 0x52
+#define ONELETTERAMPM 0x61
+#define TWOLETTERAMPM 0x62
+#define ONEDIGITYEAR 0x71
+#define TWODIGITYEAR 0x72
+#define INVALIDFULLYEAR 0x73 /* FIXME - yyy is not valid - we'll treat it as yyyy */
+#define FULLYEAR 0x74
+#define FORMATCALLBACK 0x81 /* -> maximum of 0x80 callbacks possible */
+#define FORMATCALLMASK 0x80
+#define DT_STRING 0x0100
+
+#define DTHT_DATEFIELD 0xff /* for hit-testing */
+
+#define DTHT_NONE 0
+#define DTHT_CHECKBOX 0x200 /* these should end at '00' , to make */
+#define DTHT_MCPOPUP 0x300 /* & DTHT_DATEFIELD 0 when DATETIME_KeyDown */
+#define DTHT_GOTFOCUS 0x400 /* tests for date-fields */
+
+static BOOL DATETIME_SendSimpleNotify (DATETIME_INFO *infoPtr, UINT code);
+static BOOL DATETIME_SendDateTimeChangeNotify (DATETIME_INFO *infoPtr);
+extern void MONTHCAL_CopyTime(const SYSTEMTIME *from, SYSTEMTIME *to);
+static const WCHAR allowedformatchars[] = {'d', 'h', 'H', 'm', 'M', 's', 't', 'y', 'X', '\'', 0};
+static const int maxrepetition [] = {4,2,2,2,4,2,2,4,-1,-1};
+
+
+static DWORD
+DATETIME_GetSystemTime (DATETIME_INFO *infoPtr, SYSTEMTIME *lprgSysTimeArray)
+{
+ if (!lprgSysTimeArray) return GDT_NONE;
+
+ if ((infoPtr->dwStyle & DTS_SHOWNONE) &&
+ (SendMessageW (infoPtr->hwndCheckbut, BM_GETCHECK, 0, 0) == BST_UNCHECKED))
+ return GDT_NONE;
+
+ MONTHCAL_CopyTime (&infoPtr->date, lprgSysTimeArray);
+
+ return GDT_VALID;
+}
+
+
+static BOOL
+DATETIME_SetSystemTime (DATETIME_INFO *infoPtr, DWORD flag, SYSTEMTIME *lprgSysTimeArray)
+{
+ if (!lprgSysTimeArray) return 0;
+
+ TRACE("%04d/%02d/%02d %02d:%02d:%02d\n",
+ lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay,
+ lprgSysTimeArray->wHour, lprgSysTimeArray->wMinute, lprgSysTimeArray->wSecond);
+
+ if (flag == GDT_VALID) {
+ infoPtr->dateValid = TRUE;
+ MONTHCAL_CopyTime (lprgSysTimeArray, &infoPtr->date);
+ SendMessageW (infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));
+ SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);
+ } else if (flag == GDT_NONE) {
+ infoPtr->dateValid = FALSE;
+ SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_UNCHECKED, 0);
+ }
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+ return TRUE;
+}
+
+
+/***
+ * Split up a formattxt in actions.
+ * See ms documentation for the meaning of the letter codes/'specifiers'.
+ *
+ * Notes:
+ * *'dddddd' is handled as 'dddd' plus 'dd'.
+ * *unrecognized formats are strings (here given the type DT_STRING;
+ * start of the string is encoded in lower bits of DT_STRING.
+ * Therefore, 'string' ends finally up as '<show seconds>tring'.
+ *
+ */
+static void
+DATETIME_UseFormat (DATETIME_INFO *infoPtr, LPCWSTR formattxt)
+{
+ unsigned int i;
+ int j, k, len;
+ int *nrFields = &infoPtr->nrFields;
+
+ *nrFields = 0;
+ infoPtr->fieldspec[*nrFields] = 0;
+ len = strlenW(allowedformatchars);
+ k = 0;
+
+ for (i = 0; formattxt[i]; i++) {
+ TRACE ("\n%d %c:", i, formattxt[i]);
+ for (j = 0; j < len; j++) {
+ if (allowedformatchars[j]==formattxt[i]) {
+ TRACE ("%c[%d,%x]", allowedformatchars[j], *nrFields, infoPtr->fieldspec[*nrFields]);
+ if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
+ infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
+ break;
+ }
+ if (infoPtr->fieldspec[*nrFields] >> 4 != j) {
+ (*nrFields)++;
+ infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
+ break;
+ }
+ if ((infoPtr->fieldspec[*nrFields] & 0x0f) == maxrepetition[j]) {
+ (*nrFields)++;
+ infoPtr->fieldspec[*nrFields] = (j<<4) + 1;
+ break;
+ }
+ infoPtr->fieldspec[*nrFields]++;
+ break;
+ } /* if allowedformatchar */
+ } /* for j */
+
+ /* char is not a specifier: handle char like a string */
+ if (j == len) {
+ if ((*nrFields==0) && (infoPtr->fieldspec[*nrFields]==0)) {
+ infoPtr->fieldspec[*nrFields] = DT_STRING + k;
+ infoPtr->buflen[*nrFields] = 0;
+ } else if ((infoPtr->fieldspec[*nrFields] & DT_STRING) != DT_STRING) {
+ (*nrFields)++;
+ infoPtr->fieldspec[*nrFields] = DT_STRING + k;
+ infoPtr->buflen[*nrFields] = 0;
+ }
+ infoPtr->textbuf[k] = formattxt[i];
+ k++;
+ infoPtr->buflen[*nrFields]++;
+ } /* if j=len */
+
+ if (*nrFields == infoPtr->nrFieldsAllocated) {
+ FIXME ("out of memory; should reallocate. crash ahead.\n");
+ }
+ } /* for i */
+
+ TRACE("\n");
+
+ if (infoPtr->fieldspec[*nrFields] != 0) (*nrFields)++;
+}
+
+
+static BOOL
+DATETIME_SetFormatW (DATETIME_INFO *infoPtr, LPCWSTR lpszFormat)
+{
+ if (!lpszFormat) {
+ WCHAR format_buf[80];
+ DWORD format_item;
+
+ if (infoPtr->dwStyle & DTS_LONGDATEFORMAT)
+ format_item = LOCALE_SLONGDATE;
+ else if ((infoPtr->dwStyle & DTS_TIMEFORMAT) == DTS_TIMEFORMAT)
+ format_item = LOCALE_STIMEFORMAT;
+ else /* DTS_SHORTDATEFORMAT */
+ format_item = LOCALE_SSHORTDATE;
+ GetLocaleInfoW( GetSystemDefaultLCID(), format_item, format_buf, sizeof(format_buf)/sizeof(format_buf[0]));
+ lpszFormat = format_buf;
+ }
+
+ DATETIME_UseFormat (infoPtr, lpszFormat);
+ InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);
+
+ return infoPtr->nrFields;
+}
+
+
+static BOOL
+DATETIME_SetFormatA (DATETIME_INFO *infoPtr, LPCSTR lpszFormat)
+{
+ if (lpszFormat) {
+ BOOL retval;
+ INT len = MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, NULL, 0);
+ LPWSTR wstr = Alloc(len * sizeof(WCHAR));
+ if (wstr) MultiByteToWideChar(CP_ACP, 0, lpszFormat, -1, wstr, len);
+ retval = DATETIME_SetFormatW (infoPtr, wstr);
+ Free (wstr);
+ return retval;
+ }
+ else
+ return DATETIME_SetFormatW (infoPtr, 0);
+
+}
+
+
+static void
+DATETIME_ReturnTxt (DATETIME_INFO *infoPtr, int count, LPWSTR result, int resultSize)
+{
+ static const WCHAR fmt_dW[] = { '%', 'd', 0 };
+ static const WCHAR fmt__2dW[] = { '%', '.', '2', 'd', 0 };
+ static const WCHAR fmt__3sW[] = { '%', '.', '3', 's', 0 };
+ SYSTEMTIME date = infoPtr->date;
+ int spec;
+ WCHAR buffer[80];
+
+ *result=0;
+ TRACE ("%d,%d\n", infoPtr->nrFields, count);
+ if (count>infoPtr->nrFields || count < 0) {
+ WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
+ return;
+ }
+
+ if (!infoPtr->fieldspec) return;
+
+ spec = infoPtr->fieldspec[count];
+ if (spec & DT_STRING) {
+ int txtlen = infoPtr->buflen[count];
+
+ if (txtlen > resultSize)
+ txtlen = resultSize - 1;
+ memcpy (result, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));
+ result[txtlen] = 0;
+ TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));
+ return;
+ }
+
+
+ switch (spec) {
+ case DT_END_FORMAT:
+ *result = 0;
+ break;
+ case ONEDIGITDAY:
+ wsprintfW (result, fmt_dW, date.wDay);
+ break;
+ case TWODIGITDAY:
+ wsprintfW (result, fmt__2dW, date.wDay);
+ break;
+ case THREECHARDAY:
+ GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SABBREVDAYNAME1+(date.wDayOfWeek+6)%7, result, 4);
+ /*wsprintfW (result,"%.3s",days[date.wDayOfWeek]);*/
+ break;
+ case FULLDAY:
+ GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_SDAYNAME1+(date.wDayOfWeek+6)%7, result, resultSize);
+ break;
+ case ONEDIGIT12HOUR:
+ if (date.wHour == 0) {
+ result[0] = '1';
+ result[1] = '2';
+ result[2] = 0;
+ }
+ else
+ wsprintfW (result, fmt_dW, date.wHour - (date.wHour > 12 ? 12 : 0));
+ break;
+ case TWODIGIT12HOUR:
+ if (date.wHour == 0) {
+ result[0] = '1';
+ result[1] = '2';
+ result[2] = 0;
+ }
+ else
+ wsprintfW (result, fmt__2dW, date.wHour - (date.wHour > 12 ? 12 : 0));
+ break;
+ case ONEDIGIT24HOUR:
+ wsprintfW (result, fmt_dW, date.wHour);
+ break;
+ case TWODIGIT24HOUR:
+ wsprintfW (result, fmt__2dW, date.wHour);
+ break;
+ case ONEDIGITSECOND:
+ wsprintfW (result, fmt_dW, date.wSecond);
+ break;
+ case TWODIGITSECOND:
+ wsprintfW (result, fmt__2dW, date.wSecond);
+ break;
+ case ONEDIGITMINUTE:
+ wsprintfW (result, fmt_dW, date.wMinute);
+ break;
+ case TWODIGITMINUTE:
+ wsprintfW (result, fmt__2dW, date.wMinute);
+ break;
+ case ONEDIGITMONTH:
+ wsprintfW (result, fmt_dW, date.wMonth);
+ break;
+ case TWODIGITMONTH:
+ wsprintfW (result, fmt__2dW, date.wMonth);
+ break;
+ case THREECHARMONTH:
+ GetLocaleInfoW(GetSystemDefaultLCID(), LOCALE_SMONTHNAME1+date.wMonth -1,
+ buffer, sizeof(buffer)/sizeof(buffer[0]));
+ wsprintfW (result, fmt__3sW, buffer);
+ break;
+ case FULLMONTH:
+ GetLocaleInfoW(GetSystemDefaultLCID(),LOCALE_SMONTHNAME1+date.wMonth -1,
+ result, resultSize);
+ break;
+ case ONELETTERAMPM:
+ result[0] = (date.wHour < 12 ? 'A' : 'P');
+ result[1] = 0;
+ break;
+ case TWOLETTERAMPM:
+ result[0] = (date.wHour < 12 ? 'A' : 'P');
+ result[1] = 'M';
+ result[2] = 0;
+ break;
+ case FORMATCALLBACK:
+ FIXME ("Not implemented\n");
+ result[0] = 'x';
+ result[1] = 0;
+ break;
+ case ONEDIGITYEAR:
+ wsprintfW (result, fmt_dW, date.wYear-10* (int) floor(date.wYear/10));
+ break;
+ case TWODIGITYEAR:
+ wsprintfW (result, fmt__2dW, date.wYear-100* (int) floor(date.wYear/100));
+ break;
+ case INVALIDFULLYEAR:
+ case FULLYEAR:
+ wsprintfW (result, fmt_dW, date.wYear);
+ break;
+ }
+
+ TRACE ("arg%d=%x->[%s]\n", count, infoPtr->fieldspec[count], debugstr_w(result));
+}
+
+/* Offsets of days in the week to the weekday of january 1 in a leap year. */
+static const int DayOfWeekTable[] = {0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4};
+
+/* returns the day in the week(0 == sunday, 6 == saturday) */
+/* day(1 == 1st, 2 == 2nd... etc), year is the year value */
+static int DATETIME_CalculateDayOfWeek(DWORD day, DWORD month, DWORD year)
+{
+ year-=(month < 3);
+
+ return((year + year/4 - year/100 + year/400 +
+ DayOfWeekTable[month-1] + day ) % 7);
+}
+
+static int wrap(int val, int delta, int minVal, int maxVal)
+{
+ val += delta;
+ if (delta == INT_MIN || val < minVal) return maxVal;
+ if (delta == INT_MAX || val > maxVal) return minVal;
+ return val;
+}
+
+static void
+DATETIME_IncreaseField (DATETIME_INFO *infoPtr, int number, int delta)
+{
+ SYSTEMTIME *date = &infoPtr->date;
+
+ TRACE ("%d\n", number);
+ if ((number > infoPtr->nrFields) || (number < 0)) return;
+
+ if ((infoPtr->fieldspec[number] & DTHT_DATEFIELD) == 0) return;
+
+ switch (infoPtr->fieldspec[number]) {
+ case ONEDIGITYEAR:
+ case TWODIGITYEAR:
+ case FULLYEAR:
+ date->wYear = wrap(date->wYear, delta, 1752, 9999);
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);
+ break;
+ case ONEDIGITMONTH:
+ case TWODIGITMONTH:
+ case THREECHARMONTH:
+ case FULLMONTH:
+ date->wMonth = wrap(date->wMonth, delta, 1, 12);
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);
+ delta = 0;
+ /* fall through */
+ case ONEDIGITDAY:
+ case TWODIGITDAY:
+ case THREECHARDAY:
+ case FULLDAY:
+ date->wDay = wrap(date->wDay, delta, 1, MONTHCAL_MonthLength(date->wMonth, date->wYear));
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(date->wDay,date->wMonth,date->wYear);
+ break;
+ case ONELETTERAMPM:
+ case TWOLETTERAMPM:
+ delta *= 12;
+ /* fall through */
+ case ONEDIGIT12HOUR:
+ case TWODIGIT12HOUR:
+ case ONEDIGIT24HOUR:
+ case TWODIGIT24HOUR:
+ date->wHour = wrap(date->wHour, delta, 0, 23);
+ break;
+ case ONEDIGITMINUTE:
+ case TWODIGITMINUTE:
+ date->wMinute = wrap(date->wMinute, delta, 0, 59);
+ break;
+ case ONEDIGITSECOND:
+ case TWODIGITSECOND:
+ date->wSecond = wrap(date->wSecond, delta, 0, 59);
+ break;
+ case FORMATCALLBACK:
+ FIXME ("Not implemented\n");
+ break;
+ }
+
+ /* FYI: On 1752/9/14 the calendar changed and England and the
+ * American colonies changed to the Gregorian calendar. This change
+ * involved having September 14th follow September 2nd. So no date
+ * algorithm works before that date.
+ */
+ if (10000 * date->wYear + 100 * date->wMonth + date->wDay < 17520914) {
+ date->wYear = 1752;
+ date->wMonth = 9;
+ date->wDay = 14;
+ date->wSecond = 0;
+ date->wMinute = 0;
+ date->wHour = 0;
+ }
+}
+
+
+static void
+DATETIME_ReturnFieldWidth (DATETIME_INFO *infoPtr, HDC hdc, int count, SHORT *fieldWidthPtr)
+{
+ /* fields are a fixed width, determined by the largest possible string */
+ /* presumably, these widths should be language dependent */
+ static const WCHAR fld_d1W[] = { '2', 0 };
+ static const WCHAR fld_d2W[] = { '2', '2', 0 };
+ static const WCHAR fld_d4W[] = { '2', '2', '2', '2', 0 };
+ static const WCHAR fld_am1[] = { 'A', 0 };
+ static const WCHAR fld_am2[] = { 'A', 'M', 0 };
+ static const WCHAR fld_day[] = { 'W', 'e', 'd', 'n', 'e', 's', 'd', 'a', 'y', 0 };
+ static const WCHAR fld_day3[] = { 'W', 'e', 'd', 0 };
+ static const WCHAR fld_mon[] = { 'S', 'e', 'p', 't', 'e', 'm', 'b', 'e', 'r', 0 };
+ static const WCHAR fld_mon3[] = { 'D', 'e', 'c', 0 };
+ int spec;
+ WCHAR buffer[80], *bufptr;
+ SIZE size;
+
+ TRACE ("%d,%d\n", infoPtr->nrFields, count);
+ if (count>infoPtr->nrFields || count < 0) {
+ WARN ("buffer overrun, have %d want %d\n", infoPtr->nrFields, count);
+ return;
+ }
+
+ if (!infoPtr->fieldspec) return;
+
+ spec = infoPtr->fieldspec[count];
+ if (spec & DT_STRING) {
+ int txtlen = infoPtr->buflen[count];
+
+ if (txtlen > 79)
+ txtlen = 79;
+ memcpy (buffer, infoPtr->textbuf + (spec &~ DT_STRING), txtlen * sizeof(WCHAR));
+ buffer[txtlen] = 0;
+ bufptr = buffer;
+ }
+ else {
+ switch (spec) {
+ case ONEDIGITDAY:
+ case ONEDIGIT12HOUR:
+ case ONEDIGIT24HOUR:
+ case ONEDIGITSECOND:
+ case ONEDIGITMINUTE:
+ case ONEDIGITMONTH:
+ case ONEDIGITYEAR:
+ /* these seem to use a two byte field */
+ case TWODIGITDAY:
+ case TWODIGIT12HOUR:
+ case TWODIGIT24HOUR:
+ case TWODIGITSECOND:
+ case TWODIGITMINUTE:
+ case TWODIGITMONTH:
+ case TWODIGITYEAR:
+ bufptr = (WCHAR *)fld_d2W;
+ break;
+ case INVALIDFULLYEAR:
+ case FULLYEAR:
+ bufptr = (WCHAR *)fld_d4W;
+ break;
+ case THREECHARDAY:
+ bufptr = (WCHAR *)fld_day3;
+ break;
+ case FULLDAY:
+ bufptr = (WCHAR *)fld_day;
+ break;
+ case THREECHARMONTH:
+ bufptr = (WCHAR *)fld_mon3;
+ break;
+ case FULLMONTH:
+ bufptr = (WCHAR *)fld_mon;
+ break;
+ case ONELETTERAMPM:
+ bufptr = (WCHAR *)fld_am1;
+ break;
+ case TWOLETTERAMPM:
+ bufptr = (WCHAR *)fld_am2;
+ break;
+ default:
+ bufptr = (WCHAR *)fld_d1W;
+ break;
+ }
+ }
+ GetTextExtentPoint32W (hdc, bufptr, strlenW(bufptr), &size);
+ *fieldWidthPtr = size.cx;
+}
+
+static void
+DATETIME_Refresh (DATETIME_INFO *infoPtr, HDC hdc)
+{
+ int i,prevright;
+ RECT *field;
+ RECT *rcDraw = &infoPtr->rcDraw;
+ RECT *calbutton = &infoPtr->calbutton;
+ RECT *checkbox = &infoPtr->checkbox;
+ SIZE size;
+ COLORREF oldTextColor;
+ SHORT fieldWidth = 0;
+
+ /* draw control edge */
+ TRACE("\n");
+
+ if (infoPtr->dateValid) {
+ HFONT oldFont = SelectObject (hdc, infoPtr->hFont);
+ INT oldBkMode = SetBkMode (hdc, TRANSPARENT);
+ WCHAR txt[80];
+
+ DATETIME_ReturnTxt (infoPtr, 0, txt, sizeof(txt)/sizeof(txt[0]));
+ GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);
+ rcDraw->bottom = size.cy + 2;
+
+ prevright = checkbox->right = ((infoPtr->dwStyle & DTS_SHOWNONE) ? 18 : 2);
+
+ for (i = 0; i < infoPtr->nrFields; i++) {
+ DATETIME_ReturnTxt (infoPtr, i, txt, sizeof(txt)/sizeof(txt[0]));
+ GetTextExtentPoint32W (hdc, txt, strlenW(txt), &size);
+ DATETIME_ReturnFieldWidth (infoPtr, hdc, i, &fieldWidth);
+ field = &infoPtr->fieldRect[i];
+ field->left = prevright;
+ field->right = prevright + fieldWidth;
+ field->top = rcDraw->top;
+ field->bottom = rcDraw->bottom;
+ prevright = field->right;
+
+ if (infoPtr->dwStyle & WS_DISABLED)
+ oldTextColor = SetTextColor (hdc, comctl32_color.clrGrayText);
+ else if ((infoPtr->haveFocus) && (i == infoPtr->select)) {
+ /* fill if focussed */
+ HBRUSH hbr = CreateSolidBrush (comctl32_color.clrActiveCaption);
+ FillRect(hdc, field, hbr);
+ DeleteObject (hbr);
+ oldTextColor = SetTextColor (hdc, comctl32_color.clrWindow);
+ }
+ else
+ oldTextColor = SetTextColor (hdc, comctl32_color.clrWindowText);
+
+ /* draw the date text using the colour set above */
+ DrawTextW (hdc, txt, strlenW(txt), field, DT_RIGHT | DT_VCENTER | DT_SINGLELINE);
+ SetTextColor (hdc, oldTextColor);
+ }
+ SetBkMode (hdc, oldBkMode);
+ SelectObject (hdc, oldFont);
+ }
+
+ if (!(infoPtr->dwStyle & DTS_UPDOWN)) {
+ DrawFrameControl(hdc, calbutton, DFC_SCROLL,
+ DFCS_SCROLLDOWN | (infoPtr->bCalDepressed ? DFCS_PUSHED : 0) |
+ (infoPtr->dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
+ }
+}
+
+
+static INT
+DATETIME_HitTest (DATETIME_INFO *infoPtr, POINT pt)
+{
+ int i;
+
+ TRACE ("%ld, %ld\n", pt.x, pt.y);
+
+ if (PtInRect (&infoPtr->calbutton, pt)) return DTHT_MCPOPUP;
+ if (PtInRect (&infoPtr->checkbox, pt)) return DTHT_CHECKBOX;
+
+ for (i=0; i < infoPtr->nrFields; i++) {
+ if (PtInRect (&infoPtr->fieldRect[i], pt)) return i;
+ }
+
+ return DTHT_NONE;
+}
+
+
+static LRESULT
+DATETIME_LButtonDown (DATETIME_INFO *infoPtr, WORD wKey, INT x, INT y)
+{
+ POINT pt;
+ int old, new;
+
+ pt.x = x;
+ pt.y = y;
+ old = infoPtr->select;
+ new = DATETIME_HitTest (infoPtr, pt);
+
+ /* FIXME: might be conditions where we don't want to update infoPtr->select */
+ infoPtr->select = new;
+
+ SetFocus(infoPtr->hwndSelf);
+
+ if (infoPtr->select == DTHT_MCPOPUP) {
+ RECT rcMonthCal;
+ SendMessageW(infoPtr->hMonthCal, MCM_GETMINREQRECT, 0, (LPARAM)&rcMonthCal);
+
+ /* FIXME: button actually is only depressed during dropdown of the */
+ /* calendar control and when the mouse is over the button window */
+ infoPtr->bCalDepressed = TRUE;
+
+ /* recalculate the position of the monthcal popup */
+ if(infoPtr->dwStyle & DTS_RIGHTALIGN)
+ infoPtr->monthcal_pos.x = infoPtr->calbutton.left -
+ (rcMonthCal.right - rcMonthCal.left);
+ else
+ /* FIXME: this should be after the area reserved for the checkbox */
+ infoPtr->monthcal_pos.x = infoPtr->rcDraw.left;
+
+ infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom;
+ ClientToScreen (infoPtr->hwndSelf, &(infoPtr->monthcal_pos));
+ SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x,
+ infoPtr->monthcal_pos.y, rcMonthCal.right - rcMonthCal.left,
+ rcMonthCal.bottom - rcMonthCal.top, 0);
+
+ if(IsWindowVisible(infoPtr->hMonthCal)) {
+ ShowWindow(infoPtr->hMonthCal, SW_HIDE);
+ } else {
+ SYSTEMTIME *lprgSysTimeArray = &infoPtr->date;
+ TRACE("update calendar %04d/%02d/%02d\n",
+ lprgSysTimeArray->wYear, lprgSysTimeArray->wMonth, lprgSysTimeArray->wDay);
+ SendMessageW(infoPtr->hMonthCal, MCM_SETCURSEL, 0, (LPARAM)(&infoPtr->date));
+ ShowWindow(infoPtr->hMonthCal, SW_SHOW);
+ }
+
+ TRACE ("dt:%p mc:%p mc parent:%p, desktop:%p\n",
+ infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hwndNotify, GetDesktopWindow ());
+ DATETIME_SendSimpleNotify (infoPtr, DTN_DROPDOWN);
+ }
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_LButtonUp (DATETIME_INFO *infoPtr, WORD wKey)
+{
+ if(infoPtr->bCalDepressed) {
+ infoPtr->bCalDepressed = FALSE;
+ InvalidateRect(infoPtr->hwndSelf, &(infoPtr->calbutton), TRUE);
+ }
+
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_Paint (DATETIME_INFO *infoPtr, HDC hdc)
+{
+ if (!hdc) {
+ PAINTSTRUCT ps;
+ hdc = BeginPaint (infoPtr->hwndSelf, &ps);
+ DATETIME_Refresh (infoPtr, hdc);
+ EndPaint (infoPtr->hwndSelf, &ps);
+ } else {
+ DATETIME_Refresh (infoPtr, hdc);
+ }
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_Button_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
+{
+ if( HIWORD(wParam) == BN_CLICKED) {
+ DWORD state = SendMessageW((HWND)lParam, BM_GETCHECK, 0, 0);
+ infoPtr->dateValid = (state == BST_CHECKED);
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+ }
+ return 0;
+}
+
+
+
+static LRESULT
+DATETIME_Command (DATETIME_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
+{
+ TRACE("hwndbutton = %p\n", infoPtr->hwndCheckbut);
+ if(infoPtr->hwndCheckbut == (HWND)lParam)
+ return DATETIME_Button_Command(infoPtr, wParam, lParam);
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_Enable (DATETIME_INFO *infoPtr, BOOL bEnable)
+{
+ TRACE("%p %s\n", infoPtr, bEnable ? "TRUE" : "FALSE");
+ if (bEnable)
+ infoPtr->dwStyle &= ~WS_DISABLED;
+ else
+ infoPtr->dwStyle |= WS_DISABLED;
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_EraseBackground (DATETIME_INFO *infoPtr, HDC hdc)
+{
+ HBRUSH hBrush, hSolidBrush = NULL;
+ RECT rc;
+
+ if (infoPtr->dwStyle & WS_DISABLED)
+ hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrBtnFace);
+ else
+ {
+ hBrush = (HBRUSH)SendMessageW(infoPtr->hwndNotify, WM_CTLCOLOREDIT,
+ (WPARAM)hdc, (LPARAM)infoPtr->hwndSelf);
+ if (!hBrush)
+ hBrush = hSolidBrush = CreateSolidBrush(comctl32_color.clrWindow);
+ }
+
+ GetClientRect (infoPtr->hwndSelf, &rc);
+
+ FillRect (hdc, &rc, hBrush);
+
+ if (hSolidBrush)
+ DeleteObject(hSolidBrush);
+
+ return -1;
+}
+
+
+static LRESULT
+DATETIME_Notify (DATETIME_INFO *infoPtr, int idCtrl, LPNMHDR lpnmh)
+{
+ TRACE ("Got notification %x from %p\n", lpnmh->code, lpnmh->hwndFrom);
+ TRACE ("info: %p %p %p\n", infoPtr->hwndSelf, infoPtr->hMonthCal, infoPtr->hUpdown);
+
+ if (lpnmh->code == MCN_SELECT) {
+ ShowWindow(infoPtr->hMonthCal, SW_HIDE);
+ infoPtr->dateValid = TRUE;
+ SendMessageW (infoPtr->hMonthCal, MCM_GETCURSEL, 0, (LPARAM)&infoPtr->date);
+ TRACE("got from calendar %04d/%02d/%02d day of week %d\n",
+ infoPtr->date.wYear, infoPtr->date.wMonth, infoPtr->date.wDay, infoPtr->date.wDayOfWeek);
+ SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0);
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ }
+ if ((lpnmh->hwndFrom == infoPtr->hUpdown) && (lpnmh->code == UDN_DELTAPOS)) {
+ LPNMUPDOWN lpnmud = (LPNMUPDOWN)lpnmh;
+ TRACE("Delta pos %d\n", lpnmud->iDelta);
+ infoPtr->pendingUpdown = lpnmud->iDelta;
+ }
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_KeyDown (DATETIME_INFO *infoPtr, DWORD vkCode, LPARAM flags)
+{
+ int fieldNum = infoPtr->select & DTHT_DATEFIELD;
+ int wrap = 0;
+
+ if (!(infoPtr->haveFocus)) return 0;
+ if ((fieldNum==0) && (infoPtr->select)) return 0;
+
+ if (infoPtr->select & FORMATCALLMASK) {
+ FIXME ("Callbacks not implemented yet\n");
+ }
+
+ if (vkCode >= '0' && vkCode <= '9') {
+ /* this is a somewhat simplified version of what Windows does */
+ SYSTEMTIME *date = &infoPtr->date;
+ switch (infoPtr->fieldspec[fieldNum]) {
+ case ONEDIGITYEAR:
+ case TWODIGITYEAR:
+ date->wYear = date->wYear - (date->wYear%100) +
+ (date->wYear%10)*10 + (vkCode-'0');
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
+ date->wDay,date->wMonth,date->wYear);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case INVALIDFULLYEAR:
+ case FULLYEAR:
+ date->wYear = (date->wYear%1000)*10 + (vkCode-'0');
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
+ date->wDay,date->wMonth,date->wYear);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case ONEDIGITMONTH:
+ case TWODIGITMONTH:
+ if ((date->wMonth%10) > 1 || (vkCode-'0') > 2)
+ date->wMonth = vkCode-'0';
+ else
+ date->wMonth = (date->wMonth%10)*10+vkCode-'0';
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
+ date->wDay,date->wMonth,date->wYear);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case ONEDIGITDAY:
+ case TWODIGITDAY:
+ /* probably better checking here would help */
+ if ((date->wDay%10) >= 3 && (vkCode-'0') > 1)
+ date->wDay = vkCode-'0';
+ else
+ date->wDay = (date->wDay%10)*10+vkCode-'0';
+ date->wDayOfWeek = DATETIME_CalculateDayOfWeek(
+ date->wDay,date->wMonth,date->wYear);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case ONEDIGIT12HOUR:
+ case TWODIGIT12HOUR:
+ if ((date->wHour%10) > 1 || (vkCode-'0') > 2)
+ date->wHour = vkCode-'0';
+ else
+ date->wHour = (date->wHour%10)*10+vkCode-'0';
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case ONEDIGIT24HOUR:
+ case TWODIGIT24HOUR:
+ if ((date->wHour%10) > 2)
+ date->wHour = vkCode-'0';
+ else if ((date->wHour%10) == 2 && (vkCode-'0') > 3)
+ date->wHour = vkCode-'0';
+ else
+ date->wHour = (date->wHour%10)*10+vkCode-'0';
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case ONEDIGITMINUTE:
+ case TWODIGITMINUTE:
+ if ((date->wMinute%10) > 5)
+ date->wMinute = vkCode-'0';
+ else
+ date->wMinute = (date->wMinute%10)*10+vkCode-'0';
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case ONEDIGITSECOND:
+ case TWODIGITSECOND:
+ if ((date->wSecond%10) > 5)
+ date->wSecond = vkCode-'0';
+ else
+ date->wSecond = (date->wSecond%10)*10+vkCode-'0';
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ }
+ }
+
+ switch (vkCode) {
+ case VK_ADD:
+ case VK_UP:
+ DATETIME_IncreaseField (infoPtr, fieldNum, 1);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case VK_SUBTRACT:
+ case VK_DOWN:
+ DATETIME_IncreaseField (infoPtr, fieldNum, -1);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case VK_HOME:
+ DATETIME_IncreaseField (infoPtr, fieldNum, INT_MIN);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case VK_END:
+ DATETIME_IncreaseField (infoPtr, fieldNum, INT_MAX);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ break;
+ case VK_LEFT:
+ do {
+ if (infoPtr->select == 0) {
+ infoPtr->select = infoPtr->nrFields - 1;
+ wrap++;
+ } else {
+ infoPtr->select--;
+ }
+ } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
+ break;
+ case VK_RIGHT:
+ do {
+ infoPtr->select++;
+ if (infoPtr->select==infoPtr->nrFields) {
+ infoPtr->select = 0;
+ wrap++;
+ }
+ } while ((infoPtr->fieldspec[infoPtr->select] & DT_STRING) && (wrap<2));
+ break;
+ }
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_VScroll (DATETIME_INFO *infoPtr, WORD wScroll)
+{
+ int fieldNum = infoPtr->select & DTHT_DATEFIELD;
+
+ if ((SHORT)LOWORD(wScroll) != SB_THUMBPOSITION) return 0;
+ if (!(infoPtr->haveFocus)) return 0;
+ if ((fieldNum==0) && (infoPtr->select)) return 0;
+
+ if (infoPtr->pendingUpdown >= 0) {
+ DATETIME_IncreaseField (infoPtr, fieldNum, 1);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ }
+ else {
+ DATETIME_IncreaseField (infoPtr, fieldNum, -1);
+ DATETIME_SendDateTimeChangeNotify (infoPtr);
+ }
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_KillFocus (DATETIME_INFO *infoPtr, HWND lostFocus)
+{
+ TRACE("lost focus to %p\n", lostFocus);
+
+ if (infoPtr->haveFocus) {
+ DATETIME_SendSimpleNotify (infoPtr, NM_KILLFOCUS);
+ infoPtr->haveFocus = 0;
+ }
+
+ InvalidateRect (infoPtr->hwndSelf, NULL, TRUE);
+
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_NCCreate (HWND hwnd, LPCREATESTRUCTW lpcs)
+{
+ DWORD dwExStyle = GetWindowLongW(hwnd, GWL_EXSTYLE);
+ /* force control to have client edge */
+ dwExStyle |= WS_EX_CLIENTEDGE;
+ SetWindowLongW(hwnd, GWL_EXSTYLE, dwExStyle);
+
+ return DefWindowProcW(hwnd, WM_NCCREATE, 0, (LPARAM)lpcs);
+}
+
+
+static LRESULT
+DATETIME_SetFocus (DATETIME_INFO *infoPtr, HWND lostFocus)
+{
+ TRACE("got focus from %p\n", lostFocus);
+
+ if (infoPtr->haveFocus == 0) {
+ DATETIME_SendSimpleNotify (infoPtr, NM_SETFOCUS);
+ infoPtr->haveFocus = DTHT_GOTFOCUS;
+ }
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);
+
+ return 0;
+}
+
+
+static BOOL
+DATETIME_SendDateTimeChangeNotify (DATETIME_INFO *infoPtr)
+{
+ NMDATETIMECHANGE dtdtc;
+
+ dtdtc.nmhdr.hwndFrom = infoPtr->hwndSelf;
+ dtdtc.nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);
+ dtdtc.nmhdr.code = DTN_DATETIMECHANGE;
+
+ dtdtc.dwFlags = (infoPtr->dwStyle & DTS_SHOWNONE) ? GDT_NONE : GDT_VALID;
+
+ MONTHCAL_CopyTime (&infoPtr->date, &dtdtc.st);
+ return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
+ (WPARAM)dtdtc.nmhdr.idFrom, (LPARAM)&dtdtc);
+}
+
+
+static BOOL
+DATETIME_SendSimpleNotify (DATETIME_INFO *infoPtr, UINT code)
+{
+ NMHDR nmhdr;
+
+ TRACE("%x\n", code);
+ nmhdr.hwndFrom = infoPtr->hwndSelf;
+ nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwndSelf, GWLP_ID);
+ nmhdr.code = code;
+
+ return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
+ (WPARAM)nmhdr.idFrom, (LPARAM)&nmhdr);
+}
+
+static LRESULT
+DATETIME_Size (DATETIME_INFO *infoPtr, WORD flags, INT width, INT height)
+{
+ /* set size */
+ infoPtr->rcClient.bottom = height;
+ infoPtr->rcClient.right = width;
+
+ TRACE("Height=%ld, Width=%ld\n", infoPtr->rcClient.bottom, infoPtr->rcClient.right);
+
+ infoPtr->rcDraw = infoPtr->rcClient;
+
+ if (infoPtr->dwStyle & DTS_UPDOWN) {
+ SetWindowPos(infoPtr->hUpdown, NULL,
+ infoPtr->rcClient.right-14, 0,
+ 15, infoPtr->rcClient.bottom - infoPtr->rcClient.top,
+ SWP_NOACTIVATE | SWP_NOZORDER);
+ }
+ else {
+ /* set the size of the button that drops the calendar down */
+ /* FIXME: account for style that allows button on left side */
+ infoPtr->calbutton.top = infoPtr->rcDraw.top;
+ infoPtr->calbutton.bottom= infoPtr->rcDraw.bottom;
+ infoPtr->calbutton.left = infoPtr->rcDraw.right-15;
+ infoPtr->calbutton.right = infoPtr->rcDraw.right;
+ }
+
+ /* set enable/disable button size for show none style being enabled */
+ /* FIXME: these dimensions are completely incorrect */
+ infoPtr->checkbox.top = infoPtr->rcDraw.top;
+ infoPtr->checkbox.bottom = infoPtr->rcDraw.bottom;
+ infoPtr->checkbox.left = infoPtr->rcDraw.left;
+ infoPtr->checkbox.right = infoPtr->rcDraw.left + 10;
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, FALSE);
+
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_StyleChanged(DATETIME_INFO *infoPtr, WPARAM wStyleType, LPSTYLESTRUCT lpss)
+{
+ static const WCHAR buttonW[] = { 'b', 'u', 't', 't', 'o', 'n', 0 };
+
+ TRACE("(styletype=%x, styleOld=0x%08lx, styleNew=0x%08lx)\n",
+ wStyleType, lpss->styleOld, lpss->styleNew);
+
+ if (wStyleType != GWL_STYLE) return 0;
+
+ infoPtr->dwStyle = lpss->styleNew;
+
+ if ( !(lpss->styleOld & DTS_SHOWNONE) && (lpss->styleNew & DTS_SHOWNONE) ) {
+ infoPtr->hwndCheckbut = CreateWindowExW (0, buttonW, 0, WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX,
+ 2, 2, 13, 13, infoPtr->hwndSelf, 0,
+ (HINSTANCE)GetWindowLongPtrW (infoPtr->hwndSelf, GWLP_HINSTANCE), 0);
+ SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, 1, 0);
+ }
+ if ( (lpss->styleOld & DTS_SHOWNONE) && !(lpss->styleNew & DTS_SHOWNONE) ) {
+ DestroyWindow(infoPtr->hwndCheckbut);
+ infoPtr->hwndCheckbut = 0;
+ }
+ if ( !(lpss->styleOld & DTS_UPDOWN) && (lpss->styleNew & DTS_UPDOWN) ) {
+ infoPtr->hUpdown = CreateUpDownControl (WS_CHILD | WS_BORDER | WS_VISIBLE, 120, 1, 20, 20,
+ infoPtr->hwndSelf, 1, 0, 0, UD_MAXVAL, UD_MINVAL, 0);
+ }
+ if ( (lpss->styleOld & DTS_UPDOWN) && !(lpss->styleNew & DTS_UPDOWN) ) {
+ DestroyWindow(infoPtr->hUpdown);
+ infoPtr->hUpdown = 0;
+ }
+
+ InvalidateRect(infoPtr->hwndSelf, NULL, TRUE);
+ return 0;
+}
+
+
+static LRESULT
+DATETIME_Create (HWND hwnd, LPCREATESTRUCTW lpcs)
+{
+ static const WCHAR SysMonthCal32W[] = { 'S', 'y', 's', 'M', 'o', 'n', 't', 'h', 'C', 'a', 'l', '3', '2', 0 };
+ DATETIME_INFO *infoPtr = (DATETIME_INFO *)Alloc (sizeof(DATETIME_INFO));
+ STYLESTRUCT ss = { 0, lpcs->style };
+
+ if (!infoPtr) return -1;
+
+ infoPtr->hwndSelf = hwnd;
+ infoPtr->dwStyle = lpcs->style;
+
+ infoPtr->nrFieldsAllocated = 32;
+ infoPtr->fieldspec = (int *) Alloc (infoPtr->nrFieldsAllocated * sizeof(int));
+ infoPtr->fieldRect = (RECT *) Alloc (infoPtr->nrFieldsAllocated * sizeof(RECT));
+ infoPtr->buflen = (int *) Alloc (infoPtr->nrFieldsAllocated * sizeof(int));
+ infoPtr->hwndNotify = lpcs->hwndParent;
+ infoPtr->select = -1; /* initially, nothing is selected */
+
+ DATETIME_StyleChanged(infoPtr, GWL_STYLE, &ss);
+ DATETIME_SetFormatW (infoPtr, 0);
+
+ /* create the monthcal control */
+ infoPtr->hMonthCal = CreateWindowExW (0, SysMonthCal32W, 0, WS_BORDER | WS_POPUP | WS_CLIPSIBLINGS,
+ 0, 0, 0, 0, infoPtr->hwndSelf, 0, 0, 0);
+
+ /* initialize info structure */
+ GetLocalTime (&infoPtr->date);
+ infoPtr->dateValid = TRUE;
+ infoPtr->hFont = GetStockObject(DEFAULT_GUI_FONT);
+
+ SetWindowLongPtrW (hwnd, 0, (DWORD_PTR)infoPtr);
+
+ return 0;
+}
+
+
+
+static LRESULT
+DATETIME_Destroy (DATETIME_INFO *infoPtr)
+{
+ if (infoPtr->hwndCheckbut)
+ DestroyWindow(infoPtr->hwndCheckbut);
+ if (infoPtr->hUpdown)
+ DestroyWindow(infoPtr->hUpdown);
+ if (infoPtr->hMonthCal)
+ DestroyWindow(infoPtr->hMonthCal);
+ SetWindowLongPtrW( infoPtr->hwndSelf, 0, 0 ); /* clear infoPtr */
+ Free (infoPtr);
+ return 0;
+}
+
+
+static LRESULT WINAPI
+DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
+{
+ DATETIME_INFO *infoPtr = ((DATETIME_INFO *)GetWindowLongPtrW (hwnd, 0));
+ LRESULT ret;
+
+ TRACE ("%x, %x, %lx\n", uMsg, wParam, lParam);
+
+ if (!infoPtr && (uMsg != WM_CREATE) && (uMsg != WM_NCCREATE))
+ return DefWindowProcW( hwnd, uMsg, wParam, lParam );
+
+ switch (uMsg) {
+
+ case DTM_GETSYSTEMTIME:
+ return DATETIME_GetSystemTime (infoPtr, (SYSTEMTIME *) lParam);
+
+ case DTM_SETSYSTEMTIME:
+ return DATETIME_SetSystemTime (infoPtr, wParam, (SYSTEMTIME *) lParam);
+
+ case DTM_GETRANGE:
+ ret = SendMessageW (infoPtr->hMonthCal, MCM_GETRANGE, wParam, lParam);
+ return ret ? ret : 1; /* bug emulation */
+
+ case DTM_SETRANGE:
+ return SendMessageW (infoPtr->hMonthCal, MCM_SETRANGE, wParam, lParam);
+
+ case DTM_SETFORMATA:
+ return DATETIME_SetFormatA (infoPtr, (LPCSTR)lParam);
+
+ case DTM_SETFORMATW:
+ return DATETIME_SetFormatW (infoPtr, (LPCWSTR)lParam);
+
+ case DTM_GETMONTHCAL:
+ return (LRESULT)infoPtr->hMonthCal;
+
+ case DTM_SETMCCOLOR:
+ return SendMessageW (infoPtr->hMonthCal, MCM_SETCOLOR, wParam, lParam);
+
+ case DTM_GETMCCOLOR:
+ return SendMessageW (infoPtr->hMonthCal, MCM_GETCOLOR, wParam, 0);
+
+ case DTM_SETMCFONT:
+ return SendMessageW (infoPtr->hMonthCal, WM_SETFONT, wParam, lParam);
+
+ case DTM_GETMCFONT:
+ return SendMessageW (infoPtr->hMonthCal, WM_GETFONT, wParam, lParam);
+
+ case WM_NOTIFY:
+ return DATETIME_Notify (infoPtr, (int)wParam, (LPNMHDR)lParam);
+
+ case WM_ENABLE:
+ return DATETIME_Enable (infoPtr, (BOOL)wParam);
+
+ case WM_ERASEBKGND:
+ return DATETIME_EraseBackground (infoPtr, (HDC)wParam);
+
+ case WM_GETDLGCODE:
+ return DLGC_WANTARROWS | DLGC_WANTCHARS;
+
+ case WM_PAINT:
+ return DATETIME_Paint (infoPtr, (HDC)wParam);
+
+ case WM_KEYDOWN:
+ return DATETIME_KeyDown (infoPtr, wParam, lParam);
+
+ case WM_KILLFOCUS:
+ return DATETIME_KillFocus (infoPtr, (HWND)wParam);
+
+ case WM_NCCREATE:
+ return DATETIME_NCCreate (hwnd, (LPCREATESTRUCTW)lParam);
+
+ case WM_SETFOCUS:
+ return DATETIME_SetFocus (infoPtr, (HWND)wParam);
+
+ case WM_SIZE:
+ return DATETIME_Size (infoPtr, wParam, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));
+
+ case WM_LBUTTONDOWN:
+ return DATETIME_LButtonDown (infoPtr, (WORD)wParam, (SHORT)LOWORD(lParam), (SHORT)HIWORD(lParam));
+
+ case WM_LBUTTONUP:
+ return DATETIME_LButtonUp (infoPtr, (WORD)wParam);
+
+ case WM_VSCROLL:
+ return DATETIME_VScroll (infoPtr, (WORD)wParam);
+
+ case WM_CREATE:
+ return DATETIME_Create (hwnd, (LPCREATESTRUCTW)lParam);
+
+ case WM_DESTROY:
+ return DATETIME_Destroy (infoPtr);
+
+ case WM_COMMAND:
+ return DATETIME_Command (infoPtr, wParam, lParam);
+
+ case WM_STYLECHANGED:
+ return DATETIME_StyleChanged(infoPtr, wParam, (LPSTYLESTRUCT)lParam);
+
+ default:
+ if ((uMsg >= WM_USER) && (uMsg < WM_APP))
+ ERR("unknown msg %04x wp=%08x lp=%08lx\n",
+ uMsg, wParam, lParam);
+ return DefWindowProcW (hwnd, uMsg, wParam, lParam);
+ }
+}
+
+
+void
+DATETIME_Register (void)
+{
+ WNDCLASSW wndClass;
+
+ ZeroMemory (&wndClass, sizeof(WNDCLASSW));
+ wndClass.style = CS_GLOBALCLASS;
+ wndClass.lpfnWndProc = DATETIME_WindowProc;
+ wndClass.cbClsExtra = 0;
+ wndClass.cbWndExtra = sizeof(DATETIME_INFO *);
+ wndClass.hCursor = LoadCursorW (0, (LPCWSTR)IDC_ARROW);
+ wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
+ wndClass.lpszClassName = DATETIMEPICK_CLASSW;
+
+ RegisterClassW (&wndClass);
+}
+
+
+void
+DATETIME_Unregister (void)
+{
+ UnregisterClassW (DATETIMEPICK_CLASSW, NULL);
+}