2 * Default dialog procedure
4 * Copyright 1993, 1996 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
26 #include "wine/winuser16.h"
30 #include "wine/debug.h"
32 WINE_DEFAULT_DEBUG_CHANNEL(dialog
);
35 /***********************************************************************
38 static WNDPROC
DEFDLG_GetDlgProc( HWND hwnd
)
41 WND
*wndPtr
= WIN_GetPtr( hwnd
);
43 if (!wndPtr
) return 0;
44 if (wndPtr
== WND_OTHER_PROCESS
)
46 ERR( "cannot get dlg proc %p from other process\n", hwnd
);
49 ret
= *(WNDPROC
*)((char *)wndPtr
->wExtra
+ DWL_DLGPROC
);
50 WIN_ReleasePtr( wndPtr
);
54 /***********************************************************************
57 * Set the focus to a control of the dialog, selecting the text if
58 * the control is an edit dialog.
60 static void DEFDLG_SetFocus( HWND hwndDlg
, HWND hwndCtrl
)
62 HWND hwndPrev
= GetFocus();
64 if (IsChild( hwndDlg
, hwndPrev
))
66 if (SendMessageW( hwndPrev
, WM_GETDLGCODE
, 0, 0 ) & DLGC_HASSETSEL
)
67 SendMessageW( hwndPrev
, EM_SETSEL
, -1, 0 );
69 if (SendMessageW( hwndCtrl
, WM_GETDLGCODE
, 0, 0 ) & DLGC_HASSETSEL
)
70 SendMessageW( hwndCtrl
, EM_SETSEL
, 0, -1 );
75 /***********************************************************************
78 static void DEFDLG_SaveFocus( HWND hwnd
)
81 HWND hwndFocus
= GetFocus();
83 if (!hwndFocus
|| !IsChild( hwnd
, hwndFocus
)) return;
84 if (!(infoPtr
= DIALOG_get_info( hwnd
, FALSE
))) return;
85 infoPtr
->hwndFocus
= hwndFocus
;
86 /* Remove default button */
90 /***********************************************************************
93 static void DEFDLG_RestoreFocus( HWND hwnd
)
97 if (IsIconic( hwnd
)) return;
98 if (!(infoPtr
= DIALOG_get_info( hwnd
, FALSE
))) return;
99 /* Don't set the focus back to controls if EndDialog is already called.*/
100 if (infoPtr
->flags
& DF_END
) return;
101 if (!IsWindow(infoPtr
->hwndFocus
) || infoPtr
->hwndFocus
== hwnd
) {
102 /* If no saved focus control exists, set focus to the first visible,
103 non-disabled, WS_TABSTOP control in the dialog */
104 infoPtr
->hwndFocus
= GetNextDlgTabItem( hwnd
, 0, FALSE
);
105 if (!IsWindow( infoPtr
->hwndFocus
)) return;
107 DEFDLG_SetFocus( hwnd
, infoPtr
->hwndFocus
);
109 /* This used to set infoPtr->hwndFocus to NULL for no apparent reason,
110 sometimes losing focus when receiving WM_SETFOCUS messages. */
114 /***********************************************************************
115 * DEFDLG_FindDefButton
117 * Find the current default push-button.
119 static HWND
DEFDLG_FindDefButton( HWND hwndDlg
)
121 HWND hwndChild
, hwndTmp
;
123 hwndChild
= GetWindow( hwndDlg
, GW_CHILD
);
126 if (SendMessageW( hwndChild
, WM_GETDLGCODE
, 0, 0 ) & DLGC_DEFPUSHBUTTON
)
129 /* Recurse into WS_EX_CONTROLPARENT controls */
130 if (GetWindowLongA( hwndChild
, GWL_EXSTYLE
) & WS_EX_CONTROLPARENT
)
132 LONG dsStyle
= GetWindowLongA( hwndChild
, GWL_STYLE
);
133 if ((dsStyle
& WS_VISIBLE
) && !(dsStyle
& WS_DISABLED
) &&
134 (hwndTmp
= DEFDLG_FindDefButton(hwndChild
)) != NULL
)
137 hwndChild
= GetWindow( hwndChild
, GW_HWNDNEXT
);
143 /***********************************************************************
146 * Set the default button id.
148 static BOOL
DEFDLG_SetDefId( HWND hwndDlg
, DIALOGINFO
*dlgInfo
, WPARAM wParam
)
150 DWORD dlgcode
=0; /* initialize just to avoid a warning */
151 HWND hwndOld
, hwndNew
= GetDlgItem(hwndDlg
, wParam
);
152 INT old_id
= dlgInfo
->idResult
;
154 dlgInfo
->idResult
= wParam
;
156 !((dlgcode
=SendMessageW(hwndNew
, WM_GETDLGCODE
, 0, 0 ))
157 & (DLGC_UNDEFPUSHBUTTON
| DLGC_BUTTON
)))
158 return FALSE
; /* Destination is not a push button */
160 /* Make sure the old default control is a valid push button ID */
161 hwndOld
= GetDlgItem( hwndDlg
, old_id
);
162 if (!hwndOld
|| !(SendMessageA( hwndOld
, WM_GETDLGCODE
, 0, 0) & DLGC_DEFPUSHBUTTON
))
163 hwndOld
= DEFDLG_FindDefButton( hwndDlg
);
164 if (hwndOld
&& hwndOld
!= hwndNew
)
165 SendMessageA( hwndOld
, BM_SETSTYLE
, BS_PUSHBUTTON
, TRUE
);
169 if(dlgcode
& DLGC_UNDEFPUSHBUTTON
)
170 SendMessageA( hwndNew
, BM_SETSTYLE
, BS_DEFPUSHBUTTON
, TRUE
);
176 /***********************************************************************
177 * DEFDLG_SetDefButton
179 * Set the new default button to be hwndNew.
181 static BOOL
DEFDLG_SetDefButton( HWND hwndDlg
, DIALOGINFO
*dlgInfo
, HWND hwndNew
)
183 DWORD dlgcode
=0; /* initialize just to avoid a warning */
184 HWND hwndOld
= GetDlgItem( hwndDlg
, dlgInfo
->idResult
);
187 !((dlgcode
=SendMessageW(hwndNew
, WM_GETDLGCODE
, 0, 0 ))
188 & (DLGC_UNDEFPUSHBUTTON
| DLGC_DEFPUSHBUTTON
)))
191 * Need to draw only default push button rectangle.
192 * Since the next control is not a push button, need to draw the push
193 * button rectangle for the default control.
196 dlgcode
= SendMessageW(hwndNew
, WM_GETDLGCODE
, 0, 0 );
199 /* Make sure the old default control is a valid push button ID */
200 if (!hwndOld
|| !(SendMessageA( hwndOld
, WM_GETDLGCODE
, 0, 0) & DLGC_DEFPUSHBUTTON
))
201 hwndOld
= DEFDLG_FindDefButton( hwndDlg
);
202 if (hwndOld
&& hwndOld
!= hwndNew
)
203 SendMessageA( hwndOld
, BM_SETSTYLE
, BS_PUSHBUTTON
, TRUE
);
207 if(dlgcode
& DLGC_UNDEFPUSHBUTTON
)
208 SendMessageA( hwndNew
, BM_SETSTYLE
, BS_DEFPUSHBUTTON
, TRUE
);
214 /***********************************************************************
217 * Implementation of DefDlgProc(). Only handle messages that need special
218 * handling for dialogs.
220 static LRESULT
DEFDLG_Proc( HWND hwnd
, UINT msg
, WPARAM wParam
,
221 LPARAM lParam
, DIALOGINFO
*dlgInfo
)
227 HBRUSH brush
= (HBRUSH
)SendMessageW( hwnd
, WM_CTLCOLORDLG
, wParam
, (LPARAM
)hwnd
);
228 if (!brush
) brush
= (HBRUSH
)DefWindowProcW( hwnd
, WM_CTLCOLORDLG
, wParam
, (LPARAM
)hwnd
);
232 HDC hdc
= (HDC
)wParam
;
233 GetClientRect( hwnd
, &rect
);
234 DPtoLP( hdc
, (LPPOINT
)&rect
, 2 );
235 FillRect( hdc
, &rect
, brush
);
240 if ((dlgInfo
= (DIALOGINFO
*)SetWindowLongW( hwnd
, DWL_WINE_DIALOGINFO
, 0 )))
242 /* Free dialog heap (if created) */
243 if (dlgInfo
->hDialogHeap
)
245 GlobalUnlock16(dlgInfo
->hDialogHeap
);
246 GlobalFree16(dlgInfo
->hDialogHeap
);
248 if (dlgInfo
->hUserFont
) DeleteObject( dlgInfo
->hUserFont
);
249 if (dlgInfo
->hMenu
) DestroyMenu( dlgInfo
->hMenu
);
250 WINPROC_FreeProc( DEFDLG_GetDlgProc( hwnd
), WIN_PROC_WINDOW
);
251 HeapFree( GetProcessHeap(), 0, dlgInfo
);
253 /* Window clean-up */
254 return DefWindowProcA( hwnd
, msg
, wParam
, lParam
);
257 if (!wParam
) DEFDLG_SaveFocus( hwnd
);
258 return DefWindowProcA( hwnd
, msg
, wParam
, lParam
);
261 if (wParam
) DEFDLG_RestoreFocus( hwnd
);
262 else DEFDLG_SaveFocus( hwnd
);
266 DEFDLG_RestoreFocus( hwnd
);
270 if (dlgInfo
&& !(dlgInfo
->flags
& DF_END
))
271 DEFDLG_SetDefId( hwnd
, dlgInfo
, wParam
);
275 if (dlgInfo
&& !(dlgInfo
->flags
& DF_END
))
278 if (dlgInfo
->idResult
)
279 return MAKELONG( dlgInfo
->idResult
, DC_HASDEFID
);
280 if ((hwndDefId
= DEFDLG_FindDefButton( hwnd
)))
281 return MAKELONG( GetDlgCtrlID( hwndDefId
), DC_HASDEFID
);
288 HWND hwndDest
= (HWND
)wParam
;
290 hwndDest
= GetNextDlgTabItem(hwnd
, GetFocus(), wParam
);
291 if (hwndDest
) DEFDLG_SetFocus( hwnd
, hwndDest
);
292 DEFDLG_SetDefButton( hwnd
, dlgInfo
, hwndDest
);
296 case WM_ENTERMENULOOP
:
298 case WM_NCLBUTTONDOWN
:
300 HWND hwndFocus
= GetFocus();
303 /* always make combo box hide its listbox control */
304 if (!SendMessageA( hwndFocus
, CB_SHOWDROPDOWN
, FALSE
, 0 ))
305 SendMessageA( GetParent(hwndFocus
), CB_SHOWDROPDOWN
, FALSE
, 0 );
308 return DefWindowProcA( hwnd
, msg
, wParam
, lParam
);
311 return dlgInfo
? (LRESULT
)dlgInfo
->hUserFont
: 0;
314 PostMessageA( hwnd
, WM_COMMAND
, MAKEWPARAM(IDCANCEL
, BN_CLICKED
),
315 (LPARAM
)GetDlgItem( hwnd
, IDCANCEL
) );
318 case WM_NOTIFYFORMAT
:
319 return DefWindowProcA( hwnd
, msg
, wParam
, lParam
);
324 /***********************************************************************
327 static LRESULT
DEFDLG_Epilog(HWND hwnd
, UINT msg
, BOOL fResult
)
331 if ((msg
>= WM_CTLCOLORMSGBOX
&& msg
<= WM_CTLCOLORSTATIC
) ||
332 msg
== WM_CTLCOLOR
|| msg
== WM_COMPAREITEM
||
333 msg
== WM_VKEYTOITEM
|| msg
== WM_CHARTOITEM
||
334 msg
== WM_QUERYDRAGICON
|| msg
== WM_INITDIALOG
)
337 return GetWindowLongA( hwnd
, DWL_MSGRESULT
);
340 /***********************************************************************
343 * Get the DIALOGINFO structure of a window, allocating it if needed
344 * and 'create' is TRUE.
346 DIALOGINFO
*DIALOG_get_info( HWND hwnd
, BOOL create
)
349 DIALOGINFO
* dlgInfo
= (DIALOGINFO
*)GetWindowLongW( hwnd
, DWL_WINE_DIALOGINFO
);
351 if(!dlgInfo
&& create
)
353 if (!(dlgInfo
= HeapAlloc( GetProcessHeap(), 0, sizeof(*dlgInfo
) ))) return NULL
;
354 dlgInfo
->hwndFocus
= 0;
355 dlgInfo
->hUserFont
= 0;
357 dlgInfo
->xBaseUnit
= 0;
358 dlgInfo
->yBaseUnit
= 0;
359 dlgInfo
->idResult
= 0;
361 dlgInfo
->hDialogHeap
= 0;
362 wndPtr
= WIN_GetPtr( hwnd
);
363 if (wndPtr
&& wndPtr
!= WND_OTHER_PROCESS
)
365 wndPtr
->flags
|= WIN_ISDIALOG
;
366 WIN_ReleasePtr( wndPtr
);
367 SetWindowLongW( hwnd
, DWL_WINE_DIALOGINFO
, (LONG
)dlgInfo
);
371 HeapFree( GetProcessHeap(), 0, dlgInfo
);
378 /***********************************************************************
379 * DefDlgProc (USER.308)
381 LRESULT WINAPI
DefDlgProc16( HWND16 hwnd
, UINT16 msg
, WPARAM16 wParam
,
386 HWND hwnd32
= WIN_Handle32( hwnd
);
389 /* Perform DIALOGINFO intialization if not done */
390 if(!(dlgInfo
= DIALOG_get_info(hwnd32
, TRUE
))) return -1;
392 SetWindowLongW( hwnd32
, DWL_MSGRESULT
, 0 );
394 if ((dlgproc
= (WNDPROC16
)DEFDLG_GetDlgProc( hwnd32
)))
396 /* Call dialog procedure */
397 result
= CallWindowProc16( dlgproc
, hwnd
, msg
, wParam
, lParam
);
398 /* 16 bit dlg procs only return BOOL16 */
399 if( WINPROC_GetProcType( (WNDPROC
)dlgproc
) == WIN_PROC_16
)
400 result
= LOWORD(result
);
403 if (!result
&& IsWindow(hwnd32
))
405 /* callback didn't process this message */
419 case WM_ENTERMENULOOP
:
421 case WM_NCLBUTTONDOWN
:
422 return DEFDLG_Proc( hwnd32
, msg
, (WPARAM
)wParam
, lParam
, dlgInfo
);
430 return DefWindowProc16( hwnd
, msg
, wParam
, lParam
);
433 return DEFDLG_Epilog( hwnd32
, msg
, result
);
437 /***********************************************************************
438 * DefDlgProcA (USER32.@)
440 LRESULT WINAPI
DefDlgProcA( HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
446 /* Perform DIALOGINFO initialization if not done */
447 if(!(dlgInfo
= DIALOG_get_info( hwnd
, TRUE
))) return -1;
449 SetWindowLongW( hwnd
, DWL_MSGRESULT
, 0 );
451 if ((dlgproc
= DEFDLG_GetDlgProc( hwnd
)))
453 /* Call dialog procedure */
454 result
= CallWindowProcA( dlgproc
, hwnd
, msg
, wParam
, lParam
);
455 /* 16 bit dlg procs only return BOOL16 */
456 if( WINPROC_GetProcType( dlgproc
) == WIN_PROC_16
)
457 result
= LOWORD(result
);
460 if (!result
&& IsWindow(hwnd
))
462 /* callback didn't process this message */
476 case WM_ENTERMENULOOP
:
478 case WM_NCLBUTTONDOWN
:
479 return DEFDLG_Proc( hwnd
, msg
, wParam
, lParam
, dlgInfo
);
487 return DefWindowProcA( hwnd
, msg
, wParam
, lParam
);
490 return DEFDLG_Epilog(hwnd
, msg
, result
);
494 /***********************************************************************
495 * DefDlgProcW (USER32.@)
497 LRESULT WINAPI
DefDlgProcW( HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
503 /* Perform DIALOGINFO intialization if not done */
504 if(!(dlgInfo
= DIALOG_get_info( hwnd
, TRUE
))) return -1;
506 SetWindowLongW( hwnd
, DWL_MSGRESULT
, 0 );
508 if ((dlgproc
= DEFDLG_GetDlgProc( hwnd
)))
510 /* Call dialog procedure */
511 result
= CallWindowProcW( dlgproc
, hwnd
, msg
, wParam
, lParam
);
512 /* 16 bit dlg procs only return BOOL16 */
513 if( WINPROC_GetProcType( dlgproc
) == WIN_PROC_16
)
514 result
= LOWORD(result
);
517 if (!result
&& IsWindow(hwnd
))
519 /* callback didn't process this message */
533 case WM_ENTERMENULOOP
:
535 case WM_NCLBUTTONDOWN
:
536 return DEFDLG_Proc( hwnd
, msg
, wParam
, lParam
, dlgInfo
);
544 return DefWindowProcW( hwnd
, msg
, wParam
, lParam
);
547 return DEFDLG_Epilog(hwnd
, msg
, result
);