4 * Copyright 1993, 1994, 1996 Alexandre Julliard
20 #include "wine/winuser16.h"
21 #include "wine/winbase16.h"
22 #include "wine/unicode.h"
23 #include "wine/port.h"
28 #include "debugtools.h"
30 DEFAULT_DEBUG_CHANNEL(dialog
);
33 /* Dialog control information */
70 /* Radio button group */
78 /* Dialog base units */
79 static WORD xBaseUnit
= 0, yBaseUnit
= 0;
82 /*********************************************************************
83 * dialog class descriptor
85 const struct builtin_class_descr DIALOG_builtin_class
=
87 DIALOG_CLASS_ATOM
, /* name */
88 CS_GLOBALCLASS
| CS_SAVEBITS
, /* style */
89 DefDlgProcA
, /* procA */
90 DefDlgProcW
, /* procW */
91 DLGWINDOWEXTRA
, /* extra */
92 IDC_ARROWA
, /* cursor */
97 /***********************************************************************
100 * Helper function for modal dialogs to enable again the
101 * owner of the dialog box.
103 void DIALOG_EnableOwner( HWND hOwner
)
105 /* Owner must be a top-level window */
107 hOwner
= GetAncestor( hOwner
, GA_ROOT
);
109 EnableWindow( hOwner
, TRUE
);
113 /***********************************************************************
114 * DIALOG_DisableOwner
116 * Helper function for modal dialogs to disable the
117 * owner of the dialog box. Returns TRUE if owner was enabled.
119 BOOL
DIALOG_DisableOwner( HWND hOwner
)
121 /* Owner must be a top-level window */
123 hOwner
= GetAncestor( hOwner
, GA_ROOT
);
124 if (!hOwner
) return FALSE
;
125 if (IsWindowEnabled( hOwner
))
127 EnableWindow( hOwner
, FALSE
);
134 /***********************************************************************
135 * DIALOG_GetCharSizeFromDC
138 * Calculates the *true* average size of English characters in the
139 * specified font as oppposed to the one returned by GetTextMetrics.
141 * Latest: the X font driver will now compute a proper average width
142 * so this code can be removed
144 static BOOL
DIALOG_GetCharSizeFromDC( HDC hDC
, HFONT hFont
, SIZE
* pSize
)
146 BOOL Success
= FALSE
;
148 pSize
->cx
= xBaseUnit
;
149 pSize
->cy
= yBaseUnit
;
152 /* select the font */
154 memset(&tm
,0,sizeof(tm
));
155 if (hFont
) hFontPrev
= SelectFont(hDC
,hFont
);
156 if (GetTextMetricsA(hDC
,&tm
))
158 pSize
->cx
= tm
.tmAveCharWidth
;
159 pSize
->cy
= tm
.tmHeight
;
161 /* if variable width font */
162 if (tm
.tmPitchAndFamily
& TMPF_FIXED_PITCH
)
165 const char* szAvgChars
= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
167 /* Calculate a true average as opposed to the one returned
168 * by tmAveCharWidth. This works better when dealing with
169 * proportional spaced fonts and (more important) that's
170 * how Microsoft's dialog creation code calculates the size
173 if (GetTextExtentPointA(hDC
,szAvgChars
,sizeof(szAvgChars
),&total
))
176 pSize
->cx
= ((2*total
.cx
/sizeof(szAvgChars
)) + 1)/2;
184 /* Use the text metrics */
185 TRACE("Using tm: %ldx%ld (dlg: %ld x %ld) (%s)\n",
186 tm
.tmAveCharWidth
, tm
.tmHeight
, pSize
->cx
, pSize
->cy
,
187 tm
.tmPitchAndFamily
& TMPF_FIXED_PITCH
? "variable" : "fixed");
188 pSize
->cx
= tm
.tmAveCharWidth
;
189 pSize
->cy
= tm
.tmHeight
;
191 /* select the original font */
192 if (hFontPrev
) SelectFont(hDC
,hFontPrev
);
197 /***********************************************************************
200 * A convenient variant of DIALOG_GetCharSizeFromDC.
202 static BOOL
DIALOG_GetCharSize( HFONT hFont
, SIZE
* pSize
)
205 BOOL Success
= DIALOG_GetCharSizeFromDC( hDC
, hFont
, pSize
);
210 /***********************************************************************
213 * Initialisation of the dialog manager.
215 BOOL
DIALOG_Init(void)
220 /* Calculate the dialog base units */
222 if (!(hdc
= CreateDCA( "DISPLAY", NULL
, NULL
, NULL
)))
224 ERR("Could not create Display DC\n");
228 if (!DIALOG_GetCharSizeFromDC( hdc
, 0, &size
))
231 ERR("Could not initialize base dialog units\n");
239 TRACE("base units = %d,%d\n", xBaseUnit
, yBaseUnit
);
244 /***********************************************************************
245 * DIALOG_GetControl16
247 * Return the class and text of the control pointed to by ptr,
248 * fill the header structure and return a pointer to the next control.
250 static LPCSTR
DIALOG_GetControl16( LPCSTR p
, DLG_CONTROL_INFO
*info
)
252 static char buffer
[10];
255 info
->x
= GET_WORD(p
); p
+= sizeof(WORD
);
256 info
->y
= GET_WORD(p
); p
+= sizeof(WORD
);
257 info
->cx
= GET_WORD(p
); p
+= sizeof(WORD
);
258 info
->cy
= GET_WORD(p
); p
+= sizeof(WORD
);
259 info
->id
= GET_WORD(p
); p
+= sizeof(WORD
);
260 info
->style
= GET_DWORD(p
); p
+= sizeof(DWORD
);
267 case 0x80: strcpy( buffer
, "BUTTON" ); break;
268 case 0x81: strcpy( buffer
, "EDIT" ); break;
269 case 0x82: strcpy( buffer
, "STATIC" ); break;
270 case 0x83: strcpy( buffer
, "LISTBOX" ); break;
271 case 0x84: strcpy( buffer
, "SCROLLBAR" ); break;
272 case 0x85: strcpy( buffer
, "COMBOBOX" ); break;
273 default: buffer
[0] = '\0'; break;
275 info
->className
= buffer
;
284 int_id
= ((BYTE
)*p
== 0xff);
287 /* Integer id, not documented (?). Only works for SS_ICON controls */
288 info
->windowName
= (LPCSTR
)(UINT
)GET_WORD(p
+1);
293 info
->windowName
= p
;
299 /* Additional CTLDATA available for this control. */
300 info
->data
= SEGPTR_ALLOC(*p
);
301 memcpy( info
->data
, p
+ 1, *p
);
303 else info
->data
= NULL
;
308 TRACE(" %s %04x %d, %d, %d, %d, %d, %08lx, %08lx\n",
309 info
->className
, LOWORD(info
->windowName
),
310 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
311 info
->style
, (DWORD
)SEGPTR_GET(info
->data
) );
313 TRACE(" %s '%s' %d, %d, %d, %d, %d, %08lx, %08lx\n",
314 info
->className
, info
->windowName
,
315 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
316 info
->style
, (DWORD
)SEGPTR_GET(info
->data
) );
322 /***********************************************************************
323 * DIALOG_GetControl32
325 * Return the class and text of the control pointed to by ptr,
326 * fill the header structure and return a pointer to the next control.
328 static const WORD
*DIALOG_GetControl32( const WORD
*p
, DLG_CONTROL_INFO
*info
,
333 info
->helpId
= GET_DWORD(p
); p
+= 2;
334 info
->exStyle
= GET_DWORD(p
); p
+= 2;
335 info
->style
= GET_DWORD(p
); p
+= 2;
340 info
->style
= GET_DWORD(p
); p
+= 2;
341 info
->exStyle
= GET_DWORD(p
); p
+= 2;
343 info
->x
= GET_WORD(p
); p
++;
344 info
->y
= GET_WORD(p
); p
++;
345 info
->cx
= GET_WORD(p
); p
++;
346 info
->cy
= GET_WORD(p
); p
++;
350 /* id is a DWORD for DIALOGEX */
351 info
->id
= GET_DWORD(p
);
356 info
->id
= GET_WORD(p
);
360 if (GET_WORD(p
) == 0xffff)
362 static const WCHAR class_names
[6][10] =
364 { 'B','u','t','t','o','n', }, /* 0x80 */
365 { 'E','d','i','t', }, /* 0x81 */
366 { 'S','t','a','t','i','c', }, /* 0x82 */
367 { 'L','i','s','t','B','o','x', }, /* 0x83 */
368 { 'S','c','r','o','l','l','B','a','r', }, /* 0x84 */
369 { 'C','o','m','b','o','B','o','x', } /* 0x85 */
371 WORD id
= GET_WORD(p
+1);
372 if ((id
>= 0x80) && (id
<= 0x85))
373 info
->className
= (LPCSTR
)class_names
[id
- 0x80];
376 info
->className
= NULL
;
377 ERR("Unknown built-in class id %04x\n", id
);
383 info
->className
= (LPCSTR
)p
;
384 p
+= strlenW( (LPCWSTR
)p
) + 1;
387 if (GET_WORD(p
) == 0xffff) /* Is it an integer id? */
389 info
->windowName
= (LPCSTR
)(UINT
)GET_WORD(p
+ 1);
394 info
->windowName
= (LPCSTR
)p
;
395 p
+= strlenW( (LPCWSTR
)p
) + 1;
398 TRACE(" %s %s %d, %d, %d, %d, %d, %08lx, %08lx, %08lx\n",
399 debugstr_w( (LPCWSTR
)info
->className
),
400 debugres_w( (LPCWSTR
)info
->windowName
),
401 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
402 info
->style
, info
->exStyle
, info
->helpId
);
406 if (TRACE_ON(dialog
))
408 WORD i
, count
= GET_WORD(p
) / sizeof(WORD
);
411 for (i
= 0; i
< count
; i
++) DPRINTF( "%04x,", GET_WORD(p
+i
+1) );
415 info
->data
= (LPVOID
)(p
+ 1);
416 p
+= GET_WORD(p
) / sizeof(WORD
);
418 else info
->data
= NULL
;
421 /* Next control is on dword boundary */
422 return (const WORD
*)((((int)p
) + 3) & ~3);
426 /***********************************************************************
427 * DIALOG_CreateControls
429 * Create the control windows for a dialog.
431 static BOOL
DIALOG_CreateControls( HWND hwnd
, LPCSTR
template, const DLG_TEMPLATE
*dlgTemplate
,
432 HINSTANCE hInst
, BOOL win32
)
434 DIALOGINFO
*dlgInfo
= DIALOG_get_info( hwnd
);
435 DLG_CONTROL_INFO info
;
436 HWND hwndCtrl
, hwndDefButton
= 0;
437 INT items
= dlgTemplate
->nbItems
;
444 HINSTANCE16 instance
;
445 template = DIALOG_GetControl16( template, &info
);
446 if (HIWORD(info
.className
) && !strcmp( info
.className
, "EDIT") &&
447 !(GetWindowLongW( hwnd
, GWL_STYLE
) & DS_LOCALEDIT
))
449 if (!dlgInfo
->hDialogHeap
)
451 dlgInfo
->hDialogHeap
= GlobalAlloc16(GMEM_FIXED
, 0x10000);
452 if (!dlgInfo
->hDialogHeap
)
454 ERR("Insufficient memory to create heap for edit control\n" );
457 LocalInit16(dlgInfo
->hDialogHeap
, 0, 0xffff);
459 instance
= dlgInfo
->hDialogHeap
;
461 else instance
= (HINSTANCE16
)hInst
;
463 hwndCtrl
= WIN_Handle32( CreateWindowEx16( info
.exStyle
| WS_EX_NOPARENTNOTIFY
,
464 info
.className
, info
.windowName
,
465 info
.style
| WS_CHILD
,
466 MulDiv(info
.x
, dlgInfo
->xBaseUnit
, 4),
467 MulDiv(info
.y
, dlgInfo
->yBaseUnit
, 8),
468 MulDiv(info
.cx
, dlgInfo
->xBaseUnit
, 4),
469 MulDiv(info
.cy
, dlgInfo
->yBaseUnit
, 8),
470 WIN_Handle16(hwnd
), (HMENU16
)info
.id
,
471 instance
, (LPVOID
)SEGPTR_GET(info
.data
) ));
473 if (info
.data
) SEGPTR_FREE(info
.data
);
477 template = (LPCSTR
)DIALOG_GetControl32( (WORD
*)template, &info
,
478 dlgTemplate
->dialogEx
);
480 if (info
.style
& WS_BORDER
)
482 info
.style
&= ~WS_BORDER
;
483 info
.exStyle
|= WS_EX_CLIENTEDGE
;
485 hwndCtrl
= CreateWindowExW( info
.exStyle
| WS_EX_NOPARENTNOTIFY
,
486 (LPCWSTR
)info
.className
,
487 (LPCWSTR
)info
.windowName
,
488 info
.style
| WS_CHILD
,
489 MulDiv(info
.x
, dlgInfo
->xBaseUnit
, 4),
490 MulDiv(info
.y
, dlgInfo
->yBaseUnit
, 8),
491 MulDiv(info
.cx
, dlgInfo
->xBaseUnit
, 4),
492 MulDiv(info
.cy
, dlgInfo
->yBaseUnit
, 8),
493 hwnd
, (HMENU
)info
.id
,
496 if (!hwndCtrl
) return FALSE
;
498 /* Send initialisation messages to the control */
499 if (dlgInfo
->hUserFont
) SendMessageA( hwndCtrl
, WM_SETFONT
,
500 (WPARAM
)dlgInfo
->hUserFont
, 0 );
501 if (SendMessageA(hwndCtrl
, WM_GETDLGCODE
, 0, 0) & DLGC_DEFPUSHBUTTON
)
503 /* If there's already a default push-button, set it back */
504 /* to normal and use this one instead. */
506 SendMessageA( hwndDefButton
, BM_SETSTYLE
,
507 BS_PUSHBUTTON
,FALSE
);
508 hwndDefButton
= hwndCtrl
;
509 dlgInfo
->idResult
= GetWindowLongA( hwndCtrl
, GWL_ID
);
517 /***********************************************************************
518 * DIALOG_ParseTemplate16
520 * Fill a DLG_TEMPLATE structure from the dialog template, and return
521 * a pointer to the first control.
523 static LPCSTR
DIALOG_ParseTemplate16( LPCSTR p
, DLG_TEMPLATE
* result
)
525 result
->style
= GET_DWORD(p
); p
+= sizeof(DWORD
);
527 result
->nbItems
= (unsigned char) *p
++;
528 result
->x
= GET_WORD(p
); p
+= sizeof(WORD
);
529 result
->y
= GET_WORD(p
); p
+= sizeof(WORD
);
530 result
->cx
= GET_WORD(p
); p
+= sizeof(WORD
);
531 result
->cy
= GET_WORD(p
); p
+= sizeof(WORD
);
532 TRACE("DIALOG %d, %d, %d, %d\n",
533 result
->x
, result
->y
, result
->cx
, result
->cy
);
534 TRACE(" STYLE %08lx\n", result
->style
);
536 /* Get the menu name */
541 result
->menuName
= 0;
545 result
->menuName
= (LPCSTR
)(UINT
)GET_WORD( p
+ 1 );
547 TRACE(" MENU %04x\n", LOWORD(result
->menuName
) );
550 result
->menuName
= p
;
551 TRACE(" MENU '%s'\n", p
);
556 /* Get the class name */
560 result
->className
= p
;
561 TRACE(" CLASS '%s'\n", result
->className
);
563 else result
->className
= DIALOG_CLASS_ATOM
;
566 /* Get the window caption */
570 TRACE(" CAPTION '%s'\n", result
->caption
);
572 /* Get the font name */
574 if (result
->style
& DS_SETFONT
)
576 result
->pointSize
= GET_WORD(p
);
578 result
->faceName
= p
;
580 TRACE(" FONT %d,'%s'\n",
581 result
->pointSize
, result
->faceName
);
587 /***********************************************************************
588 * DIALOG_ParseTemplate32
590 * Fill a DLG_TEMPLATE structure from the dialog template, and return
591 * a pointer to the first control.
593 static LPCSTR
DIALOG_ParseTemplate32( LPCSTR
template, DLG_TEMPLATE
* result
)
595 const WORD
*p
= (const WORD
*)template;
597 result
->style
= GET_DWORD(p
); p
+= 2;
598 if (result
->style
== 0xffff0001) /* DIALOGEX resource */
600 result
->dialogEx
= TRUE
;
601 result
->helpId
= GET_DWORD(p
); p
+= 2;
602 result
->exStyle
= GET_DWORD(p
); p
+= 2;
603 result
->style
= GET_DWORD(p
); p
+= 2;
607 result
->dialogEx
= FALSE
;
609 result
->exStyle
= GET_DWORD(p
); p
+= 2;
611 result
->nbItems
= GET_WORD(p
); p
++;
612 result
->x
= GET_WORD(p
); p
++;
613 result
->y
= GET_WORD(p
); p
++;
614 result
->cx
= GET_WORD(p
); p
++;
615 result
->cy
= GET_WORD(p
); p
++;
616 TRACE("DIALOG%s %d, %d, %d, %d, %ld\n",
617 result
->dialogEx
? "EX" : "", result
->x
, result
->y
,
618 result
->cx
, result
->cy
, result
->helpId
);
619 TRACE(" STYLE 0x%08lx\n", result
->style
);
620 TRACE(" EXSTYLE 0x%08lx\n", result
->exStyle
);
622 /* Get the menu name */
627 result
->menuName
= NULL
;
631 result
->menuName
= (LPCSTR
)(UINT
)GET_WORD( p
+ 1 );
633 TRACE(" MENU %04x\n", LOWORD(result
->menuName
) );
636 result
->menuName
= (LPCSTR
)p
;
637 TRACE(" MENU %s\n", debugstr_w( (LPCWSTR
)p
));
638 p
+= strlenW( (LPCWSTR
)p
) + 1;
642 /* Get the class name */
647 result
->className
= DIALOG_CLASS_ATOM
;
651 result
->className
= (LPCSTR
)(UINT
)GET_WORD( p
+ 1 );
653 TRACE(" CLASS %04x\n", LOWORD(result
->className
) );
656 result
->className
= (LPCSTR
)p
;
657 TRACE(" CLASS %s\n", debugstr_w( (LPCWSTR
)p
));
658 p
+= strlenW( (LPCWSTR
)p
) + 1;
662 /* Get the window caption */
664 result
->caption
= (LPCSTR
)p
;
665 p
+= strlenW( (LPCWSTR
)p
) + 1;
666 TRACE(" CAPTION %s\n", debugstr_w( (LPCWSTR
)result
->caption
) );
668 /* Get the font name */
670 if (result
->style
& DS_SETFONT
)
672 result
->pointSize
= GET_WORD(p
);
674 if (result
->dialogEx
)
676 result
->weight
= GET_WORD(p
); p
++;
677 result
->italic
= LOBYTE(GET_WORD(p
)); p
++;
681 result
->weight
= FW_DONTCARE
;
682 result
->italic
= FALSE
;
684 result
->faceName
= (LPCSTR
)p
;
685 p
+= strlenW( (LPCWSTR
)p
) + 1;
686 TRACE(" FONT %d, %s, %d, %s\n",
687 result
->pointSize
, debugstr_w( (LPCWSTR
)result
->faceName
),
688 result
->weight
, result
->italic
? "TRUE" : "FALSE" );
691 /* First control is on dword boundary */
692 return (LPCSTR
)((((int)p
) + 3) & ~3);
696 /***********************************************************************
697 * DIALOG_CreateIndirect
698 * Creates a dialog box window
700 * modal = TRUE if we are called from a modal dialog box.
701 * (it's more compatible to do it here, as under Windows the owner
702 * is never disabled if the dialog fails because of an invalid template)
704 static HWND
DIALOG_CreateIndirect( HINSTANCE hInst
, LPCSTR dlgTemplate
,
705 HWND owner
, DLGPROC dlgProc
, LPARAM param
,
706 WINDOWPROCTYPE procType
, BOOL modal
)
711 DLG_TEMPLATE
template;
712 DIALOGINFO
* dlgInfo
;
713 BOOL ownerEnabled
= TRUE
;
714 BOOL win32Template
= (procType
!= WIN_PROC_16
);
716 /* Parse dialog template */
718 if (!dlgTemplate
) return 0;
720 dlgTemplate
= DIALOG_ParseTemplate32( dlgTemplate
, &template );
722 dlgTemplate
= DIALOG_ParseTemplate16( dlgTemplate
, &template );
724 /* Initialise dialog extra data */
726 if (!(dlgInfo
= HeapAlloc( GetProcessHeap(), 0, sizeof(*dlgInfo
) ))) return 0;
727 dlgInfo
->hwndFocus
= 0;
728 dlgInfo
->hUserFont
= 0;
730 dlgInfo
->xBaseUnit
= xBaseUnit
;
731 dlgInfo
->yBaseUnit
= yBaseUnit
;
732 dlgInfo
->idResult
= 0;
734 dlgInfo
->hDialogHeap
= 0;
738 if (template.menuName
)
740 if (!win32Template
) dlgInfo
->hMenu
= LoadMenu16( hInst
, template.menuName
);
741 else dlgInfo
->hMenu
= LoadMenuW( hInst
, (LPCWSTR
)template.menuName
);
744 /* Create custom font if needed */
746 if (template.style
& DS_SETFONT
)
748 /* The font height must be negative as it is a point size */
749 /* and must be converted to pixels first */
750 /* (see CreateFont() documentation in the Windows SDK). */
753 if (((short)template.pointSize
) < 0)
754 pixels
= -((short)template.pointSize
);
758 pixels
= template.pointSize
* GetDeviceCaps(dc
, LOGPIXELSY
)/72;
762 dlgInfo
->hUserFont
= CreateFontW( -pixels
, 0, 0, 0, template.weight
,
763 template.italic
, FALSE
, FALSE
, DEFAULT_CHARSET
, 0, 0,
764 PROOF_QUALITY
, FF_DONTCARE
,
765 (LPCWSTR
)template.faceName
);
767 dlgInfo
->hUserFont
= CreateFontA( -pixels
, 0, 0, 0, FW_DONTCARE
,
768 FALSE
, FALSE
, FALSE
, DEFAULT_CHARSET
, 0, 0,
769 PROOF_QUALITY
, FF_DONTCARE
, template.faceName
);
770 if (dlgInfo
->hUserFont
)
773 if (DIALOG_GetCharSize( dlgInfo
->hUserFont
, &charSize
))
775 dlgInfo
->xBaseUnit
= charSize
.cx
;
776 dlgInfo
->yBaseUnit
= charSize
.cy
;
779 TRACE("units = %d,%d\n", dlgInfo
->xBaseUnit
, dlgInfo
->yBaseUnit
);
782 /* Create dialog main window */
784 rect
.left
= rect
.top
= 0;
785 rect
.right
= MulDiv(template.cx
, dlgInfo
->xBaseUnit
, 4);
786 rect
.bottom
= MulDiv(template.cy
, dlgInfo
->yBaseUnit
, 8);
787 if (template.style
& DS_MODALFRAME
)
788 template.exStyle
|= WS_EX_DLGMODALFRAME
;
789 AdjustWindowRectEx( &rect
, template.style
, (dlgInfo
->hMenu
!= 0), template.exStyle
);
790 rect
.right
-= rect
.left
;
791 rect
.bottom
-= rect
.top
;
793 if ((INT16
)template.x
== CW_USEDEFAULT16
)
795 rect
.left
= rect
.top
= win32Template
? CW_USEDEFAULT
: CW_USEDEFAULT16
;
799 if (template.style
& DS_CENTER
)
801 rect
.left
= (GetSystemMetrics(SM_CXSCREEN
) - rect
.right
) / 2;
802 rect
.top
= (GetSystemMetrics(SM_CYSCREEN
) - rect
.bottom
) / 2;
806 rect
.left
+= MulDiv(template.x
, dlgInfo
->xBaseUnit
, 4);
807 rect
.top
+= MulDiv(template.y
, dlgInfo
->yBaseUnit
, 8);
809 if ( !(template.style
& WS_CHILD
) )
813 if( !(template.style
& DS_ABSALIGN
) )
814 ClientToScreen( owner
, (POINT
*)&rect
);
816 /* try to fit it into the desktop */
818 if( (dX
= rect
.left
+ rect
.right
+ GetSystemMetrics(SM_CXDLGFRAME
)
819 - GetSystemMetrics(SM_CXSCREEN
)) > 0 ) rect
.left
-= dX
;
820 if( (dY
= rect
.top
+ rect
.bottom
+ GetSystemMetrics(SM_CYDLGFRAME
)
821 - GetSystemMetrics(SM_CYSCREEN
)) > 0 ) rect
.top
-= dY
;
822 if( rect
.left
< 0 ) rect
.left
= 0;
823 if( rect
.top
< 0 ) rect
.top
= 0;
829 ownerEnabled
= DIALOG_DisableOwner( owner
);
830 if (ownerEnabled
) dlgInfo
->flags
|= DF_OWNERENABLED
;
834 hwnd
= WIN_Handle32( CreateWindowEx16(template.exStyle
, template.className
,
835 template.caption
, template.style
& ~WS_VISIBLE
,
836 rect
.left
, rect
.top
, rect
.right
, rect
.bottom
,
837 WIN_Handle16(owner
), dlgInfo
->hMenu
, hInst
, NULL
));
839 hwnd
= CreateWindowExW(template.exStyle
, (LPCWSTR
)template.className
,
840 (LPCWSTR
)template.caption
,
841 template.style
& ~WS_VISIBLE
,
842 rect
.left
, rect
.top
, rect
.right
, rect
.bottom
,
843 owner
, dlgInfo
->hMenu
, hInst
, NULL
);
847 if (dlgInfo
->hUserFont
) DeleteObject( dlgInfo
->hUserFont
);
848 if (dlgInfo
->hMenu
) DestroyMenu( dlgInfo
->hMenu
);
849 if (modal
&& (dlgInfo
->flags
& DF_OWNERENABLED
)) DIALOG_EnableOwner(owner
);
850 HeapFree( GetProcessHeap(), 0, dlgInfo
);
853 wndPtr
= WIN_FindWndPtr( hwnd
);
854 wndPtr
->flags
|= WIN_ISDIALOG
;
855 WIN_ReleaseWndPtr(wndPtr
);
857 if (template.helpId
) SetWindowContextHelpId( hwnd
, template.helpId
);
858 SetWindowLongW( hwnd
, DWL_WINE_DIALOGINFO
, (LONG
)dlgInfo
);
861 case WIN_PROC_16
: SetWindowLong16( WIN_Handle16(hwnd
), DWL_DLGPROC
, (LONG
)dlgProc
); break;
862 case WIN_PROC_32A
: SetWindowLongA( hwnd
, DWL_DLGPROC
, (LONG
)dlgProc
); break;
863 case WIN_PROC_32W
: SetWindowLongW( hwnd
, DWL_DLGPROC
, (LONG
)dlgProc
); break;
867 if (dlgInfo
->hUserFont
)
868 SendMessageA( hwnd
, WM_SETFONT
, (WPARAM
)dlgInfo
->hUserFont
, 0 );
870 /* Create controls */
872 if (DIALOG_CreateControls( hwnd
, dlgTemplate
, &template,
873 hInst
, win32Template
))
875 HWND hwndPreInitFocus
;
877 /* Send initialisation messages and set focus */
879 dlgInfo
->hwndFocus
= GetNextDlgTabItem( hwnd
, 0, FALSE
);
881 hwndPreInitFocus
= GetFocus();
882 if (SendMessageA( hwnd
, WM_INITDIALOG
, (WPARAM
)dlgInfo
->hwndFocus
, param
))
884 /* check where the focus is again,
885 * some controls status might have changed in WM_INITDIALOG */
886 dlgInfo
->hwndFocus
= GetNextDlgTabItem( hwnd
, 0, FALSE
);
887 SetFocus( dlgInfo
->hwndFocus
);
891 /* If the dlgproc has returned FALSE (indicating handling of keyboard focus)
892 but the focus has not changed, set the focus where we expect it. */
893 if ((GetFocus() == hwndPreInitFocus
) &&
894 (GetWindowLongW( hwnd
, GWL_STYLE
) & WS_VISIBLE
))
896 dlgInfo
->hwndFocus
= GetNextDlgTabItem( hwnd
, 0, FALSE
);
897 SetFocus( dlgInfo
->hwndFocus
);
901 if (template.style
& WS_VISIBLE
&& !(GetWindowLongW( hwnd
, GWL_STYLE
) & WS_VISIBLE
))
903 ShowWindow( hwnd
, SW_SHOWNORMAL
); /* SW_SHOW doesn't always work */
907 if( IsWindow(hwnd
) ) DestroyWindow( hwnd
);
908 if (modal
&& ownerEnabled
) DIALOG_EnableOwner(owner
);
913 /***********************************************************************
914 * CreateDialog (USER.89)
916 HWND16 WINAPI
CreateDialog16( HINSTANCE16 hInst
, LPCSTR dlgTemplate
,
917 HWND16 owner
, DLGPROC16 dlgProc
)
919 return CreateDialogParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
923 /***********************************************************************
924 * CreateDialogParam (USER.241)
926 HWND16 WINAPI
CreateDialogParam16( HINSTANCE16 hInst
, LPCSTR dlgTemplate
,
927 HWND16 owner
, DLGPROC16 dlgProc
,
935 TRACE("%04x,%s,%04x,%08lx,%ld\n",
936 hInst
, debugres_a(dlgTemplate
), owner
, (DWORD
)dlgProc
, param
);
938 if (!(hRsrc
= FindResource16( hInst
, dlgTemplate
, RT_DIALOGA
))) return 0;
939 if (!(hmem
= LoadResource16( hInst
, hRsrc
))) return 0;
940 if (!(data
= LockResource16( hmem
))) hwnd
= 0;
941 else hwnd
= CreateDialogIndirectParam16( hInst
, data
, owner
,
943 FreeResource16( hmem
);
947 /***********************************************************************
948 * CreateDialogParamA (USER32.@)
950 HWND WINAPI
CreateDialogParamA( HINSTANCE hInst
, LPCSTR name
,
951 HWND owner
, DLGPROC dlgProc
,
954 HANDLE hrsrc
= FindResourceA( hInst
, name
, RT_DIALOGA
);
955 if (!hrsrc
) return 0;
956 return CreateDialogIndirectParamA( hInst
,
957 (LPVOID
)LoadResource(hInst
, hrsrc
),
958 owner
, dlgProc
, param
);
962 /***********************************************************************
963 * CreateDialogParamW (USER32.@)
965 HWND WINAPI
CreateDialogParamW( HINSTANCE hInst
, LPCWSTR name
,
966 HWND owner
, DLGPROC dlgProc
,
969 HANDLE hrsrc
= FindResourceW( hInst
, name
, RT_DIALOGW
);
970 if (!hrsrc
) return 0;
971 return CreateDialogIndirectParamW( hInst
,
972 (LPVOID
)LoadResource(hInst
, hrsrc
),
973 owner
, dlgProc
, param
);
977 /***********************************************************************
978 * CreateDialogIndirect (USER.219)
980 HWND16 WINAPI
CreateDialogIndirect16( HINSTANCE16 hInst
, LPCVOID dlgTemplate
,
981 HWND16 owner
, DLGPROC16 dlgProc
)
983 return CreateDialogIndirectParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0);
987 /***********************************************************************
988 * CreateDialogIndirectParam (USER.242)
989 * CreateDialogIndirectParam16 (USER32.@)
991 HWND16 WINAPI
CreateDialogIndirectParam16( HINSTANCE16 hInst
,
993 HWND16 owner
, DLGPROC16 dlgProc
,
996 return WIN_Handle16( DIALOG_CreateIndirect( hInst
, dlgTemplate
, WIN_Handle32(owner
),
997 (DLGPROC
)dlgProc
, param
, WIN_PROC_16
, FALSE
));
1001 /***********************************************************************
1002 * CreateDialogIndirectParamA (USER32.@)
1004 HWND WINAPI
CreateDialogIndirectParamA( HINSTANCE hInst
,
1005 LPCVOID dlgTemplate
,
1006 HWND owner
, DLGPROC dlgProc
,
1009 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, owner
, dlgProc
, param
, WIN_PROC_32A
, FALSE
);
1012 /***********************************************************************
1013 * CreateDialogIndirectParamAorW (USER32.@)
1015 HWND WINAPI
CreateDialogIndirectParamAorW( HINSTANCE hInst
,
1016 LPCVOID dlgTemplate
,
1017 HWND owner
, DLGPROC dlgProc
,
1019 { FIXME("assume WIN_PROC_32W\n");
1020 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, owner
, dlgProc
, param
, WIN_PROC_32W
, FALSE
);
1023 /***********************************************************************
1024 * CreateDialogIndirectParamW (USER32.@)
1026 HWND WINAPI
CreateDialogIndirectParamW( HINSTANCE hInst
,
1027 LPCVOID dlgTemplate
,
1028 HWND owner
, DLGPROC dlgProc
,
1031 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, owner
, dlgProc
, param
, WIN_PROC_32W
, FALSE
);
1035 /***********************************************************************
1036 * DIALOG_DoDialogBox
1038 static INT
DIALOG_DoDialogBox( HWND hwnd
, HWND owner
)
1040 DIALOGINFO
* dlgInfo
;
1043 HWND ownerMsg
= GetAncestor( owner
, GA_ROOT
);
1045 if (!(dlgInfo
= DIALOG_get_info( hwnd
))) return -1;
1047 if (!(dlgInfo
->flags
& DF_END
)) /* was EndDialog called in WM_INITDIALOG ? */
1049 ShowWindow( hwnd
, SW_SHOW
);
1052 if (!(GetWindowLongW( hwnd
, GWL_STYLE
) & DS_NOIDLEMSG
))
1054 if (!PeekMessageW( &msg
, 0, 0, 0, PM_REMOVE
))
1056 /* No message present -> send ENTERIDLE and wait */
1057 SendMessageW( ownerMsg
, WM_ENTERIDLE
, MSGF_DIALOGBOX
, (LPARAM
)hwnd
);
1058 if (!GetMessageW( &msg
, 0, 0, 0 )) break;
1061 else if (!GetMessageW( &msg
, 0, 0, 0 )) break;
1063 if (CallMsgFilterW( &msg
, MSGF_DIALOGBOX
)) continue;
1065 if (!IsWindow( hwnd
)) return -1;
1066 if (!(dlgInfo
->flags
& DF_END
) && !IsDialogMessageW( hwnd
, &msg
))
1068 TranslateMessage( &msg
);
1069 DispatchMessageW( &msg
);
1071 if (dlgInfo
->flags
& DF_END
) break;
1074 if (dlgInfo
->flags
& DF_OWNERENABLED
) DIALOG_EnableOwner( owner
);
1075 retval
= dlgInfo
->idResult
;
1076 DestroyWindow( hwnd
);
1081 /***********************************************************************
1082 * DialogBox (USER.87)
1084 INT16 WINAPI
DialogBox16( HINSTANCE16 hInst
, LPCSTR dlgTemplate
,
1085 HWND16 owner
, DLGPROC16 dlgProc
)
1087 return DialogBoxParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
1091 /***********************************************************************
1092 * DialogBoxParam (USER.239)
1094 INT16 WINAPI
DialogBoxParam16( HINSTANCE16 hInst
, LPCSTR
template,
1095 HWND16 owner16
, DLGPROC16 dlgProc
, LPARAM param
)
1103 if (!(hRsrc
= FindResource16( hInst
, template, RT_DIALOGA
))) return 0;
1104 if (!(hmem
= LoadResource16( hInst
, hRsrc
))) return 0;
1105 if ((data
= LockResource16( hmem
)))
1107 HWND owner
= WIN_Handle32(owner16
);
1108 hwnd
= DIALOG_CreateIndirect( hInst
, data
, owner
,
1109 (DLGPROC
)dlgProc
, param
, WIN_PROC_16
, TRUE
);
1110 if (hwnd
) ret
= DIALOG_DoDialogBox( hwnd
, owner
);
1111 GlobalUnlock16( hmem
);
1113 FreeResource16( hmem
);
1118 /***********************************************************************
1119 * DialogBoxParamA (USER32.@)
1121 INT WINAPI
DialogBoxParamA( HINSTANCE hInst
, LPCSTR name
,
1122 HWND owner
, DLGPROC dlgProc
, LPARAM param
)
1125 HANDLE hrsrc
= FindResourceA( hInst
, name
, RT_DIALOGA
);
1126 if (!hrsrc
) return 0;
1127 hwnd
= DIALOG_CreateIndirect( hInst
, (LPVOID
)LoadResource(hInst
, hrsrc
),
1128 owner
, dlgProc
, param
, WIN_PROC_32A
, TRUE
);
1129 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1134 /***********************************************************************
1135 * DialogBoxParamW (USER32.@)
1137 INT WINAPI
DialogBoxParamW( HINSTANCE hInst
, LPCWSTR name
,
1138 HWND owner
, DLGPROC dlgProc
, LPARAM param
)
1141 HANDLE hrsrc
= FindResourceW( hInst
, name
, RT_DIALOGW
);
1142 if (!hrsrc
) return 0;
1143 hwnd
= DIALOG_CreateIndirect( hInst
, (LPVOID
)LoadResource(hInst
, hrsrc
),
1144 owner
, dlgProc
, param
, WIN_PROC_32W
, TRUE
);
1145 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1150 /***********************************************************************
1151 * DialogBoxIndirect (USER.218)
1153 INT16 WINAPI
DialogBoxIndirect16( HINSTANCE16 hInst
, HANDLE16 dlgTemplate
,
1154 HWND16 owner
, DLGPROC16 dlgProc
)
1156 return DialogBoxIndirectParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
1160 /***********************************************************************
1161 * DialogBoxIndirectParam (USER.240)
1162 * DialogBoxIndirectParam16 (USER32.@)
1164 INT16 WINAPI
DialogBoxIndirectParam16( HINSTANCE16 hInst
, HANDLE16 dlgTemplate
,
1165 HWND16 owner16
, DLGPROC16 dlgProc
,
1168 HWND hwnd
, owner
= WIN_Handle32( owner16
);
1171 if (!(ptr
= GlobalLock16( dlgTemplate
))) return -1;
1172 hwnd
= DIALOG_CreateIndirect( hInst
, ptr
, owner
, (DLGPROC
)dlgProc
,
1173 param
, WIN_PROC_16
, TRUE
);
1174 GlobalUnlock16( dlgTemplate
);
1175 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1180 /***********************************************************************
1181 * DialogBoxIndirectParamA (USER32.@)
1183 INT WINAPI
DialogBoxIndirectParamA(HINSTANCE hInstance
, LPCVOID
template,
1184 HWND owner
, DLGPROC dlgProc
,
1187 HWND hwnd
= DIALOG_CreateIndirect( hInstance
, template, owner
,
1188 dlgProc
, param
, WIN_PROC_32A
, TRUE
);
1189 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1194 /***********************************************************************
1195 * DialogBoxIndirectParamW (USER32.@)
1197 INT WINAPI
DialogBoxIndirectParamW(HINSTANCE hInstance
, LPCVOID
template,
1198 HWND owner
, DLGPROC dlgProc
,
1201 HWND hwnd
= DIALOG_CreateIndirect( hInstance
, template, owner
,
1202 dlgProc
, param
, WIN_PROC_32W
, TRUE
);
1203 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1207 /***********************************************************************
1208 * DialogBoxIndirectParamAorW (USER32.@)
1210 INT WINAPI
DialogBoxIndirectParamAorW(HINSTANCE hInstance
, LPCVOID
template,
1211 HWND owner
, DLGPROC dlgProc
,
1212 LPARAM param
, DWORD x
)
1215 FIXME("0x%08x %p 0x%08x %p 0x%08lx 0x%08lx\n",
1216 hInstance
, template, owner
, dlgProc
, param
, x
);
1217 hwnd
= DIALOG_CreateIndirect( hInstance
, template, owner
, dlgProc
, param
, WIN_PROC_32W
, TRUE
);
1218 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1222 /***********************************************************************
1223 * EndDialog (USER32.@)
1225 BOOL WINAPI
EndDialog( HWND hwnd
, INT retval
)
1227 BOOL wasEnabled
= TRUE
;
1228 DIALOGINFO
* dlgInfo
;
1231 TRACE("%04x %d\n", hwnd
, retval
);
1233 if (!(dlgInfo
= DIALOG_get_info( hwnd
)))
1235 ERR("got invalid window handle (%04x); buggy app !?\n", hwnd
);
1238 dlgInfo
->idResult
= retval
;
1239 dlgInfo
->flags
|= DF_END
;
1240 wasEnabled
= (dlgInfo
->flags
& DF_OWNERENABLED
);
1242 if (wasEnabled
&& (owner
= GetWindow( hwnd
, GW_OWNER
)))
1243 DIALOG_EnableOwner( owner
);
1245 /* Windows sets the focus to the dialog itself in EndDialog */
1247 if (IsChild(hwnd
, GetFocus()))
1250 /* Don't have to send a ShowWindow(SW_HIDE), just do
1251 SetWindowPos with SWP_HIDEWINDOW as done in Windows */
1253 SetWindowPos(hwnd
, (HWND
)0, 0, 0, 0, 0, SWP_NOMOVE
| SWP_NOSIZE
1254 | SWP_NOZORDER
| SWP_NOACTIVATE
| SWP_HIDEWINDOW
);
1256 /* unblock dialog loop */
1257 PostMessageA(hwnd
, WM_NULL
, 0, 0);
1262 /***********************************************************************
1263 * DIALOG_IsAccelerator
1265 static BOOL
DIALOG_IsAccelerator( HWND hwnd
, HWND hwndDlg
, WPARAM vKey
)
1267 HWND hwndControl
= hwnd
;
1274 DWORD style
= GetWindowLongW( hwndControl
, GWL_STYLE
);
1275 if ((style
& (WS_VISIBLE
| WS_DISABLED
)) == WS_VISIBLE
)
1277 dlgCode
= SendMessageA( hwndControl
, WM_GETDLGCODE
, 0, 0 );
1278 if ( (dlgCode
& (DLGC_BUTTON
| DLGC_STATIC
)) &&
1279 GetWindowTextW( hwndControl
, buffer
, sizeof(buffer
)/sizeof(WCHAR
) ))
1281 /* find the accelerator key */
1282 LPWSTR p
= buffer
- 2;
1288 p
= strchrW( p
+ 2, '&' );
1290 while (p
!= NULL
&& p
[1] == '&');
1292 /* and check if it's the one we're looking for */
1293 MultiByteToWideChar(CP_ACP
, 0, &a_char
, 1, &w_char
, 1);
1294 if (p
!= NULL
&& toupperW( p
[1] ) == toupperW( w_char
) )
1296 if ((dlgCode
& DLGC_STATIC
) || (style
& 0x0f) == BS_GROUPBOX
)
1298 /* set focus to the control */
1299 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
, (WPARAM
)hwndControl
, 1);
1300 /* and bump it on to next */
1301 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
, 0, 0);
1303 else if (dlgCode
& DLGC_BUTTON
)
1305 /* send BM_CLICK message to the control */
1306 SendMessageA( hwndControl
, BM_CLICK
, 0, 0 );
1311 hwndNext
= GetWindow( hwndControl
, GW_CHILD
);
1315 if (!hwndNext
) hwndNext
= GetWindow( hwndControl
, GW_HWNDNEXT
);
1317 while (!hwndNext
&& hwndControl
)
1319 hwndControl
= GetParent( hwndControl
);
1320 if (hwndControl
== hwndDlg
)
1322 if(hwnd
==hwndDlg
) /* prevent endless loop */
1327 hwndNext
= GetWindow( hwndDlg
, GW_CHILD
);
1330 hwndNext
= GetWindow( hwndControl
, GW_HWNDNEXT
);
1332 hwndControl
= hwndNext
;
1334 while (hwndControl
&& (hwndControl
!= hwnd
));
1339 /***********************************************************************
1340 * DIALOG_FindMsgDestination
1342 * The messages that IsDialogMessage sends may not go to the dialog
1343 * calling IsDialogMessage if that dialog is a child, and it has the
1344 * DS_CONTROL style set.
1345 * We propagate up until we hit one that does not have DS_CONTROL, or
1346 * whose parent is not a dialog.
1348 * This is undocumented behaviour.
1350 static HWND
DIALOG_FindMsgDestination( HWND hwndDlg
)
1352 while (GetWindowLongA(hwndDlg
, GWL_STYLE
) & DS_CONTROL
)
1355 HWND hParent
= GetParent(hwndDlg
);
1356 if (!hParent
) break;
1358 pParent
= WIN_FindWndPtr(hParent
);
1359 if (!pParent
) break;
1361 if (!(pParent
->flags
& WIN_ISDIALOG
))
1363 WIN_ReleaseWndPtr(pParent
);
1366 WIN_ReleaseWndPtr(pParent
);
1374 /***********************************************************************
1375 * DIALOG_IsDialogMessage
1377 static BOOL
DIALOG_IsDialogMessage( HWND hwnd
, HWND hwndDlg
,
1378 UINT message
, WPARAM wParam
,
1379 LPARAM lParam
, BOOL
*translate
,
1380 BOOL
*dispatch
, INT dlgCode
)
1382 *translate
= *dispatch
= FALSE
;
1384 if (message
== WM_PAINT
)
1386 /* Apparently, we have to handle this one as well */
1391 /* Only the key messages get special processing */
1392 if ((message
!= WM_KEYDOWN
) &&
1393 (message
!= WM_SYSKEYDOWN
) &&
1394 (message
!= WM_SYSCHAR
) &&
1395 (message
!= WM_CHAR
))
1398 if (dlgCode
& DLGC_WANTMESSAGE
)
1400 *translate
= *dispatch
= TRUE
;
1404 hwndDlg
= DIALOG_FindMsgDestination(hwndDlg
);
1412 if (!(dlgCode
& DLGC_WANTTAB
))
1414 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
,
1415 (GetKeyState(VK_SHIFT
) & 0x8000), 0 );
1424 if (!(dlgCode
& DLGC_WANTARROWS
))
1426 BOOL fPrevious
= (wParam
== VK_LEFT
|| wParam
== VK_UP
);
1428 GetNextDlgGroupItem (hwndDlg
, GetFocus(), fPrevious
);
1429 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
, (WPARAM
)hwndNext
, 1 );
1435 SendMessageA( hwndDlg
, WM_COMMAND
, IDCANCEL
,
1436 (LPARAM
)GetDlgItem( hwndDlg
, IDCANCEL
) );
1441 DWORD dw
= SendMessageW( hwndDlg
, DM_GETDEFID
, 0, 0 );
1442 if (HIWORD(dw
) == DC_HASDEFID
)
1444 SendMessageA( hwndDlg
, WM_COMMAND
,
1445 MAKEWPARAM( LOWORD(dw
), BN_CLICKED
),
1446 (LPARAM
)GetDlgItem(hwndDlg
, LOWORD(dw
)));
1450 SendMessageA( hwndDlg
, WM_COMMAND
, IDOK
,
1451 (LPARAM
)GetDlgItem( hwndDlg
, IDOK
) );
1458 break; /* case WM_KEYDOWN */
1461 if (dlgCode
& DLGC_WANTCHARS
) break;
1465 if (DIALOG_IsAccelerator( WIN_GetFullHandle(hwnd
), hwndDlg
, wParam
))
1467 /* don't translate or dispatch */
1477 /* If we get here, the message has not been treated specially */
1478 /* and can be sent to its destination window. */
1484 /***********************************************************************
1485 * IsDialogMessage (USER.90)
1487 BOOL16 WINAPI
IsDialogMessage16( HWND16 hwndDlg
, SEGPTR msg16
)
1489 LPMSG16 msg
= MapSL(msg16
);
1490 BOOL ret
, translate
, dispatch
;
1493 if ((hwndDlg
!= msg
->hwnd
) && !IsChild16( hwndDlg
, msg
->hwnd
))
1496 if ((msg
->message
== WM_KEYDOWN
) ||
1497 (msg
->message
== WM_CHAR
))
1499 dlgCode
= SendMessage16( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg16
);
1501 ret
= DIALOG_IsDialogMessage( WIN_Handle32(msg
->hwnd
), WIN_Handle32(hwndDlg
),
1502 msg
->message
, msg
->wParam
, msg
->lParam
,
1503 &translate
, &dispatch
, dlgCode
);
1504 if (translate
) TranslateMessage16( msg
);
1505 if (dispatch
) DispatchMessage16( msg
);
1510 /***********************************************************************
1511 * IsDialogMessage (USER32.@)
1512 * IsDialogMessageA (USER32.@)
1514 BOOL WINAPI
IsDialogMessageA( HWND hwndDlg
, LPMSG msg
)
1516 BOOL ret
, translate
, dispatch
;
1519 hwndDlg
= WIN_GetFullHandle( hwndDlg
);
1520 if ((hwndDlg
!= msg
->hwnd
) && !IsChild( hwndDlg
, msg
->hwnd
))
1523 if ((msg
->message
== WM_KEYDOWN
) ||
1524 (msg
->message
== WM_CHAR
))
1526 dlgCode
= SendMessageA( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg
);
1528 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1529 msg
->wParam
, msg
->lParam
,
1530 &translate
, &dispatch
, dlgCode
);
1531 if (translate
) TranslateMessage( msg
);
1532 if (dispatch
) DispatchMessageA( msg
);
1537 /***********************************************************************
1538 * IsDialogMessageW (USER32.@)
1540 BOOL WINAPI
IsDialogMessageW( HWND hwndDlg
, LPMSG msg
)
1542 BOOL ret
, translate
, dispatch
;
1545 hwndDlg
= WIN_GetFullHandle( hwndDlg
);
1546 if ((hwndDlg
!= msg
->hwnd
) && !IsChild( hwndDlg
, msg
->hwnd
))
1549 if ((msg
->message
== WM_KEYDOWN
) ||
1550 (msg
->message
== WM_CHAR
))
1552 dlgCode
= SendMessageW( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg
);
1554 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1555 msg
->wParam
, msg
->lParam
,
1556 &translate
, &dispatch
, dlgCode
);
1557 if (translate
) TranslateMessage( msg
);
1558 if (dispatch
) DispatchMessageW( msg
);
1563 /***********************************************************************
1564 * GetDlgCtrlID (USER32.@)
1566 INT WINAPI
GetDlgCtrlID( HWND hwnd
)
1568 return GetWindowLongW( hwnd
, GWL_ID
);
1572 /***********************************************************************
1573 * GetDlgItem (USER32.@)
1575 HWND WINAPI
GetDlgItem( HWND hwndDlg
, INT id
)
1578 HWND
*list
= WIN_ListChildren( hwndDlg
);
1581 if (!list
) return 0;
1583 for (i
= 0; list
[i
]; i
++) if (GetWindowLongW( list
[i
], GWL_ID
) == id
) break;
1585 HeapFree( GetProcessHeap(), 0, list
);
1590 /*******************************************************************
1591 * SendDlgItemMessageA (USER32.@)
1593 LRESULT WINAPI
SendDlgItemMessageA( HWND hwnd
, INT id
, UINT msg
,
1594 WPARAM wParam
, LPARAM lParam
)
1596 HWND hwndCtrl
= GetDlgItem( hwnd
, id
);
1597 if (hwndCtrl
) return SendMessageA( hwndCtrl
, msg
, wParam
, lParam
);
1602 /*******************************************************************
1603 * SendDlgItemMessageW (USER32.@)
1605 LRESULT WINAPI
SendDlgItemMessageW( HWND hwnd
, INT id
, UINT msg
,
1606 WPARAM wParam
, LPARAM lParam
)
1608 HWND hwndCtrl
= GetDlgItem( hwnd
, id
);
1609 if (hwndCtrl
) return SendMessageW( hwndCtrl
, msg
, wParam
, lParam
);
1614 /*******************************************************************
1615 * SetDlgItemTextA (USER32.@)
1617 BOOL WINAPI
SetDlgItemTextA( HWND hwnd
, INT id
, LPCSTR lpString
)
1619 return SendDlgItemMessageA( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1623 /*******************************************************************
1624 * SetDlgItemTextW (USER32.@)
1626 BOOL WINAPI
SetDlgItemTextW( HWND hwnd
, INT id
, LPCWSTR lpString
)
1628 return SendDlgItemMessageW( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1632 /***********************************************************************
1633 * GetDlgItemTextA (USER32.@)
1635 INT WINAPI
GetDlgItemTextA( HWND hwnd
, INT id
, LPSTR str
, UINT len
)
1637 return (INT
)SendDlgItemMessageA( hwnd
, id
, WM_GETTEXT
,
1642 /***********************************************************************
1643 * GetDlgItemTextW (USER32.@)
1645 INT WINAPI
GetDlgItemTextW( HWND hwnd
, INT id
, LPWSTR str
, UINT len
)
1647 return (INT
)SendDlgItemMessageW( hwnd
, id
, WM_GETTEXT
,
1652 /*******************************************************************
1653 * SetDlgItemInt (USER32.@)
1655 BOOL WINAPI
SetDlgItemInt( HWND hwnd
, INT id
, UINT value
,
1660 if (fSigned
) sprintf( str
, "%d", (INT
)value
);
1661 else sprintf( str
, "%u", value
);
1662 SendDlgItemMessageA( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)str
);
1667 /***********************************************************************
1668 * GetDlgItemInt (USER32.@)
1670 UINT WINAPI
GetDlgItemInt( HWND hwnd
, INT id
, BOOL
*translated
,
1677 if (translated
) *translated
= FALSE
;
1678 if (!SendDlgItemMessageA(hwnd
, id
, WM_GETTEXT
, sizeof(str
), (LPARAM
)str
))
1682 result
= strtol( str
, &endptr
, 10 );
1683 if (!endptr
|| (endptr
== str
)) /* Conversion was unsuccessful */
1685 if (((result
== LONG_MIN
) || (result
== LONG_MAX
)) && (errno
==ERANGE
))
1690 result
= strtoul( str
, &endptr
, 10 );
1691 if (!endptr
|| (endptr
== str
)) /* Conversion was unsuccessful */
1693 if ((result
== ULONG_MAX
) && (errno
== ERANGE
)) return 0;
1695 if (translated
) *translated
= TRUE
;
1696 return (UINT
)result
;
1700 /***********************************************************************
1701 * CheckDlgButton (USER32.@)
1703 BOOL WINAPI
CheckDlgButton( HWND hwnd
, INT id
, UINT check
)
1705 SendDlgItemMessageA( hwnd
, id
, BM_SETCHECK
, check
, 0 );
1710 /***********************************************************************
1711 * IsDlgButtonChecked (USER32.@)
1713 UINT WINAPI
IsDlgButtonChecked( HWND hwnd
, UINT id
)
1715 return (UINT
)SendDlgItemMessageA( hwnd
, id
, BM_GETCHECK
, 0, 0 );
1719 /***********************************************************************
1722 * Callback function used to check/uncheck radio buttons that fall
1723 * within a specific range of IDs.
1725 static BOOL CALLBACK
CheckRB(HWND hwndChild
, LPARAM lParam
)
1727 LONG lChildID
= GetWindowLongA(hwndChild
, GWL_ID
);
1728 RADIOGROUP
*lpRadioGroup
= (RADIOGROUP
*) lParam
;
1730 if ((lChildID
>= lpRadioGroup
->firstID
) &&
1731 (lChildID
<= lpRadioGroup
->lastID
))
1733 if (lChildID
== lpRadioGroup
->checkID
)
1735 SendMessageA(hwndChild
, BM_SETCHECK
, BST_CHECKED
, 0);
1739 SendMessageA(hwndChild
, BM_SETCHECK
, BST_UNCHECKED
, 0);
1747 /***********************************************************************
1748 * CheckRadioButton (USER32.@)
1750 BOOL WINAPI
CheckRadioButton( HWND hwndDlg
, UINT firstID
,
1751 UINT lastID
, UINT checkID
)
1753 RADIOGROUP radioGroup
;
1755 /* perform bounds checking for a radio button group */
1756 radioGroup
.firstID
= min(min(firstID
, lastID
), checkID
);
1757 radioGroup
.lastID
= max(max(firstID
, lastID
), checkID
);
1758 radioGroup
.checkID
= checkID
;
1760 return EnumChildWindows(hwndDlg
, (WNDENUMPROC
)CheckRB
,
1761 (LPARAM
)&radioGroup
);
1765 /***********************************************************************
1766 * GetDialogBaseUnits (USER.243)
1767 * GetDialogBaseUnits (USER32.@)
1769 DWORD WINAPI
GetDialogBaseUnits(void)
1771 return MAKELONG( xBaseUnit
, yBaseUnit
);
1775 /***********************************************************************
1776 * MapDialogRect (USER32.@)
1778 BOOL WINAPI
MapDialogRect( HWND hwnd
, LPRECT rect
)
1780 DIALOGINFO
* dlgInfo
;
1781 if (!(dlgInfo
= DIALOG_get_info( hwnd
))) return FALSE
;
1782 rect
->left
= MulDiv(rect
->left
, dlgInfo
->xBaseUnit
, 4);
1783 rect
->right
= MulDiv(rect
->right
, dlgInfo
->xBaseUnit
, 4);
1784 rect
->top
= MulDiv(rect
->top
, dlgInfo
->yBaseUnit
, 8);
1785 rect
->bottom
= MulDiv(rect
->bottom
, dlgInfo
->yBaseUnit
, 8);
1790 /***********************************************************************
1791 * GetNextDlgGroupItem (USER32.@)
1793 HWND WINAPI
GetNextDlgGroupItem( HWND hwndDlg
, HWND hwndCtrl
, BOOL fPrevious
)
1795 HWND hwnd
, retvalue
;
1797 hwndDlg
= WIN_GetFullHandle( hwndDlg
);
1798 hwndCtrl
= WIN_GetFullHandle( hwndCtrl
);
1802 /* if the hwndCtrl is the child of the control in the hwndDlg,
1803 * then the hwndDlg has to be the parent of the hwndCtrl */
1804 if(GetParent(hwndCtrl
) != hwndDlg
&& GetParent(GetParent(hwndCtrl
)) == hwndDlg
)
1805 hwndDlg
= GetParent(hwndCtrl
);
1810 /* Make sure hwndCtrl is a top-level child */
1811 HWND parent
= GetParent( hwndCtrl
);
1812 while (parent
&& parent
!= hwndDlg
) parent
= GetParent(parent
);
1813 if (parent
!= hwndDlg
) return 0;
1817 /* No ctrl specified -> start from the beginning */
1818 if (!(hwndCtrl
= GetWindow( hwndDlg
, GW_CHILD
))) return 0;
1819 if (fPrevious
) hwndCtrl
= GetWindow( hwndCtrl
, GW_HWNDLAST
);
1822 retvalue
= hwndCtrl
;
1823 hwnd
= GetWindow( hwndCtrl
, GW_HWNDNEXT
);
1826 if (!hwnd
|| (GetWindowLongW( hwnd
, GWL_STYLE
) & WS_GROUP
))
1828 /* Wrap-around to the beginning of the group */
1831 hwnd
= GetWindow( hwndDlg
, GW_CHILD
);
1832 for (tmp
= hwnd
; tmp
; tmp
= GetWindow( tmp
, GW_HWNDNEXT
) )
1834 if (GetWindowLongW( tmp
, GWL_STYLE
) & WS_GROUP
) hwnd
= tmp
;
1835 if (tmp
== hwndCtrl
) break;
1838 if (hwnd
== hwndCtrl
) break;
1839 if ((GetWindowLongW( hwnd
, GWL_STYLE
) & (WS_VISIBLE
|WS_DISABLED
)) == WS_VISIBLE
)
1842 if (!fPrevious
) break;
1844 hwnd
= GetWindow( hwnd
, GW_HWNDNEXT
);
1850 /***********************************************************************
1851 * DIALOG_GetNextTabItem
1853 * Helper for GetNextDlgTabItem
1855 static HWND
DIALOG_GetNextTabItem( HWND hwndMain
, HWND hwndDlg
, HWND hwndCtrl
, BOOL fPrevious
)
1859 UINT wndSearch
= fPrevious
? GW_HWNDPREV
: GW_HWNDNEXT
;
1861 HWND hChildFirst
= 0;
1865 hChildFirst
= GetWindow(hwndDlg
,GW_CHILD
);
1866 if(fPrevious
) hChildFirst
= GetWindow(hChildFirst
,GW_HWNDLAST
);
1868 else if (IsChild( hwndMain
, hwndCtrl
))
1870 hChildFirst
= GetWindow(hwndCtrl
,wndSearch
);
1873 if(GetParent(hwndCtrl
) != hwndMain
)
1874 hChildFirst
= GetWindow(GetParent(hwndCtrl
),wndSearch
);
1878 hChildFirst
= GetWindow(hwndCtrl
,GW_HWNDLAST
);
1880 hChildFirst
= GetWindow(hwndCtrl
,GW_HWNDFIRST
);
1890 dsStyle
= GetWindowLongA(hChildFirst
,GWL_STYLE
);
1891 exStyle
= GetWindowLongA(hChildFirst
,GWL_EXSTYLE
);
1892 if( (dsStyle
& DS_CONTROL
|| exStyle
& WS_EX_CONTROLPARENT
) && (dsStyle
& WS_VISIBLE
) && !(dsStyle
& WS_DISABLED
))
1897 else if( (dsStyle
& WS_TABSTOP
) && (dsStyle
& WS_VISIBLE
) && !(dsStyle
& WS_DISABLED
))
1899 hChildFirst
= GetWindow(hChildFirst
,wndSearch
);
1904 retWnd
= DIALOG_GetNextTabItem(hwndMain
,hChildFirst
,(HWND
)NULL
,fPrevious
);
1906 retWnd
= hChildFirst
;
1909 hChildFirst
= GetWindow(hChildFirst
,wndSearch
);
1911 if(!retWnd
&& hwndCtrl
)
1913 HWND hParent
= GetParent(hwndCtrl
);
1916 if(hParent
== hwndMain
) break;
1917 retWnd
= DIALOG_GetNextTabItem(hwndMain
,GetParent(hParent
),hParent
,fPrevious
);
1919 hParent
= GetParent(hParent
);
1922 retWnd
= DIALOG_GetNextTabItem(hwndMain
,hwndMain
,(HWND
)NULL
,fPrevious
);
1927 /***********************************************************************
1928 * GetNextDlgTabItem (USER32.@)
1930 HWND WINAPI
GetNextDlgTabItem( HWND hwndDlg
, HWND hwndCtrl
,
1933 hwndDlg
= WIN_GetFullHandle( hwndDlg
);
1934 hwndCtrl
= WIN_GetFullHandle( hwndCtrl
);
1935 return DIALOG_GetNextTabItem(hwndDlg
,hwndDlg
,hwndCtrl
,fPrevious
);
1938 /**********************************************************************
1939 * DIALOG_DlgDirSelect
1941 * Helper function for DlgDirSelect*
1943 static BOOL
DIALOG_DlgDirSelect( HWND hwnd
, LPSTR str
, INT len
,
1944 INT id
, BOOL unicode
, BOOL combo
)
1949 HWND listbox
= GetDlgItem( hwnd
, id
);
1951 TRACE("%04x '%s' %d\n", hwnd
, str
, id
);
1952 if (!listbox
) return FALSE
;
1954 item
= SendMessageA(listbox
, combo
? CB_GETCURSEL
: LB_GETCURSEL
, 0, 0 );
1955 if (item
== LB_ERR
) return FALSE
;
1956 size
= SendMessageA(listbox
, combo
? CB_GETLBTEXTLEN
: LB_GETTEXTLEN
, 0, 0 );
1957 if (size
== LB_ERR
) return FALSE
;
1959 if (!(buffer
= HeapAlloc( GetProcessHeap(), 0, size
+1 ))) return FALSE
;
1961 SendMessageA( listbox
, combo
? CB_GETLBTEXT
: LB_GETTEXT
, item
, (LPARAM
)buffer
);
1963 if ((ret
= (buffer
[0] == '['))) /* drive or directory */
1965 if (buffer
[1] == '-') /* drive */
1973 buffer
[strlen(buffer
)-1] = '\\';
1981 if (len
> 0 && !MultiByteToWideChar( CP_ACP
, 0, ptr
, -1, (LPWSTR
)str
, len
))
1982 ((LPWSTR
)str
)[len
-1] = 0;
1984 else lstrcpynA( str
, ptr
, len
);
1985 HeapFree( GetProcessHeap(), 0, buffer
);
1986 TRACE("Returning %d '%s'\n", ret
, str
);
1991 /**********************************************************************
1994 * Helper function for DlgDirList*
1996 static INT
DIALOG_DlgDirList( HWND hDlg
, LPSTR spec
, INT idLBox
,
1997 INT idStatic
, UINT attrib
, BOOL combo
)
2000 LPSTR orig_spec
= spec
;
2002 #define SENDMSG(msg,wparam,lparam) \
2003 ((attrib & DDL_POSTMSGS) ? PostMessageA( hwnd, msg, wparam, lparam ) \
2004 : SendMessageA( hwnd, msg, wparam, lparam ))
2006 TRACE("%04x '%s' %d %d %04x\n",
2007 hDlg
, spec
? spec
: "NULL", idLBox
, idStatic
, attrib
);
2009 /* If the path exists and is a directory, chdir to it */
2010 if (!spec
|| !spec
[0] || SetCurrentDirectoryA( spec
)) spec
= "*.*";
2015 if ((p2
= strrchr( p
, '\\' ))) p
= p2
;
2016 if ((p2
= strrchr( p
, '/' ))) p
= p2
;
2021 if (!SetCurrentDirectoryA( spec
))
2023 *p
= sep
; /* Restore the original spec */
2030 TRACE( "mask=%s\n", spec
);
2032 if (idLBox
&& ((hwnd
= GetDlgItem( hDlg
, idLBox
)) != 0))
2034 SENDMSG( combo
? CB_RESETCONTENT
: LB_RESETCONTENT
, 0, 0 );
2035 if (attrib
& DDL_DIRECTORY
)
2037 if (!(attrib
& DDL_EXCLUSIVE
))
2039 if (SENDMSG( combo
? CB_DIR
: LB_DIR
,
2040 attrib
& ~(DDL_DIRECTORY
| DDL_DRIVES
),
2041 (LPARAM
)spec
) == LB_ERR
)
2044 if (SENDMSG( combo
? CB_DIR
: LB_DIR
,
2045 (attrib
& (DDL_DIRECTORY
| DDL_DRIVES
)) | DDL_EXCLUSIVE
,
2046 (LPARAM
)"*.*" ) == LB_ERR
)
2051 if (SENDMSG( combo
? CB_DIR
: LB_DIR
, attrib
,
2052 (LPARAM
)spec
) == LB_ERR
)
2057 if (idStatic
&& ((hwnd
= GetDlgItem( hDlg
, idStatic
)) != 0))
2059 char temp
[MAX_PATH
];
2060 GetCurrentDirectoryA( sizeof(temp
), temp
);
2062 /* Can't use PostMessage() here, because the string is on the stack */
2063 SetDlgItemTextA( hDlg
, idStatic
, temp
);
2066 if (orig_spec
&& (spec
!= orig_spec
))
2068 /* Update the original file spec */
2070 while ((*orig_spec
++ = *p
++));
2078 /**********************************************************************
2079 * DIALOG_DlgDirListW
2081 * Helper function for DlgDirList*W
2083 static INT
DIALOG_DlgDirListW( HWND hDlg
, LPWSTR spec
, INT idLBox
,
2084 INT idStatic
, UINT attrib
, BOOL combo
)
2088 LPSTR specA
= HEAP_strdupWtoA( GetProcessHeap(), 0, spec
);
2089 INT ret
= DIALOG_DlgDirList( hDlg
, specA
, idLBox
, idStatic
,
2091 MultiByteToWideChar( CP_ACP
, 0, specA
, -1, spec
, 0x7fffffff );
2092 HeapFree( GetProcessHeap(), 0, specA
);
2095 return DIALOG_DlgDirList( hDlg
, NULL
, idLBox
, idStatic
, attrib
, combo
);
2099 /**********************************************************************
2100 * DlgDirSelectExA (USER32.@)
2102 BOOL WINAPI
DlgDirSelectExA( HWND hwnd
, LPSTR str
, INT len
, INT id
)
2104 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, FALSE
, FALSE
);
2108 /**********************************************************************
2109 * DlgDirSelectExW (USER32.@)
2111 BOOL WINAPI
DlgDirSelectExW( HWND hwnd
, LPWSTR str
, INT len
, INT id
)
2113 return DIALOG_DlgDirSelect( hwnd
, (LPSTR
)str
, len
, id
, TRUE
, FALSE
);
2117 /**********************************************************************
2118 * DlgDirSelectComboBoxExA (USER32.@)
2120 BOOL WINAPI
DlgDirSelectComboBoxExA( HWND hwnd
, LPSTR str
, INT len
,
2123 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, FALSE
, TRUE
);
2127 /**********************************************************************
2128 * DlgDirSelectComboBoxExW (USER32.@)
2130 BOOL WINAPI
DlgDirSelectComboBoxExW( HWND hwnd
, LPWSTR str
, INT len
,
2133 return DIALOG_DlgDirSelect( hwnd
, (LPSTR
)str
, len
, id
, TRUE
, TRUE
);
2137 /**********************************************************************
2138 * DlgDirListA (USER32.@)
2140 INT WINAPI
DlgDirListA( HWND hDlg
, LPSTR spec
, INT idLBox
,
2141 INT idStatic
, UINT attrib
)
2143 return DIALOG_DlgDirList( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2147 /**********************************************************************
2148 * DlgDirListW (USER32.@)
2150 INT WINAPI
DlgDirListW( HWND hDlg
, LPWSTR spec
, INT idLBox
,
2151 INT idStatic
, UINT attrib
)
2153 return DIALOG_DlgDirListW( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2157 /**********************************************************************
2158 * DlgDirListComboBoxA (USER32.@)
2160 INT WINAPI
DlgDirListComboBoxA( HWND hDlg
, LPSTR spec
, INT idCBox
,
2161 INT idStatic
, UINT attrib
)
2163 return DIALOG_DlgDirList( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);
2167 /**********************************************************************
2168 * DlgDirListComboBoxW (USER32.@)
2170 INT WINAPI
DlgDirListComboBoxW( HWND hDlg
, LPWSTR spec
, INT idCBox
,
2171 INT idStatic
, UINT attrib
)
2173 return DIALOG_DlgDirListW( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);