713 lines
22 KiB
C
713 lines
22 KiB
C
|
/*
|
||
|
|
* Windows Calendar
|
||
|
|
* Copyright (c) 1985 by Microsoft Corporation, all rights reserved.
|
||
|
|
* Written by Mark L. Chamberlin, consultant to Microsoft.
|
||
|
|
*
|
||
|
|
****** calinit.c
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "cal.h"
|
||
|
|
#include "string.h"
|
||
|
|
|
||
|
|
#define DOTIMER
|
||
|
|
|
||
|
|
//- OBM_RGARROW & OBM_LFARROW: Use the new arrows instead of old ones.
|
||
|
|
#define OBM_RGARROW 32751
|
||
|
|
#define OBM_LFARROW 32750
|
||
|
|
|
||
|
|
|
||
|
|
extern INT cchLongDateMax;
|
||
|
|
extern INT cchTimeMax;
|
||
|
|
extern BOOL f24Time;
|
||
|
|
|
||
|
|
#define GSM(SM) GetSystemMetrics(SM)
|
||
|
|
|
||
|
|
BOOL APIENTRY ProcessShellOptions(
|
||
|
|
LPSTR lpszCmdLine);
|
||
|
|
|
||
|
|
/**** CalInit ****/
|
||
|
|
|
||
|
|
BOOL APIENTRY CalInit (
|
||
|
|
HANDLE hInstance,
|
||
|
|
HANDLE hPrevInstance,
|
||
|
|
LPSTR lpszCmdLine,
|
||
|
|
INT cmdShow)
|
||
|
|
{
|
||
|
|
BITMAP bmBell;
|
||
|
|
WNDCLASS WndClass;
|
||
|
|
HDC hDC;
|
||
|
|
TEXTMETRIC Metrics;
|
||
|
|
INT i;
|
||
|
|
INT cyUseable;
|
||
|
|
CHAR *pch;
|
||
|
|
INT cchRemaining, cch, cxWnd2C, cyWnd2C;
|
||
|
|
HANDLE hStrings;
|
||
|
|
INT tm, TimeSetting;
|
||
|
|
INT BlankWidth; /* width (in pixels) of a blank char */
|
||
|
|
CHAR * pszFilterSpec = vszFilterSpec; /* temp. var. for creating filter text */
|
||
|
|
|
||
|
|
CHAR sz[10];
|
||
|
|
CHAR *psz=sz;
|
||
|
|
INT iHeight;
|
||
|
|
INT iWidth;
|
||
|
|
|
||
|
|
|
||
|
|
/* Remember our instance handle. */
|
||
|
|
vhInstance = hInstance;
|
||
|
|
|
||
|
|
/* Assume this string is longer for initialization. */
|
||
|
|
vfHour24 = FALSE;
|
||
|
|
TimeSetting = GTS_12HOUR;
|
||
|
|
|
||
|
|
/* determine time setting from "International" section of win.ini */
|
||
|
|
tm = 1;
|
||
|
|
if (tm=GetProfileInt("intl", "iTime", tm))
|
||
|
|
if (tm = 1)
|
||
|
|
{
|
||
|
|
TimeSetting = GTS_24HOUR;
|
||
|
|
vfHour24 = TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
InitTimeDate(vhInstance, TimeSetting);
|
||
|
|
InitLongTimeDate(TimeSetting);
|
||
|
|
|
||
|
|
/* Load strings from resource file. */
|
||
|
|
hStrings=LocalAlloc(LPTR, cchRemaining=CCHSTRINGSMAX);
|
||
|
|
|
||
|
|
pch=(CHAR *)(hStrings);
|
||
|
|
if (!pch)
|
||
|
|
return (FALSE);
|
||
|
|
|
||
|
|
|
||
|
|
for (i=0; i<CSTRINGS; i++)
|
||
|
|
{
|
||
|
|
cch=1+LoadString(hInstance, i, pch, cchRemaining);
|
||
|
|
|
||
|
|
/* If LoadString failed, not enough memory. */
|
||
|
|
if (cch < 2)
|
||
|
|
{
|
||
|
|
MessageBeep(0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
vrgsz [i] = pch;
|
||
|
|
pch += cch;
|
||
|
|
|
||
|
|
/* If we run out of space it means that CCHSTRINGSMAX is too small.
|
||
|
|
This should only happen when someone changes the strings in the
|
||
|
|
.RC file, and returning FALSE should prevent them from shipping
|
||
|
|
the new version without increasing CCHSTRINGSMAX (and possibly
|
||
|
|
the initial heap size in the .DEF file).
|
||
|
|
Note - we fail on the boundary condition that cchRemaining == 0
|
||
|
|
because last loadstring will trim the size of the string loaded
|
||
|
|
to be <= cchRemaining.
|
||
|
|
*/
|
||
|
|
if ((cchRemaining -= cch) <= 0)
|
||
|
|
return (FALSE);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
//- CalInit: Eliminate Realloc because it seems to trash string pointers.
|
||
|
|
//- Only lose 800 bytes anyway.
|
||
|
|
//- LocalReAlloc(hStrings, CCHSTRINGSMAX-cchRemaining, LPTR);
|
||
|
|
|
||
|
|
//- MergeStr: Changed to string to avoid crossing word boundries.
|
||
|
|
strncpy (vszMergeStr, vrgsz [IDS_MERGE1], 2);
|
||
|
|
|
||
|
|
|
||
|
|
/* Get default Page Setup stuff. */
|
||
|
|
for (i=IDS_HEADER; i<=IDS_BOTTOM; i++)
|
||
|
|
LoadString(hInstance, i, chPageText[i-IDS_HEADER], PT_LEN);
|
||
|
|
|
||
|
|
/* Allocate the DRs. */
|
||
|
|
if (!AllocDr ())
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
/* Create the brushes. */
|
||
|
|
if (!CreateBrushes ())
|
||
|
|
/* Destroy any brushes that were created on failure. */
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
/* construct default filter string in the required format for
|
||
|
|
* the new FileOpen and FileSaveAs dialogs
|
||
|
|
*/
|
||
|
|
lstrcpy(vszFilterSpec, vszFilterText);
|
||
|
|
pszFilterSpec += lstrlen (vszFilterSpec) + 1;
|
||
|
|
lstrcpy(pszFilterSpec++, "*");
|
||
|
|
lstrcpy(pszFilterSpec, vszFileExtension);
|
||
|
|
pszFilterSpec += lstrlen(pszFilterSpec) + 1;
|
||
|
|
lstrcpy(pszFilterSpec, vszAllFiles);
|
||
|
|
pszFilterSpec += lstrlen(pszFilterSpec) + 1;
|
||
|
|
lstrcpy(pszFilterSpec, "*.*");
|
||
|
|
pszFilterSpec += lstrlen(pszFilterSpec) + 1;
|
||
|
|
*pszFilterSpec = '\0';
|
||
|
|
*vszCustFilterSpec = '\0';
|
||
|
|
|
||
|
|
/* Get cursors. */
|
||
|
|
if (!(vhcsrArrow = LoadCursor (NULL, IDC_ARROW)))
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
if (!(vhcsrIbeam = LoadCursor (NULL, IDC_IBEAM)))
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
if (!(vhcsrWait = LoadCursor (NULL, IDC_WAIT)))
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
if (hPrevInstance == NULL)
|
||
|
|
{
|
||
|
|
/* There is no previous instance, so we must register our
|
||
|
|
* window classes.
|
||
|
|
*/
|
||
|
|
|
||
|
|
FillBuf ((BYTE *)&WndClass, sizeof (WNDCLASS), 0);
|
||
|
|
|
||
|
|
if (!(WndClass.hIcon = LoadIcon (hInstance, MAKEINTRESOURCE(1))))
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
WndClass.lpszMenuName = MAKEINTRESOURCE(1);
|
||
|
|
WndClass.lpszClassName = "CalWndMain",
|
||
|
|
WndClass.hInstance = hInstance;
|
||
|
|
WndClass.style = CS_VREDRAW | CS_HREDRAW |
|
||
|
|
CS_DBLCLKS | CS_BYTEALIGNCLIENT;
|
||
|
|
WndClass.lpfnWndProc = CalWndProc;
|
||
|
|
|
||
|
|
/* Register CalWndMain. */
|
||
|
|
if (!RegisterClass (&WndClass))
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
WndClass.lpszMenuName = NULL;
|
||
|
|
WndClass.lpszClassName = "CalWndSub";
|
||
|
|
|
||
|
|
/* Register CalWndSub. */
|
||
|
|
if (!RegisterClass (&WndClass))
|
||
|
|
return CalTerminate(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Load in the accelerators. */
|
||
|
|
vhAccel=LoadAccelerators(hInstance, MAKEINTRESOURCE(1));
|
||
|
|
if (!vhAccel)
|
||
|
|
return CalTerminate(0);
|
||
|
|
|
||
|
|
/* Get bitmaps.
|
||
|
|
* If LoadBitmaps returns false, must delete those that were loaded.
|
||
|
|
*/
|
||
|
|
if (!LoadBitmaps(hInstance))
|
||
|
|
return CalTerminate(1);
|
||
|
|
|
||
|
|
|
||
|
|
/* Get a screen DC. */
|
||
|
|
hDC=GetDC(NULL);
|
||
|
|
|
||
|
|
/* Fetch the text metrics of the system font. */
|
||
|
|
GetTextMetrics (hDC, &Metrics);
|
||
|
|
|
||
|
|
/* Create a memory DC for BitBlts. */
|
||
|
|
vhDCMemory=CreateCompatibleDC(hDC);
|
||
|
|
|
||
|
|
ReleaseDC (NULL, hDC);
|
||
|
|
|
||
|
|
if (!vhDCMemory)
|
||
|
|
return CalTerminate(1);
|
||
|
|
|
||
|
|
/* Remember the text metrics we care about. */
|
||
|
|
vcyFont = Metrics.tmHeight;
|
||
|
|
vcxFont = Metrics.tmAveCharWidth;
|
||
|
|
vcxFontMax = Metrics.tmMaxCharWidth;
|
||
|
|
vcyDescent = Metrics.tmDescent;
|
||
|
|
vcyExtLead = Metrics.tmExternalLeading;
|
||
|
|
|
||
|
|
if (vcyExtLead == 0)
|
||
|
|
vcyExtLead=max(1, vcyFont/8);
|
||
|
|
|
||
|
|
vcyLineToLine=vcyExtLead+vcyFont;
|
||
|
|
|
||
|
|
/* Fetch some system metrics. */
|
||
|
|
vcxBorder = GSM(SM_CXBORDER);
|
||
|
|
vcyBorder = GSM(SM_CYBORDER);
|
||
|
|
vcxVScrollBar = GSM(SM_CXVSCROLL);
|
||
|
|
vcxHScrollBar = GSM(SM_CXHSCROLL);
|
||
|
|
vcyHScrollBar = GSM(SM_CYHSCROLL);
|
||
|
|
|
||
|
|
/* Find out how big the the bell bitmap is. */
|
||
|
|
GetObject(vhbmBell, sizeof(BITMAP), &bmBell);
|
||
|
|
vcxBell = bmBell.bmWidth;
|
||
|
|
vcyBell = bmBell.bmHeight;
|
||
|
|
|
||
|
|
/* Calculate the window heights. All heights are client rectangle
|
||
|
|
heights, except for vcyWnd1, which includes the top and bottom
|
||
|
|
borders.
|
||
|
|
*/
|
||
|
|
vcyWnd2A=max(vcyExtLead + vcyLineToLine,
|
||
|
|
vcyHScrollBar + 2 * vcyBorder);
|
||
|
|
|
||
|
|
vcyWnd2BTop=vcyBorder+vcyExtLead+2*vcyLineToLine;
|
||
|
|
|
||
|
|
/* Note - the assumption is that numeric digits will not have
|
||
|
|
descenders. Therefore, we subtract out the descent when
|
||
|
|
calculating the space below the date digits in the monthly
|
||
|
|
calendar display.
|
||
|
|
*/
|
||
|
|
/* changed from 6 to 9 */
|
||
|
|
vcyWnd2BBot = 9*(6*vcyBorder+max(vcyBorder-vcyDescent, 0)
|
||
|
|
+vcyFont)+vcyBorder;
|
||
|
|
|
||
|
|
#ifdef DISABLE
|
||
|
|
cyT = 11*vcyLineToLine+vcyBorder+vcyBorder;
|
||
|
|
if (vcyWnd2BBot < cyT)
|
||
|
|
vcyWnd2BBot = cyT;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* The idea is to make the boxes not look very different in size
|
||
|
|
on the last week of the month for the 4, 5, and 6 week cases.
|
||
|
|
*/
|
||
|
|
vcyWnd2BBot++;
|
||
|
|
vcyWnd2B = vcyWnd2BTop + vcyWnd2BBot + vcyHScrollBar; /* last item added lsr */
|
||
|
|
|
||
|
|
cyWnd2C = CLNNOTES * vcyLineToLine;
|
||
|
|
vcyWnd1 = vcyBorder + (vycoNotesBox = vcyWnd2A + vcyWnd2B)
|
||
|
|
+ vcyBorder + vcyExtLead + cyWnd2C + vcyBorder;
|
||
|
|
|
||
|
|
/* Calculate the window widths. All widths are client rectangle
|
||
|
|
widths, except for vcxWnd1, which includes the left and right
|
||
|
|
borders.
|
||
|
|
The width is determined by:
|
||
|
|
Needed for Wnd2A in day mode:
|
||
|
|
"<border> <time> <left arrow><border><right arrow>
|
||
|
|
Wednesday, September 25, 1985 <border>"
|
||
|
|
Needed for Wnd2B in day mode:
|
||
|
|
"<border> <Bell> <time> <40 chars appointment description> \
|
||
|
|
<scroll bar>"
|
||
|
|
Note that the right border of the scroll bar aligns with the right
|
||
|
|
border of Wnd1, so it shouldn't be added in twice.
|
||
|
|
*/
|
||
|
|
vcxWnd1 = max(
|
||
|
|
/* width of header */
|
||
|
|
(cchLongDateMax + cchTimeMax + 4) * vcxFont
|
||
|
|
+ 2 * vcxHScrollBar + 3 * vcxBorder,
|
||
|
|
/* width of line of display */
|
||
|
|
|
||
|
|
vcxBorder + vcxBell + (40 + 4 + cchTimeMax)
|
||
|
|
* vcxFont +vcxVScrollBar);
|
||
|
|
|
||
|
|
|
||
|
|
vcxWnd2A = vcxWnd1 - 2 * vcxBorder ;
|
||
|
|
|
||
|
|
|
||
|
|
/* Note that by adding in vcxBorder here we force the right
|
||
|
|
border of the scroll bar to align with the border of the
|
||
|
|
enclosing window Wnd1.
|
||
|
|
*/
|
||
|
|
|
||
|
|
vcxWnd2B = vcxWnd2A - vcxVScrollBar + vcxBorder;
|
||
|
|
|
||
|
|
/* Note - we know there are at least 40+4+1+cchTimeMax characters (from the width of
|
||
|
|
wnd1) and we assume that the rest of the stuff (like the scroll
|
||
|
|
bar and alarm bell bitmap totals at least one extra character
|
||
|
|
(a very safe assumption).
|
||
|
|
Leave room to the right of the last character for showing the
|
||
|
|
caret when the edit control is full (the caret is vcxBorder
|
||
|
|
pixels wide).
|
||
|
|
*/
|
||
|
|
cxWnd2C = (40 + 4 + 1 + cchTimeMax) * vcxFont + vcxBorder;
|
||
|
|
|
||
|
|
/* Calculate some x coordinates within Wnd2A. */
|
||
|
|
#ifdef BUG_8560
|
||
|
|
vxcoLeftArrowMax = (vxcoLeftArrowFirst = (7 + cchTimeMax) * vcxFont) + vcxHScrollBar;
|
||
|
|
vxcoRightArrowMax = (vxcoRightArrowFirst = vxcoLeftArrowMax + vcxBorder)+ vcxHScrollBar;
|
||
|
|
#else
|
||
|
|
vxcoLeftArrowMax = (vxcoLeftArrowFirst = (7 + cchTimeMax) * vcxFont) + vcxHScrollBar + vcxBorder;
|
||
|
|
vxcoRightArrowMax = (vxcoRightArrowFirst = vxcoLeftArrowMax)+ vcxHScrollBar + vcxBorder;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
hDC=GetDC(NULL);
|
||
|
|
|
||
|
|
vxcoDate = vxcoRightArrowMax + vcxFont;
|
||
|
|
|
||
|
|
/* Calculate some coordinates within wnd2B for day mode. */
|
||
|
|
GetTimeSz ( SAMPLETIME, psz);
|
||
|
|
MGetTextExtent(hDC, vszBlank, 1, &iHeight, &iWidth);
|
||
|
|
BlankWidth = iWidth;
|
||
|
|
|
||
|
|
MGetTextExtent(hDC, psz, 1, &iHeight, &iWidth);
|
||
|
|
//- KLUDGE: Divide the width of a character by two because it seems to
|
||
|
|
//- be too large.
|
||
|
|
//- TEMP: vxcoBell = iWidth;
|
||
|
|
//- TEMP: vxcoApptTime = vxcoBell + vcxBell + iWidth;
|
||
|
|
vxcoBell = iWidth / 2;
|
||
|
|
vxcoApptTime = vxcoBell + vcxBell + iWidth / 2;
|
||
|
|
|
||
|
|
MGetTextExtent(hDC, psz, 6, &iHeight, &iWidth);
|
||
|
|
vxcoAmPm = vxcoApptTime + iWidth -1;
|
||
|
|
cchTimeMax = 2*vcxFontMax / BlankWidth;
|
||
|
|
|
||
|
|
/* Release the the DC. */
|
||
|
|
ReleaseDC (NULL, hDC);
|
||
|
|
|
||
|
|
/* Calculate the x boundaries of the appointment descriptions.
|
||
|
|
Leave room to the right of the last character for showing the
|
||
|
|
caret when the edit control is full (the caret is vcxBorder
|
||
|
|
pixels wide).
|
||
|
|
*/
|
||
|
|
/*
|
||
|
|
vxcoQdMax = (vxcoQdFirst = vxcoAmPm + 3 * vcxFont)
|
||
|
|
+ CCHQDMAX * vcxFont + vcxBorder;
|
||
|
|
*/
|
||
|
|
|
||
|
|
//- KLUDGE: vxcoQdFirst = vxcoAmPm + 3 * vcxFontMax;
|
||
|
|
vxcoQdFirst = vxcoAmPm + 6 * vcxFontMax;
|
||
|
|
|
||
|
|
/* This formula limits the Moving edit control to what is visible
|
||
|
|
and not to a number of characters. The -2 at the end is simply
|
||
|
|
so the caret is not flush with the scrollbar. c-kraigb */
|
||
|
|
|
||
|
|
vxcoQdMax=vcxWnd1 - vcxBorder - GSM(SM_CXVSCROLL)-2;
|
||
|
|
|
||
|
|
/* Calculate the number of ln and the y boundaries of the appointment
|
||
|
|
descriptions. Subtract out the top and bottom borders, and subtract
|
||
|
|
out the external leading before the first ln to see how much useable
|
||
|
|
space there is. Then divide to see how many ln will fit, and
|
||
|
|
split the extra pixels between the top and the bottom.
|
||
|
|
*/
|
||
|
|
cyUseable = vcyWnd2B - 2 * vcyBorder - vcyExtLead;
|
||
|
|
vlnLast = (vcln = cyUseable / vcyLineToLine) - 1;
|
||
|
|
vycoQdMax = (vycoQdFirst = 2 + (cyUseable % vcyLineToLine) / 2)
|
||
|
|
+ vcln * vcyLineToLine;
|
||
|
|
|
||
|
|
/* Create window CalWnd0. */
|
||
|
|
if(!(vhwnd0 = CreateWindow("CalWndMain",
|
||
|
|
NULL,
|
||
|
|
WS_TILEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT,
|
||
|
|
min(vcxWnd1+GSM(SM_CXFRAME)*2+vcxFont*3,
|
||
|
|
GSM(SM_CXSCREEN)),
|
||
|
|
min(vcyWnd1+GSM(SM_CYCAPTION)+ GSM(SM_CYFRAME)*2+
|
||
|
|
GSM(SM_CYMENU)+(vcyFont*2),
|
||
|
|
GSM(SM_CYSCREEN)),
|
||
|
|
NULL, NULL,
|
||
|
|
hInstance, NULL)))
|
||
|
|
|
||
|
|
return CalTerminate(2);
|
||
|
|
|
||
|
|
|
||
|
|
/* Create window CalWnd1. */
|
||
|
|
if (!(vhwnd1 = CreateWindow ( "CalWndSub",
|
||
|
|
NULL,
|
||
|
|
WS_VISIBLE | WS_CHILD | WS_BORDER,
|
||
|
|
XcoWnd1 (), YcoWnd1 (), vcxWnd1, vcyWnd1,
|
||
|
|
vhwnd0, NULL, hInstance, NULL)))
|
||
|
|
{
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* Create window CalWnd2A. */
|
||
|
|
if (!(vhwnd2A = CreateWindow ( "CalWndSub",
|
||
|
|
NULL,
|
||
|
|
WS_VISIBLE | WS_CHILD,
|
||
|
|
0, 0, vcxWnd2A, vcyWnd2A,
|
||
|
|
vhwnd1, NULL, hInstance, NULL)))
|
||
|
|
{
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifndef BUG_8560
|
||
|
|
/* Create the scrollbar control as a child of hwnd2A */
|
||
|
|
if (!(vhScrollWnd = CreateWindow ( "scrollbar",
|
||
|
|
NULL,
|
||
|
|
WS_VISIBLE | WS_CHILD | SBS_HORZ,
|
||
|
|
vxcoLeftArrowFirst, 0, (vcxHScrollBar + vcxBorder)<<1, vcyWnd2A,
|
||
|
|
vhwnd2A, (HMENU)IDHORZSCROLL, hInstance, NULL)))
|
||
|
|
{
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/* Create window CalWnd2B. Note - use width of vcxWnd1 - vcxBorder
|
||
|
|
in order to overlay the right border of the scroll bar with the
|
||
|
|
right border of Wnd1.
|
||
|
|
*/
|
||
|
|
if (!(vhwnd2B = CreateWindow ( "CalWndSub",
|
||
|
|
NULL,
|
||
|
|
WS_VISIBLE | WS_CHILD | WS_VSCROLL| WS_HSCROLL,
|
||
|
|
0, vcyWnd2A, vcxWnd1 - vcxBorder, vcyWnd2B,
|
||
|
|
vhwnd1, NULL, hInstance, NULL)))
|
||
|
|
{
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
hmScrollMax = 0;
|
||
|
|
vmScrollPos = 0;
|
||
|
|
vmScrollMax = 0;
|
||
|
|
hmScrollPos = 0;
|
||
|
|
|
||
|
|
/* Create window CalWnd2C. */
|
||
|
|
if (!(vhwnd2C = CreateWindow ( "Edit",
|
||
|
|
NULL,
|
||
|
|
WS_VISIBLE | WS_CHILD | ES_MULTILINE,
|
||
|
|
vxcoWnd2C = (vcxWnd2A - cxWnd2C) / 2,
|
||
|
|
vycoWnd2C = vcyWnd1 - 2 * vcyBorder - cyWnd2C,
|
||
|
|
cxWnd2C, cyWnd2C,
|
||
|
|
vhwnd1, (HMENU)IDECNOTES, hInstance, NULL)))
|
||
|
|
{
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/* limit text in notes area to number of chars that fit.
|
||
|
|
* this is done to get around a bug in edit controls when
|
||
|
|
* you paste in text which has tabs.
|
||
|
|
* 05-Oct-1987. davidhab.
|
||
|
|
*/
|
||
|
|
#if VARIABLENOTELENGTH
|
||
|
|
SendMessage(vhwnd2C, EM_LIMITTEXT, (cyWnd2C / vcyFont) * (cxWnd2C / vcxFont)*2, 0L);
|
||
|
|
#else
|
||
|
|
SendMessage(vhwnd2C, EM_LIMITTEXT, CBNOTESMAX, 0L);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
/* Create window CalWnd3. c-kraigb : ES_AUTOHSCROLL added to allow
|
||
|
|
more text in the appointment area without having to alter the
|
||
|
|
size of the entire layout.*/
|
||
|
|
|
||
|
|
if (!(vhwnd3 = CreateWindow ( "Edit",
|
||
|
|
NULL,
|
||
|
|
WS_CHILD | ES_AUTOHSCROLL,
|
||
|
|
0, 0, CW_USEDEFAULT, CW_USEDEFAULT,
|
||
|
|
vhwnd2B, (HMENU)IDECQD, hInstance, NULL)))
|
||
|
|
|
||
|
|
{
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/* Limit the Appoinment Edit to it's maximum. 80 chars should be
|
||
|
|
sufficient for all intensive purposes , c-kraigb
|
||
|
|
*/
|
||
|
|
SendMessage(vhwnd3, EM_LIMITTEXT, CCHQDMAX, 0L);
|
||
|
|
|
||
|
|
/* Make all the files look closed. */
|
||
|
|
for (i=0; i < CFILE; i++)
|
||
|
|
hFile[i]=-1;
|
||
|
|
|
||
|
|
/* Get a handle for the tdd. Note - the tdd will get initialized
|
||
|
|
when we call CleanSlate or LoadCal below.
|
||
|
|
*/
|
||
|
|
//- Calinit: Changed Allocation because of bug in LocalReAlloc.
|
||
|
|
//- vhlmTdd = LocalAlloc (LMEM_MOVEABLE, 0);
|
||
|
|
|
||
|
|
/* Fetch the current date and time. */
|
||
|
|
ReadClock(&vd3Cur, &vftCur.tm);
|
||
|
|
vftCur.dt = DtFromPd3 (&vd3Cur);
|
||
|
|
|
||
|
|
/* Set up the timer event for updating the time and date. */
|
||
|
|
|
||
|
|
#ifdef DOTIMER
|
||
|
|
if (!SetTimer (vhwnd0, 0, 1000, NULL))
|
||
|
|
{
|
||
|
|
AlertBox (vrgsz[IDS_NOTIMER], (CHAR *)NULL,
|
||
|
|
MB_SYSTEMMODAL | MB_OK | MB_ICONHAND);
|
||
|
|
DestroyWindow(vhwnd0);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
#endif /* #ifdef DOTIMER */
|
||
|
|
|
||
|
|
/* init. some fields of the OPENFILENAME struct used by fileopen and
|
||
|
|
* filesaveas
|
||
|
|
*/
|
||
|
|
/* changed to sizeof instead of constant. 18 Jan 1991 clarkc */
|
||
|
|
vOFN.lStructSize = sizeof(OPENFILENAME);
|
||
|
|
vOFN.hwndOwner = vhwnd0;
|
||
|
|
vOFN.lpstrFileTitle = 0;
|
||
|
|
vOFN.nMaxCustFilter = CCHFILTERMAX;
|
||
|
|
vOFN.nFilterIndex = vFilterIndex;
|
||
|
|
vOFN.nMaxFile = CCHFILESPECMAX;
|
||
|
|
vOFN.lpfnHook = NULL;
|
||
|
|
|
||
|
|
/* init fields of the PRINTDLG structure */
|
||
|
|
/* changed to sizeof instead of constant. 18 Jan 1991 clarkc */
|
||
|
|
vPD.lStructSize = sizeof(PRINTDLG);
|
||
|
|
vPD.hwndOwner = vhwnd0;
|
||
|
|
vPD.hDevMode = NULL;
|
||
|
|
vPD.hDevNames = NULL;
|
||
|
|
vPD.hDC = NULL;
|
||
|
|
vPD.Flags = PD_NOSELECTION | PD_NOPAGENUMS; /* disable "pages" and "Selection" radiobuttons */
|
||
|
|
vPD.nFromPage = 0;
|
||
|
|
vPD.nToPage = 0;
|
||
|
|
vPD.nMinPage = 0;
|
||
|
|
vPD.nMaxPage = 0;
|
||
|
|
vPD.nCopies = 1;
|
||
|
|
|
||
|
|
/* determine the message number to be used for communication with
|
||
|
|
* Find dialog
|
||
|
|
*/
|
||
|
|
if (!(vHlpMsg = RegisterWindowMessage (HELPMSGSTRING)))
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
/* Prevent grabbing of focus if we are coming up iconic. */
|
||
|
|
vfNoGrabFocus = (cmdShow == SW_SHOWMINNOACTIVE);
|
||
|
|
|
||
|
|
|
||
|
|
/* Initialize according to values from win.ini */
|
||
|
|
CalWinIniChange();
|
||
|
|
|
||
|
|
if (ProcessShellOptions(lpszCmdLine))
|
||
|
|
{
|
||
|
|
PostMessage(vhwnd0, WM_CLOSE, 0, 0L);
|
||
|
|
return (TRUE);
|
||
|
|
}
|
||
|
|
else if (*lpszCmdLine == '\0') /* Not invoked with a file. */
|
||
|
|
{
|
||
|
|
CleanSlate (TRUE);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
/* Try to load the file. */
|
||
|
|
AddDefExt(lpszCmdLine);
|
||
|
|
|
||
|
|
hFile [IDFILEORIGINAL] = MOpenFile (lpszCmdLine,
|
||
|
|
(OFSTRUCT FAR *)&OFStruct [IDFILEORIGINAL], OF_READ);
|
||
|
|
LoadCal ();
|
||
|
|
}
|
||
|
|
|
||
|
|
/* If we didn't grab the focus we need to set up vhwndFocus so
|
||
|
|
we correctly set the focus when we get activated later on.
|
||
|
|
Initially we are in day mode with the focus on the appointment
|
||
|
|
edit control.
|
||
|
|
*/
|
||
|
|
if (vfNoGrabFocus)
|
||
|
|
{
|
||
|
|
vhwndFocus = vhwnd3;
|
||
|
|
vfNoGrabFocus = FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* Make the windows visible. */
|
||
|
|
ShowWindow (vhwnd0, cmdShow);
|
||
|
|
return (TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
BOOL APIENTRY ProcessShellOptions(
|
||
|
|
LPSTR lpszCmdLine)
|
||
|
|
{
|
||
|
|
CHAR szFileName[80];
|
||
|
|
|
||
|
|
AnsiUpper(lpszCmdLine);
|
||
|
|
|
||
|
|
if (*lpszCmdLine != '/' || *lpszCmdLine != 'P')
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
lpszCmdLine += 2;
|
||
|
|
|
||
|
|
// skip blanks
|
||
|
|
while (*lpszCmdLine == ' ' || *lpszCmdLine == '\t')
|
||
|
|
lpszCmdLine++;
|
||
|
|
|
||
|
|
if (!*lpszCmdLine)
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
/* Get the filename. */
|
||
|
|
lstrcpy(szFileName, lpszCmdLine);
|
||
|
|
AddDefExt(szFileName);
|
||
|
|
|
||
|
|
hFile[IDFILEORIGINAL] = MOpenFile (szFileName, &OFStruct [IDFILEORIGINAL],
|
||
|
|
OF_READ);
|
||
|
|
if (hFile[IDFILEORIGINAL] == -1)
|
||
|
|
{
|
||
|
|
AlertBox (vszCannotReadFile, szFileName, MB_SYSTEMMODAL | MB_OK | MB_ICONEXCLAMATION);
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
LoadCal();
|
||
|
|
|
||
|
|
// need to set the first and last dates for which appts have to be
|
||
|
|
// printed.
|
||
|
|
// Since the data structures are utterly incomprehensible,
|
||
|
|
// the following method appeared to provide the easiest solution
|
||
|
|
vdtFrom = DTFIRST; // from 1/1/1980
|
||
|
|
vdtTo = DTLAST; // to December 31, 2099.
|
||
|
|
|
||
|
|
FSearchTdd (vdtFrom, &vitddFirst); // first day in the file
|
||
|
|
FSearchTdd (vdtTo, &vitddMax); // last day in the file
|
||
|
|
Print ();
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**** AllocDr ****/
|
||
|
|
|
||
|
|
BOOL APIENTRY AllocDr ()
|
||
|
|
{
|
||
|
|
register INT i;
|
||
|
|
|
||
|
|
for (i=0; i < CDR; i++)
|
||
|
|
{
|
||
|
|
/* Note - the DRs get marked free by New. */
|
||
|
|
if (!(vrghlmDr [i] = LocalAlloc (LMEM_MOVEABLE | LMEM_ZEROINIT, CBDRMAX)))
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/**** Return TRUE iff all bitmaps loaded. If we fail to load any bitmap,
|
||
|
|
DeleteBitmaps will deleted the ones already loaded. */
|
||
|
|
BOOL APIENTRY LoadBitmaps(HANDLE hInstance)
|
||
|
|
{
|
||
|
|
vhbmLeftArrow = LoadBitmap (NULL, MAKEINTRESOURCE (OBM_LFARROW));
|
||
|
|
vhbmRightArrow = LoadBitmap (NULL, MAKEINTRESOURCE (OBM_RGARROW));
|
||
|
|
vhbmBell = LoadBitmap (hInstance, MAKEINTRESOURCE(1));
|
||
|
|
return (vhbmBell && vhbmLeftArrow && vhbmRightArrow);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/**** Delete bitmaps that have been loaded. Depends on handles having been
|
||
|
|
initialized to 0. */
|
||
|
|
VOID APIENTRY DeleteBitmaps()
|
||
|
|
{
|
||
|
|
if (vhbmBell)
|
||
|
|
DeleteObject(vhbmBell);
|
||
|
|
|
||
|
|
if (vhbmLeftArrow)
|
||
|
|
DeleteObject(vhbmLeftArrow);
|
||
|
|
|
||
|
|
if (vhbmRightArrow)
|
||
|
|
DeleteObject(vhbmRightArrow);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**** Destroy Global Objects.
|
||
|
|
iLevel determines which objects will be deleted.
|
||
|
|
Always returns FALSE */
|
||
|
|
BOOL APIENTRY CalTerminate(INT iLevel)
|
||
|
|
{
|
||
|
|
/* Note case statement falls thru every arm. */
|
||
|
|
switch (iLevel)
|
||
|
|
{
|
||
|
|
case 2:
|
||
|
|
DeleteDC (vhDCMemory);
|
||
|
|
|
||
|
|
case 1:
|
||
|
|
DeleteBitmaps();
|
||
|
|
|
||
|
|
case 0:
|
||
|
|
DestroyBrushes();
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Leave handy value in ax for calinit to return. */
|
||
|
|
return FALSE;
|
||
|
|
}
|