![[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 / clock|
Return to wndproc.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / clock |
1.1 root 1: /*
2: wndproc.c -- Window Procedure for Clock Client Window
3: Created by Microsoft Corporation, 1989
4: */
5: #define INCL_WIN
6: #define INCL_GPI
7: #include <os2.h>
8: #include "clock.h"
9: #include "res.h"
10:
11: MRESULT CALLBACK ClkAboutDlgProc ( HWND , USHORT , MPARAM , MPARAM ) ;
12: MRESULT CALLBACK ClkTicksDlgProc ( HWND , USHORT , MPARAM , MPARAM ) ;
13: MRESULT CALLBACK ClkColorsDlgProc ( HWND , USHORT , MPARAM , MPARAM ) ;
14:
15: extern HAB hab ;
16: extern HWND hwndFrame ;
17: extern BOOL fStartAsIcon ;
18: extern VOID ClkDrawFace( HPS );
19: extern VOID ClkDrawHand( HPS, SHORT, SHORT );
20:
21: VOID ClkPaint ( HWND ) ;
22: VOID ClkCreate ( HWND ) ;
23: VOID ClkSize ( HWND ) ;
24: VOID ClkTimer ( VOID ) ;
25: VOID ClkCommand ( HWND , MPARAM ) ;
26:
27: VOID ClkHideFrameControls ( HWND ) ;
28: VOID ClkShowFrameControls ( HWND ) ;
29:
30: SWP swp ;
31: HPS hps ;
32: HDC hdc ;
33: RECTL rclPage ;
34: DATETIME dt ;
35: BOOL f ;
36: BOOL fIconic , fShowSecondHand ;
37: BOOL fControlsHidden = FALSE ;
38: SIZEL sizl = { 200 , 200 } ;
39: ULONG cxRes , cyRes ;
40:
41: HWND hwndTitleBar , hwndSysMenu , hwndMinMax , hwndMenu ;
42:
43:
44: /*
45: ClkWndProc() -- Window Procedure for Clock Client Window
46: Returns: MRESULT (Message Result)
47: */
48: MRESULT CALLBACK ClkWndProc ( HWND hwnd , USHORT usMsg ,
49: MPARAM mp1 , MPARAM mp2 )
50: {
51:
52: switch ( usMsg ) {
53:
54: case WM_TIMER :
55: ClkTimer ( ) ;
56: return NULL ;
57:
58: case WM_PAINT :
59: ClkPaint ( hwnd ) ;
60: return NULL ;
61:
62: case WM_SIZE :
63: ClkSize ( hwnd ) ;
64: return NULL ;
65:
66: case WM_COMMAND :
67: ClkCommand ( hwnd , mp1 ) ;
68: return NULL ;
69:
70: case WM_BUTTON1DOWN :
71: return WinSendMsg ( hwndFrame , WM_TRACKFRAME ,
72: ( MPARAM ) ( LOUSHORT ( mp2 ) | TF_MOVE ) , NULL ) ;
73:
74: case WM_CHAR:
75: if ( fControlsHidden )
76: ClkShowFrameControls ( hwndFrame ) ;
77: return NULL ;
78:
79: case WM_BUTTON1DBLCLK :
80: if ( fControlsHidden )
81: ClkShowFrameControls ( hwndFrame ) ;
82: else
83: ClkHideFrameControls ( hwndFrame ) ;
84: return NULL ;
85:
86: case WM_CREATE :
87: ClkCreate ( hwnd ) ;
88: return NULL ;
89:
90: default :
91: /* let default window procedure handle it. */
92: return ( WinDefWindowProc ( hwnd , usMsg , mp1 , mp2 ) ) ;
93: }
94: }
95:
96:
97: /*
98: ClkCreate() -- Initialize newly created client window
99: */
100: VOID ClkCreate ( HWND hwnd )
101: {
102: LONG cxScreen , cyScreen ; /* screen dimensions */
103: LONG xLeft , yBottom ; /* frame window location */
104: LONG cxWidth , cyHeight ; /* frame window size */
105: HWND hwndFrame , hwndMenu ;
106:
107: /* we are called before the global hwndFrame is valid */
108: hwndFrame = WinQueryWindow ( hwnd , QW_PARENT , FALSE ) ;
109:
110: /* load our menus */
111: hwndMenu = WinLoadMenu ( hwndFrame , NULL , ID_RESOURCE ) ;
112:
113: /* open a device context and create a presentation space */
114: hdc = WinOpenWindowDC ( hwnd ) ;
115: hps = GpiCreatePS ( hab , hdc , & sizl ,
116: PU_ARBITRARY | GPIT_MICRO | GPIA_ASSOC ) ;
117:
118: /* determine screen dimensions */
119: cxScreen = WinQuerySysValue (HWND_DESKTOP , SV_CXSCREEN ) ;
120: cyScreen = WinQuerySysValue (HWND_DESKTOP , SV_CYSCREEN ) ;
121:
122: /* calculate an initial window position and size */
123: xLeft = cxScreen / 8 ;
124: yBottom = cyScreen / 2 ;
125: cxWidth = cxScreen / 3 ;
126: cyHeight = cyScreen / 2 ;
127:
128: /* get the device resolutions so we can make the face appear circular */
129: DevQueryCaps ( hdc , CAPS_VERTICAL_RESOLUTION , 1L , & cyRes ) ;
130: DevQueryCaps ( hdc , CAPS_HORIZONTAL_RESOLUTION , 1L , & cxRes ) ;
131:
132: /* position the window and make it visible */
133: WinSetWindowPos ( hwndFrame , HWND_TOP ,
134: (SHORT) xLeft , (SHORT) yBottom ,
135: (SHORT) cxWidth , (SHORT) cyHeight ,
136: SWP_SIZE | SWP_MOVE | SWP_ACTIVATE ) ;
137:
138: /* have we been asked to start as an icon? */
139: if ( fStartAsIcon )
140: WinSetWindowPos ( hwndFrame , NULL , 0 , 0 , 0 , 0 , SWP_MINIMIZE ) ;
141:
142: WinShowWindow ( hwndFrame , TRUE ) ;
143:
144: /* get the time in a format for dislaying */
145: DosGetDateTime ( & dt ) ;
146: dt . hours = ( dt . hours * 5 ) % 60 + dt . minutes / 12 ;
147:
148: /* start a timer */
149: WinStartTimer ( hab , hwnd , ID_RESOURCE , 1000 ) ;
150: }
151:
152:
153: /*
154: ClkSize() -- Window Sizing Processing
155:
156: When the window has been sized, we calculate a page
157: rectangle which: (a) fills the window rectangle in
158: either the x or y dimension, (b) appears square, and
159: (c) is centered in the window rectangle.
160: */
161: VOID ClkSize ( HWND hwnd )
162: {
163: HWND hwndFrame ;
164: RECTL rclWindow ;
165: LONG cxWidth , cyHeight ;
166: ULONG cxSquare , cySquare , cxEdge , cyEdge ;
167:
168: /* get the width and height of the window rectangle */
169: WinQueryWindowRect ( hwnd , & rclWindow ) ;
170: cxWidth = rclWindow . xRight - rclWindow . xLeft ;
171: cyHeight = rclWindow . yTop - rclWindow . yBottom ;
172:
173: /* assume the size of the page rectangle is constrained in the y dimension,
174: * compute the x size which would make the rectangle appear square, then
175: * check the assumption and do the reverse calculation if necessary */
176:
177: cySquare = cyHeight ;
178: cxSquare = ( cyHeight * cxRes ) / cyRes ;
179: if ( cxWidth < cxSquare ) {
180: cxSquare = cxWidth ;
181: cySquare = ( cxWidth * cyRes ) / cxRes ;
182: }
183:
184: /* fill in the page rectangle and set the page viewport */
185: cxEdge = ( cxWidth - cxSquare ) / 2 ;
186: cyEdge = ( cyHeight - cySquare ) / 2 ;
187: rclPage . xLeft = cxEdge ;
188: rclPage . xRight = cxWidth - cxEdge ;
189: rclPage . yBottom = cyEdge ;
190: rclPage . yTop = cyHeight - cyEdge ;
191: f = GpiSetPageViewport ( hps , & rclPage ) ;
192:
193: /* are we iconic? */
194: hwndFrame = WinQueryWindow ( hwnd , QW_PARENT , FALSE ) ;
195: f = WinQueryWindowPos ( hwndFrame , & swp ) ;
196: fIconic = swp . fs & SWP_MINIMIZE ;
197: fShowSecondHand = ! fIconic ;
198: }
199:
200:
201: /*
202: ClkTimer() -- Handles timer events
203: */
204: VOID ClkTimer ( VOID )
205: {
206: DATETIME dtNew ;
207:
208: /* get the new time */
209: DosGetDateTime ( & dtNew ) ;
210:
211: /* adjust the hour hand */
212: dtNew . hours = ( dtNew . hours * 5 ) % 60 + dtNew . minutes / 12 ;
213:
214: /* if we must move the hour and minute hands, redraw it all */
215: if ( dtNew . minutes != dt . minutes ) {
216:
217: ClkDrawFace ( hps ) ;
218: ClkDrawHand ( hps , HT_HOUR , dtNew . hours ) ;
219: ClkDrawHand ( hps , HT_MINUTE , dtNew . minutes ) ;
220:
221: if ( fShowSecondHand ) {
222: GpiSetMix ( hps , FM_INVERT ) ;
223: ClkDrawHand ( hps , HT_SECOND , dtNew . seconds ) ;
224: }
225: }
226:
227: /* otherwise just undraw the old second hand and draw the new */
228: else if ( fShowSecondHand ) {
229: GpiSetMix ( hps , FM_INVERT ) ;
230: ClkDrawHand ( hps , HT_SECOND , dt . seconds ) ;
231: ClkDrawHand ( hps , HT_SECOND , dtNew . seconds ) ;
232: }
233:
234: dt = dtNew ;
235: }
236:
237:
238: /*
239: ClkCommand() -- Handle WM_COMMAND events
240: */
241: VOID ClkCommand ( HWND hwnd , MPARAM mp1 )
242: {
243: switch ( SHORT1FROMMP ( mp1 ) ) {
244:
245: case IDM_ABOUT :
246: WinDlgBox ( HWND_DESKTOP , hwnd , ClkAboutDlgProc , NULL ,
247: IDD_ABOUT , NULL ) ;
248: break ;
249:
250: case IDM_TICKS :
251: WinDlgBox ( HWND_DESKTOP , hwnd , ClkTicksDlgProc , NULL ,
252: IDD_TICKS , NULL ) ;
253: break ;
254:
255: case IDM_COLORS :
256: WinDlgBox ( HWND_DESKTOP , hwnd , ClkColorsDlgProc , NULL ,
257: IDD_COLORS , NULL ) ;
258: break ;
259:
260: case IDM_HIDECONTROLS :
261: ClkHideFrameControls ( hwndFrame ) ;
262: break ;
263: }
264: }
265:
266:
267: /*
268: ClkHideFrameControls() -- Hide the title bar and associated controls
269: */
270: VOID ClkHideFrameControls ( HWND hwndFrame )
271: {
272:
273: hwndTitleBar = WinWindowFromID ( hwndFrame , FID_TITLEBAR ) ;
274: hwndSysMenu = WinWindowFromID ( hwndFrame , FID_SYSMENU ) ;
275: hwndMinMax = WinWindowFromID ( hwndFrame , FID_MINMAX ) ;
276: hwndMenu = WinWindowFromID ( hwndFrame , FID_MENU ) ;
277:
278: WinSetParent ( hwndTitleBar , HWND_OBJECT , FALSE ) ;
279: WinSetParent ( hwndSysMenu , HWND_OBJECT , FALSE ) ;
280: WinSetParent ( hwndMinMax , HWND_OBJECT , FALSE ) ;
281: WinSetParent ( hwndMenu , HWND_OBJECT , FALSE ) ;
282:
283: WinSendMsg ( hwndFrame , WM_UPDATEFRAME ,
284: ( MPARAM ) ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINMAX | FCF_MENU ) ,
285: NULL ) ;
286:
287: fControlsHidden = TRUE ;
288: }
289:
290:
291: /*
292: ClkShowFrameControls() -- Show the title bar and associated controls
293: */
294: VOID ClkShowFrameControls ( HWND hwndFrame )
295: {
296:
297: WinSetParent ( hwndTitleBar , hwndFrame , FALSE ) ;
298: WinSetParent ( hwndSysMenu , hwndFrame , FALSE ) ;
299: WinSetParent ( hwndMinMax , hwndFrame , FALSE ) ;
300: WinSetParent ( hwndMenu , hwndFrame , FALSE ) ;
301:
302: WinSendMsg ( hwndFrame , WM_UPDATEFRAME ,
303: ( MPARAM ) ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINMAX | FCF_MENU ) ,
304: NULL ) ;
305: WinInvalidateRect ( hwndFrame , NULL , TRUE ) ;
306:
307: fControlsHidden = FALSE ;
308: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.