windows-xp/Source/XPSP1/NT/shell/osshell/accesory/calendar/cal.c

/*
 *   Windows Calendar
 *   Copyright (c) 1985 by Microsoft Corporation, all rights reserved.
 *   Written by Mark L. Chamberlin, consultant to Microsoft.
 *
 *   cal.c
 *
 */

#include "cal.h"

BOOL FAR APIENTRY IsDefaultPrinterStillValid(LPSTR);

/**** FCalSize ****/

BOOL APIENTRY FCalSize (
     HWND hwnd,
     INT x,
     INT y,
     INT code)
     {
     INT     cy, ytop, cx, xleft,
             cyUseable, vclnOld, dln = 0,
             tmp, dx, dy;


     if (hwnd==vhwnd0)
	  {
	  /* Store appointment currently being edited so it gets repainted
           *  by DayPaint.
           */

	  if (GetFocus () == vhwnd3)
	  {
	       StoreQd ();
	  }

	  switch (code)
	       {
	       case SIZEFULLSCREEN:
	       case SIZENORMAL:
                    MoveWindow(vhwnd1, xleft=XcoWnd1(),
                                ytop=YcoWnd1(), vcxWnd1,
                                vcyWnd1, TRUE);

                    cy = vcyWnd2B;

                    if (cy > y-ytop-vcyWnd2A)
                        cy=y-ytop-vcyWnd2A;

                    cx = vcxWnd1 - vcxBorder;

                    if (cx > x-xleft)
                        cx=x-xleft;

                    MoveWindow(vhwnd2B, 0, vcyWnd2A, cx, cy, FALSE);

		    /* Reset global variables according to new window size. */
                    cyUseable = cy - 2 * vcyBorder - vcyExtLead ;
		    vclnOld = vcln;
		    vcln = cyUseable/vcyLineToLine;

		    /* Always display at least one line.  In addition to
		       avoiding div by 0 errors, this shows user that there
		       is something that is "trying" to be displayed even if
		       there is not enough space. */
			//- FCalSize: Fixed to handle vcln < 0.
		    if (vcln <= 0)
				vcln = 1;
		    vlnLast = vcln-1;

		    /* If we're in day mode, reset the scroll range so user
		       can scroll 11:00 pm to bottom of window.  (If in month
		       mode, smallest unit of scrolling is one month.) */

		    /* foll. lines set up vertical scroll globals  for month view
		       Set vmScrollMax so that if less than a certain fraction of
		       the bottom line is visible, scrolling should be possible.
                       This has been determined by trial and error
                     */

		    dy = (vcyWnd2BBot - vcyBorder)/ vcWeeksMonth;
                    tmp = y/dy;

		    if ((y%dy) < (5*dy/6))
                       tmp--;

		    vmScrollMax =max ( 0, vcWeeksMonth + 1 - tmp);
		    vmScrollPos = 0;

		    /* foll lines set up horizontal scroll globals for month view
		       Set hmScrollMax so that if less than a certain fraction of
		       the rightmost column is visible, scrolling should be possible.
		       This has been determined by trial and error */
		    dx = (vcxWnd2B + vcxBorder)/7;
                    tmp = x/dx;

		    if ((x%dx) < (5*dx/6))
                       tmp-- ;

		    hmScrollMax = max (0, 6 - tmp);
		    hmScrollPos = 0;

                    if (vfDayMode)
                        {
			SetDayScrollRange();

			/* If our resizing made window bigger, pick up extra
			   ld records that need to be put in tld.  */
                        if ((dln = vcln - vclnOld) > 0)
                            {
                            while (dln && FGetNextLd(vtld[vlnLast-dln].tm, &vtld[vlnLast-dln+1]))
				dln--;

			    /* If there is going to be extra space at bottom
			       of window, scroll to fill that space. */
			    ScrollDownDay(dln, TRUE, TRUE);

                            }

                        }
                    else
                       {
		       /* set up horiz. and vertical scroll bars in monthmode */

		       SetScrollPos (vhwnd2B, SB_VERT, vmScrollPos, TRUE);
		       SetScrollRange (vhwnd2B, SB_VERT, 0, vmScrollMax,TRUE);

		       SetScrollPos (vhwnd2B, SB_HORZ, hmScrollPos, TRUE);
		       SetScrollRange (vhwnd2B, SB_HORZ, 0, hmScrollMax, TRUE);
                        }
               return (TRUE);
	       }
	  }
     return (FALSE);
     }



