![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wndproc.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / bio|
Return to wndproc.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / bio |
1.1 root 1: /* BioWndProc() - Parent WndProc message processing routine.
2: *
3: * Created by Microsoft Corp., 1988
4: *
5: * Purpose:
6: * WndProc callback function to handle all messages for parent window.
7: *
8: * Arguments:
9: * hWnd - Handle of Window owning message
10: * message - Message itself
11: * mp1 - Extra message-dependent info
12: * mp2 - Extra message-dependent info
13: *
14: * Globals (modified):
15: * Born - Bithdate in julian days. Read from WIN.INI.
16: * SelectDay - Current day being tracked, day is highlighted. Is
17: * in units of days from birth date. Date of present
18: * day initially used in WM_CREATE.
19: * daylight - Defined by environment string TZ. If no such string,
20: * timezone default TZ=PST8PDT used. If daylight field is
21: * used, daylight time correction will occur. See
22: * documentation of tzset() C run-time function.
23: * Day - Day number from date born which is top line being
24: * displayed. Initially three days before SelectDay.
25: * bKid - Boolean indicating whether child window legend is visible.
26: * bBorn - Boolean indicating whether valid birtdate entered or
27: * defined in WIN.INI. Nothing graphed until valid.
28: * rectClient - Size of client area defined by WM_SIZE message
29: * LinesPerPage - Number of system font lines on client area, defined
30: * by WM_SIZE message handling
31: * Color[] - Set of colored pens used to identify cycles.
32: * tmFontInfo - Text Metric structure defined during WM_CREATE
33: *
34: * Globals (referenced):
35: * hAB - Handle to the Anchor Block
36: * hwndAppFrame - Window handle of parent window's frame
37: * hwndKidFrame - Handle to child window used for showing/moving legend.
38: * szAppName[] - RC file program name (Biorhythm).
39: *
40: * Description:
41: * Handle all messages for the parent window.
42: *
43: * Limits:
44: * N/A
45: *
46: */
47:
48: #define INCL_GPI
49: #define INCL_WIN
50: #include <os2.h>
51:
52: #include "bio.h"
53: #include <time.h>
54: #include <stdio.h>
55:
56: /* Read-only global variables */
57: extern HAB hAB;
58: extern HWND hwndApp;
59: extern HWND hwndAppFrame, hwndKidFrame;
60: extern char szAppName[];
61:
62: /* Write-once Global variables */
63: LONG Color[] = {CLR_RED, CLR_GREEN, CLR_BLUE};
64: FONTMETRICS tmFontInfo;
65:
66: /* Read-Write global variables */
67: double Born;
68: long Day, SelectDay;
69: BOOL bKid = TRUE;
70: BOOL bBorn = TRUE;
71: RECTL rectClient;
72: int LinesPerPage;
73:
74:
75: MRESULT FAR PASCAL BioWndProc( hWnd, message, mp1, mp2 )
76: HWND hWnd;
77: USHORT message;
78: MPARAM mp1;
79: MPARAM mp2;
80: {
81: /* Procedures which make up the window class. */
82: int year, month, iDay, i;
83: double day;
84: HPS hPS;
85: RECTL rc;
86:
87: switch( message )
88: {
89:
90: case WM_CREATE:
91: /* Read in birth date from OS2.INI. Error value is 12-31-1899,
92: which is out of range for valid entries. */
93: year = WinQueryProfileInt( hAB, szAppName, "Year", 1899 );
94: month = WinQueryProfileInt( hAB, szAppName, "Month", 12 );
95: day = (double)WinQueryProfileInt( hAB, szAppName, "Day", 31 );
96: /* Compute date of birth in julian days */
97: Born = julian( year, month, day );
98:
99: /* Get time zone environment information */
100: tzset();
101: /* System clock starts 1-1-1970. Get julian date then and how many
102: days have elapsed since, so that number of days since birth date
103: can be determined */
104: SelectDay = (long)(julian( 1970, 1, 1.0 ) +
105: (double)((time(NULL) - timezone + (long)daylight*3600)/86400) -
106: Born);
107:
108: /* If no valid OS2.INI info then automatically bring up dialog box */
109: if (year < 1900) {
110: bBorn = FALSE;
111: WinPostMsg( hWnd, WM_COMMAND, (MPARAM)MAKEULONG(IDDATES, 0), 0L );
112: }
113:
114: /* Put date of the day three lines down on display */
115: Day = SelectDay - 3;
116: /* Initially set elevator */
117: iDay = (int)(Day/365);
118: WinSendMsg( WinWindowFromID( WinQueryWindow(hWnd,QW_PARENT,FALSE),
119: FID_VERTSCROLL),
120: SBM_SETPOS, (MPARAM)MAKEULONG(iDay, 0), 0L );
121:
122: /* Get System font text metrics */
123: hPS = WinGetPS( hWnd );
124: GpiQueryFontMetrics( hPS, (LONG)sizeof tmFontInfo, &tmFontInfo );
125: WinReleasePS( hPS );
126: break;
127:
128: case WM_CLOSE:
129: WinPostMsg( hWnd, WM_QUIT, 0L, 0L );
130: break;
131:
132: case WM_COMMAND:
133: switch (LOUSHORT(mp1)) {
134: case IDDATES:
135: if (WinDlgBox( HWND_DESKTOP, hWnd, (PFNWP)BioDlg, NULL, IDD_DATE, NULL )) {
136: WinInvalidateRect( hWnd, NULL, FALSE );
137: iDay = (int)(Day/365);
138: WinSendMsg( WinWindowFromID( hwndAppFrame, FID_VERTSCROLL),
139: SBM_SETPOS, (MPARAM)MAKEULONG(iDay, 0), 0L );
140: }
141: break;
142:
143: case IDKID:
144: if (bKid = !bKid) {
145: WinSendMsg( WinWindowFromID( hwndAppFrame, FID_MENU),
146: MM_SETITEMATTR,
147: (MPARAM)MAKEULONG( IDKID, TRUE ),
148: (MPARAM)MAKEULONG( MIA_CHECKED, MIA_CHECKED) );
149: WinShowWindow( hwndKidFrame, TRUE );
150: } else {
151: WinSendMsg( WinWindowFromID( hwndAppFrame, FID_MENU),
152: MM_SETITEMATTR,
153: (MPARAM)MAKEULONG( IDKID, TRUE ),
154: (MPARAM)MAKEULONG( MIA_CHECKED, 0) );
155: WinShowWindow( hwndKidFrame, FALSE );
156: }
157: break;
158:
159: case IDCOPY:
160: WinMessageBox( HWND_DESKTOP, hWnd,
161: (NPCH)"Coming soon to a theatre near you",
162: (NPCH)"BitBlt to Clipboard", NULL,
163: MB_OK | MB_ICONEXCLAMATION );
164: break;
165:
166: case IDABOUT:
167: WinDlgBox( HWND_DESKTOP, hWnd, (PFNWP)About, NULL,
168: IDD_ABOUT, NULL );
169: break;
170:
171: default:
172: break;
173: }
174: break;
175:
176: case WM_SIZE:
177: WinQueryWindowRect( hWnd, &rectClient );
178: LinesPerPage = (int)(rectClient.yTop / tmFontInfo.lMaxBaselineExt);
179: WinSetWindowPos( hwndKidFrame, NULL, 10, 10, 0, 0, SWP_MOVE );
180: break;
181:
182: case WM_CHAR:
183: /* Send keyboard characters to scroll bar to support scrolling,
184: paging, etc. */
185: return WinSendMsg( WinWindowFromID( hwndAppFrame, FID_VERTSCROLL),
186: message, mp1, mp2 );
187: break;
188:
189: case WM_VSCROLL:
190: /* Don't allow any processing until valid birth date entered */
191: if (!bBorn) break;
192:
193: /* Setup for scroll window - full width of client area is scrolled */
194: WinCopyRect( hAB, &rc, &rectClient );
195: switch (HIUSHORT(mp2)) {
196: case SB_LINEUP:
197: /* Update top day of display */
198: Day--;
199: rc.yTop = rectClient.yTop - tmFontInfo.lMaxBaselineExt;
200: rc.yBottom = rectClient.yTop - (LinesPerPage-1) * tmFontInfo.lMaxBaselineExt + 1;
201: WinScrollWindow( hWnd, 0, (SHORT)-tmFontInfo.lMaxBaselineExt, &rc,
202: NULL, NULL, NULL, SW_INVALIDATERGN );
203: break;
204: case SB_LINEDOWN:
205: /* Update top day of display */
206: Day++;
207: rc.yTop = rectClient.yTop - 2*tmFontInfo.lMaxBaselineExt;
208: rc.yBottom = rectClient.yTop - (LinesPerPage) * tmFontInfo.lMaxBaselineExt + 1;
209: WinScrollWindow( hWnd, 0, (SHORT)tmFontInfo.lMaxBaselineExt, &rc,
210: NULL, NULL, NULL, SW_INVALIDATERGN );
211: break;
212: case SB_PAGEUP:
213: Day -= (LinesPerPage-1);
214: break;
215: case SB_PAGEDOWN:
216: Day += (LinesPerPage-1);
217: break;
218: case SB_SLIDERPOSITION:
219: /* Set to birthday of each year because 100 year scale maps to
220: default 100 position scroll bar */
221: Day = (long)(LOUSHORT(mp2) * 365.25);
222: break;
223: default:
224: return 0L;
225: }
226: /* Update scroll bar elevator */
227: iDay = (int)(Day/365);
228: WinSendMsg( WinWindowFromID( hwndAppFrame, FID_VERTSCROLL),
229: SBM_SETPOS, (MPARAM)MAKEULONG(iDay, 0), 0L );
230: /* All but LINEUP/DOWN need full repaint of client area */
231: if ((HIUSHORT(mp2) != SB_LINEUP) && (HIUSHORT(mp2) != SB_LINEDOWN ))
232: WinInvalidateRect( hWnd, NULL, FALSE );
233: WinUpdateWindow( hWnd );
234: break;
235:
236: case WM_PAINT:
237: APPPaint( hWnd );
238: break;
239:
240: case WM_BUTTON1DOWN:
241: /* Don't allow any processing until valid birth date entered */
242: if (!bBorn) break;
243:
244: /* Unhighlight previously selected line and highlight new line */
245: WinCopyRect( hAB, &rc, &rectClient );
246: hPS = WinGetPS( hWnd );
247: for(i=0; i<2; i++) {
248: /* Make sure line is visible before (un)highlighting */
249: if ((SelectDay >= Day) && (SelectDay - Day < LinesPerPage-1)) {
250: rc.yTop = rectClient.yTop - (int)(SelectDay - Day + 1) * tmFontInfo.lMaxBaselineExt;
251: rc.yBottom = rc.yTop - tmFontInfo.lMaxBaselineExt + 1;
252: WinInvertRect( hPS, &rc );
253: }
254: /* New line to highlight */
255: SelectDay = Day + (rectClient.yTop - HIUSHORT(mp1)) /
256: tmFontInfo.lMaxBaselineExt - 1;
257: }
258: WinReleasePS( hPS );
259: break;
260:
261: /* Draw highlight on selected day */
262: if ((SelectDay >= Day) && (SelectDay - Day < LinesPerPage - 1)) {
263: rc.xRight = rectClient.xRight;
264: rc.xLeft = rectClient.xLeft;
265: }
266: default:
267: return WinDefWindowProc( hWnd, message, mp1, mp2 );
268: break;
269: }
270: return( 0L );
271: }
272:
273: /* KidWndProc() - Child WndProc handling legend display.
274: *
275: * Purpose:
276: * WndProc callback function to handle all messages for legend child.
277: *
278: * Arguments:
279: * hWnd - Handle of Window owning message
280: * message - Message itself
281: * mp1 - Extra message-dependent info
282: * mp2 - Extra message-dependent info
283: *
284: * Globals (modified):
285: * none
286: *
287: * Globals (referenced):
288: * hwndApp - Window handle of parent window's client area
289: * tmFontInfo - Text Metric structure defined during WM_CREATE
290: * Color[] - Set of colored pens used to identify cycles.
291: *
292: * Description:
293: * Display legend information relating graph line styles to each
294: * cyle: physical, emotional and intellectual. Notifies parent
295: * to hide child if child window is instructed to close by user.
296: *
297: * Limits:
298: * N/A.
299: *
300: */
301:
302: /* Read-only global variables */
303: extern HWND hwndApp;
304:
305: MRESULT FAR PASCAL KidWndProc( hWnd, message, mp1, mp2 )
306: HWND hWnd;
307: USHORT message;
308: MPARAM mp1;
309: MPARAM mp2;
310: {
311: HPS hPS;
312: RECTL rc;
313: POINTL ptl;
314: int i;
315:
316: switch( message )
317: {
318: case WM_PAINT:
319: hPS = WinBeginPaint( hWnd, NULL, NULL );
320:
321: /* Erase client area */
322: WinQueryWindowRect( hWnd, &rc );
323: WinFillRect( hPS, &rc, CLR_PALEGRAY );
324:
325: ptl.x = 0;
326: ptl.y = tmFontInfo.lMaxDescender;
327: GpiCharStringAt( hPS, &ptl, 9L, (PCH)"Physical " );
328: ptl.y += tmFontInfo.lMaxBaselineExt;
329: GpiCharStringAt( hPS, &ptl, 9L, (PCH)"Emotional" );
330: ptl.y += tmFontInfo.lMaxBaselineExt;
331: GpiCharStringAt( hPS, &ptl, 9L, (PCH)"Intellect" );
332:
333: for (i=0; i<3; i++ ) {
334: GpiSetColor( hPS, Color[i] );
335: ptl.x = tmFontInfo.lAveCharWidth * 10;
336: ptl.y = i * tmFontInfo.lMaxBaselineExt +
337: tmFontInfo.lMaxBaselineExt/2;
338: GpiMove( hPS, &ptl );
339: ptl.x = tmFontInfo.lAveCharWidth * 20;
340: GpiLine( hPS, &ptl );
341: }
342:
343: WinEndPaint( hPS );
344: break;
345:
346:
347: case WM_CLOSE:
348: WinPostMsg( hwndApp, WM_COMMAND, (MPARAM)MAKEULONG(IDKID, 0), 0L );
349: break;
350:
351: default:
352: return WinDefWindowProc( hWnd, message, mp1, mp2 );
353: break;
354: }
355: return( 0L );
356: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.