?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Release 970215
[wine/hacks.git] / windows / mdi.c
blob395a4ea261c62c3187b4aec9cbb92a761ac25029
1 /* MDI.C
2 *
3 * Copyright 1994, Bob Amstadt
4 * 1995,1996 Alex Korobka
5 *
6 * This file contains routines to support MDI features.
7 *
8 * Notes: Fairly complete implementation. Any volunteers for
9 * "More windows..." stuff?
10 *
11 * Also, Excel and WinWord do _not_ use MDI so if you're trying
12 * to fix them look elsewhere.
13 */
14
15 #include <stdlib.h>
16 #include <string.h>
17 #include <stdio.h>
18 #include <math.h>
19 #include "xmalloc.h"
20 #include "windows.h"
21 #include "win.h"
22 #include "heap.h"
23 #include "nonclient.h"
24 #include "mdi.h"
25 #include "user.h"
26 #include "menu.h"
27 #include "resource.h"
28 #include "struct32.h"
29 #include "sysmetrics.h"
30 #include "stddebug.h"
31 #include "debug.h"
32
33
34 static HBITMAP16 hBmpClose = 0;
35 static HBITMAP16 hBmpRestore = 0;
36
37 DWORD SCROLL_SetNCSbState(WND*,int,int,int,int,int,int);
38
39 /* ----------------- declarations ----------------- */
40 static void MDI_UpdateFrameText(WND *, HWND16, BOOL32, LPCSTR);
41 static BOOL32 MDI_AugmentFrameMenu(MDICLIENTINFO*, WND *, HWND16);
42 static BOOL32 MDI_RestoreFrameMenu(WND *, HWND16);
43
44 static LONG MDI_ChildActivate(WND* ,HWND16 );
45
46 /* -------- Miscellaneous service functions ----------
47 *
48 * MDI_GetChildByID
49 */
50
51 static HWND16 MDI_GetChildByID(WND* wndPtr,int id)
52 {
53 for (wndPtr = wndPtr->child; wndPtr; wndPtr = wndPtr->next)
54 if (wndPtr->wIDmenu == id) return wndPtr->hwndSelf;
55 return 0;
56 }
57
58 static void MDI_PostUpdate(HWND16 hwnd, MDICLIENTINFO* ci, WORD recalc)
59 {
60 if( !ci->sbNeedUpdate )
61 {
62 ci->sbNeedUpdate = TRUE;
63 PostMessage( hwnd, WM_MDICALCCHILDSCROLL, 0, 0);
64 }
65 ci->sbRecalc = recalc;
66 }
67
68 /**********************************************************************
69 * MDI_MenuAppendItem
70 */
71 #ifdef SUPERFLUOUS_FUNCTIONS
72 static BOOL MDI_MenuAppendItem(WND *clientWnd, HWND16 hWndChild)
73 {
74 char buffer[128];
75 MDICLIENTINFO *clientInfo = (MDICLIENTINFO*)clientWnd->wExtra;
76 WND *wndPtr = WIN_FindWndPtr(hWndChild);
77 int n = sprintf(buffer, "%d ",
78 clientInfo->nActiveChildren);
79
80 if( !clientInfo->hWindowMenu ) return 0;
81
82 if (wndPtr->text) strncpy(buffer + n, wndPtr->text, sizeof(buffer) - n - 1);
83 return AppendMenu32A( clientInfo->hWindowMenu, MF_STRING,
84 wndPtr->wIDmenu, buffer );
85 }
86 #endif
87
88 /**********************************************************************
89 * MDI_MenuModifyItem
90 */
91 static BOOL MDI_MenuModifyItem(WND* clientWnd, HWND16 hWndChild )
92 {
93 char buffer[128];
94 MDICLIENTINFO *clientInfo = (MDICLIENTINFO*)clientWnd->wExtra;
95 WND *wndPtr = WIN_FindWndPtr(hWndChild);
96 UINT n = sprintf(buffer, "%d ",
97 wndPtr->wIDmenu - clientInfo->idFirstChild + 1);
98 BOOL bRet = 0;
99
100 if( !clientInfo->hWindowMenu ) return 0;
101
102 if (wndPtr->text) lstrcpyn32A(buffer + n, wndPtr->text, sizeof(buffer) - n );
103
104 n = GetMenuState32(clientInfo->hWindowMenu,wndPtr->wIDmenu ,MF_BYCOMMAND);
105 bRet = ModifyMenu32A(clientInfo->hWindowMenu , wndPtr->wIDmenu,
106 MF_BYCOMMAND | MF_STRING, wndPtr->wIDmenu, buffer );
107 CheckMenuItem32(clientInfo->hWindowMenu ,wndPtr->wIDmenu , n & MF_CHECKED);
108 return bRet;
109 }
110
111 /**********************************************************************
112 * MDI_MenuDeleteItem
113 */
114 static BOOL MDI_MenuDeleteItem(WND* clientWnd, HWND16 hWndChild )
115 {
116 char buffer[128];
117 MDICLIENTINFO *clientInfo = (MDICLIENTINFO*)clientWnd->wExtra;
118 WND *wndPtr = WIN_FindWndPtr(hWndChild);
119 UINT index = 0,id,n;
120
121 if( !clientInfo->nActiveChildren ||
122 !clientInfo->hWindowMenu ) return 0;
123
124 id = wndPtr->wIDmenu;
125 DeleteMenu32(clientInfo->hWindowMenu,id,MF_BYCOMMAND);
126
127 /* walk the rest of MDI children to prevent gaps in the id
128 * sequence and in the menu child list */
129
130 for( index = id+1; index <= clientInfo->nActiveChildren +
131 clientInfo->idFirstChild; index++ )
132 {
133 wndPtr = WIN_FindWndPtr(MDI_GetChildByID(clientWnd,index));
134 if( !wndPtr )
135 {
136 dprintf_mdi(stddeb,"MDIMenuDeleteItem: no window for id=%i\n",index);
137 continue;
138 }
139
140 /* set correct id */
141 wndPtr->wIDmenu--;
142
143 n = sprintf(buffer, "%d ",index - clientInfo->idFirstChild);
144 if (wndPtr->text)
145 lstrcpyn32A(buffer + n, wndPtr->text, sizeof(buffer) - n );
146
147 /* change menu */
148 ModifyMenu32A(clientInfo->hWindowMenu ,index ,MF_BYCOMMAND | MF_STRING,
149 index - 1 , buffer );
150 }
151 return 1;
152 }
153
154 /**********************************************************************
155 * MDI_GetWindow
156 *
157 * returns "activateable" child or zero
158 */
159 static HWND16 MDI_GetWindow(WND *clientWnd, HWND16 hWnd, WORD wTo )
160 {
161 MDICLIENTINFO *clientInfo = (MDICLIENTINFO*)clientWnd->wExtra;
162 WND *wndPtr, *pWnd, *pWndLast;
163
164 if( !hWnd ) hWnd = clientInfo->hwndActiveChild;
165
166 if( !(wndPtr = WIN_FindWndPtr(hWnd)) ) return 0;
167
168 pWnd = wndPtr;
169 pWndLast = NULL;
170 for (;;)
171 {
172 pWnd = pWnd->next;
173 if (!pWnd) pWnd = wndPtr->parent->child;
174 if (pWnd == wndPtr) /* not found */
175 {
176 if (!wTo || !pWndLast) return 0;
177 break;
178 }
179
180 /* we are not interested in owned popups */
181 if ( !pWnd->owner &&
182 (pWnd->dwStyle & WS_VISIBLE) &&
183 !(pWnd->dwStyle & WS_DISABLED)) /* found one */
184 {
185 pWndLast = pWnd;
186 if (!wTo) break;
187 }
188 }
189 return pWndLast ? pWndLast->hwndSelf : 0;
190 }
191
192 /**********************************************************************
193 * MDI_CalcDefaultChildPos
194 *
195 * It seems that default height is 2/3 of client rect
196 */
197 static void MDI_CalcDefaultChildPos(WND* w, WORD n, LPPOINT16 lpPos, INT delta)
198 {
199 RECT16 rect = w->rectClient;
200 INT spacing = GetSystemMetrics32(SM_CYCAPTION) +
201 GetSystemMetrics32(SM_CYFRAME) - 1;
202 INT nstagger;
203
204 if( rect.bottom - rect.top - delta >= spacing )
205 rect.bottom -= delta;
206
207 nstagger = (rect.bottom - rect.top)/(3*spacing);
208 lpPos[1].x = (rect.right - rect.left - nstagger*spacing);
209 lpPos[1].y = (rect.bottom - rect.top - nstagger*spacing);
210 lpPos[0].x = lpPos[0].y = spacing*(n%(nstagger+1));
211 }
212
213 /**********************************************************************
214 * MDISetMenu
215 */
216 static HMENU16 MDISetMenu(HWND16 hwnd, BOOL32 fRefresh, HMENU16 hmenuFrame,
217 HMENU16 hmenuWindow)
218 {
219 WND *w = WIN_FindWndPtr(hwnd);
220 MDICLIENTINFO *ci;
221
222 dprintf_mdi(stddeb, "WM_MDISETMENU: %04x %04x %04x %04x\n",
223 hwnd, fRefresh, hmenuFrame, hmenuWindow);
224
225 ci = (MDICLIENTINFO *) w->wExtra;
226
227 if (!fRefresh)
228 {
229 HWND16 hwndFrame = GetParent16(hwnd);
230 HMENU32 oldFrameMenu = GetMenu32(hwndFrame);
231
232 if( ci->hwndChildMaximized && hmenuFrame && hmenuFrame!=oldFrameMenu )
233 MDI_RestoreFrameMenu(w->parent, ci->hwndChildMaximized );
234
235 if( hmenuWindow && hmenuWindow!=ci->hWindowMenu )
236 {
237 /* delete menu items from ci->hWindowMenu
238 * and add them to hmenuWindow */
239
240 INT32 i = GetMenuItemCount32(ci->hWindowMenu) - 1;
241 INT32 pos = GetMenuItemCount32(hmenuWindow) + 1;
242
243 AppendMenu32A( hmenuWindow, MF_SEPARATOR, 0, NULL);
244
245 if( ci->nActiveChildren )
246 {
247 INT j = i - ci->nActiveChildren + 1;
248 char buffer[100];
249 UINT id,state;
250
251 for( ; i >= j ; i-- )
252 {
253 id = GetMenuItemID32(ci->hWindowMenu,i );
254 state = GetMenuState32(ci->hWindowMenu,i,MF_BYPOSITION);
255
256 GetMenuString32A(ci->hWindowMenu, i, buffer, 100, MF_BYPOSITION);
257
258 DeleteMenu32(ci->hWindowMenu, i , MF_BYPOSITION);
259 InsertMenu32A(hmenuWindow, pos, MF_BYPOSITION | MF_STRING,
260 id, buffer);
261 CheckMenuItem32(hmenuWindow ,pos , MF_BYPOSITION | (state & MF_CHECKED));
262 }
263 }
264
265 /* remove separator */
266 DeleteMenu32(ci->hWindowMenu, i, MF_BYPOSITION);
267
268 ci->hWindowMenu = hmenuWindow;
269 }
270
271 if( hmenuFrame && hmenuFrame!=oldFrameMenu)
272 {
273 SetMenu32(hwndFrame, hmenuFrame);
274 if( ci->hwndChildMaximized )
275 MDI_AugmentFrameMenu(ci, w->parent, ci->hwndChildMaximized );
276 return oldFrameMenu;
277 }
278
279 }
280 return 0;
281 }
282
283 /**********************************************************************
284 * MDIIconArrange
285 */
286 static WORD MDIIconArrange(HWND16 parent)
287 {
288 return ArrangeIconicWindows16(parent); /* Any reason why the */
289 /* existing icon arrange */
290 /* can't be used here? */
291 /* -DRP */
292 }
293
294
295 /* ------------------ MDI child window functions ---------------------- */
296
297
298 /**********************************************************************
299 * MDICreateChild
300 */
301 static HWND16 MDICreateChild( WND *w, MDICLIENTINFO *ci, HWND16 parent,
302 LPMDICREATESTRUCT16 cs, LPARAM lParam )
303 {
304 POINT16 pos[2];
305 DWORD style = cs->style | (WS_CHILD | WS_CLIPSIBLINGS);
306 HWND16 hwnd, hwndMax = 0;
307 WORD wIDmenu = ci->idFirstChild + ci->nActiveChildren;
308 char lpstrDef[]="junk!";
309
310 dprintf_mdi(stdnimp,"MDICreateChild: origin %i,%i - dim %i,%i, style %08x\n",
311 cs->x, cs->y, cs->cx, cs->cy, (unsigned)cs->style);
312 /* calculate placement */
313 MDI_CalcDefaultChildPos(w, ci->nTotalCreated++, pos, 0);
314
315 if( cs->cx == CW_USEDEFAULT16 || !cs->cx )
316 cs->cx = pos[1].x;
317 if( cs->cy == CW_USEDEFAULT16 || !cs->cy )
318 cs->cy = pos[1].y;
319
320 if( cs->x == CW_USEDEFAULT16 )
321 {
322 cs->x = pos[0].x;
323 cs->y = pos[0].y;
324 }
325
326 /* restore current maximized child */
327 if( style & WS_VISIBLE && ci->hwndChildMaximized )
328 {
329 if( style & WS_MAXIMIZE )
330 SendMessage16(w->hwndSelf, WM_SETREDRAW, FALSE, 0L );
331 hwndMax = ci->hwndChildMaximized;
332 ShowWindow16( hwndMax, SW_SHOWNOACTIVATE );
333 if( style & WS_MAXIMIZE )
334 SendMessage16(w->hwndSelf, WM_SETREDRAW, TRUE, 0L );
335 }
336
337 /* this menu is needed to set a check mark in MDI_ChildActivate */
338 AppendMenu32A(ci->hWindowMenu ,MF_STRING ,wIDmenu, lpstrDef );
339
340 ci->nActiveChildren++;
341
342 /* fix window style */
343 if( !(w->dwStyle & MDIS_ALLCHILDSTYLES) )
344 {
345 style &= (WS_CHILD | WS_CLIPSIBLINGS | WS_MINIMIZE | WS_MAXIMIZE |
346 WS_CLIPCHILDREN | WS_DISABLED | WS_VSCROLL | WS_HSCROLL );
347 style |= (WS_VISIBLE | WS_OVERLAPPEDWINDOW);
348 }
349
350 hwnd = CreateWindow16( (LPCSTR)PTR_SEG_TO_LIN(cs->szClass),
351 (LPCSTR)PTR_SEG_TO_LIN(cs->szTitle), style,
352 cs->x, cs->y, cs->cx, cs->cy, parent,
353 (HMENU16)wIDmenu, w->hInstance,
354 (LPVOID)lParam);
355
356 /* MDI windows are WS_CHILD so they won't be activated by CreateWindow */
357
358 if (hwnd)
359 {
360 WND* wnd = WIN_FindWndPtr( hwnd );
361
362 MDI_MenuModifyItem(w ,hwnd);
363 if( wnd->dwStyle & WS_MINIMIZE && ci->hwndActiveChild )
364 ShowWindow16( hwnd, SW_SHOWMINNOACTIVE );
365 else
366 {
367 SetWindowPos32( hwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW | SWP_NOSIZE | SWP_NOMOVE );
368
369 /* Set maximized state here in case hwnd didn't receive WM_SIZE
370 * during CreateWindow - bad!
371 */
372
373 if( wnd->dwStyle & WS_MAXIMIZE && !ci->hwndChildMaximized )
374 {
375 ci->hwndChildMaximized = wnd->hwndSelf;
376 MDI_AugmentFrameMenu( ci, w->parent, hwnd );
377 MDI_UpdateFrameText( w->parent, ci->self, MDI_REPAINTFRAME, NULL );
378 }
379 }
380 dprintf_mdi(stddeb, "MDICreateChild: created child - %04x\n",hwnd);
381 }
382 else
383 {
384 ci->nActiveChildren--;
385 DeleteMenu32(ci->hWindowMenu,wIDmenu,MF_BYCOMMAND);
386 if( IsWindow(hwndMax) )
387 ShowWindow16(hwndMax, SW_SHOWMAXIMIZED);
388 }
389
390 return hwnd;
391 }
392
393 /**********************************************************************
394 * MDI_ChildGetMinMaxInfo
395 */
396 static void MDI_ChildGetMinMaxInfo( WND* clientWnd, HWND16 hwnd,
397 MINMAXINFO16* lpMinMax )
398 {
399 WND* childWnd = WIN_FindWndPtr(hwnd);
400 RECT16 rect = clientWnd->rectClient;
401
402 MapWindowPoints16(clientWnd->parent->hwndSelf,
403 ((MDICLIENTINFO*)clientWnd->wExtra)->self, (LPPOINT16)&rect, 2);
404 AdjustWindowRectEx16( &rect, childWnd->dwStyle, 0, childWnd->dwExStyle );
405
406 lpMinMax->ptMaxSize.x = rect.right -= rect.left;
407 lpMinMax->ptMaxSize.y = rect.bottom -= rect.top;
408
409 lpMinMax->ptMaxPosition.x = rect.left;
410 lpMinMax->ptMaxPosition.y = rect.top;
411
412 dprintf_mdi(stddeb,"\tChildMinMaxInfo: max rect (%i,%i - %i, %i)\n",
413 rect.left,rect.top,rect.right,rect.bottom);
414
415 }
416
417 /**********************************************************************
418 * MDI_SwitchActiveChild
419 *
420 * Notes: SetWindowPos sends WM_CHILDACTIVATE to the child window that is
421 * being activated
422 *
423 * wTo is basically lParam of WM_MDINEXT message or explicit
424 * window handle
425 */
426 static void MDI_SwitchActiveChild( HWND16 clientHwnd, HWND16 childHwnd,
427 BOOL32 wTo )
428 {
429 WND *w = WIN_FindWndPtr(clientHwnd);
430 HWND16 hwndTo = 0;
431 HWND16 hwndPrev = 0;
432 MDICLIENTINFO *ci;
433
434 hwndTo = MDI_GetWindow(w,childHwnd,(WORD)wTo);
435
436 ci = (MDICLIENTINFO *) w->wExtra;
437
438 dprintf_mdi(stddeb, "MDI_SwitchActiveChild: from %04x, to %04x\n",childHwnd,hwndTo);
439
440 if ( !hwndTo ) return;
441
442 hwndPrev = ci->hwndActiveChild;
443
444 if ( hwndTo != hwndPrev )
445 {
446 BOOL bOptimize = 0;
447
448 if( ci->hwndChildMaximized )
449 {
450 bOptimize = 1;
451 w->dwStyle &= ~WS_VISIBLE;
452 }
453
454 SetWindowPos32( hwndTo, HWND_TOP, 0, 0, 0, 0,
455 SWP_NOMOVE | SWP_NOSIZE );
456 if( !wTo && hwndPrev )
457 {
458 SetWindowPos32( hwndPrev, HWND_BOTTOM, 0, 0, 0, 0,
459 SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);
460 }
461
462 if( bOptimize )
463 ShowWindow16( clientHwnd, SW_SHOW );
464 }
465 }
466
467
468 /**********************************************************************
469 * MDIDestroyChild
470 */
471 static HWND16 MDIDestroyChild( WND *w_parent, MDICLIENTINFO *ci, HWND16 parent,
472 HWND16 child, BOOL32 flagDestroy )
473 {
474 WND *childPtr = WIN_FindWndPtr(child);
475
476 if( childPtr )
477 {
478 if( child == ci->hwndActiveChild )
479 {
480 MDI_SwitchActiveChild(parent,child,0);
481
482 if( child == ci->hwndActiveChild )
483 {
484 ShowWindow16( child, SW_HIDE);
485 if( child == ci->hwndChildMaximized )
486 {
487 MDI_RestoreFrameMenu(w_parent->parent, child);
488 ci->hwndChildMaximized = 0;
489 MDI_UpdateFrameText(w_parent->parent,parent,TRUE,NULL);
490 }
491
492 MDI_ChildActivate(w_parent,0);
493 }
494 MDI_MenuDeleteItem(w_parent, child);
495 }
496
497 ci->nActiveChildren--;
498
499 dprintf_mdi(stddeb,"MDIDestroyChild: child destroyed - %04x\n",child);
500
501 if (flagDestroy)
502 {
503 MDI_PostUpdate(GetParent16(child), ci, SB_BOTH+1);
504 DestroyWindow32(child);
505 }
506 }
507
508 return 0;
509 }
510
511
512 /**********************************************************************
513 * MDI_ChildActivate
514 *
515 * Note: hWndChild is NULL when last child is being destroyed
516 */
517 static LONG MDI_ChildActivate( WND *clientPtr, HWND16 hWndChild )
518 {
519 MDICLIENTINFO *clientInfo = (MDICLIENTINFO*)clientPtr->wExtra;
520 HWND16 prevActiveWnd = clientInfo->hwndActiveChild;
521 WND *wndPtr = WIN_FindWndPtr( hWndChild );
522 WND *wndPrev = WIN_FindWndPtr( prevActiveWnd );
523 BOOL isActiveFrameWnd = 0;
524
525 if( hWndChild == prevActiveWnd ) return 0L;
526
527 if( wndPtr )
528 if( wndPtr->dwStyle & WS_DISABLED ) return 0L;
529
530 dprintf_mdi(stddeb,"MDI_ChildActivate: %04x\n", hWndChild);
531
532 if( GetActiveWindow32() == clientPtr->parent->hwndSelf )
533 isActiveFrameWnd = TRUE;
534
535 /* deactivate prev. active child */
536 if( wndPrev )
537 {
538 wndPrev->dwStyle |= WS_SYSMENU;
539 SendMessage16( prevActiveWnd, WM_NCACTIVATE, FALSE, 0L );
540
541 #ifdef WINELIB32
542 SendMessage32A( prevActiveWnd, WM_MDIACTIVATE, (WPARAM32)prevActiveWnd,
543 (LPARAM)hWndChild);
544 #else
545
546 SendMessage16( prevActiveWnd, WM_MDIACTIVATE, FALSE,
547 MAKELONG(hWndChild,prevActiveWnd));
548 #endif
549 /* uncheck menu item */
550 if( clientInfo->hWindowMenu )
551 CheckMenuItem32( clientInfo->hWindowMenu,
552 wndPrev->wIDmenu, 0);
553 }
554
555 /* set appearance */
556 if( clientInfo->hwndChildMaximized )
557 if( clientInfo->hwndChildMaximized != hWndChild )
558 if( hWndChild )
559 {
560 clientInfo->hwndActiveChild = hWndChild;
561 ShowWindow16( hWndChild, SW_SHOWMAXIMIZED);
562 }
563 else
564 ShowWindow16( clientInfo->hwndActiveChild,
565 SW_SHOWNORMAL );
566
567 clientInfo->hwndActiveChild = hWndChild;
568
569 /* check if we have any children left */
570 if( !hWndChild )
571 {
572 if( isActiveFrameWnd )
573 SetFocus32( clientInfo->self );
574 return 0;
575 }
576
577 /* check menu item */
578 if( clientInfo->hWindowMenu )
579 CheckMenuItem32( clientInfo->hWindowMenu,
580 wndPtr->wIDmenu, MF_CHECKED);
581
582 /* bring active child to the top */
583 SetWindowPos32( hWndChild, 0,0,0,0,0, SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
584
585 if( isActiveFrameWnd )
586 {
587 SendMessage16( hWndChild, WM_NCACTIVATE, TRUE, 0L);
588 if( GetFocus32() == clientInfo->self )
589 SendMessage16( clientInfo->self, WM_SETFOCUS,
590 (WPARAM16)clientInfo->self, 0L );
591 else
592 SetFocus32( clientInfo->self );
593 }
594
595 #ifdef WINELIB32
596 SendMessage32A( hWndChild, WM_MDIACTIVATE, (WPARAM32)hWndChild,
597 (LPARAM)prevActiveWnd );
598 #else
599 SendMessage16( hWndChild, WM_MDIACTIVATE, TRUE,
600 MAKELONG(hWndChild,prevActiveWnd));
601 #endif
602
603 return 1;
604 }
605
606 /**********************************************************************
607 * MDI_BuildWCL
608 *
609 * iTotal returns number of children available for tiling or cascading
610 */
611 static MDIWCL* MDI_BuildWCL(WND* clientWnd, INT16* iTotal)
612 {
613 MDIWCL *listTop,*listNext;
614 WND *childWnd;
615
616 if (!(listTop = (MDIWCL*)malloc( sizeof(MDIWCL) ))) return NULL;
617
618 listTop->hChild = clientWnd->child ? clientWnd->child->hwndSelf : 0;
619 listTop->prev = NULL;
620 *iTotal = 1;
621
622 /* build linked list from top child to bottom */
623
624 childWnd = WIN_FindWndPtr( listTop->hChild );
625 while( childWnd && childWnd->next )
626 {
627 listNext = (MDIWCL*)xmalloc(sizeof(MDIWCL));
628
629 /* FIXME: pay attention to MDITILE_SKIPDISABLED
630 * when WIN_ISWIN32 is set.
631 */
632 if( (childWnd->dwStyle & WS_DISABLED) ||
633 (childWnd->dwStyle & WS_MINIMIZE) ||
634 !(childWnd->dwStyle & WS_VISIBLE) )
635 {
636 listTop->hChild = 0;
637 (*iTotal)--;
638 }
639
640 listNext->hChild = childWnd->next->hwndSelf;
641 listNext->prev = listTop;
642 listTop = listNext;
643 (*iTotal)++;
644
645 childWnd = childWnd->next;
646 }
647
648 if( (childWnd->dwStyle & WS_DISABLED) ||
649 (childWnd->dwStyle & WS_MINIMIZE) ||
650 !(childWnd->dwStyle & WS_VISIBLE) )
651 {
652 listTop->hChild = 0;
653 (*iTotal)--;
654 }
655
656 return listTop;
657 }
658
659
660 /* -------------------- MDI client window functions ------------------- */
661
662 /**********************************************************************
663 * CreateMDIMenuBitmap
664 */
665 static HBITMAP16 CreateMDIMenuBitmap(void)
666 {
667 HDC32 hDCSrc = CreateCompatibleDC32(0);
668 HDC32 hDCDest = CreateCompatibleDC32(hDCSrc);
669 HBITMAP16 hbClose = LoadBitmap16(0, MAKEINTRESOURCE(OBM_CLOSE) );
670 HBITMAP16 hbCopy,hb_src,hb_dest;
671
672 hb_src = SelectObject32(hDCSrc,hbClose);
673 hbCopy = CreateCompatibleBitmap(hDCSrc,SYSMETRICS_CXSIZE, SYSMETRICS_CYSIZE);
674 hb_dest = SelectObject32(hDCDest,hbCopy);
675
676 BitBlt32(hDCDest, 0, 0, SYSMETRICS_CXSIZE, SYSMETRICS_CYSIZE,
677 hDCSrc, SYSMETRICS_CXSIZE, 0, SRCCOPY);
678
679 SelectObject32(hDCSrc,hb_src);
680 SelectObject32(hDCDest,hb_dest);
681
682 DeleteObject32(hbClose);
683
684 DeleteDC32(hDCDest);
685 DeleteDC32(hDCSrc);
686
687 return hbCopy;
688 }
689
690 /**********************************************************************
691 * MDICascade
692 */
693 static LONG MDICascade(WND* clientWnd, MDICLIENTINFO *ci)
694 {
695 MDIWCL *listTop,*listPrev;
696 INT16 delta = 0,iToPosition = 0, n = 0;
697 POINT16 pos[2];
698
699 if (ci->hwndChildMaximized)
700 ShowWindow16( ci->hwndChildMaximized, SW_NORMAL);
701
702 if (ci->nActiveChildren == 0) return 0;
703
704 if (!(listTop = MDI_BuildWCL(clientWnd,&iToPosition))) return 0;
705
706 if( iToPosition < ci->nActiveChildren )
707 delta = 2 * SYSMETRICS_CYICONSPACING + SYSMETRICS_CYICON;
708
709 /* walk list and move windows */
710 while ( listTop )
711 {
712 dprintf_mdi(stddeb, "MDICascade: move %04x to (%d,%d) size [%d,%d]\n",
713 listTop->hChild, pos[0].x, pos[0].y, pos[1].x, pos[1].y);
714
715 if( listTop->hChild )
716 {
717 MDI_CalcDefaultChildPos(clientWnd, n++, pos, delta);
718 SetWindowPos32(listTop->hChild, 0, pos[0].x, pos[0].y, pos[1].x, pos[1].y,
719 SWP_DRAWFRAME | SWP_NOACTIVATE | SWP_NOZORDER);
720 }
721
722 listPrev = listTop->prev;
723 free(listTop);
724 listTop = listPrev;
725 }
726
727 if( iToPosition < ci->nActiveChildren )
728 ArrangeIconicWindows32( clientWnd->hwndSelf );
729
730 return 0;
731 }
732
733 /**********************************************************************
734 * MDITile
735 *
736 */
737 static LONG MDITile(WND* wndClient, MDICLIENTINFO *ci,WORD wParam)
738 {
739 MDIWCL *listTop,*listPrev;
740 RECT16 rect;
741 int xsize, ysize;
742 int x, y;
743 int rows, columns;
744 int r, c;
745 int i;
746 INT16 iToPosition = 0;
747
748 if (ci->hwndChildMaximized)
749 ShowWindow16(ci->hwndChildMaximized, SW_NORMAL);
750
751 if (ci->nActiveChildren == 0) return 0;
752
753 listTop = MDI_BuildWCL(wndClient, &iToPosition);
754
755 dprintf_mdi(stddeb,"MDITile: %i windows to tile\n",iToPosition);
756
757 if( !listTop ) return 0;
758
759 /* tile children */
760 if ( iToPosition )
761 {
762 rect = wndClient->rectClient;
763 rows = (int) sqrt((double) iToPosition);
764 columns = iToPosition / rows;
765
766 if (wParam == MDITILE_HORIZONTAL) /* version >= 3.1 */
767 {
768 i=rows;
769 rows=columns; /* exchange r and c */
770 columns=i;
771 }
772
773 /* hack */
774 if( iToPosition != ci->nActiveChildren)
775 {
776 y = rect.bottom - 2 * SYSMETRICS_CYICONSPACING - SYSMETRICS_CYICON;
777 rect.bottom = ( y - SYSMETRICS_CYICON < rect.top )? rect.bottom: y;
778 }
779
780 ysize = rect.bottom / rows;
781 xsize = rect.right / columns;
782
783 x = 0;
784 i = 0;
785
786 for (c = 1; c <= columns; c++)
787 {
788 if (c == columns)
789 {
790 rows = iToPosition - i;
791 ysize = rect.bottom / rows;
792 }
793
794 y = 0;
795 for (r = 1; r <= rows; r++, i++)
796 {
797 /* shouldn't happen but... */
798 if( !listTop )
799 break;
800
801 /* skip iconized childs from tiling */
802 while (!listTop->hChild)
803 {
804 listPrev = listTop->prev;
805 free(listTop);
806 listTop = listPrev;
807 }
808 SetWindowPos32(listTop->hChild, 0, x, y, xsize, ysize,
809 SWP_DRAWFRAME | SWP_NOACTIVATE | SWP_NOZORDER);
810 y += ysize;
811 listPrev = listTop->prev;
812 free(listTop);
813 listTop = listPrev;
814 }
815 x += xsize;
816 }
817 }
818
819 /* free the rest if any */
820 while( listTop )
821 {
822 listPrev = listTop->prev;
823 free(listTop);
824 listTop = listPrev;
825 }
826
827 if (iToPosition < ci->nActiveChildren )
828 ArrangeIconicWindows32( wndClient->hwndSelf );
829
830 return 0;
831 }
832
833 /* ----------------------- Frame window ---------------------------- */
834
835
836 /**********************************************************************
837 * MDI_AugmentFrameMenu
838 */
839 static BOOL32 MDI_AugmentFrameMenu( MDICLIENTINFO* ci, WND *frame,
840 HWND16 hChild )
841 {
842 WND* child = WIN_FindWndPtr(hChild);
843 HMENU16 hSysPopup = 0;
844
845 dprintf_mdi(stddeb,"MDI_AugmentFrameMenu: frame %p,child %04x\n",frame,hChild);
846
847 if( !frame->wIDmenu || !child->hSysMenu ) return 0;
848
849 /* create a copy of sysmenu popup and insert it into frame menu bar */
850
851 if (!(hSysPopup = LoadMenuIndirect32A(SYSRES_GetResPtr(SYSRES_MENU_SYSMENU))))
852 return 0;
853
854 dprintf_mdi(stddeb,"\t\tgot popup %04x\n in sysmenu %04x",hSysPopup,child->hSysMenu);
855
856 if( !InsertMenu32A(frame->wIDmenu,0,MF_BYPOSITION | MF_BITMAP | MF_POPUP,
857 hSysPopup, (LPSTR)(DWORD)hBmpClose ))
858 { DestroyMenu32(hSysPopup); return 0; }
859
860 if( !AppendMenu32A(frame->wIDmenu,MF_HELP | MF_BITMAP,
861 SC_RESTORE, (LPSTR)(DWORD)hBmpRestore ))
862 {
863 RemoveMenu32(frame->wIDmenu,0,MF_BYPOSITION);
864 return 0;
865 }
866
867 EnableMenuItem32(hSysPopup, SC_SIZE, MF_BYCOMMAND | MF_GRAYED);
868 EnableMenuItem32(hSysPopup, SC_MOVE, MF_BYCOMMAND | MF_GRAYED);
869 EnableMenuItem32(hSysPopup, SC_MAXIMIZE, MF_BYCOMMAND | MF_GRAYED);
870
871 /* redraw menu */
872 DrawMenuBar32(frame->hwndSelf);
873
874 return 1;
875 }
876
877 /**********************************************************************
878 * MDI_RestoreFrameMenu
879 */
880 static BOOL32 MDI_RestoreFrameMenu( WND *frameWnd, HWND16 hChild )
881 {
882 INT32 nItems = GetMenuItemCount32(frameWnd->wIDmenu) - 1;
883
884 dprintf_mdi(stddeb,"MDI_RestoreFrameMenu: for child %04x\n",hChild);
885
886 if( GetMenuItemID32(frameWnd->wIDmenu,nItems) != SC_RESTORE )
887 return 0;
888
889
890 RemoveMenu32(frameWnd->wIDmenu,0,MF_BYPOSITION);
891 DeleteMenu32(frameWnd->wIDmenu,nItems-1,MF_BYPOSITION);
892
893 DrawMenuBar32(frameWnd->hwndSelf);
894
895 return 1;
896 }
897
898 /**********************************************************************
899 * MDI_UpdateFrameText
900 *
901 * used when child window is maximized/restored
902 *
903 * Note: lpTitle can be NULL
904 */
905 static void MDI_UpdateFrameText( WND *frameWnd, HWND16 hClient,
906 BOOL32 repaint, LPCSTR lpTitle )
907 {
908 char lpBuffer[MDI_MAXTITLELENGTH+1];
909 WND* clientWnd = WIN_FindWndPtr(hClient);
910
911 MDICLIENTINFO *ci = (MDICLIENTINFO *) clientWnd->wExtra;
912
913 dprintf_mdi(stddeb, "MDI: repaint %i, frameText %s\n", repaint, (lpTitle)?lpTitle:"NULL");
914
915 /* store new "default" title if lpTitle is not NULL */
916 if (lpTitle)
917 {
918 if (ci->frameTitle) HeapFree( SystemHeap, 0, ci->frameTitle );
919 ci->frameTitle = HEAP_strdupA( SystemHeap, 0, lpTitle );
920 }
921
922 if (ci->frameTitle)
923 {
924 WND* childWnd = WIN_FindWndPtr( ci->hwndChildMaximized );
925
926 if( childWnd && childWnd->text )
927 {
928 /* combine frame title and child title if possible */
929
930 LPCSTR lpBracket = " - [";
931 int i_frame_text_length = strlen(ci->frameTitle);
932 int i_child_text_length = strlen(childWnd->text);
933
934 lstrcpyn32A( lpBuffer, ci->frameTitle, MDI_MAXTITLELENGTH);
935
936 if( i_frame_text_length + 6 < MDI_MAXTITLELENGTH )
937 {
938 strcat( lpBuffer, lpBracket );
939
940 if( i_frame_text_length + i_child_text_length + 6 < MDI_MAXTITLELENGTH )
941 {
942 strcat( lpBuffer, childWnd->text );
943 strcat( lpBuffer, "]" );
944 }
945 else
946 {
947 lstrcpyn32A( lpBuffer + i_frame_text_length + 4,
948 childWnd->text,
949 MDI_MAXTITLELENGTH - i_frame_text_length - 5 );
950 strcat( lpBuffer, "]" );
951 }
952 }
953 }
954 else
955 {
956 strncpy(lpBuffer, ci->frameTitle, MDI_MAXTITLELENGTH );
957 lpBuffer[MDI_MAXTITLELENGTH]='\0';
958 }
959 }
960 else
961 lpBuffer[0] = '\0';
962
963 DEFWND_SetText( frameWnd, lpBuffer );
964 if( repaint == MDI_REPAINTFRAME)
965 SetWindowPos32(frameWnd->hwndSelf, 0,0,0,0,0, SWP_FRAMECHANGED |
966 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE | SWP_NOZORDER );
967 }
968
969
970 /* ----------------------------- Interface ---------------------------- */
971
972
973 /**********************************************************************
974 * MDIClientWndProc
975 *
976 * This function is the handler for all MDI requests.
977 */
978 LRESULT MDIClientWndProc(HWND16 hwnd, UINT message, WPARAM16 wParam, LPARAM lParam)
979 {
980 LPCREATESTRUCT16 cs;
981 LPCLIENTCREATESTRUCT16 ccs;
982 MDICLIENTINFO *ci;
983 RECT16 rect;
984 WND *w = WIN_FindWndPtr(hwnd);
985 WND *frameWnd = w->parent;
986 INT nItems;
987
988 ci = (MDICLIENTINFO *) w->wExtra;
989
990 switch (message)
991 {
992 case WM_CREATE:
993
994 cs = (LPCREATESTRUCT16) PTR_SEG_TO_LIN(lParam);
995
996 /* Translation layer doesn't know what's in the cs->lpCreateParams
997 * so we have to keep track of what environment we're in. */
998
999 if( w->flags & WIN_ISWIN32 )
1000 ccs = (LPCLIENTCREATESTRUCT16) cs->lpCreateParams;
1001 else
1002 ccs = (LPCLIENTCREATESTRUCT16) PTR_SEG_TO_LIN(cs->lpCreateParams);
1003
1004 ci->hWindowMenu = ccs->hWindowMenu;
1005 ci->idFirstChild = ccs->idFirstChild;
1006 ci->hwndChildMaximized = 0;
1007 ci->nActiveChildren = 0;
1008 ci->nTotalCreated = 0;
1009 ci->frameTitle = NULL;
1010 ci->sbNeedUpdate = 0;
1011 ci->self = hwnd;
1012 w->dwStyle |= WS_CLIPCHILDREN;
1013
1014 if (!hBmpClose)
1015 {
1016 hBmpClose = CreateMDIMenuBitmap();
1017 hBmpRestore = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_RESTORE) );
1018 }
1019 MDI_UpdateFrameText(frameWnd, hwnd, MDI_NOFRAMEREPAINT,frameWnd->text);
1020
1021 AppendMenu32A( ccs->hWindowMenu, MF_SEPARATOR, 0, NULL );
1022
1023 GetClientRect16(frameWnd->hwndSelf, &rect);
1024 NC_HandleNCCalcSize( w, &rect );
1025 w->rectClient = rect;
1026
1027 dprintf_mdi(stddeb,"MDI: Client created - hwnd = %04x, idFirst = %u\n",hwnd,ci->idFirstChild);
1028
1029 return 0;
1030
1031 case WM_DESTROY:
1032 if( ci->hwndChildMaximized ) MDI_RestoreFrameMenu(w, frameWnd->hwndSelf);
1033 if((nItems = GetMenuItemCount32(ci->hWindowMenu)) > 0) {
1034 ci->idFirstChild = nItems - 1;
1035 ci->nActiveChildren++; /* to delete a separator */
1036 while( ci->nActiveChildren-- )
1037 DeleteMenu32(ci->hWindowMenu,MF_BYPOSITION,ci->idFirstChild--);
1038 }
1039 return 0;
1040
1041 case WM_MDIACTIVATE:
1042 if( ci->hwndActiveChild != (HWND16)wParam )
1043 SetWindowPos32((HWND32)wParam, 0,0,0,0,0, SWP_NOSIZE | SWP_NOMOVE );
1044 return 0;
1045
1046 case WM_MDICASCADE:
1047 return MDICascade(w, ci);
1048
1049 case WM_MDICREATE:
1050 if( lParam )
1051 {
1052 MDICREATESTRUCT16* cs = (MDICREATESTRUCT16*) PTR_SEG_TO_LIN(lParam);
1053 return (LONG)MDICreateChild(w, ci, hwnd, cs, lParam );
1054 }
1055 return 0;
1056
1057 case WM_MDIDESTROY:
1058 return (LONG)MDIDestroyChild(w, ci, hwnd, (HWND32)wParam, TRUE);
1059
1060 case WM_MDIGETACTIVE:
1061 return ((LONG) ci->hwndActiveChild |
1062 ((LONG) (ci->hwndChildMaximized>0) << 16));
1063
1064 case WM_MDIICONARRANGE:
1065 ci->sbNeedUpdate = TRUE;
1066 MDIIconArrange(hwnd);
1067 ci->sbRecalc = SB_BOTH+1;
1068 SendMessage16(hwnd,WM_MDICALCCHILDSCROLL,0,0L);
1069 return 0;
1070
1071 case WM_MDIMAXIMIZE:
1072 ShowWindow16((HWND16)wParam, SW_MAXIMIZE);
1073 return 0;
1074
1075 case WM_MDINEXT:
1076 MDI_SwitchActiveChild(hwnd, (HWND16)wParam, (lParam)?1:0);
1077 break;
1078
1079 case WM_MDIRESTORE:
1080 ShowWindow16( (HWND16)wParam, SW_NORMAL);
1081 return 0;
1082
1083 case WM_MDISETMENU:
1084 #ifdef WINELIB32
1085 return (LRESULT)MDISetMenu(hwnd, FALSE, (HMENU16)wParam, (HMENU16)lParam);
1086 #else
1087 return (LRESULT)MDISetMenu(hwnd, wParam, LOWORD(lParam), HIWORD(lParam));
1088 #endif
1089
1090 case WM_MDITILE:
1091 ci->sbNeedUpdate = TRUE;
1092 ShowScrollBar32(hwnd,SB_BOTH,FALSE);
1093 MDITile(w, ci,wParam);
1094 ci->sbNeedUpdate = FALSE;
1095 return 0;
1096
1097 case WM_VSCROLL:
1098 case WM_HSCROLL:
1099 ci->sbNeedUpdate = TRUE;
1100 ScrollChildren32(hwnd,message,wParam,lParam);
1101 ci->sbNeedUpdate = FALSE;
1102 return 0;
1103
1104 case WM_SETFOCUS:
1105 if( ci->hwndActiveChild )
1106 {
1107 w = WIN_FindWndPtr( ci->hwndActiveChild );
1108 if( !(w->dwStyle & WS_MINIMIZE) )
1109 SetFocus32( ci->hwndActiveChild );
1110 }
1111 return 0;
1112
1113 case WM_NCACTIVATE:
1114 if( ci->hwndActiveChild )
1115 SendMessage16(ci->hwndActiveChild, message, wParam, lParam);
1116 break;
1117
1118 case WM_PARENTNOTIFY:
1119 if( wParam == WM_LBUTTONDOWN )
1120 {
1121 POINT16 pt = MAKEPOINT16(lParam);
1122 HWND16 child = ChildWindowFromPoint16(hwnd, pt);
1123
1124 dprintf_mdi(stddeb,"MDIClient: notification from %04x (%i,%i)\n",child,pt.x,pt.y);
1125
1126 if( child && child != hwnd &&
1127 child != ci->hwndActiveChild )
1128 SetWindowPos32(child, 0,0,0,0,0, SWP_NOSIZE | SWP_NOMOVE );
1129 }
1130 return 0;
1131
1132 case WM_SIZE:
1133 if( ci->hwndChildMaximized )
1134 {
1135 WND* child = WIN_FindWndPtr(ci->hwndChildMaximized);
1136 RECT16 rect = { 0, 0, LOWORD(lParam), HIWORD(lParam) };
1137
1138 AdjustWindowRectEx16(&rect, child->dwStyle, 0, child->dwExStyle);
1139 MoveWindow16(ci->hwndChildMaximized, rect.left, rect.top,
1140 rect.right - rect.left, rect.bottom - rect.top, 1);
1141 }
1142 else
1143 MDI_PostUpdate(hwnd, ci, SB_BOTH+1);
1144
1145 break;
1146
1147 case WM_MDICALCCHILDSCROLL:
1148 if( ci->sbNeedUpdate )
1149 if( ci->sbRecalc )
1150 {
1151 CalcChildScroll(hwnd, ci->sbRecalc-1);
1152 ci->sbRecalc = ci->sbNeedUpdate = 0;
1153 }
1154 return 0;
1155 }
1156
1157 return DefWindowProc16(hwnd, message, wParam, lParam);
1158 }
1159
1160
1161 /***********************************************************************
1162 * DefFrameProc16 (USER.445)
1163 */
1164 LRESULT DefFrameProc16( HWND16 hwnd, HWND16 hwndMDIClient, UINT16 message,
1165 WPARAM16 wParam, LPARAM lParam )
1166 {
1167 HWND16 childHwnd;
1168 MDICLIENTINFO* ci;
1169 WND* wndPtr;
1170
1171 if (hwndMDIClient)
1172 {
1173 switch (message)
1174 {
1175 case WM_COMMAND:
1176 wndPtr = WIN_FindWndPtr(hwndMDIClient);
1177 ci = (MDICLIENTINFO*)wndPtr->wExtra;
1178
1179 /* check for possible syscommands for maximized MDI child */
1180
1181 if( ci && (
1182 wParam < ci->idFirstChild ||
1183 wParam >= ci->idFirstChild + ci->nActiveChildren
1184 )){
1185 if( (wParam - 0xF000) & 0xF00F ) break;
1186 switch( wParam )
1187 {
1188 case SC_SIZE:
1189 case SC_MOVE:
1190 case SC_MINIMIZE:
1191 case SC_MAXIMIZE:
1192 case SC_NEXTWINDOW:
1193 case SC_PREVWINDOW:
1194 case SC_CLOSE:
1195 case SC_RESTORE:
1196 if( ci->hwndChildMaximized )
1197 return SendMessage16( ci->hwndChildMaximized, WM_SYSCOMMAND,
1198 wParam, lParam);
1199 }
1200 }
1201 else
1202 {
1203 childHwnd = MDI_GetChildByID( WIN_FindWndPtr(hwndMDIClient),
1204 wParam );
1205 if( childHwnd )
1206 SendMessage16(hwndMDIClient, WM_MDIACTIVATE,
1207 (WPARAM16)childHwnd , 0L);
1208 }
1209 break;
1210
1211 case WM_NCACTIVATE:
1212 SendMessage16(hwndMDIClient, message, wParam, lParam);
1213 break;
1214
1215 case WM_SETTEXT:
1216 MDI_UpdateFrameText(WIN_FindWndPtr(hwnd), hwndMDIClient,
1217 MDI_REPAINTFRAME,
1218 (LPCSTR)PTR_SEG_TO_LIN(lParam));
1219 return 0;
1220
1221 case WM_SETFOCUS:
1222 SetFocus32(hwndMDIClient);
1223 break;
1224
1225 case WM_SIZE:
1226 MoveWindow16(hwndMDIClient, 0, 0,
1227 LOWORD(lParam), HIWORD(lParam), TRUE);
1228 break;
1229
1230 case WM_NEXTMENU:
1231
1232 wndPtr = WIN_FindWndPtr(hwndMDIClient);
1233 ci = (MDICLIENTINFO*)wndPtr->wExtra;
1234
1235 if( !(wndPtr->parent->dwStyle & WS_MINIMIZE)
1236 && ci->hwndActiveChild && !ci->hwndChildMaximized )
1237 {
1238 /* control menu is between the frame system menu and
1239 * the first entry of menu bar */
1240
1241 if( wParam == VK_LEFT )
1242 { if( wndPtr->parent->wIDmenu != LOWORD(lParam) ) break; }
1243 else if( wParam == VK_RIGHT )
1244 { if( GetSystemMenu16( wndPtr->parent->hwndSelf, 0)
1245 != LOWORD(lParam) ) break; }
1246 else break;
1247
1248 return MAKELONG( GetSystemMenu16(ci->hwndActiveChild, 0),
1249 ci->hwndActiveChild );
1250 }
1251 break;
1252 }
1253 }
1254
1255 return DefWindowProc16(hwnd, message, wParam, lParam);
1256 }
1257
1258
1259 /***********************************************************************
1260 * DefFrameProc32A (USER32.121)
1261 */
1262 LRESULT DefFrameProc32A( HWND32 hwnd, HWND32 hwndMDIClient, UINT32 message,
1263 WPARAM32 wParam, LPARAM lParam )
1264 {
1265 if (hwndMDIClient)
1266 {
1267 switch (message)
1268 {
1269 case WM_COMMAND:
1270 return DefFrameProc16( hwnd, hwndMDIClient, message,
1271 (WPARAM16)wParam,
1272 MAKELPARAM( (HWND16)lParam, HIWORD(wParam) ) );
1273
1274 case WM_NCACTIVATE:
1275 SendMessage32A(hwndMDIClient, message, wParam, lParam);
1276 break;
1277
1278 case WM_SETTEXT: {
1279 LRESULT ret;
1280 LPSTR segstr = SEGPTR_STRDUP((LPSTR)lParam);
1281
1282 ret = DefFrameProc16(hwnd, hwndMDIClient, message,
1283 wParam, (LPARAM)SEGPTR_GET(segstr) );
1284 SEGPTR_FREE(segstr);
1285 return ret;
1286 }
1287
1288 case WM_SETFOCUS:
1289 case WM_SIZE:
1290 return DefFrameProc16( hwnd, hwndMDIClient, message,
1291 wParam, lParam );
1292 }
1293 }
1294
1295 return DefWindowProc32A(hwnd, message, wParam, lParam);
1296 }
1297
1298
1299 /***********************************************************************
1300 * DefFrameProc32W (USER32.122)
1301 */
1302 LRESULT DefFrameProc32W( HWND32 hwnd, HWND32 hwndMDIClient, UINT32 message,
1303 WPARAM32 wParam, LPARAM lParam )
1304 {
1305 if (hwndMDIClient)
1306 {
1307 switch (message)
1308 {
1309 case WM_COMMAND:
1310 return DefFrameProc16( hwnd, hwndMDIClient, message,
1311 (WPARAM16)wParam,
1312 MAKELPARAM( (HWND16)lParam, HIWORD(wParam) ) );
1313
1314 case WM_NCACTIVATE:
1315 SendMessage32W(hwndMDIClient, message, wParam, lParam);
1316 break;
1317
1318 case WM_SETTEXT: {
1319 LPSTR txt = HEAP_strdupWtoA(GetProcessHeap(),0,(LPWSTR)lParam);
1320 LRESULT ret = DefFrameProc32A( hwnd, hwndMDIClient, message,
1321 wParam, (DWORD)txt );
1322 HeapFree(GetProcessHeap(),0,txt);
1323 return ret;
1324 }
1325 case WM_SETFOCUS:
1326 case WM_SIZE:
1327 return DefFrameProc32A( hwnd, hwndMDIClient, message,
1328 wParam, lParam );
1329 }
1330 }
1331
1332 return DefWindowProc32W( hwnd, message, wParam, lParam );
1333 }
1334
1335
1336 /***********************************************************************
1337 * DefMDIChildProc16 (USER.447)
1338 */
1339 LRESULT DefMDIChildProc16( HWND16 hwnd, UINT16 message,
1340 WPARAM16 wParam, LPARAM lParam )
1341 {
1342 MDICLIENTINFO *ci;
1343 WND *clientWnd;
1344
1345 clientWnd = WIN_FindWndPtr(GetParent16(hwnd));
1346 ci = (MDICLIENTINFO *) clientWnd->wExtra;
1347
1348 switch (message)
1349 {
1350 case WM_SETTEXT:
1351 DefWindowProc16(hwnd, message, wParam, lParam);
1352 MDI_MenuModifyItem(clientWnd,hwnd);
1353 if( ci->hwndChildMaximized == hwnd )
1354 MDI_UpdateFrameText( clientWnd->parent, ci->self,
1355 MDI_REPAINTFRAME, NULL );
1356 return 0;
1357
1358 case WM_CLOSE:
1359 SendMessage16(ci->self,WM_MDIDESTROY,(WPARAM16)hwnd,0L);
1360 return 0;
1361
1362 case WM_SETFOCUS:
1363 if( ci->hwndActiveChild != hwnd )
1364 MDI_ChildActivate(clientWnd, hwnd);
1365 break;
1366
1367 case WM_CHILDACTIVATE:
1368 MDI_ChildActivate(clientWnd, hwnd);
1369 return 0;
1370
1371 case WM_NCPAINT:
1372 dprintf_mdi(stddeb,"DefMDIChildProc: WM_NCPAINT for %04x, active %04x\n",
1373 hwnd, ci->hwndActiveChild );
1374 break;
1375
1376 case WM_SYSCOMMAND:
1377 switch( wParam )
1378 {
1379 case SC_MOVE:
1380 if( ci->hwndChildMaximized == hwnd) return 0;
1381 break;
1382 case SC_RESTORE:
1383 case SC_MINIMIZE:
1384 WIN_FindWndPtr(hwnd)->dwStyle |= WS_SYSMENU;
1385 break;
1386 case SC_MAXIMIZE:
1387 if( ci->hwndChildMaximized == hwnd)
1388 return SendMessage16( clientWnd->parent->hwndSelf,
1389 message, wParam, lParam);
1390 WIN_FindWndPtr(hwnd)->dwStyle &= ~WS_SYSMENU;
1391 break;
1392 case SC_NEXTWINDOW:
1393 SendMessage16( ci->self, WM_MDINEXT, 0, 0);
1394 return 0;
1395 case SC_PREVWINDOW:
1396 SendMessage16( ci->self, WM_MDINEXT, 0, 1);
1397 return 0;
1398 }
1399 break;
1400
1401 case WM_GETMINMAXINFO:
1402 MDI_ChildGetMinMaxInfo(clientWnd, hwnd, (MINMAXINFO16*) PTR_SEG_TO_LIN(lParam));
1403 return 0;
1404
1405 case WM_SETVISIBLE:
1406 if( ci->hwndChildMaximized)
1407 ci->sbNeedUpdate = 0;
1408 else
1409 MDI_PostUpdate(clientWnd->hwndSelf, ci, SB_BOTH+1);
1410 break;
1411
1412 case WM_SIZE:
1413 /* do not change */
1414
1415 if( ci->hwndActiveChild == hwnd && wParam != SIZE_MAXIMIZED )
1416 {
1417 ci->hwndChildMaximized = 0;
1418
1419 MDI_RestoreFrameMenu( clientWnd->parent, hwnd);
1420 MDI_UpdateFrameText( clientWnd->parent, ci->self,
1421 MDI_REPAINTFRAME, NULL );
1422 }
1423
1424 if( wParam == SIZE_MAXIMIZED )
1425 {
1426 HWND16 hMaxChild = ci->hwndChildMaximized;
1427
1428 if( hMaxChild == hwnd ) break;
1429
1430 if( hMaxChild)
1431 {
1432 SendMessage16( hMaxChild, WM_SETREDRAW, FALSE, 0L );
1433
1434 MDI_RestoreFrameMenu( clientWnd->parent, hMaxChild);
1435 ShowWindow16( hMaxChild, SW_SHOWNOACTIVATE);
1436
1437 SendMessage16( hMaxChild, WM_SETREDRAW, TRUE, 0L );
1438 }
1439
1440 dprintf_mdi(stddeb,"\tMDI: maximizing child %04x\n", hwnd );
1441
1442 ci->hwndChildMaximized = hwnd; /* !!! */
1443
1444 MDI_AugmentFrameMenu( ci, clientWnd->parent, hwnd);
1445 MDI_UpdateFrameText( clientWnd->parent, ci->self,
1446 MDI_REPAINTFRAME, NULL );
1447 }
1448
1449 if( wParam == SIZE_MINIMIZED )
1450 {
1451 HWND16 switchTo = MDI_GetWindow(clientWnd, hwnd, 0);
1452
1453 if( switchTo )
1454 SendMessage16( switchTo, WM_CHILDACTIVATE, 0, 0L);
1455 }
1456
1457 MDI_PostUpdate(clientWnd->hwndSelf, ci, SB_BOTH+1);
1458 break;
1459
1460 case WM_MENUCHAR:
1461
1462 /* MDI children don't have menu bars */
1463 PostMessage( clientWnd->parent->hwndSelf, WM_SYSCOMMAND,
1464 (WPARAM16)SC_KEYMENU, (LPARAM)wParam);
1465 return 0x00010000L;
1466
1467 case WM_NEXTMENU:
1468
1469 if( wParam == VK_LEFT ) /* switch to frame system menu */
1470 return MAKELONG( GetSystemMenu16(clientWnd->parent->hwndSelf, 0),
1471 clientWnd->parent->hwndSelf );
1472 if( wParam == VK_RIGHT ) /* to frame menu bar */
1473 return MAKELONG( clientWnd->parent->wIDmenu,
1474 clientWnd->parent->hwndSelf );
1475
1476 break;
1477 }
1478
1479 return DefWindowProc16(hwnd, message, wParam, lParam);
1480 }
1481
1482
1483 /***********************************************************************
1484 * DefMDIChildProc32A (USER32.123)
1485 */
1486 LRESULT DefMDIChildProc32A( HWND32 hwnd, UINT32 message,
1487 WPARAM32 wParam, LPARAM lParam )
1488 {
1489 MDICLIENTINFO *ci;
1490 WND *clientWnd;
1491
1492 clientWnd = WIN_FindWndPtr(GetParent16(hwnd));
1493 ci = (MDICLIENTINFO *) clientWnd->wExtra;
1494
1495 switch (message)
1496 {
1497 case WM_SETTEXT:
1498 DefWindowProc32A(hwnd, message, wParam, lParam);
1499 MDI_MenuModifyItem(clientWnd,hwnd);
1500 if( ci->hwndChildMaximized == hwnd )
1501 MDI_UpdateFrameText( clientWnd->parent, ci->self,
1502 MDI_REPAINTFRAME, NULL );
1503 return 0;
1504
1505 case WM_GETMINMAXINFO:
1506 {
1507 MINMAXINFO16 mmi;
1508 STRUCT32_MINMAXINFO32to16( (MINMAXINFO32 *)lParam, &mmi );
1509 MDI_ChildGetMinMaxInfo( clientWnd, hwnd, &mmi );
1510 STRUCT32_MINMAXINFO16to32( &mmi, (MINMAXINFO32 *)lParam );
1511 }
1512 return 0;
1513
1514 case WM_MENUCHAR:
1515
1516 /* MDI children don't have menu bars */
1517 PostMessage( clientWnd->parent->hwndSelf, WM_SYSCOMMAND,
1518 (WPARAM16)SC_KEYMENU, (LPARAM)LOWORD(wParam) );
1519 return 0x00010000L;
1520
1521 case WM_CLOSE:
1522 case WM_SETFOCUS:
1523 case WM_CHILDACTIVATE:
1524 case WM_NCPAINT:
1525 case WM_SYSCOMMAND:
1526 case WM_SETVISIBLE:
1527 case WM_SIZE:
1528 case WM_NEXTMENU:
1529 return DefMDIChildProc16( hwnd, message, (WPARAM16)wParam, lParam );
1530 }
1531 return DefWindowProc32A(hwnd, message, wParam, lParam);
1532 }
1533
1534
1535 /***********************************************************************
1536 * DefMDIChildProc32W (USER32.124)
1537 */
1538 LRESULT DefMDIChildProc32W( HWND32 hwnd, UINT32 message,
1539 WPARAM32 wParam, LPARAM lParam )
1540 {
1541 MDICLIENTINFO *ci;
1542 WND *clientWnd;
1543
1544 clientWnd = WIN_FindWndPtr(GetParent16(hwnd));
1545 ci = (MDICLIENTINFO *) clientWnd->wExtra;
1546
1547 switch (message)
1548 {
1549 case WM_SETTEXT:
1550 DefWindowProc32W(hwnd, message, wParam, lParam);
1551 MDI_MenuModifyItem(clientWnd,hwnd);
1552 if( ci->hwndChildMaximized == hwnd )
1553 MDI_UpdateFrameText( clientWnd->parent, ci->self,
1554 MDI_REPAINTFRAME, NULL );
1555 return 0;
1556
1557 case WM_GETMINMAXINFO:
1558 case WM_MENUCHAR:
1559 case WM_CLOSE:
1560 case WM_SETFOCUS:
1561 case WM_CHILDACTIVATE:
1562 case WM_NCPAINT:
1563 case WM_SYSCOMMAND:
1564 case WM_SETVISIBLE:
1565 case WM_SIZE:
1566 case WM_NEXTMENU:
1567 return DefMDIChildProc32A( hwnd, message, (WPARAM16)wParam, lParam );
1568 }
1569 return DefWindowProc32W(hwnd, message, wParam, lParam);
1570 }
1571
1572
1573 /**********************************************************************
1574 * CreateMDIWindowA (USER32.78)
1575 */
1576
1577 /**********************************************************************
1578 * CreateMDIWindowW (USER32.79)
1579 */
1580
1581 /**********************************************************************
1582 * TranslateMDISysAccel32 (USER32.554)
1583 */
1584 BOOL32 TranslateMDISysAccel32( HWND32 hwndClient, LPMSG32 msg )
1585 {
1586 MSG16 msg16;
1587
1588 STRUCT32_MSG32to16(msg,&msg16);
1589 /* MDICLIENTINFO is still the same for win32 and win16 ... */
1590 return TranslateMDISysAccel16(hwndClient,&msg16);
1591 }
1592
1593
1594 /**********************************************************************
1595 * TranslateMDISysAccel16 (USER.451)
1596 */
1597 BOOL16 TranslateMDISysAccel16( HWND16 hwndClient, LPMSG16 msg )
1598 {
1599 WND* clientWnd = WIN_FindWndPtr( hwndClient);
1600 WND* wnd;
1601 MDICLIENTINFO *ci = NULL;
1602 WPARAM16 wParam = 0;
1603
1604 if( (msg->message != WM_KEYDOWN && msg->message != WM_SYSKEYDOWN) || !clientWnd )
1605 return 0;
1606
1607 ci = (MDICLIENTINFO*) clientWnd->wExtra;
1608 wnd = WIN_FindWndPtr(ci->hwndActiveChild);
1609
1610 if( !wnd ) return 0;
1611
1612 if( wnd->dwStyle & WS_DISABLED ) return 0;
1613
1614 if ((GetKeyState32(VK_CONTROL) & 0x8000) && !(GetKeyState32(VK_MENU) & 0x8000))
1615 switch( msg->wParam )
1616 {
1617 case VK_F6:
1618 case VK_SEPARATOR:
1619 wParam = ( GetKeyState32(VK_SHIFT) & 0x8000 )? SC_NEXTWINDOW: SC_PREVWINDOW;
1620 break;
1621 case VK_F4:
1622 case VK_RBUTTON:
1623 wParam = SC_CLOSE;
1624 break;
1625 default:
1626 return 0;
1627 }
1628 else
1629 return 0;
1630
1631 dprintf_mdi(stddeb,"TranslateMDISysAccel: wParam = %04x\n", wParam);
1632
1633 SendMessage16(ci->hwndActiveChild,WM_SYSCOMMAND, wParam, (LPARAM)msg->wParam);
1634 return 1;
1635 }
1636
1637
1638 /***********************************************************************
1639 * CalcChildScroll (USER.462)
1640 */
1641 void CalcChildScroll( HWND16 hwnd, WORD scroll )
1642 {
1643 RECT16 childRect, clientRect;
1644 INT vmin, vmax, hmin, hmax, vpos, hpos;
1645 BOOL noscroll = FALSE;
1646 WND *pWnd, *Wnd;
1647
1648 if (!(Wnd = pWnd = WIN_FindWndPtr( hwnd ))) return;
1649 GetClientRect16( hwnd, &clientRect );
1650 SetRectEmpty16( &childRect );
1651
1652 for ( pWnd = pWnd->child; pWnd; pWnd = pWnd->next )
1653 {
1654 UnionRect16( &childRect, &pWnd->rectWindow, &childRect );
1655 if( pWnd->dwStyle & WS_MAXIMIZE )
1656 noscroll = TRUE;
1657 }
1658 UnionRect16( &childRect, &clientRect, &childRect );
1659
1660 /* jump through the hoops to prevent excessive flashing
1661 */
1662
1663 hmin = childRect.left; hmax = childRect.right - clientRect.right;
1664 hpos = clientRect.left - childRect.left;
1665 vmin = childRect.top; vmax = childRect.bottom - clientRect.bottom;
1666 vpos = clientRect.top - childRect.top;
1667
1668 if( noscroll )
1669 ShowScrollBar32(hwnd, SB_BOTH, FALSE);
1670 else
1671 switch( scroll )
1672 {
1673 case SB_HORZ:
1674 vpos = hpos; vmin = hmin; vmax = hmax;
1675 case SB_VERT:
1676 SetScrollPos32(hwnd, scroll, vpos, FALSE);
1677 SetScrollRange32(hwnd, scroll, vmin, vmax, TRUE);
1678 break;
1679 case SB_BOTH:
1680 SCROLL_SetNCSbState( Wnd, vmin, vmax, vpos,
1681 hmin, hmax, hpos);
1682 SetWindowPos32(hwnd, 0, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE
1683 | SWP_NOACTIVATE | SWP_NOZORDER | SWP_FRAMECHANGED );
1684 }
1685 }
1686
1687
1688 /***********************************************************************
1689 * ScrollChildren16 (USER.463)
1690 */
1691 void ScrollChildren16(HWND16 hWnd, UINT16 uMsg, WPARAM16 wParam, LPARAM lParam)
1692 {
1693 return ScrollChildren32( hWnd, uMsg, wParam, lParam );
1694 }
1695
1696
1697 /***********************************************************************
1698 * ScrollChildren32 (USER32.447)
1699 */
1700 void ScrollChildren32(HWND32 hWnd, UINT32 uMsg, WPARAM32 wParam, LPARAM lParam)
1701 {
1702 WND *wndPtr = WIN_FindWndPtr(hWnd);
1703 INT32 newPos = -1;
1704 INT32 curPos, length, minPos, maxPos, shift;
1705
1706 if( !wndPtr ) return;
1707
1708 if( uMsg == WM_HSCROLL )
1709 {
1710 GetScrollRange32(hWnd,SB_HORZ,&minPos,&maxPos);
1711 curPos = GetScrollPos32(hWnd,SB_HORZ);
1712 length = (wndPtr->rectClient.right - wndPtr->rectClient.left)/2;
1713 shift = SYSMETRICS_CYHSCROLL;
1714 }
1715 else if( uMsg == WM_VSCROLL )
1716 {
1717 GetScrollRange32(hWnd,SB_VERT,&minPos,&maxPos);
1718 curPos = GetScrollPos32(hWnd,SB_VERT);
1719 length = (wndPtr->rectClient.bottom - wndPtr->rectClient.top)/2;
1720 shift = SYSMETRICS_CXVSCROLL;
1721 }
1722 else return;
1723
1724 switch( wParam )
1725 {
1726 case SB_LINEUP:
1727 newPos = curPos - shift;
1728 break;
1729 case SB_LINEDOWN:
1730 newPos = curPos + shift;
1731 break;
1732 case SB_PAGEUP:
1733 newPos = curPos - length;
1734 break;
1735 case SB_PAGEDOWN:
1736 newPos = curPos + length;
1737 break;
1738
1739 case SB_THUMBPOSITION:
1740 newPos = LOWORD(lParam);
1741 break;
1742
1743 case SB_THUMBTRACK:
1744 return;
1745
1746 case SB_TOP:
1747 newPos = minPos;
1748 break;
1749 case SB_BOTTOM:
1750 newPos = maxPos;
1751 break;
1752 case SB_ENDSCROLL:
1753 CalcChildScroll(hWnd,(uMsg == WM_VSCROLL)?SB_VERT:SB_HORZ);
1754 return;
1755 }
1756
1757 if( newPos > maxPos )
1758 newPos = maxPos;
1759 else if( newPos < minPos )
1760 newPos = minPos;
1761
1762 SetScrollPos32(hWnd, (uMsg == WM_VSCROLL)?SB_VERT:SB_HORZ , newPos, TRUE);
1763
1764 if( uMsg == WM_VSCROLL )
1765 ScrollWindow32(hWnd ,0 ,curPos - newPos, NULL, NULL);
1766 else
1767 ScrollWindow32(hWnd ,curPos - newPos, 0, NULL, NULL);
1768 }
1769
useful hacks and other patches not (yet) suitable for mainline