/**** CalWndProc ****/

LRESULT APIENTRY CalWndProc (
     HWND       hwnd,
     UINT   message,
     WPARAM     wParam,
     LPARAM     lParam)
     {
     PAINTSTRUCT    ps;
     register BOOL  fActed;         /* TRUE if we acted on the message. */
     HCURSOR        hcsr;
     register WORD  wlParamHi;
     INT            lnT;

     fActed=TRUE;
     wlParamHi=HIWORD(lParam);

     switch(message)
	  {
	  case WM_CLOSE:
	       if (FCheckSave (FALSE))
		    DestroyWindow (vhwnd0);
	       break;

	  case WM_QUERYENDSESSION:
	       return (FCheckSave (TRUE));

	  case WM_DESTROY:
	       if (hwnd == vhwnd0)
		    {
		    /* Time to say goodbye - only field this message
		       for our main window.
                    */

                



		    /* Get rid of the change file - ignore errors since
		       there is nothing to be done about it now and the
		       the user has either said to discard the changes
		       or they have already been saved.
		    */
		    DeleteChangeFile ();

            WinHelp(hwnd, vszHelpFile, HELP_QUIT, 0L);

		    /* Free all global objects */
		    CalTerminate(2);

		    /* Terminate with exit code 0, meaning no errors. */
		    PostQuitMessage (0);
		    }
	       else
                    fActed = FALSE;

	       break;

	  case WM_ENDSESSION:
	       /* If wParam is TRUE, we are never coming back again. */
               if (wParam)
                    DeleteChangeFile ();
		    /* Get rid of the change file - ignore errors since
		       there is nothing to be done about it now and the
		       the user has either said to discard the changes
		       or they have already been saved.
		    */


	       break;

	  case WM_SIZE:
               fActed=FCalSize(hwnd, (SHORT)LOWORD(lParam),
                                  (SHORT)HIWORD(lParam), (int)wParam);
	       break;

	  case WM_PAINT:
	       /* Hiding the caret of the appointment description edit
		  control before painting wnd2B in day mode is necessary
		  to prevent leaving cursor droppings around.  So hide
		  the caret here, and show it after painting.  Note that
		  this is OK even if we're not painting wnd2B, so no
		  extra code is used here to only do it for the wnd2B
		  case.
	       */
	       HideCaret (vhwnd3);

	       BeginPaint (hwnd, &ps);
	       SetDefaultColors (ps.hdc);
	       CalPaint (hwnd, ps.hdc);
	       EndPaint (hwnd, &ps);

	       ShowCaret (vhwnd3);
	       break;

	  case WM_COMMAND:
	       /* HIWORD (lParam) == 0 means a command has been selected
		  via the menu.  1 means a command has been selected
		  via an accelerator.  Something other than 0 or 1 is
		  the window handle of a control sending a notification.
	       */
	       if (GET_WM_COMMAND_CMD (wParam, lParam) <= 1)
		    {
		    /* A menu item has been selected. */
		    CalCommand (hwnd, GET_WM_MENUSELECT_CMD (wParam, lParam));
		    }
	       else
		    {
		    /* Handle notifications from edit controls. */
		    //- EcNotification (wParam, GET_WM_COMMAND_ID(wParam, lParam));
		    EcNotification ((WORD)wParam, (WORD)HIWORD (wParam));

		    /* Even if we handled the message, say we didn't
		       in case something else needs to be done with it.
		    */
		    fActed = FALSE;
		    }
	       break;

          case WM_SYSCOMMAND:

            





		    fActed = FALSE;
	       break;

	  case WM_TIMER:
	       CalTimer (FALSE);
	       break;

	  case WM_TIMECHANGE:
	       CalTimer(TRUE);
	       break;

	  case WM_VSCROLL:
	       if (IsWindowEnabled(vhwnd0))
	       {
		   if (fActed == vfDayMode)
		   {
			FScrollDay (GET_WM_VSCROLL_CODE(wParam, lParam),
				GET_WM_VSCROLL_POS(wParam, lParam));
		   }
		   else
		   {
			FScrollMonth (GET_WM_VSCROLL_CODE(wParam, lParam),
				GET_WM_VSCROLL_POS(wParam, lParam));
		   }
	       }
	       break;

	  case WM_HSCROLL:   /* added  11/3/88 for horiz. scroll in month view */

   /* We have replaced the bitmap arrows with a scrollbar control; So, the
    * following code handles the scroll messages from it
    * Fix for Bug #8560 -- SANKAR -- 01-28-90
    */
#ifndef BUG_8560
	       /* Check if this is the Horizontal Scroll bar control */
	       if(GET_WM_HSCROLL_HWND(wParam, lParam) == vhScrollWnd)
	         {
		    switch(GET_WM_HSCROLL_CODE(wParam, lParam))
		      {
		        case SB_LINEUP:
                          CalCommand (vhwnd0, IDCM_PREVIOUS);
                          break;
			case SB_LINEDOWN:
                          CalCommand (vhwnd0, IDCM_NEXT);
                          break;
                      }
		   break;
		 }
#endif
               if (IsWindowEnabled(vhwnd0))
                  {
		  if (fActed != vfDayMode)
		    FHorizScrollMonth (GET_WM_HSCROLL_CODE(wParam, lParam),
					GET_WM_HSCROLL_POS(wParam, lParam));
		  }


	  case WM_MOUSEMOVE:
	       /* The mouse cursor is an arrow everywhere except when
		  in an appointment description or in the notes area, when
		  it must be the Ibeam.  There are two reasons we can't just
		  let the edit controls take care of this:
		  1) The appointment description edit control only covers
		     one appointment description, and we want the Ibeam
		     to appear on all the descriptions.
		  2) The notes edit control does not use up the entire
		     bottom box of the calendar, and we want the Ibeam in the
		     entire box.  Note that we make the Ibeam start if the
		     cursor is below the line we drew at vycoNotesBox.
	       */
	       hcsr = vhcsrArrow;
	       if (hwnd == vhwnd2B && vfDayMode
                   && (INT)LOWORD (lParam) >= vxcoQdFirst
                   || hwnd == vhwnd1 && (INT)HIWORD (lParam) > vycoNotesBox)

                   hcsr = vhcsrIbeam;

	       SetCursor (hcsr);
	       break;

	  case WM_LBUTTONDBLCLK:
	  case WM_LBUTTONDOWN:
	       if (hwnd == vhwnd1 && (INT)HIWORD (lParam) > vycoNotesBox)
		    {
		    /* Click in the bottom box (below the line at vycoNotesBox)
		       but not in the notes edit control.  Pass the click
		       to the notes edit control.
		       The mouse coordinates we were passed are
		       relative to the origin of wnd1.	Make
		       them relative to the origin of the notes
		       edit control.
		    */
		    ((POINTS*)&lParam)->x -= (short)vxcoWnd2C;
		    ((POINTS*)&lParam)->y -= (short)vycoWnd2C;
		    PostMessage (vhwnd2C, message, wParam, lParam);
		    break;
		    }

	       if (hwnd == vhwnd2A )
		    {

		    /* Double clicking in the date field is the same as
		       using the View Month command (i.e., switch to
		       month mode).
		    */
                    if (message == WM_LBUTTONDBLCLK &&
			   (INT)LOWORD (lParam) >= vxcoDate)
                        {
                        if (vfDayMode)
                            CalCommand (vhwnd0, IDCM_MONTH);
                        else
                            /* Switch back to today */
                            DayMode (&vd3Sel);
                        }

		    break;
		    }

	       if (hwnd == vhwnd2B)
		    {
		    if (vfDayMode)
			 {
			 /* If we just clicked on a new line, "move" edit ctl
			    window to new line.  Otherwise, just pass mouse
			    message to edit ctl. */
			 if ((lnT = LnFromYco (wlParamHi)) != vlnCur) {
			    /* Suppose that the appointment window is not clean.
			      In particular, we are concerned about the
			      rectangle that we are about to put the appointment
			      description edit control on top of.  SetQdEc
			      validates the edit control after moving it to
			      prevent it from repainting, and the ValidateRect
			      call in turn validates that portion of the parent.
			      This means that if it was dirty before calling
			      SetQdEc, it won't get repainted by DayPaint, which
			      it should.  In order to get around this problem,
			      make sure everything is clean before calling
			      SetQdEc.  An example of where this was a problem:
			      Zoom and immediately click on a new appointment.
			      The click was seen before all painting has been
			      done, so a hole was left where the edit control
			      was moved.
			      Force everthing to be clean by calling
			      UpdateWindow for our main window (using
			      wnd2B caused out-of-sequence painting and
			      really left a mess on the screen).
			    */
			    UpdateWindow (vhwnd0);

			    SetQdEc (lnT);
			 }

			 /* Let the edit control see the click too.
			    The mouse coordinates we were passed are
			    relative to the origin of wnd2B.  Make
			    them relative to the origin of the QD
			    edit control.
			 */
			 ((POINTS*)&lParam)->x -= (short)vxcoQdFirst;
			 ((POINTS*)&lParam)->y -= (short)YcoFromLn(vlnCur);
			 PostMessage (vhwnd3, message, wParam, lParam);
			 }
		    else
			 {
			 /* Note - if the mouse position is not on a box for a
			    valid day of the month, the click is ignored.
			    However, we still leave fActed == TRUE since the
			    mouse click has been acted on by us in the sense
			    that we do not expect Windows to do anything
			    further with it.
			 */
			 MouseSelectDay(MAKEMPOINT(lParam),
			      message == WM_LBUTTONDBLCLK);
			 }
		    }
	       else
		    {
		    fActed = FALSE;
		    }
	       break;

	  case WM_KEYDOWN:
	       fActed = FCalKey (hwnd, wParam);
	       break;

	  case WM_ACTIVATE:
	  		if (!fInitComplete)
			{
				fActed = FALSE;
				break;
			}	
				

	       if (GET_WM_ACTIVATE_STATE(wParam, lParam))
		    {
		    /* Becoming active. */

		    /* If not iconic, give the focus to the last one who
		       had it.
		    */
		    if (GET_WM_ACTIVATE_FMINIMIZED(wParam, lParam))
			 CalSetFocus (vhwndFocus);

		    /* Tell the user about any alarms that went off while
		       we were inactive.
		    */
		    PostMessage(hwnd, CM_PROCALARMS, 0, 0L);
		    }
	       else
		    {
		    /* Becoming inactive - pass this off to DefWindowProc. */
		    fActed = FALSE;
		    }
	       break;

	  case CM_PROCALARMS:
                uProcessAlarms ();
		break;

	  case WM_SETFOCUS:
	       /* If the monthly calendar is getting the focus, create,
		  position, and show its caret.  Otherwise, do not process
		  this message.
	       */
	       if (hwnd == vhwnd2B && !vfDayMode)
		    {
		    /* Create a caret for month mode.  Specifying NULL for the
		       second parameter gives a black caret.  The third
		       parameter is the width, and by making the fourth
		       parameter 0, we get a height of a horizontal border
		       (same as vcyBorder).
		    */
		    CreateCaret (vhwnd2B, (HBITMAP)NULL, 2 * vcxFont, 0);

		    /* Position the caret to the selected day. */
		    PositionCaret ();

		    /* Make the caret visible. */
		    ShowCaret (vhwnd2B);

		    /* Remember we last had the focus so we get it
		       back when re-activated.
		    */
		    vhwndFocus = vhwnd2B;
		    }
               else if (hwnd == vhwnd0)
                    /* 12-Mar-1987. to make sure focus set somewhere when
                     * parent gets focus.
                     */
                    CalSetFocus (vhwndFocus);
	       else
		    fActed = FALSE;
	       break;

	  case WM_KILLFOCUS:
	       /* If the monthly calendar is losing the focus,
		  destroy its caret.  Otherwise, do not process this message.
	       */
	       if (hwnd == vhwnd2B && !vfDayMode)
		    DestroyCaret ();
	       else
		    fActed = FALSE;
	       break;

	  case WM_SYSCOLORCHANGE:
	       /* The system colors have changed.  Destroy and recreate
		  the brushes.
	       */
	       DestroyBrushes ();
               CreateBrushes ();

               /* Repaint since AppWorkspace color may have changed */
               InvalidateRect(hwnd, NULL, TRUE);
	       break;

	  case WM_ERASEBKGND:
	       PaintBack (hwnd, (HDC)wParam);
	       break;

	  case WM_INITMENU:
	       /* Menu is being pulled down.  Enable/disable, check/uncheck
		  menu items.
	       */
	       InitMenuItems ();
	       break;

	 case WM_WININICHANGE:
	     CalWinIniChange();
	     break;

	 default:
	     fActed = FALSE;
	     break;
	 }

     return (fActed ? 0L : DefWindowProc (hwnd, message, wParam, lParam));
     }


