/* * Date and time picker control * * Copyright 1998, 1999 Eric Kohl * Copyright 1999, 2000 Alex Priem * Copyright 2000 Chris Morgan * * 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 #include #include #include #include #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; } 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 '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) 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); 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: wsprintfW (result, fmt_dW, date.wHour - (date.wHour > 12 ? 12 : 0)); break; case TWODIGIT12HOUR: 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)); } 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); break; case ONEDIGITMONTH: case TWODIGITMONTH: case THREECHARMONTH: case FULLMONTH: date->wMonth = wrap(date->wMonth, delta, 1, 12); 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)); 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_Refresh (DATETIME_INFO *infoPtr, HDC hdc) { int i,prevright; RECT *field; RECT *rcDraw = &infoPtr->rcDraw; RECT *rcClient = &infoPtr->rcClient; RECT *calbutton = &infoPtr->calbutton; RECT *checkbox = &infoPtr->checkbox; HBRUSH hbr; SIZE size; COLORREF oldBk, oldTextColor; /* draw control edge */ TRACE("\n"); hbr = CreateSolidBrush(RGB(255, 255, 255)); FillRect(hdc, rcClient, hbr); DrawEdge(hdc, rcClient, EDGE_SUNKEN, BF_RECT); DeleteObject(hbr); if (infoPtr->dateValid) { HFONT oldFont = SelectObject (hdc, infoPtr->hFont); 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); field = &infoPtr->fieldRect[i]; field->left = prevright; field->right = prevright+size.cx; field->top = rcDraw->top; field->bottom = rcDraw->bottom; prevright = field->right; if ((infoPtr->haveFocus) && (i == infoPtr->select)) { hbr = CreateSolidBrush (GetSysColor (COLOR_ACTIVECAPTION)); FillRect(hdc, field, hbr); oldBk = SetBkColor (hdc, GetSysColor(COLOR_ACTIVECAPTION)); oldTextColor = SetTextColor (hdc, GetSysColor(COLOR_WINDOW)); DeleteObject (hbr); DrawTextW (hdc, txt, strlenW(txt), field, DT_RIGHT | DT_VCENTER | DT_SINGLELINE); SetBkColor (hdc, oldBk); SetTextColor (hdc, oldTextColor); } else DrawTextW ( hdc, txt, strlenW(txt), field, DT_RIGHT | DT_VCENTER | DT_SINGLELINE ); } 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; if (infoPtr->select != old) infoPtr->haveFocus = DTHT_GOTFOCUS; if (infoPtr->select == DTHT_MCPOPUP) { /* 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->rcClient.right - ((infoPtr->calbutton.right - infoPtr->calbutton.left) + 200); else infoPtr->monthcal_pos.x = 8; infoPtr->monthcal_pos.y = infoPtr->rcClient.bottom; ClientToScreen (infoPtr->hwndSelf, &(infoPtr->monthcal_pos)); /* FIXME My Windoze has cx=about 200, but it probably depends on font size etc */ SetWindowPos(infoPtr->hMonthCal, 0, infoPtr->monthcal_pos.x, infoPtr->monthcal_pos.y, 200, 150, 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, FALSE); return 0; } static LRESULT DATETIME_LButtonUp (DATETIME_INFO *infoPtr, WORD wKey) { if(infoPtr->bCalDepressed == TRUE) { 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_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\n", infoPtr->date.wYear, infoPtr->date.wMonth, infoPtr->date.wDay); SendMessageW (infoPtr->hwndCheckbut, BM_SETCHECK, BST_CHECKED, 0); InvalidateRect(infoPtr->hwndSelf, NULL, TRUE); DATETIME_SendDateTimeChangeNotify (infoPtr); } 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"); } 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, FALSE); return 0; } static LRESULT DATETIME_KillFocus (DATETIME_INFO *infoPtr, HWND lostFocus) { if (infoPtr->haveFocus) { DATETIME_SendSimpleNotify (infoPtr, NM_KILLFOCUS); infoPtr->haveFocus = 0; } InvalidateRect (infoPtr->hwndSelf, NULL, TRUE); return 0; } static LRESULT DATETIME_SetFocus (DATETIME_INFO *infoPtr, HWND 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); memcpy((&infoPtr->rcDraw), (&infoPtr->rcClient), sizeof(infoPtr->rcDraw)); /* subract the size of the edge drawn by DrawEdge */ InflateRect(&infoPtr->rcDraw, -GetSystemMetrics(SM_CXEDGE), -GetSystemMetrics(SM_CYEDGE)); /* 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; /* update the position of the monthcal control */ if(infoPtr->dwStyle & DTS_RIGHTALIGN) infoPtr->monthcal_pos.x = infoPtr->rcClient.right - ((infoPtr->calbutton.right - infoPtr->calbutton.left) + 145); else infoPtr->monthcal_pos.x = 8; 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, 145, 150, 0); 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; 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 */ GetSystemTime (&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)) 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_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_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_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); } return 0; } 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); }