Changeset 496 for trunk/src/comctl32/datetime.c

Timestamp:

Aug 14, 1999, 6:13:16 PM (26 years ago)

Author:

cbratschi

Message:

wine-990731 update

File:

• trunk/src/comctl32/datetime.c (modified) (7 diffs)

trunk/src/comctl32/datetime.c

@@ -1 @@
-/* $Id: datetime.c,v 1.3 1999-06-10 16:21:58 achimha Exp $ */
+/* $Id: datetime.c,v 1.4 1999-08-14 16:13:10 cbratschi Exp $ */
 /*
  * Date and time picker control
  *
  * Copyright 1998, 1999 Eric Kohl
+ * Copyright 1999 Alex Priem <alexp@sci.kun.nl>
  * Copyright 1999 Achim Hasenmueller
+ * Copyright 1999 Christoph Bratschi
  *
- * NOTES
- *   This is just a dummy control. An author is needed! Any volunteers?
- *   I will only improve this control once in a while.
- *     Eric <ekohl@abo.rhein-zeitung.de>
  *
  * TODO:
@@ -20 +18 @@
 #include "commctrl.h"
 #include "datetime.h"
-
+#include "monthcal.h"
+#include <string.h>
+#include <stdio.h>
 
 
 #define DATETIME_GetInfoPtr(hwnd) ((DATETIME_INFO *)GetWindowLongA (hwnd, 0))
+static BOOL
+
+DATETIME_SendSimpleNotify (HWND hwnd, UINT code);
+
+static char *days[] = {"Sunday", "Monday", "Tuesday", "Wednesday",
+                       "Thursday", "Friday", "Saturday", NULL};
+
+static char *monthtxt[] = {"January", "February", "March", "April", "May",
+                           "June", "July", "August", "September", "October",
+                           "November", "December"};
+
+static LRESULT
+DATETIME_GetSystemTime (HWND hwnd, WPARAM wParam, LPARAM lParam )
+{
+  DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+  DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
+  SYSTEMTIME *lprgSysTimeArray=(SYSTEMTIME *) lParam;
+
+  if (!lParam) return GDT_NONE;
+
+  if ((dwStyle & DTS_SHOWNONE) &&
+       (SendMessageA (infoPtr->hwndCheckbut, BM_GETCHECK, 0, 0)))
+        return GDT_NONE;
+
+  MONTHCAL_CopyTime (&infoPtr->date, lprgSysTimeArray);
+
+  return GDT_VALID;
+}
+
+
+static LRESULT
+DATETIME_SetSystemTime (HWND hwnd, WPARAM wParam, LPARAM lParam )
+{
+  DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+  SYSTEMTIME *lprgSysTimeArray=(SYSTEMTIME *) lParam;
+
+  if (!lParam) return 0;
+
+  if (lParam==GDT_VALID)
+        MONTHCAL_CopyTime (lprgSysTimeArray, &infoPtr->date);
+  if (lParam==GDT_NONE) {
+        infoPtr->dateValid=FALSE;
+    SendMessageA (infoPtr->hwndCheckbut, BM_SETCHECK, 0, 0);
+        }
+  return 1;
+}
+
+
+static LRESULT
+DATETIME_GetMonthCalColor (HWND hwnd, WPARAM wParam)
+{
+  DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+
+  return SendMessageA (infoPtr->hMonthCal, MCM_GETCOLOR, wParam, 0);
+}
+
+static LRESULT
+DATETIME_SetMonthCalColor (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+  DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+
+  return SendMessageA (infoPtr->hMonthCal, MCM_SETCOLOR, wParam, lParam);
+}
+
+
+/* FIXME: need to get way to force font into monthcal structure */
+
+static LRESULT
+DATETIME_GetMonthCal (HWND hwnd)
+{
+  DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+
+  return infoPtr->hMonthCal;
+}
+
+
+
+/* FIXME: need to get way to force font into monthcal structure */
+
+static LRESULT
+DATETIME_GetMonthCalFont (HWND hwnd)
+{
+
+  return 0;
+}
+
+static LRESULT
+DATETIME_SetMonthCalFont (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+
+  return 0;
+}
+
+
+static void DATETIME_Refresh (HWND hwnd, HDC hdc)
+
+{
+  DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+  RECT *daytxt   = &infoPtr->daytxt;
+  RECT *daynumtxt= &infoPtr->daynumtxt;
+  RECT *rmonthtxt= &infoPtr->rmonthtxt;
+  RECT *yeartxt  = &infoPtr->yeartxt;
+  RECT *calbutton= &infoPtr->calbutton;
+  RECT *checkbox = &infoPtr->checkbox;
+  RECT *rect     = &infoPtr->rect;
+  DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
+  SYSTEMTIME date = infoPtr->date;
+  SIZE size;
+  BOOL prssed=FALSE;
+  COLORREF oldBk;
+
+
+
+  if (infoPtr->dateValid) {
+    char txt[80];
+        HFONT oldFont;
+        oldFont = SelectObject (hdc, infoPtr->hFont);
+
+        GetClientRect (hwnd, rect);
+
+        sprintf (txt,"%s,",days[date.wDayOfWeek]);
+        GetTextExtentPoint32A (hdc, txt, strlen (txt), &size);
+        rect->bottom=size.cy+2;
+
+        checkbox->left  = 0;
+        checkbox->right = 0;
+        checkbox->top   = rect->top;
+        checkbox->bottom= rect->bottom;
+    if (dwStyle & DTS_SHOWNONE) {    /* FIXME: draw checkbox */
+                checkbox->right=18;
+                }
+
+
+        if (infoPtr->select==(DTHT_DAY|DTHT_GOTFOCUS))
+                oldBk=SetBkColor (hdc, COLOR_GRAYTEXT);
+       daytxt->left  = checkbox->right;
+       daytxt->right = checkbox->right+size.cx;
+       daytxt->top   = rect->top;
+       daytxt->bottom= rect->bottom;
+       DrawTextA ( hdc, txt, strlen(txt), daytxt,
+                         DT_LEFT | DT_VCENTER | DT_SINGLELINE );
+        if (infoPtr->select==(DTHT_DAY|DTHT_GOTFOCUS))
+                SetBkColor (hdc, oldBk);
+
+        if (infoPtr->select==(DTHT_MONTH|DTHT_GOTFOCUS))
+                oldBk=SetBkColor (hdc, COLOR_GRAYTEXT);
+        strcpy (txt, monthtxt[date.wMonth]);
+        GetTextExtentPoint32A (hdc, "September", 9, &size);
+       rmonthtxt->left  = daytxt->right;
+       rmonthtxt->right = daytxt->right+size.cx;
+        rmonthtxt->top   = rect->top;
+        rmonthtxt->bottom= rect->bottom;
+        DrawTextA ( hdc, txt, strlen(txt), rmonthtxt,
+                         DT_CENTER | DT_VCENTER | DT_SINGLELINE );
+        if (infoPtr->select==(DTHT_MONTH|DTHT_GOTFOCUS))
+                SetBkColor (hdc, oldBk);
+
+        if (infoPtr->select==(DTHT_DAYNUM|DTHT_GOTFOCUS))
+                oldBk=SetBkColor (hdc, COLOR_GRAYTEXT);
+        sprintf (txt,"%d,",date.wDay);
+        GetTextExtentPoint32A (hdc, "31,", 3, &size);
+       daynumtxt->left  = rmonthtxt->right;
+       daynumtxt->right = rmonthtxt->right+size.cx;
+        daynumtxt->top   = rect->top;
+        daynumtxt->bottom= rect->bottom;
+        DrawTextA ( hdc, txt, strlen(txt), daynumtxt,
+                         DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
+        if (infoPtr->select==(DTHT_DAYNUM|DTHT_GOTFOCUS))
+                SetBkColor (hdc, oldBk);
+
+        if (infoPtr->select==(DTHT_YEAR|DTHT_GOTFOCUS))
+                oldBk=SetBkColor (hdc, COLOR_GRAYTEXT);
+        sprintf (txt,"%d",date.wYear);
+        GetTextExtentPoint32A (hdc, "2000", 5, &size);
+       yeartxt->left  = daynumtxt->right;
+       yeartxt->right = daynumtxt->right+size.cx;
+        yeartxt->top   = rect->top;
+        yeartxt->bottom= rect->bottom;
+        DrawTextA ( hdc, txt, strlen(txt), yeartxt,
+                         DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
+        if (infoPtr->select==(DTHT_YEAR|DTHT_GOTFOCUS))
+                SetBkColor (hdc, oldBk);
+
+        SelectObject (hdc, oldFont);
+        }
+
+        if (!(dwStyle & DTS_UPDOWN)) {
+
+                calbutton->right = rect->right;
+                calbutton->left  = rect->right-15;
+                calbutton->top   = rect->top;
+                calbutton->bottom= rect->bottom;
+
+        DrawFrameControl(hdc, calbutton, DFC_SCROLL,
+                DFCS_SCROLLDOWN | (prssed ? DFCS_PUSHED : 0) |
+                (dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
+        }
+
+}
+
+static LRESULT
+DATETIME_HitTest (HWND hwnd, DATETIME_INFO *infoPtr, POINT pt)
+{
+  //TRACE ("%ld, %ld\n",pt.x,pt.y);
+
+  if (PtInRect (&infoPtr->calbutton, pt)) return DTHT_MCPOPUP;
+  if (PtInRect (&infoPtr->yeartxt, pt))   return DTHT_YEAR;
+  if (PtInRect (&infoPtr->daynumtxt, pt)) return DTHT_DAYNUM;
+  if (PtInRect (&infoPtr->rmonthtxt, pt)) return DTHT_MONTH;
+  if (PtInRect (&infoPtr->daytxt, pt))    return DTHT_DAY;
+  if (PtInRect (&infoPtr->checkbox, pt))  return DTHT_CHECKBOX;
+
+  return 0;
+}
+
+static LRESULT
+DATETIME_LButtonDown (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+    DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+        POINT pt;
+        int old;
+
+    //TRACE ("\n");
+
+        old=infoPtr->select;
+    pt.x=(INT)LOWORD(lParam);
+    pt.y=(INT)HIWORD(lParam);
+    infoPtr->select=DATETIME_HitTest (hwnd, infoPtr, pt);
+
+        if (infoPtr->select!=old) {
+                HDC hdc;
+
+                SetFocus (hwnd);
+                hdc=GetDC (hwnd);
+                DATETIME_Refresh (hwnd,hdc);
+        ReleaseDC (hwnd, hdc);
+    }
+        if (infoPtr->select==DTHT_MCPOPUP) {
+                        POINT pt;
+
+                        pt.x=8;
+                        pt.y=infoPtr->rect.bottom+5;
+                        ClientToScreen (hwnd, &pt);
+                        infoPtr->hMonthCal=CreateWindowExA (0,"SysMonthCal32", 0,
+                                WS_POPUP | WS_BORDER,
+                                pt.x,pt.y,145,150,
+                                GetParent (hwnd),
+                                0,0,0);
+
+                      //TRACE ("dt:%x mc:%x mc parent:%x, desktop:%x, mcpp:%x\n",
+                      //hwnd,infoPtr->hMonthCal,
+                      //GetParent (infoPtr->hMonthCal),
+                      //GetDesktopWindow (),
+                      //GetParent (GetParent (infoPtr->hMonthCal)));
+
+                        SetFocus (hwnd);
+                        DATETIME_SendSimpleNotify (hwnd, DTN_DROPDOWN);
+        }
+    return 0;
+}
+
+
+static LRESULT
+DATETIME_Paint (HWND hwnd, WPARAM wParam)
+{
+    HDC hdc;
+    PAINTSTRUCT ps;
+
+    hdc = wParam==0 ? BeginPaint (hwnd, &ps) : (HDC)wParam;
+    DATETIME_Refresh (hwnd, hdc);
+    if(!wParam)
+    EndPaint (hwnd, &ps);
+    return 0;
+}
+
+static LRESULT
+DATETIME_ParentNotify (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+    DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+        LPNMHDR lpnmh=(LPNMHDR) lParam;
+
+        //TRACE ("%x,%lx\n",wParam, lParam);
+        //TRACE ("Got notification %x from %x\n", lpnmh->code, lpnmh->hwndFrom);
+        //TRACE ("info: %x %x %x\n",hwnd,infoPtr->hMonthCal,infoPtr->hUpdown);
+        return 0;
+}
+
+static LRESULT
+DATETIME_Notify (HWND hwnd, WPARAM wParam, LPARAM lParam)
+
+{
+    DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+        LPNMHDR lpnmh=(LPNMHDR) lParam;
+
+        //TRACE ("%x,%lx\n",wParam, lParam);
+        //TRACE ("Got notification %x from %x\n", lpnmh->code, lpnmh->hwndFrom);
+        //TRACE ("info: %x %x %x\n",hwnd,infoPtr->hMonthCal,infoPtr->hUpdown);
+        return 0;
+}
+
+static LRESULT
+DATETIME_KillFocus (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+    DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+    HDC hdc;
+
+    //TRACE ("\n");
+
+        if (infoPtr->select) {
+                        DATETIME_SendSimpleNotify (hwnd, NM_KILLFOCUS);
+                        infoPtr->select&= ~DTHT_GOTFOCUS;
+        }
+    hdc = GetDC (hwnd);
+    DATETIME_Refresh (hwnd, hdc);
+    ReleaseDC (hwnd, hdc);
+    InvalidateRect (hwnd, NULL, TRUE);
+
+    return 0;
+}
+
+
+static LRESULT
+DATETIME_SetFocus (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+    HDC hdc;
+    DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
+
+    //TRACE ("\n");
+
+        if (infoPtr->select) {
+                        DATETIME_SendSimpleNotify (hwnd, NM_SETFOCUS);
+                        infoPtr->select|=DTHT_GOTFOCUS;
+        }
+    hdc = GetDC (hwnd);
+    DATETIME_Refresh (hwnd, hdc);
+    ReleaseDC (hwnd, hdc);
+
+    return 0;
+}
+
+
+static BOOL
+DATETIME_SendSimpleNotify (HWND hwnd, UINT code)
+{
+    NMHDR nmhdr;
+
+    //TRACE("%x\n",code);
+    nmhdr.hwndFrom = hwnd;
+    nmhdr.idFrom   = GetWindowLongA( hwnd, GWL_ID);
+    nmhdr.code     = code;
+
+    return (BOOL) SendMessageA (GetParent (hwnd), WM_NOTIFY,
+                                   (WPARAM)nmhdr.idFrom, (LPARAM)&nmhdr);
+}
 
 
@@ -33 +387 @@
 DATETIME_Create (HWND hwnd, WPARAM wParam, LPARAM lParam)
 {
-    DATETIME_INFO *infoPtr;
+  DATETIME_INFO *infoPtr;
+  DWORD dwStyle = GetWindowLongA (hwnd, GWL_STYLE);
 
     /* allocate memory for info structure */
     infoPtr = (DATETIME_INFO *)COMCTL32_Alloc (sizeof(DATETIME_INFO));
     if (infoPtr == NULL) {
-//      ERR (datetime, "could not allocate info memory!\n");
-        return 0;
+        //ERR("could not allocate info memory!\n");
+        return 0;
     }
 
     SetWindowLongA (hwnd, 0, (DWORD)infoPtr);
 
+        if (dwStyle & DTS_SHOWNONE) {
+                infoPtr->hwndCheckbut=CreateWindowExA (0,"button", 0,
+                                WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX,
+                                2,2,13,13,
+                                hwnd,
+                0, GetWindowLongA  (hwnd, GWL_HINSTANCE), 0);
+                SendMessageA (infoPtr->hwndCheckbut, BM_SETCHECK, 1, 0);
+        }
+
+        if (dwStyle & DTS_UPDOWN) {
+
+                        infoPtr->hUpdown=CreateUpDownControl (
+                                WS_CHILD | WS_BORDER | WS_VISIBLE,
+                                120,1,20,20,
+                                hwnd,1,0,0,
+                                UD_MAXVAL, UD_MINVAL, 0);
+        }
 
     /* initialize info structure */
-
-
-
+        infoPtr->hMonthCal=0;
+        GetSystemTime (&infoPtr->date);
+        infoPtr->dateValid = TRUE;
+        infoPtr->hFont = GetStockObject(DEFAULT_GUI_FONT);
     return 0;
 }
@@ -58 +431 @@
     DATETIME_INFO *infoPtr = DATETIME_GetInfoPtr (hwnd);
 
-    /* free datetime info data */
     COMCTL32_Free (infoPtr);
-
-    return 0;
-}
-
-
-
-
-LRESULT WINAPI
+    return 0;
+}
+
+
+
+
+
+static LRESULT WINAPI
 DATETIME_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
 {
+
     switch (uMsg)
     {
 
     case DTM_GETSYSTEMTIME:
-//        FIXME (datetime, "Unimplemented msg DTM_GETSYSTEMTIME\n");
-        return GDT_VALID;
+                DATETIME_GetSystemTime (hwnd, wParam, lParam);
 
     case DTM_SETSYSTEMTIME:
-//        FIXME (datetime, "Unimplemented msg DTM_SETSYSTEMTIME\n");
+                DATETIME_SetSystemTime (hwnd, wParam, lParam);
+
+    case DTM_GETRANGE:
+        //FIXME("Unimplemented msg DTM_GETRANGE\n");
+        return 0;
+
+    case DTM_SETRANGE:
+        //FIXME("Unimplemented msg DTM_SETRANGE\n");
         return 1;
 
-    case DTM_GETRANGE:
-//        FIXME (datetime, "Unimplemented msg DTM_GETRANGE\n");
-        return 0;
-
-    case DTM_SETRANGE:
-//        FIXME (datetime, "Unimplemented msg DTM_SETRANGE\n");
+    case DTM_SETFORMATA:
+        //FIXME("Unimplemented msg DTM_SETFORMAT32A\n");
         return 1;
 
-    case DTM_SETFORMATA:
-//        FIXME (datetime, "Unimplemented msg DTM_SETFORMAT32A\n");
+    case DTM_SETFORMATW:
+        //FIXME("Unimplemented msg DTM_SETFORMAT32W\n");
         return 1;
 
-    case DTM_SETFORMATW:
-//        FIXME (datetime, "Unimplemented msg DTM_SETFORMAT32W\n");
-        return 1;
-
     case DTM_SETMCCOLOR:
-//        FIXME (datetime, "Unimplemented msg DTM_SETMCCOLOR\n");
-        return 0;
+        return DATETIME_SetMonthCalColor (hwnd, wParam, lParam);
 
     case DTM_GETMCCOLOR:
-//        FIXME (datetime, "Unimplemented msg DTM_GETMCCOLOR\n");
-        return 0;
+        return DATETIME_GetMonthCalColor (hwnd, wParam);
 
     case DTM_GETMONTHCAL:
-//        FIXME (datetime, "Unimplemented msg DTM_GETMONTHCAL\n");
-        return 0;
+        return DATETIME_GetMonthCal (hwnd);
 
     case DTM_SETMCFONT:
-//        FIXME (datetime, "Unimplemented msg DTM_SETMCFONT\n");
-        return 0;
+        return DATETIME_SetMonthCalFont (hwnd, wParam, lParam);
 
     case DTM_GETMCFONT:
-//        FIXME (datetime, "Unimplemented msg DTM_GETMCFONT\n");
-        return 0;
-
-        case WM_CREATE:
-            return DATETIME_Create (hwnd, wParam, lParam);
-
-        case WM_DESTROY:
-            return DATETIME_Destroy (hwnd, wParam, lParam);
-
-        default:
-//          if (uMsg >= WM_USER)
-//              ERR (datetime, "unknown msg %04x wp=%08x lp=%08lx\n",
-//                   uMsg, wParam, lParam);
-            return DefWindowProcA (hwnd, uMsg, wParam, lParam);
+        return DATETIME_GetMonthCalFont (hwnd);
+
+        case WM_PARENTNOTIFY:
+                return DATETIME_ParentNotify (hwnd, wParam, lParam);
+
+        case WM_NOTIFY:
+                return DATETIME_Notify (hwnd, wParam, lParam);
+
+    case WM_PAINT:
+        return DATETIME_Paint (hwnd, wParam);
+
+    case WM_KILLFOCUS:
+        return DATETIME_KillFocus (hwnd, wParam, lParam);
+
+    case WM_SETFOCUS:
+        return DATETIME_SetFocus (hwnd, wParam, lParam);
+
+    case WM_LBUTTONDOWN:
+        return DATETIME_LButtonDown (hwnd, wParam, lParam);
+
+        case WM_CREATE:
+            return DATETIME_Create (hwnd, wParam, lParam);
+
+        case WM_DESTROY:
+            return DATETIME_Destroy (hwnd, wParam, lParam);
+
+        default:
+            //if (uMsg >= WM_USER)
+                //ERR("unknown msg %04x wp=%08x lp=%08lx\n",
+                //     uMsg, wParam, lParam);
+            return DefWindowProcA (hwnd, uMsg, wParam, lParam);
     }
     return 0;
@@ -134 +518 @@
 
 VOID
-DATETIME_Register (VOID)
+DATETIME_Register (void)
 {
     WNDCLASSA wndClass;
@@ -148 +532 @@
     wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
     wndClass.lpszClassName = DATETIMEPICK_CLASSA;
- 
+
     RegisterClassA (&wndClass);
 }
@@ -154 +538 @@
 
 VOID
-DATETIME_Unregister (VOID)
+DATETIME_Unregister (void)
 {
     if (GlobalFindAtomA (DATETIMEPICK_CLASSA))
-        UnregisterClassA (DATETIMEPICK_CLASSA, (HINSTANCE)NULL);
-}
-
+        UnregisterClassA (DATETIMEPICK_CLASSA, (HINSTANCE)NULL);
+}
+