/**** XcoWnd1 - return the xco of where to put Wnd1 */

INT APIENTRY XcoWnd1 ()
     {
     RECT  rect;
     int cxDesired, cxAvailable, xcoLeft;

     GetClientRect (vhwnd0, &rect);
     cxDesired = vcxWnd1;
     cxAvailable = rect.right - rect.left;
     xcoLeft = 0;
     if (cxAvailable > cxDesired)
          xcoLeft = (cxAvailable - cxDesired) / 2;

#ifdef DISABLE
     return (max (xcoLeft, vcxFont));
#endif
     return (xcoLeft);
     }




/**** YcoWnd1 - return the yco of where to put Wnd1 */

INT APIENTRY YcoWnd1 ()
     {
     RECT  rect;
     INT   cyAvailable;
     INT   ycoTop;

     GetClientRect (vhwnd0, &rect);
     cyAvailable = rect.bottom - rect.top;
     ycoTop = 0;
     if (cyAvailable > vcyWnd1)
	  ycoTop = (cyAvailable - vcyWnd1) / 2;
#ifdef DISABLE
     return (max (ycoTop, vcyBorder));
#endif
     return (ycoTop);
     }




/**** CalSetFocus - Set the focus unless vfNoGrabFocus is set.	This
      is used to prevent Calendar from grabbing the focus if brought
      up iconic.
*/

