?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
ntdll/tests: Adjust test_virtual_unwind() for Win11 results.
[wine.git] / dlls / user32 / dialog.c
blobd13594324e0efca95c77bad195458bb0705af346
1 /*
2 * Dialog functions
3 *
4 * Copyright 1993, 1994, 1996 Alexandre Julliard
5 *
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.
10 *
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.
15 *
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #include <stdlib.h>
22 #include <limits.h>
23 #include <errno.h>
24 #include "user_private.h"
25 #include "controls.h"
26 #include "wine/debug.h"
27
28 WINE_DEFAULT_DEBUG_CHANNEL(dialog);
29
30
31 #define DIALOG_CLASS_ATOM MAKEINTATOM(32770) /* Dialog */
32
33 /* Dialog control information */
34 typedef struct
35 {
36 DWORD style;
37 DWORD exStyle;
38 DWORD helpId;
39 INT16 x;
40 INT16 y;
41 INT16 cx;
42 INT16 cy;
43 UINT_PTR id;
44 LPCWSTR className;
45 LPCWSTR windowName;
46 LPCVOID data;
47 } DLG_CONTROL_INFO;
48
49 /* Dialog template */
50 typedef struct
51 {
52 DWORD style;
53 DWORD exStyle;
54 DWORD helpId;
55 UINT16 nbItems;
56 INT16 x;
57 INT16 y;
58 INT16 cx;
59 INT16 cy;
60 LPCWSTR menuName;
61 LPCWSTR className;
62 LPCWSTR caption;
63 INT16 pointSize;
64 WORD weight;
65 BOOL italic;
66 LPCWSTR faceName;
67 BOOL dialogEx;
68 } DLG_TEMPLATE;
69
70 /* Radio button group */
71 typedef struct
72 {
73 UINT firstID;
74 UINT lastID;
75 UINT checkID;
76 } RADIOGROUP;
77
78
79 /***********************************************************************
80 * DIALOG_GetControl32
81 *
82 * Return the class and text of the control pointed to by ptr,
83 * fill the header structure and return a pointer to the next control.
84 */
85 static const WORD *DIALOG_GetControl32( const WORD *p, DLG_CONTROL_INFO *info,
86 BOOL dialogEx )
87 {
88 if (dialogEx)
89 {
90 info->helpId = GET_DWORD(p); p += 2;
91 info->exStyle = GET_DWORD(p); p += 2;
92 info->style = GET_DWORD(p); p += 2;
93 }
94 else
95 {
96 info->helpId = 0;
97 info->style = GET_DWORD(p); p += 2;
98 info->exStyle = GET_DWORD(p); p += 2;
99 }
100 info->x = GET_WORD(p); p++;
101 info->y = GET_WORD(p); p++;
102 info->cx = GET_WORD(p); p++;
103 info->cy = GET_WORD(p); p++;
104
105 if (dialogEx)
106 {
107 /* id is 4 bytes for DIALOGEX */
108 info->id = GET_LONG(p);
109 p += 2;
110 }
111 else
112 {
113 info->id = GET_WORD(p);
114 p++;
115 }
116
117 if (GET_WORD(p) == 0xffff)
118 {
119 static const WCHAR *class_names[6] =
120 {
121 L"Button", /* 0x80 */
122 L"Edit", /* 0x81 */
123 L"Static", /* 0x82 */
124 L"ListBox", /* 0x83 */
125 L"ScrollBar", /* 0x84 */
126 L"ComboBox" /* 0x85 */
127 };
128 WORD id = GET_WORD(p+1);
129 /* Windows treats dialog control class ids 0-5 same way as 0x80-0x85 */
130 if ((id >= 0x80) && (id <= 0x85)) id -= 0x80;
131 if (id <= 5)
132 info->className = class_names[id];
133 else
134 {
135 info->className = NULL;
136 ERR("Unknown built-in class id %04x\n", id );
137 }
138 p += 2;
139 }
140 else
141 {
142 info->className = p;
143 p += lstrlenW( info->className ) + 1;
144 }
145
146 if (GET_WORD(p) == 0xffff) /* Is it an integer id? */
147 {
148 info->windowName = MAKEINTRESOURCEW(GET_WORD(p + 1));
149 p += 2;
150 }
151 else
152 {
153 info->windowName = p;
154 p += lstrlenW( info->windowName ) + 1;
155 }
156
157 TRACE(" %s %s %Id, %d, %d, %d, %d, %08lx, %08lx, %08lx\n",
158 debugstr_w( info->className ), debugstr_w( info->windowName ),
159 info->id, info->x, info->y, info->cx, info->cy,
160 info->style, info->exStyle, info->helpId );
161
162 if (GET_WORD(p))
163 {
164 if (TRACE_ON(dialog))
165 {
166 WORD i, count = GET_WORD(p) / sizeof(WORD);
167 TRACE(" BEGIN\n");
168 TRACE(" ");
169 for (i = 0; i < count; i++) TRACE( "%04x,", GET_WORD(p+i+1) );
170 TRACE("\n");
171 TRACE(" END\n" );
172 }
173 info->data = p;
174 p += GET_WORD(p) / sizeof(WORD);
175 }
176 else info->data = NULL;
177 p++;
178
179 /* Next control is on dword boundary */
180 return (const WORD *)(((UINT_PTR)p + 3) & ~3);
181 }
182
183
184 /***********************************************************************
185 * DIALOG_CreateControls32
186 *
187 * Create the control windows for a dialog.
188 */
189 static BOOL DIALOG_CreateControls32( HWND hwnd, LPCSTR template, const DLG_TEMPLATE *dlgTemplate,
190 HINSTANCE hInst, BOOL unicode )
191 {
192 DIALOGINFO *dlgInfo = DIALOG_get_info( hwnd, TRUE );
193 DLG_CONTROL_INFO info;
194 HWND hwndCtrl, hwndDefButton = 0;
195 INT items = dlgTemplate->nbItems;
196
197 TRACE(" BEGIN\n" );
198 while (items--)
199 {
200 template = (LPCSTR)DIALOG_GetControl32( (const WORD *)template, &info,
201 dlgTemplate->dialogEx );
202 info.style &= ~WS_POPUP;
203 info.style |= WS_CHILD;
204
205 if (info.style & WS_BORDER)
206 {
207 info.style &= ~WS_BORDER;
208 info.exStyle |= WS_EX_CLIENTEDGE;
209 }
210 if (unicode)
211 {
212 const WCHAR *caption = info.windowName;
213 WCHAR caption_buf[3];
214
215 if (IS_INTRESOURCE(caption) && caption)
216 {
217 caption_buf[0] = 0xffff;
218 caption_buf[1] = PtrToUlong( caption );
219 caption_buf[2] = 0;
220 caption = caption_buf;
221 }
222
223 hwndCtrl = CreateWindowExW( info.exStyle | WS_EX_NOPARENTNOTIFY,
224 info.className, caption,
225 info.style | WS_CHILD,
226 MulDiv(info.x, dlgInfo->xBaseUnit, 4),
227 MulDiv(info.y, dlgInfo->yBaseUnit, 8),
228 MulDiv(info.cx, dlgInfo->xBaseUnit, 4),
229 MulDiv(info.cy, dlgInfo->yBaseUnit, 8),
230 hwnd, (HMENU)info.id,
231 hInst, (LPVOID)info.data );
232 }
233 else
234 {
235 LPCSTR class = (LPCSTR)info.className;
236 LPCSTR caption = (LPCSTR)info.windowName;
237 LPSTR class_tmp = NULL;
238 LPSTR caption_tmp = NULL;
239 char caption_buf[4];
240
241 if (!IS_INTRESOURCE(class))
242 {
243 DWORD len = WideCharToMultiByte( CP_ACP, 0, info.className, -1, NULL, 0, NULL, NULL );
244 class_tmp = HeapAlloc( GetProcessHeap(), 0, len );
245 WideCharToMultiByte( CP_ACP, 0, info.className, -1, class_tmp, len, NULL, NULL );
246 class = class_tmp;
247 }
248 if (!IS_INTRESOURCE(caption))
249 {
250 DWORD len = WideCharToMultiByte( CP_ACP, 0, info.windowName, -1, NULL, 0, NULL, NULL );
251 caption_tmp = HeapAlloc( GetProcessHeap(), 0, len );
252 WideCharToMultiByte( CP_ACP, 0, info.windowName, -1, caption_tmp, len, NULL, NULL );
253 caption = caption_tmp;
254 }
255 else if (caption)
256 {
257 caption_buf[0] = 0xff;
258 caption_buf[1] = PtrToUlong( caption );
259 caption_buf[2] = PtrToUlong( caption ) >> 8;
260 caption_buf[3] = 0;
261 caption = caption_buf;
262 }
263
264 hwndCtrl = CreateWindowExA( info.exStyle | WS_EX_NOPARENTNOTIFY,
265 class, caption, info.style | WS_CHILD,
266 MulDiv(info.x, dlgInfo->xBaseUnit, 4),
267 MulDiv(info.y, dlgInfo->yBaseUnit, 8),
268 MulDiv(info.cx, dlgInfo->xBaseUnit, 4),
269 MulDiv(info.cy, dlgInfo->yBaseUnit, 8),
270 hwnd, (HMENU)info.id,
271 hInst, (LPVOID)info.data );
272 HeapFree( GetProcessHeap(), 0, class_tmp );
273 HeapFree( GetProcessHeap(), 0, caption_tmp );
274 }
275 if (!hwndCtrl)
276 {
277 WARN("control %s %s creation failed\n", debugstr_w(info.className),
278 debugstr_w(info.windowName));
279 if (dlgTemplate->style & DS_NOFAILCREATE) continue;
280 SetLastError(0);
281 return FALSE;
282 }
283
284 /* Send initialisation messages to the control */
285 if (dlgInfo->hUserFont) SendMessageW( hwndCtrl, WM_SETFONT,
286 (WPARAM)dlgInfo->hUserFont, 0 );
287 if (SendMessageW(hwndCtrl, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON)
288 {
289 /* If there's already a default push-button, set it back */
290 /* to normal and use this one instead. */
291 if (hwndDefButton)
292 SendMessageW( hwndDefButton, BM_SETSTYLE, BS_PUSHBUTTON, FALSE );
293 hwndDefButton = hwndCtrl;
294 dlgInfo->idResult = GetWindowLongPtrA( hwndCtrl, GWLP_ID );
295 }
296 }
297 TRACE(" END\n" );
298 return TRUE;
299 }
300
301
302 /***********************************************************************
303 * DIALOG_ParseTemplate32
304 *
305 * Fill a DLG_TEMPLATE structure from the dialog template, and return
306 * a pointer to the first control.
307 */
308 static LPCSTR DIALOG_ParseTemplate32( LPCSTR template, DLG_TEMPLATE * result )
309 {
310 const WORD *p = (const WORD *)template;
311 WORD signature;
312 WORD dlgver;
313
314 dlgver = GET_WORD(p); p++;
315 signature = GET_WORD(p); p++;
316
317 if (dlgver == 1 && signature == 0xffff) /* DIALOGEX resource */
318 {
319 result->dialogEx = TRUE;
320 result->helpId = GET_DWORD(p); p += 2;
321 result->exStyle = GET_DWORD(p); p += 2;
322 result->style = GET_DWORD(p); p += 2;
323 }
324 else
325 {
326 result->style = GET_DWORD(p - 2);
327 result->dialogEx = FALSE;
328 result->helpId = 0;
329 result->exStyle = GET_DWORD(p); p += 2;
330 }
331 result->nbItems = GET_WORD(p); p++;
332 result->x = GET_WORD(p); p++;
333 result->y = GET_WORD(p); p++;
334 result->cx = GET_WORD(p); p++;
335 result->cy = GET_WORD(p); p++;
336 TRACE("DIALOG%s %d, %d, %d, %d, %ld\n",
337 result->dialogEx ? "EX" : "", result->x, result->y,
338 result->cx, result->cy, result->helpId );
339 TRACE(" STYLE 0x%08lx\n", result->style );
340 TRACE(" EXSTYLE 0x%08lx\n", result->exStyle );
341
342 /* Get the menu name */
343
344 switch(GET_WORD(p))
345 {
346 case 0x0000:
347 result->menuName = NULL;
348 p++;
349 break;
350 case 0xffff:
351 result->menuName = MAKEINTRESOURCEW(GET_WORD( p + 1 ));
352 p += 2;
353 TRACE(" MENU %04x\n", LOWORD(result->menuName) );
354 break;
355 default:
356 result->menuName = p;
357 TRACE(" MENU %s\n", debugstr_w(result->menuName) );
358 p += lstrlenW( result->menuName ) + 1;
359 break;
360 }
361
362 /* Get the class name */
363
364 switch(GET_WORD(p))
365 {
366 case 0x0000:
367 result->className = (LPCWSTR)DIALOG_CLASS_ATOM;
368 p++;
369 break;
370 case 0xffff:
371 result->className = MAKEINTRESOURCEW(GET_WORD( p + 1 ));
372 p += 2;
373 TRACE(" CLASS %04x\n", LOWORD(result->className) );
374 break;
375 default:
376 result->className = p;
377 TRACE(" CLASS %s\n", debugstr_w( result->className ));
378 p += lstrlenW( result->className ) + 1;
379 break;
380 }
381
382 /* Get the window caption */
383
384 result->caption = p;
385 p += lstrlenW( result->caption ) + 1;
386 TRACE(" CAPTION %s\n", debugstr_w( result->caption ) );
387
388 /* Get the font name */
389
390 result->pointSize = 0;
391 result->faceName = NULL;
392 result->weight = FW_DONTCARE;
393 result->italic = FALSE;
394
395 if (result->style & DS_SETFONT)
396 {
397 result->pointSize = GET_WORD(p);
398 p++;
399
400 /* If pointSize is 0x7fff, it means that we need to use the font
401 * in NONCLIENTMETRICSW.lfMessageFont, and NOT read the weight,
402 * italic, and facename from the dialog template.
403 */
404 if (result->pointSize == 0x7fff)
405 {
406 /* We could call SystemParametersInfo here, but then we'd have
407 * to convert from pixel size to point size (which can be
408 * imprecise).
409 */
410 TRACE(" FONT: Using message box font\n");
411 }
412 else
413 {
414 if (result->dialogEx)
415 {
416 result->weight = GET_WORD(p); p++;
417 result->italic = LOBYTE(GET_WORD(p)); p++;
418 }
419 result->faceName = p;
420 p += lstrlenW( result->faceName ) + 1;
421
422 TRACE(" FONT %d, %s, %d, %s\n",
423 result->pointSize, debugstr_w( result->faceName ),
424 result->weight, result->italic ? "TRUE" : "FALSE" );
425 }
426 }
427
428 /* First control is on dword boundary */
429 return (LPCSTR)(((UINT_PTR)p + 3) & ~3);
430 }
431
432
433 /***********************************************************************
434 * DIALOG_CreateIndirect
435 * Creates a dialog box window
436 *
437 * modal = TRUE if we are called from a modal dialog box.
438 * (it's more compatible to do it here, as under Windows the owner
439 * is never disabled if the dialog fails because of an invalid template)
440 */
441 static HWND DIALOG_CreateIndirect( HINSTANCE hInst, LPCVOID dlgTemplate,
442 HWND owner, DLGPROC dlgProc, LPARAM param,
443 BOOL unicode, HWND *modal_owner )
444 {
445 HWND hwnd;
446 RECT rect;
447 POINT pos;
448 SIZE size;
449 DLG_TEMPLATE template;
450 DIALOGINFO * dlgInfo;
451 DWORD units = GetDialogBaseUnits();
452 HWND disabled_owner = NULL;
453 HMENU hMenu = 0;
454 HFONT hUserFont = 0;
455 UINT flags = 0;
456 UINT xBaseUnit = LOWORD(units);
457 UINT yBaseUnit = HIWORD(units);
458
459 /* Parse dialog template */
460
461 if (!dlgTemplate) return 0;
462 dlgTemplate = DIALOG_ParseTemplate32( dlgTemplate, &template );
463
464 /* Load menu */
465
466 if (template.menuName) hMenu = LoadMenuW( hInst, template.menuName );
467
468 /* Create custom font if needed */
469
470 if (template.style & DS_SETFONT)
471 {
472 HDC dc = NtUserGetDC(0);
473
474 if (template.pointSize == 0x7fff)
475 {
476 /* We get the message font from the non-client metrics */
477 NONCLIENTMETRICSW ncMetrics;
478
479 ncMetrics.cbSize = sizeof(NONCLIENTMETRICSW);
480 if (SystemParametersInfoW(SPI_GETNONCLIENTMETRICS,
481 sizeof(NONCLIENTMETRICSW), &ncMetrics, 0))
482 {
483 hUserFont = CreateFontIndirectW( &ncMetrics.lfMessageFont );
484 }
485 }
486 else
487 {
488 /* We convert the size to pixels and then make it -ve. This works
489 * for both +ve and -ve template.pointSize */
490 int pixels = MulDiv(template.pointSize, GetDeviceCaps(dc , LOGPIXELSY), 72);
491 hUserFont = CreateFontW( -pixels, 0, 0, 0, template.weight,
492 template.italic, FALSE, FALSE, DEFAULT_CHARSET, 0, 0,
493 PROOF_QUALITY, FF_DONTCARE,
494 template.faceName );
495 }
496
497 if (hUserFont)
498 {
499 SIZE charSize;
500 HFONT hOldFont = SelectObject( dc, hUserFont );
501 charSize.cx = GdiGetCharDimensions( dc, NULL, &charSize.cy );
502 if (charSize.cx)
503 {
504 xBaseUnit = charSize.cx;
505 yBaseUnit = charSize.cy;
506 }
507 SelectObject( dc, hOldFont );
508 }
509 NtUserReleaseDC( 0, dc );
510 TRACE("units = %d,%d\n", xBaseUnit, yBaseUnit );
511 }
512
513 /* Create dialog main window */
514
515 SetRect(&rect, 0, 0, MulDiv(template.cx, xBaseUnit, 4), MulDiv(template.cy, yBaseUnit, 8));
516
517 if (template.style & DS_CONTROL)
518 template.style &= ~(WS_CAPTION|WS_SYSMENU);
519 template.style |= DS_3DLOOK;
520 if (template.style & DS_MODALFRAME)
521 template.exStyle |= WS_EX_DLGMODALFRAME;
522 if ((template.style & DS_CONTROL) || !(template.style & WS_CHILD))
523 template.exStyle |= WS_EX_CONTROLPARENT;
524 AdjustWindowRectEx( &rect, template.style, (hMenu != 0), template.exStyle );
525 pos.x = rect.left;
526 pos.y = rect.top;
527 size.cx = rect.right - rect.left;
528 size.cy = rect.bottom - rect.top;
529
530 if (template.x == (SHORT)0x8000 /*CW_USEDEFAULT16*/)
531 {
532 pos.x = pos.y = CW_USEDEFAULT;
533 }
534 else
535 {
536 HMONITOR monitor = 0;
537 MONITORINFO mon_info;
538
539 mon_info.cbSize = sizeof(mon_info);
540 if (template.style & DS_CENTER)
541 {
542 monitor = MonitorFromWindow( owner ? owner : GetActiveWindow(), MONITOR_DEFAULTTOPRIMARY );
543 GetMonitorInfoW( monitor, &mon_info );
544 pos.x = (mon_info.rcWork.left + mon_info.rcWork.right - size.cx) / 2;
545 pos.y = (mon_info.rcWork.top + mon_info.rcWork.bottom - size.cy) / 2;
546 }
547 else if (template.style & DS_CENTERMOUSE)
548 {
549 GetCursorPos( &pos );
550 monitor = MonitorFromPoint( pos, MONITOR_DEFAULTTOPRIMARY );
551 GetMonitorInfoW( monitor, &mon_info );
552 }
553 else
554 {
555 pos.x += MulDiv(template.x, xBaseUnit, 4);
556 pos.y += MulDiv(template.y, yBaseUnit, 8);
557 if (!(template.style & (WS_CHILD|DS_ABSALIGN))) ClientToScreen( owner, &pos );
558 }
559 if ( !(template.style & WS_CHILD) )
560 {
561 INT dX, dY;
562
563 /* try to fit it into the desktop */
564
565 if (!monitor)
566 {
567 SetRect( &rect, pos.x, pos.y, pos.x + size.cx, pos.y + size.cy );
568 monitor = MonitorFromRect( &rect, MONITOR_DEFAULTTOPRIMARY );
569 GetMonitorInfoW( monitor, &mon_info );
570 }
571 if ((dX = pos.x + size.cx + GetSystemMetrics(SM_CXDLGFRAME) - mon_info.rcWork.right) > 0)
572 pos.x -= dX;
573 if ((dY = pos.y + size.cy + GetSystemMetrics(SM_CYDLGFRAME) - mon_info.rcWork.bottom) > 0)
574 pos.y -= dY;
575 if( pos.x < mon_info.rcWork.left ) pos.x = mon_info.rcWork.left;
576 if( pos.y < mon_info.rcWork.top ) pos.y = mon_info.rcWork.top;
577 }
578 }
579
580 if (modal_owner && owner)
581 {
582 HWND parent;
583 /*
584 * Owner needs to be top level window. We need to duplicate the logic from server,
585 * because we need to disable it before creating dialog window. Note that we do that
586 * even if dialog has WS_CHILD, but only for modal dialogs, which matched what
587 * Windows does.
588 */
589 while ((GetWindowLongW( owner, GWL_STYLE ) & (WS_POPUP|WS_CHILD)) == WS_CHILD)
590 {
591 parent = GetParent( owner );
592 if (!parent || parent == GetDesktopWindow()) break;
593 owner = parent;
594 }
595 *modal_owner = owner;
596 if (IsWindowEnabled( owner ))
597 {
598 disabled_owner = owner;
599 EnableWindow( disabled_owner, FALSE );
600 }
601 }
602
603 if (unicode)
604 {
605 hwnd = CreateWindowExW(template.exStyle, template.className, template.caption,
606 template.style & ~WS_VISIBLE, pos.x, pos.y, size.cx, size.cy,
607 owner, hMenu, hInst, NULL );
608 }
609 else
610 {
611 LPCSTR class = (LPCSTR)template.className;
612 LPCSTR caption = (LPCSTR)template.caption;
613 LPSTR class_tmp = NULL;
614 LPSTR caption_tmp = NULL;
615
616 if (!IS_INTRESOURCE(class))
617 {
618 DWORD len = WideCharToMultiByte( CP_ACP, 0, template.className, -1, NULL, 0, NULL, NULL );
619 class_tmp = HeapAlloc( GetProcessHeap(), 0, len );
620 WideCharToMultiByte( CP_ACP, 0, template.className, -1, class_tmp, len, NULL, NULL );
621 class = class_tmp;
622 }
623 if (!IS_INTRESOURCE(caption))
624 {
625 DWORD len = WideCharToMultiByte( CP_ACP, 0, template.caption, -1, NULL, 0, NULL, NULL );
626 caption_tmp = HeapAlloc( GetProcessHeap(), 0, len );
627 WideCharToMultiByte( CP_ACP, 0, template.caption, -1, caption_tmp, len, NULL, NULL );
628 caption = caption_tmp;
629 }
630 hwnd = CreateWindowExA(template.exStyle, class, caption,
631 template.style & ~WS_VISIBLE, pos.x, pos.y, size.cx, size.cy,
632 owner, hMenu, hInst, NULL );
633 HeapFree( GetProcessHeap(), 0, class_tmp );
634 HeapFree( GetProcessHeap(), 0, caption_tmp );
635 }
636
637 if (!hwnd)
638 {
639 if (hUserFont) DeleteObject( hUserFont );
640 if (hMenu) NtUserDestroyMenu( hMenu );
641 if (disabled_owner) EnableWindow( disabled_owner, TRUE );
642 return 0;
643 }
644
645 /* moved this from the top of the method to here as DIALOGINFO structure
646 will be valid only after WM_CREATE message has been handled in DefDlgProc
647 All the members of the structure get filled here using temp variables */
648 dlgInfo = DIALOG_get_info( hwnd, TRUE );
649 dlgInfo->hwndFocus = 0;
650 dlgInfo->hUserFont = hUserFont;
651 dlgInfo->hMenu = hMenu;
652 dlgInfo->xBaseUnit = xBaseUnit;
653 dlgInfo->yBaseUnit = yBaseUnit;
654 dlgInfo->flags = flags;
655
656 if (template.helpId) SetWindowContextHelpId( hwnd, template.helpId );
657
658 if (unicode) SetWindowLongPtrW( hwnd, DWLP_DLGPROC, (ULONG_PTR)dlgProc );
659 else SetWindowLongPtrA( hwnd, DWLP_DLGPROC, (ULONG_PTR)dlgProc );
660
661 if (dlgProc && dlgInfo->hUserFont)
662 SendMessageW( hwnd, WM_SETFONT, (WPARAM)dlgInfo->hUserFont, 0 );
663
664 /* Create controls */
665
666 if (DIALOG_CreateControls32( hwnd, dlgTemplate, &template, hInst, unicode ))
667 {
668 HWND capture;
669
670 /* Send initialisation messages and set focus */
671
672 if (dlgProc)
673 {
674 HWND focus = GetNextDlgTabItem( hwnd, 0, FALSE );
675 if (!focus) focus = GetNextDlgGroupItem( hwnd, 0, FALSE );
676 if (SendMessageW( hwnd, WM_INITDIALOG, (WPARAM)focus, param ) && IsWindow( hwnd ) &&
677 ((~template.style & DS_CONTROL) || (template.style & WS_VISIBLE)))
678 {
679 /* By returning TRUE, app has requested a default focus assignment.
680 * WM_INITDIALOG may have changed the tab order, so find the first
681 * tabstop control again. */
682 focus = GetNextDlgTabItem( hwnd, 0, FALSE );
683 if (!focus) focus = GetNextDlgGroupItem( hwnd, 0, FALSE );
684 if (focus)
685 {
686 if (SendMessageW( focus, WM_GETDLGCODE, 0, 0 ) & DLGC_HASSETSEL)
687 SendMessageW( focus, EM_SETSEL, 0, MAXLONG );
688 NtUserSetFocus( focus );
689 }
690 else
691 {
692 if (!(template.style & WS_CHILD))
693 NtUserSetFocus( hwnd );
694 }
695 }
696 }
697
698 if (modal_owner && (capture = GetCapture()))
699 SendMessageW( capture, WM_CANCELMODE, 0, 0 );
700
701 if (template.style & WS_VISIBLE && !(GetWindowLongW( hwnd, GWL_STYLE ) & WS_VISIBLE))
702 {
703 NtUserShowWindow( hwnd, SW_SHOWNORMAL ); /* SW_SHOW doesn't always work */
704 }
705 return hwnd;
706 }
707 if (disabled_owner) EnableWindow( disabled_owner, TRUE );
708 if (IsWindow(hwnd)) NtUserDestroyWindow( hwnd );
709 return 0;
710 }
711
712
713 /***********************************************************************
714 * CreateDialogParamA (USER32.@)
715 */
716 HWND WINAPI CreateDialogParamA( HINSTANCE hInst, LPCSTR name, HWND owner,
717 DLGPROC dlgProc, LPARAM param )
718 {
719 HRSRC hrsrc;
720 LPCDLGTEMPLATEA ptr;
721
722 if (!(hrsrc = FindResourceA( hInst, name, (LPSTR)RT_DIALOG ))) return 0;
723 if (!(ptr = LoadResource(hInst, hrsrc))) return 0;
724 return CreateDialogIndirectParamA( hInst, ptr, owner, dlgProc, param );
725 }
726
727
728 /***********************************************************************
729 * CreateDialogParamW (USER32.@)
730 */
731 HWND WINAPI CreateDialogParamW( HINSTANCE hInst, LPCWSTR name, HWND owner,
732 DLGPROC dlgProc, LPARAM param )
733 {
734 HRSRC hrsrc;
735 LPCDLGTEMPLATEA ptr;
736
737 if (!(hrsrc = FindResourceW( hInst, name, (LPWSTR)RT_DIALOG ))) return 0;
738 if (!(ptr = LoadResource(hInst, hrsrc))) return 0;
739 return CreateDialogIndirectParamW( hInst, ptr, owner, dlgProc, param );
740 }
741
742
743 /***********************************************************************
744 * CreateDialogIndirectParamAorW (USER32.@)
745 */
746 HWND WINAPI CreateDialogIndirectParamAorW( HINSTANCE hInst, LPCVOID dlgTemplate,
747 HWND owner, DLGPROC dlgProc, LPARAM param,
748 DWORD flags )
749 {
750 return DIALOG_CreateIndirect( hInst, dlgTemplate, owner, dlgProc, param, !flags, FALSE );
751 }
752
753 /***********************************************************************
754 * CreateDialogIndirectParamA (USER32.@)
755 */
756 HWND WINAPI CreateDialogIndirectParamA( HINSTANCE hInst, LPCDLGTEMPLATEA dlgTemplate,
757 HWND owner, DLGPROC dlgProc, LPARAM param )
758 {
759 return CreateDialogIndirectParamAorW( hInst, dlgTemplate, owner, dlgProc, param, 2 );
760 }
761
762 /***********************************************************************
763 * CreateDialogIndirectParamW (USER32.@)
764 */
765 HWND WINAPI CreateDialogIndirectParamW( HINSTANCE hInst, LPCDLGTEMPLATEW dlgTemplate,
766 HWND owner, DLGPROC dlgProc, LPARAM param )
767 {
768 return CreateDialogIndirectParamAorW( hInst, dlgTemplate, owner, dlgProc, param, 0 );
769 }
770
771
772 /***********************************************************************
773 * DIALOG_DoDialogBox
774 */
775 INT DIALOG_DoDialogBox( HWND hwnd, HWND owner )
776 {
777 DIALOGINFO * dlgInfo;
778 MSG msg;
779 INT retval;
780 BOOL bFirstEmpty;
781
782 if (!(dlgInfo = DIALOG_get_info( hwnd, FALSE ))) return -1;
783
784 bFirstEmpty = TRUE;
785 if (!(dlgInfo->flags & DF_END)) /* was EndDialog called in WM_INITDIALOG ? */
786 {
787 for (;;)
788 {
789 if (!PeekMessageW( &msg, 0, 0, 0, PM_REMOVE ))
790 {
791 if (bFirstEmpty)
792 {
793 /* ShowWindow the first time the queue goes empty */
794 NtUserShowWindow( hwnd, SW_SHOWNORMAL );
795 bFirstEmpty = FALSE;
796 }
797 if (!(GetWindowLongW( hwnd, GWL_STYLE ) & DS_NOIDLEMSG))
798 {
799 /* No message present -> send ENTERIDLE and wait */
800 SendMessageW( owner, WM_ENTERIDLE, MSGF_DIALOGBOX, (LPARAM)hwnd );
801 }
802 GetMessageW( &msg, 0, 0, 0 );
803 }
804
805 if (msg.message == WM_QUIT)
806 {
807 PostQuitMessage( msg.wParam );
808 if (!IsWindow( hwnd )) return 0;
809 break;
810 }
811 if (!IsWindow( hwnd )) return 0;
812 if (!(dlgInfo->flags & DF_END) && !IsDialogMessageW( hwnd, &msg))
813 {
814 TranslateMessage( &msg );
815 DispatchMessageW( &msg );
816 }
817 if (!IsWindow( hwnd )) return 0;
818 if (dlgInfo->flags & DF_END) break;
819
820 if (bFirstEmpty && msg.message == WM_TIMER)
821 {
822 NtUserShowWindow( hwnd, SW_SHOWNORMAL );
823 bFirstEmpty = FALSE;
824 }
825 }
826 }
827 retval = dlgInfo->idResult;
828 NtUserDestroyWindow( hwnd );
829 return retval;
830 }
831
832
833 /***********************************************************************
834 * DialogBoxParamA (USER32.@)
835 */
836 INT_PTR WINAPI DialogBoxParamA( HINSTANCE hInst, LPCSTR name,
837 HWND owner, DLGPROC dlgProc, LPARAM param )
838 {
839 HWND hwnd;
840 HRSRC hrsrc;
841 LPCDLGTEMPLATEA ptr;
842
843 if (owner && !IsWindow(owner)) return 0;
844
845 if (!(hrsrc = FindResourceA( hInst, name, (LPSTR)RT_DIALOG ))) return -1;
846 if (!(ptr = LoadResource(hInst, hrsrc))) return -1;
847 if (!(hwnd = DIALOG_CreateIndirect( hInst, ptr, owner, dlgProc, param, FALSE, &owner ))) return -1;
848 return DIALOG_DoDialogBox( hwnd, owner );
849 }
850
851
852 /***********************************************************************
853 * DialogBoxParamW (USER32.@)
854 */
855 INT_PTR WINAPI DialogBoxParamW( HINSTANCE hInst, LPCWSTR name,
856 HWND owner, DLGPROC dlgProc, LPARAM param )
857 {
858 HWND hwnd;
859 HRSRC hrsrc;
860 LPCDLGTEMPLATEW ptr;
861
862 if (owner && !IsWindow(owner)) return 0;
863
864 if (!(hrsrc = FindResourceW( hInst, name, (LPWSTR)RT_DIALOG ))) return -1;
865 if (!(ptr = LoadResource(hInst, hrsrc))) return -1;
866 if (!(hwnd = DIALOG_CreateIndirect( hInst, ptr, owner, dlgProc, param, TRUE, &owner ))) return -1;
867 return DIALOG_DoDialogBox( hwnd, owner );
868 }
869
870
871 /***********************************************************************
872 * DialogBoxIndirectParamAorW (USER32.@)
873 */
874 INT_PTR WINAPI DialogBoxIndirectParamAorW( HINSTANCE hInstance, LPCVOID template,
875 HWND owner, DLGPROC dlgProc,
876 LPARAM param, DWORD flags )
877 {
878 HWND hwnd = DIALOG_CreateIndirect( hInstance, template, owner, dlgProc, param, !flags, &owner );
879 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
880 return -1;
881 }
882
883 /***********************************************************************
884 * DialogBoxIndirectParamA (USER32.@)
885 */
886 INT_PTR WINAPI DialogBoxIndirectParamA(HINSTANCE hInstance, LPCDLGTEMPLATEA template,
887 HWND owner, DLGPROC dlgProc, LPARAM param )
888 {
889 return DialogBoxIndirectParamAorW( hInstance, template, owner, dlgProc, param, 2 );
890 }
891
892
893 /***********************************************************************
894 * DialogBoxIndirectParamW (USER32.@)
895 */
896 INT_PTR WINAPI DialogBoxIndirectParamW(HINSTANCE hInstance, LPCDLGTEMPLATEW template,
897 HWND owner, DLGPROC dlgProc, LPARAM param )
898 {
899 return DialogBoxIndirectParamAorW( hInstance, template, owner, dlgProc, param, 0 );
900 }
901
902 /***********************************************************************
903 * EndDialog (USER32.@)
904 */
905 BOOL WINAPI EndDialog( HWND hwnd, INT_PTR retval )
906 {
907 DIALOGINFO * dlgInfo;
908 HWND owner;
909
910 TRACE("%p %Id\n", hwnd, retval );
911
912 if (!(dlgInfo = DIALOG_get_info( hwnd, FALSE )))
913 {
914 ERR("got invalid window handle (%p); buggy app !?\n", hwnd);
915 return FALSE;
916 }
917 dlgInfo->idResult = retval;
918 dlgInfo->flags |= DF_END;
919
920 owner = (HWND)GetWindowLongPtrA( hwnd, GWLP_HWNDPARENT );
921 if (owner)
922 EnableWindow( owner, TRUE );
923
924 /* Windows sets the focus to the dialog itself in EndDialog */
925
926 if (IsChild(hwnd, GetFocus()))
927 NtUserSetFocus( hwnd );
928
929 /* Don't have to send a ShowWindow(SW_HIDE), just do
930 SetWindowPos with SWP_HIDEWINDOW as done in Windows */
931
932 NtUserSetWindowPos( hwnd, NULL, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE
933 | SWP_NOZORDER | SWP_NOACTIVATE | SWP_HIDEWINDOW );
934
935 if (hwnd == GetActiveWindow())
936 {
937 /* If this dialog was given an owner then set the focus to that owner. */
938 if (owner)
939 SetForegroundWindow( owner );
940 else
941 NtUserActivateOtherWindow( hwnd );
942 }
943
944 /* unblock dialog loop */
945 PostMessageA(hwnd, WM_NULL, 0, 0);
946 return TRUE;
947 }
948
949
950 /***********************************************************************
951 * DIALOG_IsAccelerator
952 */
953 static BOOL DIALOG_IsAccelerator( HWND hwnd, HWND hwndDlg, WPARAM wParam )
954 {
955 HWND hwndControl = hwnd;
956 HWND hwndNext;
957 INT dlgCode;
958 WCHAR buffer[128];
959
960 do
961 {
962 DWORD style = GetWindowLongW( hwndControl, GWL_STYLE );
963 if ((style & (WS_VISIBLE | WS_DISABLED)) == WS_VISIBLE)
964 {
965 dlgCode = SendMessageW( hwndControl, WM_GETDLGCODE, 0, 0 );
966 if ( (dlgCode & (DLGC_BUTTON | DLGC_STATIC)) &&
967 GetWindowTextW( hwndControl, buffer, ARRAY_SIZE( buffer )))
968 {
969 /* find the accelerator key */
970 LPWSTR p = buffer - 2;
971
972 do
973 {
974 p = wcschr( p + 2, '&' );
975 }
976 while (p != NULL && p[1] == '&');
977
978 /* and check if it's the one we're looking for */
979 if (p != NULL && towupper( p[1] ) == towupper( wParam ) )
980 {
981 if ((dlgCode & DLGC_STATIC) || (style & 0x0f) == BS_GROUPBOX )
982 {
983 /* set focus to the control */
984 SendMessageW( hwndDlg, WM_NEXTDLGCTL, (WPARAM)hwndControl, 1);
985 /* and bump it on to next */
986 SendMessageW( hwndDlg, WM_NEXTDLGCTL, 0, 0);
987 }
988 else if (dlgCode & DLGC_BUTTON)
989 {
990 /* send BM_CLICK message to the control */
991 SendMessageW( hwndControl, BM_CLICK, 0, 0 );
992 }
993 return TRUE;
994 }
995 }
996 hwndNext = GetWindow( hwndControl, GW_CHILD );
997 }
998 else hwndNext = 0;
999
1000 if (!hwndNext) hwndNext = GetWindow( hwndControl, GW_HWNDNEXT );
1001
1002 while (!hwndNext && hwndControl)
1003 {
1004 hwndControl = GetParent( hwndControl );
1005 if (hwndControl == hwndDlg)
1006 {
1007 if(hwnd==hwndDlg) /* prevent endless loop */
1008 {
1009 hwndNext=hwnd;
1010 break;
1011 }
1012 hwndNext = GetWindow( hwndDlg, GW_CHILD );
1013 }
1014 else
1015 hwndNext = GetWindow( hwndControl, GW_HWNDNEXT );
1016 }
1017 hwndControl = hwndNext;
1018 }
1019 while (hwndControl && (hwndControl != hwnd));
1020
1021 return FALSE;
1022 }
1023
1024 /***********************************************************************
1025 * DIALOG_FindMsgDestination
1026 *
1027 * The messages that IsDialogMessage sends may not go to the dialog
1028 * calling IsDialogMessage if that dialog is a child, and it has the
1029 * DS_CONTROL style set.
1030 * We propagate up until we hit one that does not have DS_CONTROL, or
1031 * whose parent is not a dialog.
1032 *
1033 * This is undocumented behaviour.
1034 */
1035 static HWND DIALOG_FindMsgDestination( HWND hwndDlg )
1036 {
1037 while (GetWindowLongA(hwndDlg, GWL_STYLE) & DS_CONTROL)
1038 {
1039 HWND hParent = GetParent(hwndDlg);
1040
1041 if (!hParent || !WIN_IsCurrentProcess( hParent )) break;
1042 if (!NtUserGetDialogInfo( hParent )) break;
1043
1044 hwndDlg = hParent;
1045 }
1046
1047 return hwndDlg;
1048 }
1049
1050 /***********************************************************************
1051 * DIALOG_FixOneChildOnChangeFocus
1052 *
1053 * Callback helper for DIALOG_FixChildrenOnChangeFocus
1054 */
1055
1056 static BOOL CALLBACK DIALOG_FixOneChildOnChangeFocus (HWND hwndChild,
1057 LPARAM lParam)
1058 {
1059 /* If a default pushbutton then no longer default */
1060 if (DLGC_DEFPUSHBUTTON & SendMessageW (hwndChild, WM_GETDLGCODE, 0, 0))
1061 SendMessageW (hwndChild, BM_SETSTYLE, BS_PUSHBUTTON, TRUE);
1062 return TRUE;
1063 }
1064
1065 /***********************************************************************
1066 * DIALOG_FixChildrenOnChangeFocus
1067 *
1068 * Following the change of focus that occurs for example after handling
1069 * a WM_KEYDOWN VK_TAB in IsDialogMessage, some tidying of the dialog's
1070 * children may be required.
1071 */
1072 static void DIALOG_FixChildrenOnChangeFocus (HWND hwndDlg, HWND hwndNext)
1073 {
1074 INT dlgcode_next = SendMessageW (hwndNext, WM_GETDLGCODE, 0, 0);
1075 /* INT dlgcode_dlg = SendMessageW (hwndDlg, WM_GETDLGCODE, 0, 0); */
1076 /* Windows does ask for this. I don't know why yet */
1077
1078 EnumChildWindows (hwndDlg, DIALOG_FixOneChildOnChangeFocus, 0);
1079
1080 /* If the button that is getting the focus WAS flagged as the default
1081 * pushbutton then ask the dialog what it thinks the default is and
1082 * set that in the default style.
1083 */
1084 if (dlgcode_next & DLGC_DEFPUSHBUTTON)
1085 {
1086 DWORD def_id = SendMessageW (hwndDlg, DM_GETDEFID, 0, 0);
1087 if (HIWORD(def_id) == DC_HASDEFID)
1088 {
1089 HWND hwndDef;
1090 def_id = LOWORD(def_id);
1091 hwndDef = GetDlgItem (hwndDlg, def_id);
1092 if (hwndDef)
1093 {
1094 INT dlgcode_def = SendMessageW (hwndDef, WM_GETDLGCODE, 0, 0);
1095 /* I know that if it is a button then it should already be a
1096 * UNDEFPUSHBUTTON, since we have just told the buttons to
1097 * change style. But maybe they ignored our request
1098 */
1099 if ((dlgcode_def & DLGC_BUTTON) &&
1100 (dlgcode_def & DLGC_UNDEFPUSHBUTTON))
1101 {
1102 SendMessageW (hwndDef, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE);
1103 }
1104 }
1105 }
1106 }
1107 else if ((dlgcode_next & DLGC_BUTTON) && (dlgcode_next & DLGC_UNDEFPUSHBUTTON))
1108 {
1109 SendMessageW (hwndNext, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE);
1110 /* I wonder why it doesn't send a DM_SETDEFID */
1111 }
1112 }
1113
1114 /***********************************************************************
1115 * DIALOG_IdToHwnd
1116 *
1117 * A recursive version of GetDlgItem
1118 *
1119 * RETURNS
1120 * The HWND for a Child ID.
1121 */
1122 static HWND DIALOG_IdToHwnd( HWND hwndDlg, INT id )
1123 {
1124 int i;
1125 HWND *list = WIN_ListChildren( hwndDlg );
1126 HWND ret = 0;
1127
1128 if (!list) return 0;
1129
1130 for (i = 0; list[i]; i++)
1131 {
1132 if (GetWindowLongPtrW( list[i], GWLP_ID ) == id)
1133 {
1134 ret = list[i];
1135 break;
1136 }
1137
1138 /* Recurse into every child */
1139 if ((ret = DIALOG_IdToHwnd( list[i], id ))) break;
1140 }
1141
1142 HeapFree( GetProcessHeap(), 0, list );
1143 return ret;
1144 }
1145
1146 /***********************************************************************
1147 * IsDialogMessageW (USER32.@)
1148 */
1149 BOOL WINAPI IsDialogMessageW( HWND hwndDlg, LPMSG msg )
1150 {
1151 INT dlgCode;
1152
1153 if (!IsWindow( hwndDlg ))
1154 return FALSE;
1155
1156 if (NtUserCallMsgFilter( msg, MSGF_DIALOGBOX )) return TRUE;
1157
1158 hwndDlg = WIN_GetFullHandle( hwndDlg );
1159 if (is_desktop_window(hwndDlg)) return FALSE;
1160 if ((hwndDlg != msg->hwnd) && !IsChild( hwndDlg, msg->hwnd )) return FALSE;
1161
1162 hwndDlg = DIALOG_FindMsgDestination(hwndDlg);
1163
1164 switch(msg->message)
1165 {
1166 case WM_KEYDOWN:
1167 dlgCode = SendMessageW( msg->hwnd, WM_GETDLGCODE, msg->wParam, (LPARAM)msg );
1168 if (dlgCode & (DLGC_WANTMESSAGE)) break;
1169
1170 switch(msg->wParam)
1171 {
1172 case VK_TAB:
1173 if (!(dlgCode & DLGC_WANTTAB))
1174 {
1175 BOOL fIsDialog = !WIN_IsCurrentProcess( hwndDlg ) ||
1176 NtUserGetDialogInfo( hwndDlg ) != NULL;
1177
1178 /* I am not sure under which circumstances the TAB is handled
1179 * each way. All I do know is that it does not always simply
1180 * send WM_NEXTDLGCTL. (Personally I have never yet seen it
1181 * do so but I presume someone has)
1182 */
1183 if (fIsDialog)
1184 SendMessageW( hwndDlg, WM_NEXTDLGCTL, (NtUserGetKeyState(VK_SHIFT) & 0x8000), 0 );
1185 else
1186 {
1187 /* It would appear that GetNextDlgTabItem can handle being
1188 * passed hwndDlg rather than NULL but that is undocumented
1189 * so let's do it properly
1190 */
1191 HWND hwndFocus = GetFocus();
1192 HWND hwndNext = GetNextDlgTabItem (hwndDlg,
1193 hwndFocus == hwndDlg ? NULL : hwndFocus,
1194 NtUserGetKeyState (VK_SHIFT) & 0x8000);
1195 if (hwndNext)
1196 {
1197 dlgCode = SendMessageW (hwndNext, WM_GETDLGCODE,
1198 msg->wParam, (LPARAM)msg);
1199 if (dlgCode & DLGC_HASSETSEL)
1200 {
1201 INT maxlen = 1 + SendMessageW (hwndNext, WM_GETTEXTLENGTH, 0, 0);
1202 WCHAR *buffer = HeapAlloc (GetProcessHeap(), 0, maxlen * sizeof(WCHAR));
1203 if (buffer)
1204 {
1205 INT length;
1206 SendMessageW (hwndNext, WM_GETTEXT, maxlen, (LPARAM) buffer);
1207 length = lstrlenW (buffer);
1208 HeapFree (GetProcessHeap(), 0, buffer);
1209 SendMessageW (hwndNext, EM_SETSEL, 0, length);
1210 }
1211 }
1212 NtUserSetFocus( hwndNext );
1213 DIALOG_FixChildrenOnChangeFocus (hwndDlg, hwndNext);
1214 }
1215 else
1216 return FALSE;
1217 }
1218 return TRUE;
1219 }
1220 break;
1221
1222 case VK_RIGHT:
1223 case VK_DOWN:
1224 case VK_LEFT:
1225 case VK_UP:
1226 if (!(dlgCode & DLGC_WANTARROWS))
1227 {
1228 BOOL fPrevious = (msg->wParam == VK_LEFT || msg->wParam == VK_UP);
1229 HWND hwndNext = GetNextDlgGroupItem( hwndDlg, msg->hwnd, fPrevious );
1230 if (hwndNext && SendMessageW( hwndNext, WM_GETDLGCODE, msg->wParam, (LPARAM)msg ) == (DLGC_BUTTON | DLGC_RADIOBUTTON))
1231 {
1232 NtUserSetFocus( hwndNext );
1233 if ((GetWindowLongW( hwndNext, GWL_STYLE ) & BS_TYPEMASK) == BS_AUTORADIOBUTTON &&
1234 SendMessageW( hwndNext, BM_GETCHECK, 0, 0 ) != BST_CHECKED)
1235 SendMessageW( hwndNext, BM_CLICK, 1, 0 );
1236 }
1237 else
1238 SendMessageW( hwndDlg, WM_NEXTDLGCTL, (WPARAM)hwndNext, 1 );
1239 return TRUE;
1240 }
1241 break;
1242
1243 case VK_CANCEL:
1244 case VK_ESCAPE:
1245 SendMessageW( hwndDlg, WM_COMMAND, IDCANCEL, (LPARAM)GetDlgItem( hwndDlg, IDCANCEL ) );
1246 return TRUE;
1247
1248 case VK_EXECUTE:
1249 case VK_RETURN:
1250 {
1251 DWORD dw;
1252 HWND hwndFocus = GetFocus();
1253 if (IsChild( hwndDlg, hwndFocus ) &&
1254 (SendMessageW( hwndFocus, WM_GETDLGCODE, 0, 0 ) & DLGC_DEFPUSHBUTTON))
1255 {
1256 SendMessageW( hwndDlg, WM_COMMAND, MAKEWPARAM( GetDlgCtrlID( hwndFocus ), BN_CLICKED ), (LPARAM)hwndFocus );
1257 }
1258 else if (DC_HASDEFID == HIWORD(dw = SendMessageW (hwndDlg, DM_GETDEFID, 0, 0)))
1259 {
1260 HWND hwndDef = DIALOG_IdToHwnd(hwndDlg, LOWORD(dw));
1261 if (!hwndDef || IsWindowEnabled(hwndDef))
1262 SendMessageW( hwndDlg, WM_COMMAND, MAKEWPARAM( LOWORD(dw), BN_CLICKED ), (LPARAM)hwndDef);
1263 }
1264 else
1265 {
1266 SendMessageW( hwndDlg, WM_COMMAND, IDOK, (LPARAM)GetDlgItem( hwndDlg, IDOK ) );
1267 }
1268 }
1269 return TRUE;
1270 }
1271 break;
1272
1273 case WM_CHAR:
1274 /* FIXME Under what circumstances does WM_GETDLGCODE get sent?
1275 * It does NOT get sent in the test program I have
1276 */
1277 dlgCode = SendMessageW( msg->hwnd, WM_GETDLGCODE, msg->wParam, (LPARAM)msg );
1278 if (dlgCode & (DLGC_WANTCHARS|DLGC_WANTMESSAGE)) break;
1279 if (msg->wParam == '\t' && (dlgCode & DLGC_WANTTAB)) break;
1280 /* drop through */
1281
1282 case WM_SYSCHAR:
1283 if (DIALOG_IsAccelerator( WIN_GetFullHandle(msg->hwnd), hwndDlg, msg->wParam ))
1284 {
1285 /* don't translate or dispatch */
1286 return TRUE;
1287 }
1288 break;
1289 }
1290
1291 TranslateMessage( msg );
1292 DispatchMessageW( msg );
1293 return TRUE;
1294 }
1295
1296
1297 /***********************************************************************
1298 * GetDlgCtrlID (USER32.@)
1299 */
1300 INT WINAPI GetDlgCtrlID( HWND hwnd )
1301 {
1302 return GetWindowLongPtrW( hwnd, GWLP_ID );
1303 }
1304
1305
1306 /***********************************************************************
1307 * GetDlgItem (USER32.@)
1308 */
1309 HWND WINAPI GetDlgItem( HWND hwndDlg, INT id )
1310 {
1311 int i;
1312 HWND *list = WIN_ListChildren( hwndDlg );
1313 HWND ret = 0;
1314
1315 if (!list) return 0;
1316
1317 for (i = 0; list[i]; i++) if (GetWindowLongPtrW( list[i], GWLP_ID ) == id) break;
1318 ret = list[i];
1319 HeapFree( GetProcessHeap(), 0, list );
1320 return ret;
1321 }
1322
1323
1324 /*******************************************************************
1325 * SendDlgItemMessageA (USER32.@)
1326 */
1327 LRESULT WINAPI SendDlgItemMessageA( HWND hwnd, INT id, UINT msg,
1328 WPARAM wParam, LPARAM lParam )
1329 {
1330 HWND hwndCtrl = GetDlgItem( hwnd, id );
1331 if (hwndCtrl) return SendMessageA( hwndCtrl, msg, wParam, lParam );
1332 else return 0;
1333 }
1334
1335
1336 /*******************************************************************
1337 * SendDlgItemMessageW (USER32.@)
1338 */
1339 LRESULT WINAPI SendDlgItemMessageW( HWND hwnd, INT id, UINT msg,
1340 WPARAM wParam, LPARAM lParam )
1341 {
1342 HWND hwndCtrl = GetDlgItem( hwnd, id );
1343 if (hwndCtrl) return SendMessageW( hwndCtrl, msg, wParam, lParam );
1344 else return 0;
1345 }
1346
1347
1348 /*******************************************************************
1349 * SetDlgItemTextA (USER32.@)
1350 */
1351 BOOL WINAPI SetDlgItemTextA( HWND hwnd, INT id, LPCSTR lpString )
1352 {
1353 return SendDlgItemMessageA( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1354 }
1355
1356
1357 /*******************************************************************
1358 * SetDlgItemTextW (USER32.@)
1359 */
1360 BOOL WINAPI SetDlgItemTextW( HWND hwnd, INT id, LPCWSTR lpString )
1361 {
1362 return SendDlgItemMessageW( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1363 }
1364
1365
1366 /***********************************************************************
1367 * GetDlgItemTextA (USER32.@)
1368 */
1369 UINT WINAPI GetDlgItemTextA( HWND hwnd, INT id, LPSTR str, INT len )
1370 {
1371 if (str && (len > 0)) str[0] = '\0';
1372 return (UINT)SendDlgItemMessageA( hwnd, id, WM_GETTEXT,
1373 len, (LPARAM)str );
1374 }
1375
1376
1377 /***********************************************************************
1378 * GetDlgItemTextW (USER32.@)
1379 */
1380 UINT WINAPI GetDlgItemTextW( HWND hwnd, INT id, LPWSTR str, INT len )
1381 {
1382 if (str && (len > 0)) str[0] = '\0';
1383 return (UINT)SendDlgItemMessageW( hwnd, id, WM_GETTEXT,
1384 len, (LPARAM)str );
1385 }
1386
1387
1388 /*******************************************************************
1389 * SetDlgItemInt (USER32.@)
1390 */
1391 BOOL WINAPI SetDlgItemInt( HWND hwnd, INT id, UINT value,
1392 BOOL fSigned )
1393 {
1394 char str[20];
1395
1396 if (fSigned) sprintf( str, "%d", (INT)value );
1397 else sprintf( str, "%u", value );
1398 SendDlgItemMessageA( hwnd, id, WM_SETTEXT, 0, (LPARAM)str );
1399 return TRUE;
1400 }
1401
1402
1403 /***********************************************************************
1404 * GetDlgItemInt (USER32.@)
1405 */
1406 UINT WINAPI GetDlgItemInt( HWND hwnd, INT id, BOOL *translated,
1407 BOOL fSigned )
1408 {
1409 char str[30];
1410 char * endptr;
1411 LONG_PTR result = 0;
1412
1413 if (translated) *translated = FALSE;
1414 if (!SendDlgItemMessageA(hwnd, id, WM_GETTEXT, sizeof(str), (LPARAM)str))
1415 return 0;
1416 if (fSigned)
1417 {
1418 result = strtol( str, &endptr, 10 );
1419 if (!endptr || (endptr == str)) /* Conversion was unsuccessful */
1420 return 0;
1421 if (((result == LONG_MIN) || (result == LONG_MAX)) && (errno==ERANGE))
1422 return 0;
1423 }
1424 else
1425 {
1426 result = strtoul( str, &endptr, 10 );
1427 if (!endptr || (endptr == str)) /* Conversion was unsuccessful */
1428 return 0;
1429 if ((result == ULONG_MAX) && (errno == ERANGE)) return 0;
1430 }
1431 if (translated) *translated = TRUE;
1432 return (UINT)result;
1433 }
1434
1435
1436 /***********************************************************************
1437 * CheckDlgButton (USER32.@)
1438 */
1439 BOOL WINAPI CheckDlgButton( HWND hwnd, INT id, UINT check )
1440 {
1441 SendDlgItemMessageW( hwnd, id, BM_SETCHECK, check, 0 );
1442 return TRUE;
1443 }
1444
1445
1446 /***********************************************************************
1447 * IsDlgButtonChecked (USER32.@)
1448 */
1449 UINT WINAPI IsDlgButtonChecked( HWND hwnd, int id )
1450 {
1451 return (UINT)SendDlgItemMessageW( hwnd, id, BM_GETCHECK, 0, 0 );
1452 }
1453
1454
1455 /***********************************************************************
1456 * CheckRB
1457 *
1458 * Callback function used to check/uncheck radio buttons that fall
1459 * within a specific range of IDs.
1460 */
1461 static BOOL CALLBACK CheckRB(HWND hwndChild, LPARAM lParam)
1462 {
1463 LONG lChildID = GetWindowLongPtrW(hwndChild, GWLP_ID);
1464 RADIOGROUP *lpRadioGroup = (RADIOGROUP *) lParam;
1465
1466 if ((lChildID >= lpRadioGroup->firstID) &&
1467 (lChildID <= lpRadioGroup->lastID))
1468 {
1469 if (lChildID == lpRadioGroup->checkID)
1470 {
1471 SendMessageW(hwndChild, BM_SETCHECK, BST_CHECKED, 0);
1472 }
1473 else
1474 {
1475 SendMessageW(hwndChild, BM_SETCHECK, BST_UNCHECKED, 0);
1476 }
1477 }
1478
1479 return TRUE;
1480 }
1481
1482
1483 /***********************************************************************
1484 * CheckRadioButton (USER32.@)
1485 */
1486 BOOL WINAPI CheckRadioButton( HWND hwndDlg, int firstID,
1487 int lastID, int checkID )
1488 {
1489 RADIOGROUP radioGroup;
1490
1491 radioGroup.firstID = firstID;
1492 radioGroup.lastID = lastID;
1493 radioGroup.checkID = checkID;
1494
1495 return EnumChildWindows(hwndDlg, CheckRB, (LPARAM)&radioGroup);
1496 }
1497
1498
1499 /***********************************************************************
1500 * GetDialogBaseUnits (USER.243)
1501 * GetDialogBaseUnits (USER32.@)
1502 */
1503 DWORD WINAPI GetDialogBaseUnits(void)
1504 {
1505 return NtUserGetDialogBaseUnits();
1506 }
1507
1508
1509 /***********************************************************************
1510 * MapDialogRect (USER32.@)
1511 */
1512 BOOL WINAPI MapDialogRect( HWND hwnd, LPRECT rect )
1513 {
1514 DIALOGINFO * dlgInfo;
1515 if (!(dlgInfo = DIALOG_get_info( hwnd, FALSE ))) return FALSE;
1516 rect->left = MulDiv(rect->left, dlgInfo->xBaseUnit, 4);
1517 rect->right = MulDiv(rect->right, dlgInfo->xBaseUnit, 4);
1518 rect->top = MulDiv(rect->top, dlgInfo->yBaseUnit, 8);
1519 rect->bottom = MulDiv(rect->bottom, dlgInfo->yBaseUnit, 8);
1520 return TRUE;
1521 }
1522
1523
1524 /***********************************************************************
1525 * GetNextDlgGroupItem (USER32.@)
1526 *
1527 * Corrections to MSDN documentation
1528 *
1529 * (Under Windows 2000 at least, where hwndDlg is not actually a dialog)
1530 * 1. hwndCtrl can be hwndDlg in which case it behaves as for NULL
1531 * 2. Prev of NULL or hwndDlg fails
1532 */
1533 HWND WINAPI GetNextDlgGroupItem( HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious )
1534 {
1535 HWND hwnd, hwndNext, retvalue, hwndLastGroup = 0;
1536 BOOL fLooped=FALSE;
1537 BOOL fSkipping=FALSE;
1538
1539 hwndDlg = WIN_GetFullHandle( hwndDlg );
1540 hwndCtrl = WIN_GetFullHandle( hwndCtrl );
1541
1542 if (hwndDlg == hwndCtrl) hwndCtrl = NULL;
1543 if (!hwndCtrl && fPrevious) return 0;
1544
1545 if (hwndCtrl)
1546 {
1547 if (!IsChild (hwndDlg, hwndCtrl)) return 0;
1548 }
1549 else
1550 {
1551 /* No ctrl specified -> start from the beginning */
1552 if (!(hwndCtrl = GetWindow( hwndDlg, GW_CHILD ))) return 0;
1553 /* MSDN is wrong. fPrevious does not result in the last child */
1554
1555 /* Maybe that first one is valid. If so then we don't want to skip it*/
1556 if ((GetWindowLongW( hwndCtrl, GWL_STYLE ) & (WS_VISIBLE|WS_DISABLED)) == WS_VISIBLE)
1557 {
1558 return hwndCtrl;
1559 }
1560 }
1561
1562 /* Always go forward around the group and list of controls; for the
1563 * previous control keep track; for the next break when you find one
1564 */
1565 retvalue = hwndCtrl;
1566 hwnd = hwndCtrl;
1567 while (1)
1568 {
1569 hwndNext = GetWindow (hwnd, GW_HWNDNEXT);
1570 while (!hwndNext)
1571 {
1572 /* Climb out until there is a next sibling of the ancestor or we
1573 * reach the top (in which case we loop back to the start)
1574 */
1575 if (hwndDlg == GetParent (hwnd))
1576 {
1577 /* Wrap around to the beginning of the list, within the same
1578 * group. (Once only)
1579 */
1580 if (fLooped) goto end;
1581 fLooped = TRUE;
1582 hwndNext = GetWindow (hwndDlg, GW_CHILD);
1583 }
1584 else
1585 {
1586 hwnd = GetParent (hwnd);
1587 hwndNext = GetWindow (hwnd, GW_HWNDNEXT);
1588 }
1589 }
1590 hwnd = hwndNext;
1591
1592 /* Wander down the leading edge of controlparents */
1593 while ( (GetWindowLongW (hwnd, GWL_EXSTYLE) & WS_EX_CONTROLPARENT) &&
1594 ((GetWindowLongW (hwnd, GWL_STYLE) & (WS_VISIBLE | WS_DISABLED)) == WS_VISIBLE) &&
1595 (hwndNext = GetWindow (hwnd, GW_CHILD)))
1596 hwnd = hwndNext;
1597 /* Question. If the control is a control parent but either has no
1598 * children or is not visible/enabled then if it has a WS_GROUP does
1599 * it count? For that matter does it count anyway?
1600 * I believe it doesn't count.
1601 */
1602
1603 if ((GetWindowLongW (hwnd, GWL_STYLE) & WS_GROUP))
1604 {
1605 hwndLastGroup = hwnd;
1606 if (!fSkipping)
1607 {
1608 /* Look for the beginning of the group */
1609 fSkipping = TRUE;
1610 }
1611 }
1612
1613 if (hwnd == hwndCtrl)
1614 {
1615 if (!fSkipping) break;
1616 if (hwndLastGroup == hwnd) break;
1617 hwnd = hwndLastGroup;
1618 fSkipping = FALSE;
1619 fLooped = FALSE;
1620 }
1621
1622 if (!fSkipping &&
1623 (GetWindowLongW (hwnd, GWL_STYLE) & (WS_VISIBLE|WS_DISABLED)) ==
1624 WS_VISIBLE)
1625 {
1626 retvalue = hwnd;
1627 if (!fPrevious) break;
1628 }
1629 }
1630 end:
1631 return retvalue;
1632 }
1633
1634
1635 /***********************************************************************
1636 * DIALOG_GetNextTabItem
1637 *
1638 * Recursive helper for GetNextDlgTabItem
1639 */
1640 static HWND DIALOG_GetNextTabItem( HWND hwndMain, HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious )
1641 {
1642 LONG dsStyle;
1643 LONG exStyle;
1644 UINT wndSearch = fPrevious ? GW_HWNDPREV : GW_HWNDNEXT;
1645 HWND retWnd = 0;
1646 HWND hChildFirst = 0;
1647
1648 if(!hwndCtrl)
1649 {
1650 hChildFirst = GetWindow(hwndDlg,GW_CHILD);
1651 if(fPrevious) hChildFirst = GetWindow(hChildFirst,GW_HWNDLAST);
1652 }
1653 else if (IsChild( hwndMain, hwndCtrl ))
1654 {
1655 hChildFirst = GetWindow(hwndCtrl,wndSearch);
1656 if(!hChildFirst)
1657 {
1658 if(GetParent(hwndCtrl) != hwndMain)
1659 /* i.e. if we are not at the top level of the recursion */
1660 hChildFirst = GetWindow(GetParent(hwndCtrl),wndSearch);
1661 else
1662 hChildFirst = GetWindow(hwndCtrl, fPrevious ? GW_HWNDLAST : GW_HWNDFIRST);
1663 }
1664 }
1665
1666 while(hChildFirst)
1667 {
1668 dsStyle = GetWindowLongA(hChildFirst,GWL_STYLE);
1669 exStyle = GetWindowLongA(hChildFirst,GWL_EXSTYLE);
1670 if( (exStyle & WS_EX_CONTROLPARENT) && (dsStyle & WS_VISIBLE) && !(dsStyle & WS_DISABLED))
1671 {
1672 HWND retWnd;
1673 retWnd = DIALOG_GetNextTabItem(hwndMain,hChildFirst,NULL,fPrevious );
1674 if (retWnd) return (retWnd);
1675 }
1676 else if( (dsStyle & WS_TABSTOP) && (dsStyle & WS_VISIBLE) && !(dsStyle & WS_DISABLED))
1677 {
1678 return (hChildFirst);
1679 }
1680 hChildFirst = GetWindow(hChildFirst,wndSearch);
1681 }
1682 if(hwndCtrl)
1683 {
1684 HWND hParent = GetParent(hwndCtrl);
1685 while(hParent)
1686 {
1687 if(hParent == hwndMain) break;
1688 retWnd = DIALOG_GetNextTabItem(hwndMain,GetParent(hParent),hParent,fPrevious );
1689 if(retWnd) break;
1690 hParent = GetParent(hParent);
1691 }
1692 if(!retWnd)
1693 retWnd = DIALOG_GetNextTabItem(hwndMain,hwndMain,NULL,fPrevious );
1694 }
1695 return retWnd ? retWnd : hwndCtrl;
1696 }
1697
1698 /***********************************************************************
1699 * GetNextDlgTabItem (USER32.@)
1700 */
1701 HWND WINAPI GetNextDlgTabItem( HWND hwndDlg, HWND hwndCtrl,
1702 BOOL fPrevious )
1703 {
1704 hwndDlg = WIN_GetFullHandle( hwndDlg );
1705 hwndCtrl = WIN_GetFullHandle( hwndCtrl );
1706
1707 /* Undocumented but tested under Win2000 and WinME */
1708 if (hwndDlg == hwndCtrl) hwndCtrl = NULL;
1709
1710 /* Contrary to MSDN documentation, tested under Win2000 and WinME
1711 * NB GetLastError returns whatever was set before the function was
1712 * called.
1713 */
1714 if (!hwndCtrl && fPrevious) return 0;
1715
1716 return DIALOG_GetNextTabItem(hwndDlg,hwndDlg,hwndCtrl,fPrevious);
1717 }
1718
1719 /**********************************************************************
1720 * DIALOG_DlgDirSelect
1721 *
1722 * Helper function for DlgDirSelect*
1723 */
1724 static BOOL DIALOG_DlgDirSelect( HWND hwnd, LPWSTR str, INT len,
1725 INT id, BOOL unicode, BOOL combo )
1726 {
1727 WCHAR *buffer, *ptr;
1728 INT item, size;
1729 BOOL ret;
1730 HWND listbox = GetDlgItem( hwnd, id );
1731
1732 TRACE("%p %s %d\n", hwnd, unicode ? debugstr_w(str) : debugstr_a((LPSTR)str), id );
1733 if (!listbox) return FALSE;
1734
1735 item = SendMessageW(listbox, combo ? CB_GETCURSEL : LB_GETCURSEL, 0, 0 );
1736 if (item == LB_ERR) return FALSE;
1737
1738 size = SendMessageW(listbox, combo ? CB_GETLBTEXTLEN : LB_GETTEXTLEN, item, 0 );
1739 if (size == LB_ERR) return FALSE;
1740
1741 if (!(buffer = HeapAlloc( GetProcessHeap(), 0, (size+2) * sizeof(WCHAR) ))) return FALSE;
1742
1743 SendMessageW( listbox, combo ? CB_GETLBTEXT : LB_GETTEXT, item, (LPARAM)buffer );
1744
1745 if ((ret = (buffer[0] == '['))) /* drive or directory */
1746 {
1747 if (buffer[1] == '-') /* drive */
1748 {
1749 buffer[3] = ':';
1750 buffer[4] = 0;
1751 ptr = buffer + 2;
1752 }
1753 else
1754 {
1755 buffer[lstrlenW(buffer)-1] = '\\';
1756 ptr = buffer + 1;
1757 }
1758 }
1759 else
1760 {
1761 /* Filenames without a dot extension must have one tacked at the end */
1762 if (wcschr(buffer, '.') == NULL)
1763 {
1764 buffer[lstrlenW(buffer)+1] = '\0';
1765 buffer[lstrlenW(buffer)] = '.';
1766 }
1767 ptr = buffer;
1768 }
1769
1770 if (!unicode)
1771 {
1772 if (len > 0 && !WideCharToMultiByte( CP_ACP, 0, ptr, -1, (LPSTR)str, len, 0, 0 ))
1773 ((LPSTR)str)[len-1] = 0;
1774 }
1775 else lstrcpynW( str, ptr, len );
1776 HeapFree( GetProcessHeap(), 0, buffer );
1777 TRACE("Returning %d %s\n", ret, unicode ? debugstr_w(str) : debugstr_a((LPSTR)str) );
1778 return ret;
1779 }
1780
1781
1782 /**********************************************************************
1783 * DIALOG_DlgDirListW
1784 *
1785 * Helper function for DlgDirList*W
1786 */
1787 static INT DIALOG_DlgDirListW( HWND hDlg, LPWSTR spec, INT idLBox,
1788 INT idStatic, UINT attrib, BOOL combo )
1789 {
1790 HWND hwnd;
1791 LPWSTR orig_spec = spec;
1792 WCHAR any[] = L"*.*";
1793 WCHAR star[] = L"*";
1794
1795 #define SENDMSG(msg,wparam,lparam) \
1796 ((attrib & DDL_POSTMSGS) ? PostMessageW( hwnd, msg, wparam, lparam ) \
1797 : SendMessageW( hwnd, msg, wparam, lparam ))
1798
1799 TRACE("%p %s %d %d %04x\n", hDlg, debugstr_w(spec), idLBox, idStatic, attrib );
1800
1801 /* If the path exists and is a directory, chdir to it */
1802 if (!spec || !spec[0] || SetCurrentDirectoryW( spec )) spec = star;
1803 else
1804 {
1805 WCHAR *p, *p2;
1806
1807 if (!wcschr(spec, '*') && !wcschr(spec, '?'))
1808 {
1809 SetLastError(ERROR_NO_WILDCARD_CHARACTERS);
1810 return FALSE;
1811 }
1812 p = spec;
1813 if ((p2 = wcschr( p, ':' ))) p = p2 + 1;
1814 if ((p2 = wcsrchr( p, '\\' ))) p = p2;
1815 if ((p2 = wcsrchr( p, '/' ))) p = p2;
1816 if (p != spec)
1817 {
1818 WCHAR sep = *p;
1819 *p = 0;
1820 if (!SetCurrentDirectoryW( spec ))
1821 {
1822 *p = sep; /* Restore the original spec */
1823 return FALSE;
1824 }
1825 spec = p + 1;
1826 }
1827 }
1828
1829 TRACE( "mask=%s\n", debugstr_w(spec) );
1830
1831 if (idLBox && ((hwnd = GetDlgItem( hDlg, idLBox )) != 0))
1832 {
1833 if (attrib == DDL_DRIVES) attrib |= DDL_EXCLUSIVE;
1834
1835 SENDMSG( combo ? CB_RESETCONTENT : LB_RESETCONTENT, 0, 0 );
1836 if (attrib & DDL_DIRECTORY)
1837 {
1838 if (!(attrib & DDL_EXCLUSIVE))
1839 {
1840 SENDMSG( combo ? CB_DIR : LB_DIR,
1841 attrib & ~(DDL_DIRECTORY | DDL_DRIVES),
1842 (LPARAM)spec );
1843 }
1844 SENDMSG( combo ? CB_DIR : LB_DIR,
1845 (attrib & (DDL_DIRECTORY | DDL_DRIVES)) | DDL_EXCLUSIVE,
1846 (LPARAM)any );
1847 }
1848 else
1849 {
1850 SENDMSG( combo ? CB_DIR : LB_DIR, attrib, (LPARAM)spec );
1851 }
1852 }
1853
1854 /* Convert path specification to uppercase */
1855 if (spec) CharUpperW(spec);
1856
1857 if (idStatic && ((hwnd = GetDlgItem( hDlg, idStatic )) != 0))
1858 {
1859 WCHAR temp[MAX_PATH];
1860 GetCurrentDirectoryW( ARRAY_SIZE( temp ), temp );
1861 CharLowerW( temp );
1862 /* Can't use PostMessage() here, because the string is on the stack */
1863 SetDlgItemTextW( hDlg, idStatic, temp );
1864 }
1865
1866 if (orig_spec && (spec != orig_spec))
1867 {
1868 /* Update the original file spec */
1869 WCHAR *p = spec;
1870 while ((*orig_spec++ = *p++));
1871 }
1872
1873 return TRUE;
1874 #undef SENDMSG
1875 }
1876
1877
1878 /**********************************************************************
1879 * DIALOG_DlgDirListA
1880 *
1881 * Helper function for DlgDirList*A
1882 */
1883 static INT DIALOG_DlgDirListA( HWND hDlg, LPSTR spec, INT idLBox,
1884 INT idStatic, UINT attrib, BOOL combo )
1885 {
1886 if (spec)
1887 {
1888 INT ret, len = MultiByteToWideChar( CP_ACP, 0, spec, -1, NULL, 0 );
1889 LPWSTR specW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
1890 MultiByteToWideChar( CP_ACP, 0, spec, -1, specW, len );
1891 ret = DIALOG_DlgDirListW( hDlg, specW, idLBox, idStatic, attrib, combo );
1892 WideCharToMultiByte( CP_ACP, 0, specW, -1, spec, 0x7fffffff, NULL, NULL );
1893 HeapFree( GetProcessHeap(), 0, specW );
1894 return ret;
1895 }
1896 return DIALOG_DlgDirListW( hDlg, NULL, idLBox, idStatic, attrib, combo );
1897 }
1898
1899
1900 /**********************************************************************
1901 * DlgDirSelectExA (USER32.@)
1902 */
1903 BOOL WINAPI DlgDirSelectExA( HWND hwnd, LPSTR str, INT len, INT id )
1904 {
1905 return DIALOG_DlgDirSelect( hwnd, (LPWSTR)str, len, id, FALSE, FALSE );
1906 }
1907
1908
1909 /**********************************************************************
1910 * DlgDirSelectExW (USER32.@)
1911 */
1912 BOOL WINAPI DlgDirSelectExW( HWND hwnd, LPWSTR str, INT len, INT id )
1913 {
1914 return DIALOG_DlgDirSelect( hwnd, str, len, id, TRUE, FALSE );
1915 }
1916
1917
1918 /**********************************************************************
1919 * DlgDirSelectComboBoxExA (USER32.@)
1920 */
1921 BOOL WINAPI DlgDirSelectComboBoxExA( HWND hwnd, LPSTR str, INT len,
1922 INT id )
1923 {
1924 return DIALOG_DlgDirSelect( hwnd, (LPWSTR)str, len, id, FALSE, TRUE );
1925 }
1926
1927
1928 /**********************************************************************
1929 * DlgDirSelectComboBoxExW (USER32.@)
1930 */
1931 BOOL WINAPI DlgDirSelectComboBoxExW( HWND hwnd, LPWSTR str, INT len,
1932 INT id)
1933 {
1934 return DIALOG_DlgDirSelect( hwnd, str, len, id, TRUE, TRUE );
1935 }
1936
1937
1938 /**********************************************************************
1939 * DlgDirListA (USER32.@)
1940 */
1941 INT WINAPI DlgDirListA( HWND hDlg, LPSTR spec, INT idLBox,
1942 INT idStatic, UINT attrib )
1943 {
1944 return DIALOG_DlgDirListA( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1945 }
1946
1947
1948 /**********************************************************************
1949 * DlgDirListW (USER32.@)
1950 */
1951 INT WINAPI DlgDirListW( HWND hDlg, LPWSTR spec, INT idLBox,
1952 INT idStatic, UINT attrib )
1953 {
1954 return DIALOG_DlgDirListW( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1955 }
1956
1957
1958 /**********************************************************************
1959 * DlgDirListComboBoxA (USER32.@)
1960 */
1961 INT WINAPI DlgDirListComboBoxA( HWND hDlg, LPSTR spec, INT idCBox,
1962 INT idStatic, UINT attrib )
1963 {
1964 return DIALOG_DlgDirListA( hDlg, spec, idCBox, idStatic, attrib, TRUE );
1965 }
1966
1967
1968 /**********************************************************************
1969 * DlgDirListComboBoxW (USER32.@)
1970 */
1971 INT WINAPI DlgDirListComboBoxW( HWND hDlg, LPWSTR spec, INT idCBox,
1972 INT idStatic, UINT attrib )
1973 {
1974 return DIALOG_DlgDirListW( hDlg, spec, idCBox, idStatic, attrib, TRUE );
1975 }
Windows API implementation