Release 971116
[wine] / windows / defdlg.c
1 /*
2  * Default dialog procedure
3  *
4  * Copyright 1993, 1996 Alexandre Julliard
5  *
6  */
7
8 #include "windows.h"
9 #include "dialog.h"
10 #include "win.h"
11 #include "winproc.h"
12
13
14 /***********************************************************************
15  *           DEFDLG_SetFocus
16  *
17  * Set the focus to a control of the dialog, selecting the text if
18  * the control is an edit dialog.
19  */
20 static void DEFDLG_SetFocus( HWND32 hwndDlg, HWND32 hwndCtrl )
21 {
22     HWND32 hwndPrev = GetFocus32();
23
24     if (IsChild32( hwndDlg, hwndPrev ))
25     {
26         if (SendMessage16( hwndPrev, WM_GETDLGCODE, 0, 0 ) & DLGC_HASSETSEL)
27             SendMessage16( hwndPrev, EM_SETSEL16, TRUE, MAKELONG( -1, 0 ) );
28     }
29     if (SendMessage16( hwndCtrl, WM_GETDLGCODE, 0, 0 ) & DLGC_HASSETSEL)
30         SendMessage16( hwndCtrl, EM_SETSEL16, FALSE, MAKELONG( 0, -1 ) );
31     SetFocus32( hwndCtrl );
32 }
33
34
35 /***********************************************************************
36  *           DEFDLG_SaveFocus
37  */
38 static BOOL32 DEFDLG_SaveFocus( HWND32 hwnd, DIALOGINFO *infoPtr )
39 {
40     HWND32 hwndFocus = GetFocus32();
41
42     if (!hwndFocus || !IsChild32( hwnd, hwndFocus )) return FALSE;
43     infoPtr->hwndFocus = hwndFocus;
44       /* Remove default button */
45     return TRUE;
46 }
47
48
49 /***********************************************************************
50  *           DEFDLG_RestoreFocus
51  */
52 static BOOL32 DEFDLG_RestoreFocus( HWND32 hwnd, DIALOGINFO *infoPtr )
53 {
54     if (!infoPtr->hwndFocus || IsIconic32(hwnd)) return FALSE;
55     if (!IsWindow32( infoPtr->hwndFocus )) return FALSE;
56     DEFDLG_SetFocus( hwnd, infoPtr->hwndFocus );
57     /* This used to set infoPtr->hwndFocus to NULL for no apparent reason,
58        sometimes losing focus when receiving WM_SETFOCUS messages. */
59     return TRUE;
60 }
61
62
63 /***********************************************************************
64  *           DEFDLG_FindDefButton
65  *
66  * Find the current default push-button.
67  */
68 static HWND32 DEFDLG_FindDefButton( HWND32 hwndDlg )
69 {
70     HWND32 hwndChild = GetWindow32( hwndDlg, GW_CHILD );
71     while (hwndChild)
72     {
73         if (SendMessage16( hwndChild, WM_GETDLGCODE, 0, 0 ) & DLGC_DEFPUSHBUTTON)
74             break;
75         hwndChild = GetWindow32( hwndChild, GW_HWNDNEXT );
76     }
77     return hwndChild;
78 }
79
80
81 /***********************************************************************
82  *           DEFDLG_SetDefButton
83  *
84  * Set the new default button to be hwndNew.
85  */
86 static BOOL32 DEFDLG_SetDefButton( HWND32 hwndDlg, DIALOGINFO *dlgInfo,
87                                    HWND32 hwndNew )
88 {
89     if (hwndNew &&
90         !(SendMessage16(hwndNew, WM_GETDLGCODE, 0, 0 ) & DLGC_UNDEFPUSHBUTTON))
91         return FALSE;  /* Destination is not a push button */
92     
93     if (dlgInfo->idResult)  /* There's already a default pushbutton */
94     {
95         HWND32 hwndOld = GetDlgItem32( hwndDlg, dlgInfo->idResult );
96         if (SendMessage32A( hwndOld, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON)
97             SendMessage32A( hwndOld, BM_SETSTYLE32, BS_PUSHBUTTON, TRUE );
98     }
99     if (hwndNew)
100     {
101         SendMessage32A( hwndNew, BM_SETSTYLE32, BS_DEFPUSHBUTTON, TRUE );
102         dlgInfo->idResult = GetDlgCtrlID32( hwndNew );
103     }
104     else dlgInfo->idResult = 0;
105     return TRUE;
106 }
107
108
109 /***********************************************************************
110  *           DEFDLG_Proc
111  *
112  * Implementation of DefDlgProc(). Only handle messages that need special
113  * handling for dialogs.
114  */
115 static LRESULT DEFDLG_Proc( HWND32 hwnd, UINT32 msg, WPARAM32 wParam,
116                             LPARAM lParam, DIALOGINFO *dlgInfo )
117 {
118     switch(msg)
119     {
120         case WM_ERASEBKGND:
121             FillWindow( hwnd, hwnd, (HDC16)wParam, (HBRUSH16)CTLCOLOR_DLG );
122             return 1;
123
124         case WM_NCDESTROY:
125
126               /* Free dialog heap (if created) */
127             if (dlgInfo->hDialogHeap)
128             {
129                 GlobalUnlock16(dlgInfo->hDialogHeap);
130                 GlobalFree16(dlgInfo->hDialogHeap);
131                 dlgInfo->hDialogHeap = 0;
132             }
133
134               /* Delete font */
135             if (dlgInfo->hUserFont)
136             {
137                 DeleteObject32( dlgInfo->hUserFont );
138                 dlgInfo->hUserFont = 0;
139             }
140
141               /* Delete menu */
142             if (dlgInfo->hMenu)
143             {           
144                 DestroyMenu32( dlgInfo->hMenu );
145                 dlgInfo->hMenu = 0;
146             }
147
148             /* Delete window procedure */
149             WINPROC_FreeProc( dlgInfo->dlgProc, WIN_PROC_WINDOW );
150             dlgInfo->dlgProc = (HWINDOWPROC)0;
151             dlgInfo->flags |= DF_END;  /* just in case */
152
153               /* Window clean-up */
154             return DefWindowProc32A( hwnd, msg, wParam, lParam );
155
156         case WM_SHOWWINDOW:
157             if (!wParam) DEFDLG_SaveFocus( hwnd, dlgInfo );
158             return DefWindowProc32A( hwnd, msg, wParam, lParam );
159
160         case WM_ACTIVATE:
161             if (wParam) DEFDLG_RestoreFocus( hwnd, dlgInfo );
162             else DEFDLG_SaveFocus( hwnd, dlgInfo );
163             return 0;
164
165         case WM_SETFOCUS:
166             DEFDLG_RestoreFocus( hwnd, dlgInfo );
167             return 0;
168
169         case DM_SETDEFID:
170             if (dlgInfo->flags & DF_END) return 1;
171             DEFDLG_SetDefButton( hwnd, dlgInfo,
172                                  wParam ? GetDlgItem32( hwnd, wParam ) : 0 );
173             return 1;
174
175         case DM_GETDEFID:
176             {
177                 HWND32 hwndDefId;
178                 if (dlgInfo->flags & DF_END) return 0;
179                 if (dlgInfo->idResult)
180                     return MAKELONG( dlgInfo->idResult, DC_HASDEFID );
181                 if ((hwndDefId = DEFDLG_FindDefButton( hwnd )))
182                     return MAKELONG( GetDlgCtrlID32( hwndDefId ), DC_HASDEFID);
183             }
184             return 0;
185
186         case WM_NEXTDLGCTL:
187             {
188                 HWND32 hwndDest = (HWND32)wParam;
189                 if (!lParam)
190                     hwndDest = GetNextDlgTabItem32(hwnd, GetFocus32(), wParam);
191                 if (hwndDest) DEFDLG_SetFocus( hwnd, hwndDest );
192                 DEFDLG_SetDefButton( hwnd, dlgInfo, hwndDest );
193             }
194             return 0;
195
196         case WM_ENTERMENULOOP:
197         case WM_LBUTTONDOWN:
198         case WM_NCLBUTTONDOWN:
199             {
200                 HWND32 hwndFocus = GetFocus32();
201                 if (hwndFocus)
202                 {
203                     WND *wnd = WIN_FindWndPtr( hwndFocus );
204
205                     if( wnd )
206                     {
207                         /* always make combo box hide its listbox control */
208
209                         if( WIDGETS_IsControl32( wnd, BIC32_COMBO ) )
210                             SendMessage32A( hwndFocus, CB_SHOWDROPDOWN32,
211                                             FALSE, 0 );
212                         else if( WIDGETS_IsControl32( wnd, BIC32_EDIT ) &&
213                                  WIDGETS_IsControl32( wnd->parent,
214                                                       BIC32_COMBO ))
215                             SendMessage32A( wnd->parent->hwndSelf, 
216                                             CB_SHOWDROPDOWN32, FALSE, 0 );
217                     }
218                 }
219             }
220             return DefWindowProc32A( hwnd, msg, wParam, lParam );
221
222         case WM_GETFONT: 
223             return dlgInfo->hUserFont;
224
225         case WM_CLOSE:
226             EndDialog32( hwnd, TRUE );
227             DestroyWindow32( hwnd );
228             return 0;
229     }
230     return 0;
231 }
232
233 /***********************************************************************
234  *           DEFDLG_Epilog
235  */
236 static LRESULT DEFDLG_Epilog(DIALOGINFO* dlgInfo, UINT32 msg, BOOL16 fResult)
237 {
238     /* see SDK 3.1 */
239
240     if ((msg >= WM_CTLCOLORMSGBOX && msg <= WM_CTLCOLORSTATIC) ||
241          msg == WM_CTLCOLOR || msg == WM_COMPAREITEM ||
242          msg == WM_VKEYTOITEM || msg == WM_CHARTOITEM ||
243          msg == WM_QUERYDRAGICON || msg == WM_INITDIALOG)
244         return fResult; 
245
246     return dlgInfo->msgResult;
247 }
248
249 /***********************************************************************
250  *           DefDlgProc16   (USER.308)
251  */
252 LRESULT WINAPI DefDlgProc16( HWND16 hwnd, UINT16 msg, WPARAM16 wParam,
253                              LPARAM lParam )
254 {
255     DIALOGINFO * dlgInfo;
256     BOOL16 result = FALSE;
257     WND * wndPtr = WIN_FindWndPtr( hwnd );
258     
259     if (!wndPtr) return 0;
260     dlgInfo = (DIALOGINFO *)&wndPtr->wExtra;
261     dlgInfo->msgResult = 0;
262
263     if (dlgInfo->dlgProc)       /* Call dialog procedure */
264         result = (BOOL16)CallWindowProc16( (WNDPROC16)dlgInfo->dlgProc,
265                                            hwnd, msg, wParam, lParam );
266
267     /* Check if window was destroyed by dialog procedure */
268
269     if (!result && IsWindow32(hwnd))
270     {
271         /* callback didn't process this message */
272
273         switch(msg)
274         {
275             case WM_ERASEBKGND:
276             case WM_SHOWWINDOW:
277             case WM_ACTIVATE:
278             case WM_SETFOCUS:
279             case DM_SETDEFID:
280             case DM_GETDEFID:
281             case WM_NEXTDLGCTL:
282             case WM_GETFONT:
283             case WM_CLOSE:
284             case WM_NCDESTROY:
285             case WM_ENTERMENULOOP:
286             case WM_LBUTTONDOWN:
287             case WM_NCLBUTTONDOWN:
288                 return DEFDLG_Proc( (HWND32)hwnd, msg, 
289                                     (WPARAM32)wParam, lParam, dlgInfo );
290             case WM_INITDIALOG:
291             case WM_VKEYTOITEM:
292             case WM_COMPAREITEM:
293             case WM_CHARTOITEM:
294                 break;
295
296             default:
297                 return DefWindowProc16( hwnd, msg, wParam, lParam );
298         }
299     }   
300     return DEFDLG_Epilog(dlgInfo, msg, result);
301 }
302
303
304 /***********************************************************************
305  *           DefDlgProc32A   (USER32.119)
306  */
307 LRESULT WINAPI DefDlgProc32A( HWND32 hwnd, UINT32 msg,
308                               WPARAM32 wParam, LPARAM lParam )
309 {
310     DIALOGINFO * dlgInfo;
311     BOOL16 result = FALSE;
312     WND * wndPtr = WIN_FindWndPtr( hwnd );
313     
314     if (!wndPtr) return 0;
315     dlgInfo = (DIALOGINFO *)&wndPtr->wExtra;
316     dlgInfo->msgResult = 0;
317
318     if (dlgInfo->dlgProc)       /* Call dialog procedure */
319         result = (BOOL16)CallWindowProc32A( (WNDPROC32)dlgInfo->dlgProc,
320                                             hwnd, msg, wParam, lParam );
321
322     /* Check if window was destroyed by dialog procedure */
323
324     if (!result && IsWindow32(hwnd))
325     {
326         /* callback didn't process this message */
327
328         switch(msg)
329         {
330             case WM_ERASEBKGND:
331             case WM_SHOWWINDOW:
332             case WM_ACTIVATE:
333             case WM_SETFOCUS:
334             case DM_SETDEFID:
335             case DM_GETDEFID:
336             case WM_NEXTDLGCTL:
337             case WM_GETFONT:
338             case WM_CLOSE:
339             case WM_NCDESTROY:
340             case WM_ENTERMENULOOP:
341             case WM_LBUTTONDOWN:
342             case WM_NCLBUTTONDOWN:
343                  return DEFDLG_Proc( (HWND32)hwnd, msg,
344                                      (WPARAM32)wParam, lParam, dlgInfo );
345             case WM_INITDIALOG:
346             case WM_VKEYTOITEM:
347             case WM_COMPAREITEM:
348             case WM_CHARTOITEM:
349                  break;
350
351             default:
352                  return DefWindowProc32A( hwnd, msg, wParam, lParam );
353         }
354     }
355     return DEFDLG_Epilog(dlgInfo, msg, result);
356 }
357
358
359 /***********************************************************************
360  *           DefDlgProc32W   (USER32.120)
361  */
362 LRESULT WINAPI DefDlgProc32W( HWND32 hwnd, UINT32 msg, WPARAM32 wParam,
363                               LPARAM lParam )
364 {
365     DIALOGINFO * dlgInfo;
366     BOOL16 result = FALSE;
367     WND * wndPtr = WIN_FindWndPtr( hwnd );
368     
369     if (!wndPtr) return 0;
370     dlgInfo = (DIALOGINFO *)&wndPtr->wExtra;
371     dlgInfo->msgResult = 0;
372
373     if (dlgInfo->dlgProc)       /* Call dialog procedure */
374         result = (BOOL16)CallWindowProc32W( (WNDPROC32)dlgInfo->dlgProc,
375                                             hwnd, msg, wParam, lParam );
376
377     /* Check if window was destroyed by dialog procedure */
378
379     if (!result && IsWindow32(hwnd))
380     {
381         /* callback didn't process this message */
382
383         switch(msg)
384         {
385             case WM_ERASEBKGND:
386             case WM_SHOWWINDOW:
387             case WM_ACTIVATE:
388             case WM_SETFOCUS:
389             case DM_SETDEFID:
390             case DM_GETDEFID:
391             case WM_NEXTDLGCTL:
392             case WM_GETFONT:
393             case WM_CLOSE:
394             case WM_NCDESTROY:
395             case WM_ENTERMENULOOP:
396             case WM_LBUTTONDOWN:
397             case WM_NCLBUTTONDOWN:
398                  return DEFDLG_Proc( (HWND32)hwnd, msg,
399                                      (WPARAM32)wParam, lParam, dlgInfo );
400             case WM_INITDIALOG:
401             case WM_VKEYTOITEM:
402             case WM_COMPAREITEM:
403             case WM_CHARTOITEM:
404                  break;
405
406             default:
407                  return DefWindowProc32W( hwnd, msg, wParam, lParam );
408         }
409     }
410     return DEFDLG_Epilog(dlgInfo, msg, result);
411 }