VOID APIENTRY FAR CalSetFocus (HWND hwnd)
     {
     if (!vfNoGrabFocus)
	  SetFocus (hwnd);
     }


/**** InitMenuItems */

VOID APIENTRY InitMenuItems ()
     {
     register WORD mf1;
     register WORD mf2;
     HMENU         hMenu;
     WORD2DWORD    iSelFirst;
     WORD2DWORD    iSelLast;
     UINT      wFmt;

     /* Get a handle to the menu. */
     hMenu = GetMenu (vhwnd0);

     /* Cut and Copy - enable iff edit control has focus and
	some text is selected.
	Paste - enable iff edit control has focus and the clipboard
	is not empty.
     */
     mf1 = mf2 = MF_GRAYED;
     if (vhwndFocus != vhwnd2B)
	  {
	  /* Focus is not on monthly calendar so it must be on either
	     the appointment edit control or the notes edit control.
	  */

	  /* Enable Cut and Copy if the selection isn't null. */
	  MSendMsgEM_GETSEL(vhwndFocus, &iSelFirst, &iSelLast);
	  if (iSelFirst != iSelLast)
	       mf1 = MF_ENABLED;

	  /* Enable Paste if the clipboard isn't empty. */
	  if (OpenClipboard (vhwnd0))
	       {
		wFmt = 0;
		/* If clipboard has any text data, enable paste item.  otherwise
		   leave it grayed. */
		while ((wFmt = EnumClipboardFormats(wFmt)) != 0)
		    {
		    if (wFmt == CF_TEXT)
			{
			mf2 = MF_ENABLED;
			break;
			}
		    }
	       CloseClipboard ();
	       }
	  }
     EnableMenuItem (hMenu, IDCM_CUT, mf1);
     EnableMenuItem (hMenu, IDCM_COPY, mf1);
     EnableMenuItem (hMenu, IDCM_PASTE, mf2);

     /* Check day if in day mode, check month if in month mode.
	Uncheck the other.
     */
     mf1 = MF_CHECKED;
     mf2 = MF_UNCHECKED;
     if (!vfDayMode)
	  {
	  mf1 = MF_UNCHECKED;
	  mf2 = MF_CHECKED;
	  }
     CheckMenuItem (hMenu, IDCM_DAY, mf1);
     CheckMenuItem (hMenu, IDCM_MONTH, mf2);

     /* Alarm Set - enable iff focus is on an appointment.
	If enabled, check iff appointment has alarm set.
     */
     mf1 = MF_GRAYED;
     mf2 = MF_UNCHECKED;
     if (vhwndFocus == vhwnd3)
	  {
	  mf1 = MF_ENABLED;
	  if (FAlarm (vlnCur))
	       mf2 = MF_CHECKED;
	  }
     EnableMenuItem (hMenu, IDCM_SET, mf1);
     CheckMenuItem (hMenu, IDCM_SET, mf2);

     /* Options special time - enable if in day mode. */
     mf1 = MF_GRAYED;
     if (vfDayMode)
	  mf1 = MF_ENABLED;
     EnableMenuItem (hMenu, IDCM_SPECIALTIME, mf1);

     }



