710 lines
19 KiB
C
710 lines
19 KiB
C
|
/*
|
||
|
|
* Windows Calendar
|
||
|
|
* Copyright (c) 1985 by Microsoft Corporation, all rights reserved.
|
||
|
|
* Written by Mark L. Chamberlin, consultant to Microsoft.
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
*****
|
||
|
|
***** calday.c
|
||
|
|
*****
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "cal.h"
|
||
|
|
|
||
|
|
#define FIXEDFONTWIDTH 0
|
||
|
|
|
||
|
|
UINT wID;
|
||
|
|
|
||
|
|
BOOL vfUpdate = TRUE; /* flag to disable setqdec() update fix. 27-Oct-1987 */
|
||
|
|
|
||
|
|
/**** DayMode - Switch to day mode. */
|
||
|
|
|
||
|
|
VOID APIENTRY DayMode (D3 *pd3)
|
||
|
|
{
|
||
|
|
|
||
|
|
RECT rect;
|
||
|
|
HDC hDC;
|
||
|
|
|
||
|
|
if (!vfDayMode)
|
||
|
|
{
|
||
|
|
/* Say we are in day mode. */
|
||
|
|
vfDayMode = TRUE;
|
||
|
|
|
||
|
|
/* Disable focus for now. If in notes area, leave it there,
|
||
|
|
otherwise set up to give focus to appointment description.
|
||
|
|
*/
|
||
|
|
CalSetFocus ((HWND)NULL);
|
||
|
|
if (vhwndFocus != vhwnd2C)
|
||
|
|
vhwndFocus = vhwnd3;
|
||
|
|
|
||
|
|
/* Clear the window so we don't get a blank region appearing
|
||
|
|
in the middle of the monthly calendar when we ShowWindow
|
||
|
|
the appointment description edit control.
|
||
|
|
*/
|
||
|
|
GetClientRect (vhwnd2B, (LPRECT)&rect);
|
||
|
|
rect.bottom -= vcyBorder;
|
||
|
|
|
||
|
|
hDC = CalGetDC (vhwnd2B);
|
||
|
|
FillRect (hDC, (LPRECT)&rect, vhbrBackSub);
|
||
|
|
ReleaseDC (vhwnd2B, hDC);
|
||
|
|
/* Make the appointment description edit control visible. */
|
||
|
|
SetEcText(vhwnd3, "");
|
||
|
|
|
||
|
|
SetScrollRange (vhwnd2B, SB_HORZ, 0, 0, TRUE);
|
||
|
|
SetScrollPos (vhwnd2B, SB_HORZ, 0,TRUE);
|
||
|
|
|
||
|
|
/*InvalidateRect (vhwnd2B, (LPRECT)NULL, FALSE);*/
|
||
|
|
UpdateWindow (vhwnd2B);
|
||
|
|
ShowWindow (vhwnd3, SHOW_OPENWINDOW);
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Switch to the specified date. Note that this gets done even if
|
||
|
|
we were already in day mode. This means that the View Day command
|
||
|
|
can be used to get back to the starting time of the currently
|
||
|
|
displayed day. It also is necessary because there callers who
|
||
|
|
want the day redisplayed even if already in day mode (like New).
|
||
|
|
*/
|
||
|
|
SwitchToDate (pd3);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** SwitchToDate - the ONLY routine that changes the selected day in
|
||
|
|
day mode.
|
||
|
|
*/
|
||
|
|
|
||
|
|
VOID APIENTRY SwitchToDate ( D3 *pd3 )
|
||
|
|
{
|
||
|
|
RECT rect;
|
||
|
|
|
||
|
|
register BOOL fNewMonth;
|
||
|
|
|
||
|
|
if (FGetDateDr (DtFromPd3 (pd3)))
|
||
|
|
{
|
||
|
|
fNewMonth = vd3Sel.wMonth != pd3 -> wMonth
|
||
|
|
|| vd3Sel.wYear != pd3 -> wYear;
|
||
|
|
vd3Sel = *pd3;
|
||
|
|
if (fNewMonth)
|
||
|
|
SetUpMonth ();
|
||
|
|
}
|
||
|
|
|
||
|
|
FillTld (vtmStart);
|
||
|
|
SetQdEc (0);
|
||
|
|
|
||
|
|
/* If focus is on notes area put it there. Otherwise it has already
|
||
|
|
been set up by SetQdEc.
|
||
|
|
*/
|
||
|
|
if (vhwndFocus == vhwnd2C)
|
||
|
|
CalSetFocus (vhwnd2C);
|
||
|
|
|
||
|
|
/* Set the scroll bar range and thumb position. (The scroll bar range
|
||
|
|
depends on the number of TM in the day, so it must be set up each
|
||
|
|
time the day is changed.)
|
||
|
|
*/
|
||
|
|
|
||
|
|
SetDayScrollRange ();
|
||
|
|
SetDayScrollPos (-1);
|
||
|
|
|
||
|
|
/* Repaint Wnd2A to display "Schedule for: ..." message. */
|
||
|
|
InvalidateRect (vhwnd2A, (LPRECT)NULL, TRUE);
|
||
|
|
UpdateWindow (vhwnd2A);
|
||
|
|
|
||
|
|
/* Redraw the appointments. */
|
||
|
|
GetClientRect (vhwnd1, (LPRECT)&rect);
|
||
|
|
rect.bottom = vycoWnd2C;
|
||
|
|
rect.top = vcyWnd2A;
|
||
|
|
|
||
|
|
InvalidateRect (vhwnd1, (LPRECT)&rect, TRUE);
|
||
|
|
/* UpdateWindow (vhwnd1); */
|
||
|
|
|
||
|
|
/* Set up the notes area. */
|
||
|
|
SetNotesEc ();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** DayPaint */
|
||
|
|
|
||
|
|
VOID APIENTRY DayPaint (HDC hDC)
|
||
|
|
{
|
||
|
|
|
||
|
|
CHAR sz [CCHTIMESZ];
|
||
|
|
register INT ycoText;
|
||
|
|
register INT ln;
|
||
|
|
INT cch;
|
||
|
|
TM tm;
|
||
|
|
CHAR *pchQd;
|
||
|
|
RECT rectQd;
|
||
|
|
BYTE *pbTqr;
|
||
|
|
DWORD iSelFirst;
|
||
|
|
DWORD iSelLast;
|
||
|
|
#ifdef DISABLE
|
||
|
|
DWORD iSelFirstT;
|
||
|
|
DWORD iSelLastT;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
pbTqr = PbTqrLock ();
|
||
|
|
rectQd.right = vxcoQdMax ;
|
||
|
|
rectQd.left = vxcoQdFirst;
|
||
|
|
|
||
|
|
for (ln = 0; ln < vcln; ln++)
|
||
|
|
{
|
||
|
|
ycoText = YcoFromLn (ln);
|
||
|
|
|
||
|
|
if (FAlarm (ln))
|
||
|
|
DrawAlarmBell (hDC, ycoText);
|
||
|
|
|
||
|
|
cch = GetTimeSz (tm = vtld [ln].tm, sz);
|
||
|
|
|
||
|
|
/* Display am or pm only for the first appointment in the window
|
||
|
|
and for noon.
|
||
|
|
*/
|
||
|
|
if (ln != 0 && tm != TMNOON)
|
||
|
|
cch = 5;
|
||
|
|
|
||
|
|
TextOut (hDC, vxcoApptTime, ycoText, (LPSTR)sz, cch);
|
||
|
|
|
||
|
|
rectQd.top = YcoFromLn (ln);
|
||
|
|
rectQd.bottom = rectQd.top + vcyFont;
|
||
|
|
pchQd = "";
|
||
|
|
if (vtld [ln].otqr != OTQRNIL)
|
||
|
|
pchQd = (CHAR *)(pbTqr + vtld [ln].otqr + CBQRHEAD);
|
||
|
|
|
||
|
|
DrawText (hDC, (LPSTR)pchQd, -1, (LPRECT)&rectQd,
|
||
|
|
DT_NOPREFIX | DT_SINGLELINE | DT_LEFT | DT_TOP);
|
||
|
|
if (ln == vlnCur)
|
||
|
|
{
|
||
|
|
/* We have just painted the appointment that has the
|
||
|
|
edit control. In order to keep "flashing" to a minimum,
|
||
|
|
we want to prevent the edit control from repainting,
|
||
|
|
but we do need to get the highlight back up.
|
||
|
|
So:
|
||
|
|
1) Validate the edit control to prevent repainting.
|
||
|
|
2) Disable redraw.
|
||
|
|
3) Fetch and save the current selection.
|
||
|
|
4) Set the selection to null (redraw is off, so this
|
||
|
|
will not affect the highlight).
|
||
|
|
5) Enable redraw.
|
||
|
|
6) Set the selection back to the saved value. Since redraw
|
||
|
|
is enabled this will highlight the selected characters.
|
||
|
|
*/
|
||
|
|
#ifdef DISABLE
|
||
|
|
ValidateRect (vhwnd3, (LPRECT)NULL);
|
||
|
|
SendMessage (vhwnd3, WM_SETREDRAW, FALSE, 0L);
|
||
|
|
MSendMsgEM_GETSEL(vhwnd3, &iSelFirst, &iSelLast);
|
||
|
|
iselFirstT = iSelFirst;
|
||
|
|
iselLastT = iSelLast;
|
||
|
|
iselFirst = iSelLast = 0;
|
||
|
|
SendMessage(vhwnd3, EM_SETSEL, iSelFirst, (LONG)iSelLast);
|
||
|
|
SendMessage(vhwnd3, WM_SETREDRAW, TRUE, 0L);
|
||
|
|
SendMessage(vhwnd3, EM_SETSEL, iSelFirstT, (LONG)iSelLastT);
|
||
|
|
#else
|
||
|
|
/* don't try to be fancy. If only part of hilight in update
|
||
|
|
* region, there was bug with selection being half inverted,
|
||
|
|
* half normal. This solved it. 10-Jun-1987.
|
||
|
|
*/
|
||
|
|
MSendMsgEM_GETSEL(vhwnd3, &iSelFirst, &iSelLast);
|
||
|
|
SendMessage(vhwnd3, EM_SETSEL, iSelFirst, (LONG)iSelLast);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
}
|
||
|
|
DrUnlockCur ();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** FillTld */
|
||
|
|
|
||
|
|
VOID APIENTRY FillTld (TM tmFirst)
|
||
|
|
{
|
||
|
|
|
||
|
|
LD *pldCur;
|
||
|
|
LD *pldLast;
|
||
|
|
INT cldEmpty;
|
||
|
|
|
||
|
|
/* Find the first appointment less than or equal to the specified
|
||
|
|
one. Note that since tmFirst must be greater than or equal to
|
||
|
|
0 (midnight), calling FGetPrevLd with tmFirst + 1 is guaranteed
|
||
|
|
to find something, so there is no need to check the return value.
|
||
|
|
*/
|
||
|
|
FGetPrevLd (tmFirst + 1, vtld);
|
||
|
|
|
||
|
|
/* Work forward filling in the tld. Stop when the end of the
|
||
|
|
table is reached or the end of the day is reached.
|
||
|
|
*/
|
||
|
|
for (pldLast = (pldCur = vtld) + vlnLast; pldCur < pldLast
|
||
|
|
&& FGetNextLd (pldCur -> tm, pldCur + 1); pldCur++)
|
||
|
|
;
|
||
|
|
|
||
|
|
|
||
|
|
/* If we stopped going forward because we reached the end of the day
|
||
|
|
instead of the end of the tld, there are empty entries at the end
|
||
|
|
of the tld. In this case, we scroll the tld down to put the
|
||
|
|
empty space at the top, and then we fill in the empty space by
|
||
|
|
getting the earlier appointment times. There will always be
|
||
|
|
enough appointment times to fill the tld since the maximum interval
|
||
|
|
(1 hour) gives 24 appointment times, and we don't have that many
|
||
|
|
lines for displaying appointments. So there is no need to check
|
||
|
|
the return value of FGetPrevLd below, and we can rest assured that
|
||
|
|
the tld will get completely filled.
|
||
|
|
*/
|
||
|
|
if ((cldEmpty = (INT)(pldLast - pldCur)) > 0)
|
||
|
|
{
|
||
|
|
ScrollDownTld (cldEmpty);
|
||
|
|
for (pldCur = vtld + cldEmpty; pldCur > vtld; pldCur--)
|
||
|
|
FGetPrevLd (pldCur -> tm, pldCur - 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** ScrollDownTld - Scroll the tld down (towards the bottom of the screen,
|
||
|
|
but higher in memory) the specified number of ld,
|
||
|
|
making room for new lds at the top of the tld.
|
||
|
|
*/
|
||
|
|
|
||
|
|
VOID APIENTRY ScrollDownTld (INT cld)
|
||
|
|
{
|
||
|
|
BltByte ((BYTE *)vtld, (BYTE *)(vtld + cld),
|
||
|
|
(WORD)((vcln - cld) * sizeof (LD)));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** ScrollUpTld - Scroll the tld up (towards the top of the screen,
|
||
|
|
but lower in memory) the specified number of ld,
|
||
|
|
making room for new lds at the bottom of the tld.
|
||
|
|
*/
|
||
|
|
|
||
|
|
VOID APIENTRY ScrollUpTld (INT cld)
|
||
|
|
{
|
||
|
|
BltByte ((BYTE *)(vtld + cld), (BYTE *)vtld,
|
||
|
|
(WORD)((vcln - cld) * sizeof (LD)));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** FGetNextLd */
|
||
|
|
|
||
|
|
BOOL APIENTRY FGetNextLd (
|
||
|
|
TM tm,
|
||
|
|
LD *pld)
|
||
|
|
{
|
||
|
|
|
||
|
|
TM tmFromTqr;
|
||
|
|
DR *pdr;
|
||
|
|
|
||
|
|
|
||
|
|
FSearchTqr (tm);
|
||
|
|
tmFromTqr = TMNILHIGH;
|
||
|
|
if (votqrNext != (pdr = PdrLockCur ()) -> cbTqr)
|
||
|
|
tmFromTqr = ((PQR )(PbTqrFromPdr (pdr) + votqrNext)) -> tm;
|
||
|
|
DrUnlockCur ();
|
||
|
|
|
||
|
|
if ((tm = min (tmFromTqr, TmNextRegular (tm))) == TMNILHIGH)
|
||
|
|
return (FALSE);
|
||
|
|
|
||
|
|
pld -> tm = tm;
|
||
|
|
pld -> otqr = tm == tmFromTqr ? votqrNext : OTQRNIL;
|
||
|
|
return (TRUE);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** FGetPrevLd */
|
||
|
|
|
||
|
|
BOOL APIENTRY FGetPrevLd (
|
||
|
|
TM tm,
|
||
|
|
LD *pld)
|
||
|
|
{
|
||
|
|
|
||
|
|
TM tmFromTqr;
|
||
|
|
TM tmInterval;
|
||
|
|
|
||
|
|
FSearchTqr (tm);
|
||
|
|
tmFromTqr = TMNILLOW;
|
||
|
|
if ((WORD)votqrPrev != OTQRNIL)
|
||
|
|
{
|
||
|
|
tmFromTqr = ((PQR )(PbTqrLock () + votqrPrev)) -> tm;
|
||
|
|
DrUnlockCur ();
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Calculate the previous regular appointment time. */
|
||
|
|
tmInterval = tm - 1;
|
||
|
|
if (tm == 0 || (tmInterval -= tmInterval % vcMinInterval) < 0)
|
||
|
|
tmInterval = TMNILLOW;
|
||
|
|
|
||
|
|
if ((tm = max (tmFromTqr, tmInterval)) == TMNILLOW)
|
||
|
|
return (FALSE);
|
||
|
|
|
||
|
|
pld -> tm = tm;
|
||
|
|
pld -> otqr = tm == tmFromTqr ? votqrPrev : OTQRNIL;
|
||
|
|
return (TRUE);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** FScrollDay */
|
||
|
|
|
||
|
|
BOOL APIENTRY FScrollDay (
|
||
|
|
INT code,
|
||
|
|
UINT posNew)
|
||
|
|
{
|
||
|
|
|
||
|
|
wID=code;
|
||
|
|
|
||
|
|
switch (code)
|
||
|
|
{
|
||
|
|
case SB_LINEUP:
|
||
|
|
ScrollDownDay (1, TRUE, FALSE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case SB_LINEDOWN:
|
||
|
|
ScrollUpDay (1, TRUE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case SB_PAGEUP:
|
||
|
|
ScrollDownDay (vlnLast, TRUE, FALSE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case SB_PAGEDOWN:
|
||
|
|
ScrollUpDay (vlnLast, TRUE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case SB_THUMBPOSITION:
|
||
|
|
/* Record current edits (before changing the tld). */
|
||
|
|
if (vhwndFocus == vhwnd3)
|
||
|
|
CalSetFocus ((HWND)NULL);
|
||
|
|
FillTld (TmFromItm (posNew));
|
||
|
|
|
||
|
|
/* Move the call to SetQdEc() after the call to SetDayScrollPos(), and
|
||
|
|
use GetScrollPos() to find out if the location passed was beyond the
|
||
|
|
end of the scrollbar. If not, 0 will be passed as before. If true,
|
||
|
|
the call to SetQdEc() will step down to the appropriate location on
|
||
|
|
the display. Tracked down to solve Bug #2502.
|
||
|
|
16 July 1989 Clark Cyr */
|
||
|
|
|
||
|
|
#if DISABLE
|
||
|
|
SetQdEc (0);
|
||
|
|
#endif
|
||
|
|
SetDayScrollPos (posNew);
|
||
|
|
SetQdEc(posNew - GetScrollPos(vhwnd2B, SB_VERT));
|
||
|
|
InvalidateRect (vhwnd2B, (LPRECT)NULL, TRUE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
return (FALSE);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** ScrollDownDay
|
||
|
|
ctNew is number of lines to scroll. fScrollBar is true if we
|
||
|
|
are not being scrolled by cursor movement. fSizing is true iff
|
||
|
|
we are scrolling as a result of resizing. */
|
||
|
|
VOID APIENTRY ScrollDownDay (
|
||
|
|
INT ctmNew,
|
||
|
|
BOOL fScrollBar,
|
||
|
|
BOOL fSizing)
|
||
|
|
|
||
|
|
{
|
||
|
|
|
||
|
|
register INT ctm;
|
||
|
|
register INT ln;
|
||
|
|
LD ldTemp;
|
||
|
|
RECT rect;
|
||
|
|
HDC hDC;
|
||
|
|
TM tmFirstOld;
|
||
|
|
extern INT cchTimeMax;
|
||
|
|
CHAR sz[CCHTIMESZ];
|
||
|
|
INT cch;
|
||
|
|
INT iHeight;
|
||
|
|
INT iWidth;
|
||
|
|
|
||
|
|
/* Register current changes and hide the caret. */
|
||
|
|
if (vhwndFocus == vhwnd3)
|
||
|
|
CalSetFocus ((HWND)NULL);
|
||
|
|
|
||
|
|
tmFirstOld = vtld [0].tm;
|
||
|
|
|
||
|
|
|
||
|
|
for (ctm = 0; ctm <(ctmNew) && FGetPrevLd (vtld [0].tm, &ldTemp) ; ctm++)
|
||
|
|
{
|
||
|
|
ScrollDownTld (1);
|
||
|
|
vtld [0] = ldTemp;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (ctm != 0)
|
||
|
|
{
|
||
|
|
/* Get rid of am or pm on top line of window if it's not noon.
|
||
|
|
Note - it's OK to execute this code even if in 24 hour mode
|
||
|
|
since we will just be putting spaces over spaces.
|
||
|
|
*/
|
||
|
|
if (tmFirstOld != TMNOON)
|
||
|
|
{
|
||
|
|
hDC = CalGetDC (vhwnd2B);
|
||
|
|
cch = GetTimeSz (tmFirstOld, sz);
|
||
|
|
MGetTextExtent(hDC, sz, 5, &iHeight, &iWidth); /* width of time string
|
||
|
|
+ the blank following it */
|
||
|
|
//- KLUDGE: TextOut (hDC, vxcoApptTime + iWidth, vycoQdFirst,
|
||
|
|
//- KLUDGE: (LPSTR)vszBlankString,cchTimeMax+3);
|
||
|
|
//- For some reason, the above code no longer blanks out the
|
||
|
|
//- correct area. It puts a space in the center of the time.
|
||
|
|
TextOut (hDC, vxcoApptTime + iWidth + 19, vycoQdFirst,
|
||
|
|
(LPSTR)" ",12);
|
||
|
|
ReleaseDC (vhwnd2B, hDC);
|
||
|
|
}
|
||
|
|
|
||
|
|
GetClientRect (vhwnd2B, (LPRECT)&rect);
|
||
|
|
rect.top = vycoQdFirst;
|
||
|
|
rect.bottom = vycoQdMax;
|
||
|
|
ScrollWindow (vhwnd2B, 0, ctm * vcyLineToLine, &rect,&rect);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Need to reset focus even if nothing has scrolled since
|
||
|
|
the focus got turned off above.
|
||
|
|
*/
|
||
|
|
ln = 0;
|
||
|
|
if (fScrollBar)
|
||
|
|
ln = min (vlnCur + ctm , vlnLast);
|
||
|
|
|
||
|
|
vfUpdate = FALSE;
|
||
|
|
SetQdEc (ln);
|
||
|
|
vfUpdate = TRUE;
|
||
|
|
|
||
|
|
/* When SetQdEc validates the appointment edit control, the
|
||
|
|
corresponding rectangle of its parent (wnd2B) gets validated
|
||
|
|
too. If this is in the portion of wnd2B that was invalidated
|
||
|
|
by the scroll, we must invalidate it now so it gets painted
|
||
|
|
by DayPaint.
|
||
|
|
We brought in ctm new lines at the top of wnd2B, so if the
|
||
|
|
new ln (the position of the appointment edit control) is
|
||
|
|
less than ctm, it's in the invalidated portion of wnd2B.
|
||
|
|
Note that if ctm == 0, ln can't be less, so this case is OK.
|
||
|
|
If we are resizing, whole window will be repainted.
|
||
|
|
*/
|
||
|
|
if (ln < ctm || fSizing)
|
||
|
|
InvalidateParentQdEc (ln);
|
||
|
|
|
||
|
|
if (ctm != 0)
|
||
|
|
{
|
||
|
|
UpdateWindow (vhwnd2B);
|
||
|
|
AdjustDayScrollPos (-ctm);
|
||
|
|
|
||
|
|
/* Need to update edit ctl window incase obscurred by popup. */
|
||
|
|
if (AnyPopup() && vhwnd3)
|
||
|
|
{
|
||
|
|
InvalidateRect(vhwnd3, (LPRECT)NULL, TRUE);
|
||
|
|
UpdateWindow(vhwnd3);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** ScrollUpDay */
|
||
|
|
|
||
|
|
VOID APIENTRY ScrollUpDay (
|
||
|
|
INT ctmNew,
|
||
|
|
BOOL fScrollBar)
|
||
|
|
{
|
||
|
|
|
||
|
|
register INT ctm;
|
||
|
|
register INT ln;
|
||
|
|
LD ldTemp;
|
||
|
|
RECT rect;
|
||
|
|
HDC hDC;
|
||
|
|
|
||
|
|
|
||
|
|
/* Register current edits and hide the caret. */
|
||
|
|
if (vhwndFocus == vhwnd3)
|
||
|
|
CalSetFocus ((HWND)NULL);
|
||
|
|
|
||
|
|
for (ctm = 0; ctm < (ctmNew) && FGetNextLd (vtld [vlnLast].tm, &ldTemp);
|
||
|
|
ctm++)
|
||
|
|
{
|
||
|
|
ScrollUpTld (1);
|
||
|
|
vtld [vlnLast] = ldTemp;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (ctm != 0)
|
||
|
|
{
|
||
|
|
GetClientRect (vhwnd2B, (LPRECT)&rect);
|
||
|
|
rect.top = vycoQdFirst;
|
||
|
|
rect.bottom = vycoQdMax;
|
||
|
|
ScrollWindow (vhwnd2B, 0, -ctm * vcyLineToLine, &rect, &rect);
|
||
|
|
|
||
|
|
if (wID==SB_PAGEDOWN)
|
||
|
|
{
|
||
|
|
/* Fix the problem of not repainting some times when scrolling */
|
||
|
|
rect.top=vycoQdFirst;
|
||
|
|
rect.bottom =vycoQdMax-(ctm*vcyLineToLine);
|
||
|
|
rect.right=vxcoQdMax;
|
||
|
|
rect.left=0;
|
||
|
|
InvalidateRect(vhwnd2B, &rect, TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* If in 12 hour mode, put am/pm on first appointment in the window. */
|
||
|
|
if (!vfHour24)
|
||
|
|
{
|
||
|
|
#if FIXEDFONTWIDTH
|
||
|
|
CHAR *sz;
|
||
|
|
extern CHAR sz1159[];
|
||
|
|
extern CHAR sz2359[];
|
||
|
|
#else
|
||
|
|
CHAR sz[CCHTIMESZ];
|
||
|
|
INT cch;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
hDC = CalGetDC (vhwnd2B);
|
||
|
|
|
||
|
|
/* This has the problem that spaces do not have the same width as numbers
|
||
|
|
in the new system fonts. Depending on vxcoAmPm as the constant position
|
||
|
|
for where AM and PM should be offset is no longer safe. This is just a
|
||
|
|
bandaid and should be written correctly later. 17 July 1989 Clark Cyr */
|
||
|
|
|
||
|
|
#if FIXEDFONTWIDTH
|
||
|
|
sz=(vtld[0].tm < TMNOON ? sz1159 : sz2359);
|
||
|
|
TextOut(hDC, vxcoAmPm, vycoQdFirst, sz , lstrlen(sz));
|
||
|
|
#else
|
||
|
|
cch = GetTimeSz (vtld[0].tm, sz);
|
||
|
|
TextOut (hDC, vxcoApptTime, vycoQdFirst, (LPSTR)sz, cch);
|
||
|
|
#endif
|
||
|
|
ReleaseDC (vhwnd2B, hDC);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
/* Need to reset focus even if nothing has scrolled since
|
||
|
|
the focus got turned off above.
|
||
|
|
*/
|
||
|
|
ln = vlnLast;
|
||
|
|
if (fScrollBar)
|
||
|
|
ln = max (vlnCur - ctm, 0);
|
||
|
|
|
||
|
|
vfUpdate = FALSE;
|
||
|
|
SetQdEc (ln);
|
||
|
|
vfUpdate = TRUE;
|
||
|
|
|
||
|
|
/* When SetQdEc validates the appointment edit control, the
|
||
|
|
corresponding rectangle of its parent (wnd2B) gets validated
|
||
|
|
too. If this is in the portion of wnd2B that was invalidated
|
||
|
|
by the scroll, we must invalidate it now so it gets painted
|
||
|
|
by DayPaint.
|
||
|
|
We brought in ctm new lines at the bottom of wnd2B, so if the
|
||
|
|
new ln (the position of the appointment edit control) is
|
||
|
|
greater than vlnLast - ctm, it's in the invalidated portion of wnd2B.
|
||
|
|
Note that if ctm == 0, ln can't be greater, so this case is OK.
|
||
|
|
*/
|
||
|
|
if (ln > vlnLast - ctm)
|
||
|
|
InvalidateParentQdEc (ln);
|
||
|
|
|
||
|
|
if (ctm != 0)
|
||
|
|
{
|
||
|
|
rect.top = YcoFromLn(vlnLast);
|
||
|
|
rect.bottom = rect.top + vcyLineToLine;
|
||
|
|
InvalidateRect(vhwnd2B, (LPRECT)&rect, TRUE);
|
||
|
|
UpdateWindow (vhwnd2B);
|
||
|
|
AdjustDayScrollPos (ctm);
|
||
|
|
|
||
|
|
/* Need to update edit ctl window incase obscurred by popup. */
|
||
|
|
if (AnyPopup() && vhwnd3)
|
||
|
|
{
|
||
|
|
InvalidateRect(vhwnd3, (LPRECT)NULL, TRUE);
|
||
|
|
UpdateWindow(vhwnd3);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** InvalidateParentQdEc */
|
||
|
|
|
||
|
|
VOID APIENTRY InvalidateParentQdEc (INT ln)
|
||
|
|
{
|
||
|
|
|
||
|
|
RECT rect;
|
||
|
|
|
||
|
|
rect.top = YcoFromLn (ln);
|
||
|
|
rect.bottom = rect.top + vcyFont;
|
||
|
|
rect.left = vxcoQdFirst;
|
||
|
|
rect.right = vxcoQdMax;
|
||
|
|
|
||
|
|
InvalidateRect (vhwnd2B, &rect, TRUE);
|
||
|
|
OffsetRect(&rect, 0, vcyWnd2A);
|
||
|
|
InvalidateRect (vhwnd1, &rect, TRUE);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** YcoFromLn - given line number, return yco within Wnd2B */
|
||
|
|
|
||
|
|
INT APIENTRY YcoFromLn (INT ln)
|
||
|
|
{
|
||
|
|
return (vycoQdFirst + ln * vcyLineToLine);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** LnFromYco - given yco within Wnd2B, return line number. */
|
||
|
|
|
||
|
|
INT APIENTRY LnFromYco (INT yco)
|
||
|
|
{
|
||
|
|
return (min (max (yco - vycoQdFirst, 0) / vcyLineToLine, vlnLast));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**** SetQdEc - Position and set the text of the appointment description
|
||
|
|
edit control.
|
||
|
|
*/
|
||
|
|
|
||
|
|
VOID APIENTRY SetQdEc (INT ln)
|
||
|
|
{
|
||
|
|
|
||
|
|
register BYTE *pbTqr;
|
||
|
|
register CHAR *pchQd;
|
||
|
|
RECT rc;
|
||
|
|
|
||
|
|
/* Store edits for current appointment description. */
|
||
|
|
if (vhwndFocus == vhwnd3)
|
||
|
|
CalSetFocus ((HWND)NULL);
|
||
|
|
|
||
|
|
/* Set the new current ln. */
|
||
|
|
vlnCur = ln;
|
||
|
|
|
||
|
|
/* do this to fix bug when scrolling before window is
|
||
|
|
* actually painted on screen. the movewindow below
|
||
|
|
* forces the parents update region to clip out where
|
||
|
|
* the child window was, and it would not get erased.
|
||
|
|
* if in the scrollup/dn code, don't do the update or
|
||
|
|
* you get an unnecessary flash. vfUpdate will be false.
|
||
|
|
* 27-Oct-1987. davidhab.
|
||
|
|
*/
|
||
|
|
if (vfUpdate && GetUpdateRect(vhwnd2B, (LPRECT)&rc, FALSE)) {
|
||
|
|
GetWindowRect(vhwnd3, (LPRECT)&rc);
|
||
|
|
UpdateWindow(vhwnd2B);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
ShowWindow(vhwnd3, SW_HIDE);
|
||
|
|
MoveWindow (vhwnd3, vxcoQdFirst, YcoFromLn (ln),
|
||
|
|
vxcoQdMax - vxcoQdFirst , vcyFont, FALSE);
|
||
|
|
|
||
|
|
pbTqr = PbTqrLock ();
|
||
|
|
pchQd = "";
|
||
|
|
if (vtld [ln].otqr != OTQRNIL)
|
||
|
|
pchQd = (CHAR *)(pbTqr + vtld [ln].otqr + CBQRHEAD);
|
||
|
|
/*SendMessage (vhwnd3, WM_SETREDRAW, FALSE, 0L);*/
|
||
|
|
SetEcText(vhwnd3, pchQd);
|
||
|
|
ShowWindow(vhwnd3, SW_SHOW);
|
||
|
|
/*SendMessage (vhwnd3, WM_SETREDRAW, TRUE, 0L);
|
||
|
|
ValidateRect (vhwnd3, (LPRECT)NULL);*/
|
||
|
|
DrUnlockCur ();
|
||
|
|
|
||
|
|
/* If not in the notes area, give the focus to the appointment
|
||
|
|
description edit control.
|
||
|
|
*/
|
||
|
|
if (vhwndFocus == vhwnd3)
|
||
|
|
CalSetFocus (vhwnd3);
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
}
|