2 * Month calendar control
4 * Copyright 1998 Eric Kohl
7 * This is just a dummy control. An author is needed! Any volunteers?
8 * I will only improve this control once in a while.
9 * Eric <ekohl@abo.rhein-zeitung.de>
13 * - All notifications.
24 #define MONTHCAL_GetInfoPtr(wndPtr) ((MONTHCAL_INFO *)wndPtr->wExtra[0])
32 MONTHCAL_Create (WND
*wndPtr
, WPARAM32 wParam
, LPARAM lParam
)
34 MONTHCAL_INFO
*infoPtr
;
36 /* allocate memory for info structure */
37 infoPtr
= (MONTHCAL_INFO
*)COMCTL32_Alloc (sizeof(MONTHCAL_INFO
));
38 wndPtr
->wExtra
[0] = (DWORD
)infoPtr
;
40 if (infoPtr
== NULL
) {
41 ERR (monthcal
, "could not allocate info memory!\n");
45 if ((MONTHCAL_INFO
*)wndPtr
->wExtra
[0] != infoPtr
) {
46 ERR (monthcal
, "pointer assignment error!\n");
50 /* initialize info structure */
59 MONTHCAL_Destroy (WND
*wndPtr
, WPARAM32 wParam
, LPARAM lParam
)
61 MONTHCAL_INFO
*infoPtr
= MONTHCAL_GetInfoPtr(wndPtr
);
68 /* free ipaddress info data */
69 COMCTL32_Free (infoPtr
);
78 MONTHCAL_WindowProc (HWND32 hwnd
, UINT32 uMsg
, WPARAM32 wParam
, LPARAM lParam
)
80 WND
*wndPtr
= WIN_FindWndPtr(hwnd
);
87 return MONTHCAL_Create (wndPtr
, wParam
, lParam
);
90 return MONTHCAL_Destroy (wndPtr
, wParam
, lParam
);
94 ERR (monthcal
, "unknown msg %04x wp=%08x lp=%08lx\n",
95 uMsg
, wParam
, lParam
);
96 return DefWindowProc32A (hwnd
, uMsg
, wParam
, lParam
);
103 MONTHCAL_Register (VOID
)
105 WNDCLASS32A wndClass
;
107 if (GlobalFindAtom32A (MONTHCAL_CLASS32A
)) return;
109 ZeroMemory (&wndClass
, sizeof(WNDCLASS32A
));
110 wndClass
.style
= CS_GLOBALCLASS
;
111 wndClass
.lpfnWndProc
= (WNDPROC32
)MONTHCAL_WindowProc
;
112 wndClass
.cbClsExtra
= 0;
113 wndClass
.cbWndExtra
= sizeof(MONTHCAL_INFO
*);
114 wndClass
.hCursor
= LoadCursor32A (0, IDC_ARROW32A
);
115 wndClass
.hbrBackground
= (HBRUSH32
)(COLOR_WINDOW
+ 1);
116 wndClass
.lpszClassName
= MONTHCAL_CLASS32A
;
118 RegisterClass32A (&wndClass
);
123 MONTHCAL_Unregister (VOID
)
125 if (GlobalFindAtom32A (MONTHCAL_CLASS32A
))
126 UnregisterClass32A (MONTHCAL_CLASS32A
, (HINSTANCE32
)NULL
);