VOID APIENTRY CalWinIniChange()
    {
    HMENU hMenu;
    SHORT id, nx;
    CHAR  ch;
    static bszDecRead=FALSE;

    /* Set decimal to scan for */
    if (bszDecRead)
        ch=szDec[0]; /* If we already changed it. */
    else
        ch='.';  /* First time. */

    bszDecRead=TRUE;

    /* Get the intl decimal character for use in Page Setup Box. */
    GetProfileString("intl", "sDecimal", ".", szDec, 4);

    /* Scan for . and replace with intl decimal */
    for (id=2; id<6; id++)
        {

        for (nx=0; nx < lstrlen((LPSTR)chPageText[id]); nx++)
            if (chPageText[id][nx]==ch)
                chPageText[id][nx]=szDec[0];
        }


    hMenu = GetMenu(vhwnd0);
    /* Check if a default printer exists */
    /* Fix for Bug #5607 --SANKAR-- 10-30-89 */
    if(bPrinterSetupDone)
      {
        if(!IsDefaultPrinterStillValid((LPSTR)szPrinter))
	    bPrinterSetupDone = FALSE; /* No longer valid */
      }
#ifdef SLOWTHINGSDOWN
    if (!(hdc = GetPrinterDC()))
	{
	EnableMenuItem(hMenu, IDCM_PRINT, MF_GRAYED);
	}
    else
	{
	DeleteDC(hdc);
	EnableMenuItem(hMenu, IDCM_PRINT, MF_ENABLED);
	}
#endif
    InitTimeDate (vhInstance, vfHour24 ? GTS_24HOUR : GTS_12HOUR);


    /* Force repainting of windows that contain date time strings. */
    InvalidateRect(vhwnd0,  NULL, TRUE);
    }