4 * Copyright 1993, 1994, 1996 Alexandre Julliard
21 #include "sysmetrics.h"
25 /* Dialog control information */
62 /* Dialog base units */
63 static WORD xBaseUnit = 0, yBaseUnit = 0;
66 /***********************************************************************
69 * Initialisation of the dialog manager.
71 BOOL32 DIALOG_Init(void)
76 /* Calculate the dialog base units */
78 if (!(hdc = CreateDC16( "DISPLAY", NULL, NULL, NULL ))) return FALSE;
79 GetTextMetrics16( hdc, &tm );
81 xBaseUnit = tm.tmAveCharWidth;
82 yBaseUnit = tm.tmHeight;
84 /* Dialog units are based on a proportional system font */
85 /* so we adjust them a bit for a fixed font. */
86 if (!(tm.tmPitchAndFamily & TMPF_FIXED_PITCH))
87 xBaseUnit = xBaseUnit * 5 / 4;
89 TRACE(dialog, "base units = %d,%d\n",
90 xBaseUnit, yBaseUnit );
95 /***********************************************************************
98 * Return the class and text of the control pointed to by ptr,
99 * fill the header structure and return a pointer to the next control.
101 static LPCSTR DIALOG_GetControl16( LPCSTR p, DLG_CONTROL_INFO *info )
103 static char buffer[10];
106 info->x = GET_WORD(p); p += sizeof(WORD);
107 info->y = GET_WORD(p); p += sizeof(WORD);
108 info->cx = GET_WORD(p); p += sizeof(WORD);
109 info->cy = GET_WORD(p); p += sizeof(WORD);
110 info->id = GET_WORD(p); p += sizeof(WORD);
111 info->style = GET_DWORD(p); p += sizeof(DWORD);
118 case 0x80: strcpy( buffer, "BUTTON" ); break;
119 case 0x81: strcpy( buffer, "EDIT" ); break;
120 case 0x82: strcpy( buffer, "STATIC" ); break;
121 case 0x83: strcpy( buffer, "LISTBOX" ); break;
122 case 0x84: strcpy( buffer, "SCROLLBAR" ); break;
123 case 0x85: strcpy( buffer, "COMBOBOX" ); break;
124 default: buffer[0] = '\0'; break;
126 info->className = buffer;
135 int_id = ((BYTE)*p == 0xff);
138 /* Integer id, not documented (?). Only works for SS_ICON controls */
139 info->windowName = (LPCSTR)(UINT32)GET_WORD(p+1);
144 info->windowName = p;
148 info->data = (LPVOID)(*p ? p + 1 : NULL); /* FIXME: should be a segptr */
152 TRACE(dialog," %s %04x %d, %d, %d, %d, %d, %08lx, %08lx\n",
153 info->className, LOWORD(info->windowName),
154 info->id, info->x, info->y, info->cx, info->cy,
155 info->style, (DWORD)info->data);
157 TRACE(dialog," %s '%s' %d, %d, %d, %d, %d, %08lx, %08lx\n",
158 info->className, info->windowName,
159 info->id, info->x, info->y, info->cx, info->cy,
160 info->style, (DWORD)info->data);
166 /***********************************************************************
167 * DIALOG_GetControl32
169 * Return the class and text of the control pointed to by ptr,
170 * fill the header structure and return a pointer to the next control.
172 static const WORD *DIALOG_GetControl32( const WORD *p, DLG_CONTROL_INFO *info,
177 info->helpId = GET_DWORD(p); p += 2;
178 info->exStyle = GET_DWORD(p); p += 2;
179 info->style = GET_DWORD(p); p += 2;
184 info->style = GET_DWORD(p); p += 2;
185 info->exStyle = GET_DWORD(p); p += 2;
187 info->x = GET_WORD(p); p++;
188 info->y = GET_WORD(p); p++;
189 info->cx = GET_WORD(p); p++;
190 info->cy = GET_WORD(p); p++;
194 /* id is a DWORD for DIALOGEX */
195 info->id = GET_DWORD(p);
200 info->id = GET_WORD(p);
204 if (GET_WORD(p) == 0xffff)
206 static const WCHAR class_names[6][10] =
208 { 'B','u','t','t','o','n', }, /* 0x80 */
209 { 'E','d','i','t', }, /* 0x81 */
210 { 'S','t','a','t','i','c', }, /* 0x82 */
211 { 'L','i','s','t','B','o','x', }, /* 0x83 */
212 { 'S','c','r','o','l','l','B','a','r', }, /* 0x84 */
213 { 'C','o','m','b','o','B','o','x', } /* 0x85 */
215 WORD id = GET_WORD(p+1);
216 if ((id >= 0x80) && (id <= 0x85))
217 info->className = (LPCSTR)class_names[id - 0x80];
220 info->className = NULL;
221 ERR( dialog, "Unknown built-in class id %04x\n", id );
227 info->className = (LPCSTR)p;
228 p += lstrlen32W( (LPCWSTR)p ) + 1;
231 if (GET_WORD(p) == 0xffff) /* Is it an integer id? */
233 info->windowName = (LPCSTR)(UINT32)GET_WORD(p + 1);
238 info->windowName = (LPCSTR)p;
239 p += lstrlen32W( (LPCWSTR)p ) + 1;
242 TRACE(dialog," %s %s %d, %d, %d, %d, %d, %08lx, %08lx, %08lx\n",
243 debugstr_w( (LPCWSTR)info->className ),
244 debugres_w( (LPCWSTR)info->windowName ),
245 info->id, info->x, info->y, info->cx, info->cy,
246 info->style, info->exStyle, info->helpId );
250 if (TRACE_ON(dialog))
252 WORD i, count = GET_WORD(p) / sizeof(WORD);
253 TRACE(dialog, " BEGIN\n");
255 for (i = 0; i < count; i++) DUMP( "%04x,", GET_WORD(p+i+1) );
257 TRACE(dialog, " END\n" );
259 info->data = (LPVOID)(p + 1);
260 p += GET_WORD(p) / sizeof(WORD);
262 else info->data = NULL;
265 /* Next control is on dword boundary */
266 return (const WORD *)((((int)p) + 3) & ~3);
270 /***********************************************************************
271 * DIALOG_CreateControls
273 * Create the control windows for a dialog.
275 static BOOL32 DIALOG_CreateControls( WND *pWnd, LPCSTR template,
276 const DLG_TEMPLATE *dlgTemplate,
277 HINSTANCE32 hInst, BOOL32 win32 )
279 DIALOGINFO *dlgInfo = (DIALOGINFO *)pWnd->wExtra;
280 DLG_CONTROL_INFO info;
281 HWND32 hwndCtrl, hwndDefButton = 0;
282 INT32 items = dlgTemplate->nbItems;
284 TRACE(dialog, " BEGIN\n" );
289 HINSTANCE16 instance;
290 template = DIALOG_GetControl16( template, &info );
291 if (HIWORD(info.className) && !strcmp( info.className, "EDIT") &&
292 ((pWnd->dwStyle & DS_LOCALEDIT) != DS_LOCALEDIT))
294 if (!dlgInfo->hDialogHeap)
296 dlgInfo->hDialogHeap = GlobalAlloc16(GMEM_FIXED, 0x10000);
297 if (!dlgInfo->hDialogHeap)
299 ERR(dialog, "Insufficient memory to create heap for edit control\n" );
302 LocalInit(dlgInfo->hDialogHeap, 0, 0xffff);
304 instance = dlgInfo->hDialogHeap;
306 else instance = (HINSTANCE16)hInst;
308 hwndCtrl = CreateWindowEx16( info.exStyle | WS_EX_NOPARENTNOTIFY,
309 info.className, info.windowName,
310 info.style | WS_CHILD,
311 info.x * dlgInfo->xBaseUnit / 4,
312 info.y * dlgInfo->yBaseUnit / 8,
313 info.cx * dlgInfo->xBaseUnit / 4,
314 info.cy * dlgInfo->yBaseUnit / 8,
315 pWnd->hwndSelf, (HMENU16)info.id,
316 instance, info.data );
320 template = (LPCSTR)DIALOG_GetControl32( (WORD *)template, &info,
321 dlgTemplate->dialogEx );
322 hwndCtrl = CreateWindowEx32W( info.exStyle | WS_EX_NOPARENTNOTIFY,
323 (LPCWSTR)info.className,
324 (LPCWSTR)info.windowName,
325 info.style | WS_CHILD,
326 info.x * dlgInfo->xBaseUnit / 4,
327 info.y * dlgInfo->yBaseUnit / 8,
328 info.cx * dlgInfo->xBaseUnit / 4,
329 info.cy * dlgInfo->yBaseUnit / 8,
330 pWnd->hwndSelf, (HMENU32)info.id,
333 if (!hwndCtrl) return FALSE;
335 /* Send initialisation messages to the control */
336 if (dlgInfo->hUserFont) SendMessage32A( hwndCtrl, WM_SETFONT,
337 (WPARAM32)dlgInfo->hUserFont, 0 );
338 if (SendMessage32A(hwndCtrl, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON)
340 /* If there's already a default push-button, set it back */
341 /* to normal and use this one instead. */
343 SendMessage32A( hwndDefButton, BM_SETSTYLE32,
344 BS_PUSHBUTTON,FALSE );
345 hwndDefButton = hwndCtrl;
346 dlgInfo->idResult = GetWindowWord32( hwndCtrl, GWW_ID );
349 TRACE(dialog, " END\n" );
354 /***********************************************************************
355 * DIALOG_ParseTemplate16
357 * Fill a DLG_TEMPLATE structure from the dialog template, and return
358 * a pointer to the first control.
360 static LPCSTR DIALOG_ParseTemplate16( LPCSTR p, DLG_TEMPLATE * result )
362 result->style = GET_DWORD(p); p += sizeof(DWORD);
364 result->nbItems = *p++;
365 result->x = GET_WORD(p); p += sizeof(WORD);
366 result->y = GET_WORD(p); p += sizeof(WORD);
367 result->cx = GET_WORD(p); p += sizeof(WORD);
368 result->cy = GET_WORD(p); p += sizeof(WORD);
369 TRACE(dialog, "DIALOG %d, %d, %d, %d\n",
370 result->x, result->y, result->cx, result->cy );
371 TRACE(dialog, " STYLE %08lx\n", result->style );
373 /* Get the menu name */
378 result->menuName = 0;
382 result->menuName = (LPCSTR)(UINT32)GET_WORD( p + 1 );
384 TRACE(dialog, " MENU %04x\n", LOWORD(result->menuName) );
387 result->menuName = p;
388 TRACE(dialog, " MENU '%s'\n", p );
393 /* Get the class name */
397 result->className = p;
398 TRACE(dialog, " CLASS '%s'\n", result->className );
400 else result->className = DIALOG_CLASS_ATOM;
403 /* Get the window caption */
407 TRACE(dialog, " CAPTION '%s'\n", result->caption );
409 /* Get the font name */
411 if (result->style & DS_SETFONT)
413 result->pointSize = GET_WORD(p);
415 result->faceName = p;
417 TRACE(dialog, " FONT %d,'%s'\n",
418 result->pointSize, result->faceName );
424 /***********************************************************************
425 * DIALOG_ParseTemplate32
427 * Fill a DLG_TEMPLATE structure from the dialog template, and return
428 * a pointer to the first control.
430 static LPCSTR DIALOG_ParseTemplate32( LPCSTR template, DLG_TEMPLATE * result )
432 const WORD *p = (const WORD *)template;
434 result->style = GET_DWORD(p); p += 2;
435 if (result->style == 0xffff0001) /* DIALOGEX resource */
437 result->dialogEx = TRUE;
438 result->helpId = GET_DWORD(p); p += 2;
439 result->exStyle = GET_DWORD(p); p += 2;
440 result->style = GET_DWORD(p); p += 2;
444 result->dialogEx = FALSE;
446 result->exStyle = GET_DWORD(p); p += 2;
448 result->nbItems = GET_WORD(p); p++;
449 result->x = GET_WORD(p); p++;
450 result->y = GET_WORD(p); p++;
451 result->cx = GET_WORD(p); p++;
452 result->cy = GET_WORD(p); p++;
453 TRACE( dialog, "DIALOG%s %d, %d, %d, %d, %ld\n",
454 result->dialogEx ? "EX" : "", result->x, result->y,
455 result->cx, result->cy, result->helpId );
456 TRACE( dialog, " STYLE 0x%08lx\n", result->style );
457 TRACE( dialog, " EXSTYLE 0x%08lx\n", result->exStyle );
459 /* Get the menu name */
464 result->menuName = NULL;
468 result->menuName = (LPCSTR)(UINT32)GET_WORD( p + 1 );
470 TRACE(dialog, " MENU %04x\n", LOWORD(result->menuName) );
473 result->menuName = (LPCSTR)p;
474 TRACE(dialog, " MENU %s\n", debugstr_w( (LPCWSTR)p ));
475 p += lstrlen32W( (LPCWSTR)p ) + 1;
479 /* Get the class name */
484 result->className = DIALOG_CLASS_ATOM;
488 result->className = (LPCSTR)(UINT32)GET_WORD( p + 1 );
490 TRACE(dialog, " CLASS %04x\n", LOWORD(result->className) );
493 result->className = (LPCSTR)p;
494 TRACE(dialog, " CLASS %s\n", debugstr_w( (LPCWSTR)p ));
495 p += lstrlen32W( (LPCWSTR)p ) + 1;
499 /* Get the window caption */
501 result->caption = (LPCSTR)p;
502 p += lstrlen32W( (LPCWSTR)p ) + 1;
503 TRACE(dialog, " CAPTION %s\n", debugstr_w( (LPCWSTR)result->caption ) );
505 /* Get the font name */
507 if (result->style & DS_SETFONT)
509 result->pointSize = GET_WORD(p);
511 if (result->dialogEx)
513 result->weight = GET_WORD(p); p++;
514 result->italic = LOBYTE(GET_WORD(p)); p++;
518 result->weight = FW_DONTCARE;
519 result->italic = FALSE;
521 result->faceName = (LPCSTR)p;
522 p += lstrlen32W( (LPCWSTR)p ) + 1;
523 TRACE(dialog, " FONT %d, %s, %d, %s\n",
524 result->pointSize, debugstr_w( (LPCWSTR)result->faceName ),
525 result->weight, result->italic ? "TRUE" : "FALSE" );
528 /* First control is on dword boundary */
529 return (LPCSTR)((((int)p) + 3) & ~3);
533 /***********************************************************************
534 * DIALOG_CreateIndirect
536 HWND32 DIALOG_CreateIndirect( HINSTANCE32 hInst, LPCSTR dlgTemplate,
537 BOOL32 win32Template, HWND32 owner,
538 DLGPROC16 dlgProc, LPARAM param,
539 WINDOWPROCTYPE procType )
546 DLG_TEMPLATE template;
547 DIALOGINFO * dlgInfo;
548 WORD xUnit = xBaseUnit;
549 WORD yUnit = yBaseUnit;
551 /* Parse dialog template */
553 if (!dlgTemplate) return 0;
555 dlgTemplate = DIALOG_ParseTemplate32( dlgTemplate, &template );
557 dlgTemplate = DIALOG_ParseTemplate16( dlgTemplate, &template );
561 if (template.menuName)
565 LPSTR str = SEGPTR_STRDUP( template.menuName );
566 hMenu = LoadMenu16( hInst, SEGPTR_GET(str) );
569 else hMenu = LoadMenu32W( hInst, (LPCWSTR)template.menuName );
572 /* Create custom font if needed */
574 if (template.style & DS_SETFONT)
576 /* The font height must be negative as it is a point size */
577 /* (see CreateFont() documentation in the Windows SDK). */
580 hFont = CreateFont32W( -template.pointSize, 0, 0, 0,
581 template.weight, template.italic, FALSE,
582 FALSE, DEFAULT_CHARSET, 0, 0, PROOF_QUALITY,
583 FF_DONTCARE, (LPCWSTR)template.faceName );
585 hFont = CreateFont16( -template.pointSize, 0, 0, 0, FW_DONTCARE,
586 FALSE, FALSE, FALSE, DEFAULT_CHARSET, 0, 0,
587 PROOF_QUALITY, FF_DONTCARE,
594 HDC32 hdc = GetDC32(0);
595 oldFont = SelectObject32( hdc, hFont );
596 GetTextMetrics16( hdc, &tm );
597 SelectObject32( hdc, oldFont );
598 ReleaseDC32( 0, hdc );
599 xUnit = tm.tmAveCharWidth;
601 if (!(tm.tmPitchAndFamily & TMPF_FIXED_PITCH))
602 xBaseUnit = xBaseUnit * 5 / 4; /* See DIALOG_Init() */
606 /* Create dialog main window */
608 rect.left = rect.top = 0;
609 rect.right = template.cx * xUnit / 4;
610 rect.bottom = template.cy * yUnit / 8;
611 if (template.style & DS_MODALFRAME)
612 template.exStyle |= WS_EX_DLGMODALFRAME;
613 AdjustWindowRectEx32( &rect, template.style,
614 hMenu ? TRUE : FALSE , template.exStyle );
615 rect.right -= rect.left;
616 rect.bottom -= rect.top;
618 if ((INT16)template.x == CW_USEDEFAULT16)
620 rect.left = rect.top = (procType == WIN_PROC_16) ? CW_USEDEFAULT16
625 if (template.style & DS_CENTER)
627 rect.left = (SYSMETRICS_CXSCREEN - rect.right) / 2;
628 rect.top = (SYSMETRICS_CYSCREEN - rect.bottom) / 2;
632 rect.left += template.x * xUnit / 4;
633 rect.top += template.y * yUnit / 8;
635 if ( !(template.style & WS_CHILD) )
639 if( !(template.style & DS_ABSALIGN) )
640 ClientToScreen32( owner, (POINT32 *)&rect );
642 /* try to fit it into the desktop */
644 if( (dX = rect.left + rect.right + SYSMETRICS_CXDLGFRAME
645 - SYSMETRICS_CXSCREEN) > 0 ) rect.left -= dX;
646 if( (dY = rect.top + rect.bottom + SYSMETRICS_CYDLGFRAME
647 - SYSMETRICS_CYSCREEN) > 0 ) rect.top -= dY;
648 if( rect.left < 0 ) rect.left = 0;
649 if( rect.top < 0 ) rect.top = 0;
653 if (procType == WIN_PROC_16)
654 hwnd = CreateWindowEx16(template.exStyle, template.className,
655 template.caption, template.style & ~WS_VISIBLE,
656 rect.left, rect.top, rect.right, rect.bottom,
657 owner, hMenu, hInst, NULL );
659 hwnd = CreateWindowEx32W(template.exStyle, (LPCWSTR)template.className,
660 (LPCWSTR)template.caption,
661 template.style & ~WS_VISIBLE,
662 rect.left, rect.top, rect.right, rect.bottom,
663 owner, hMenu, hInst, NULL );
667 if (hFont) DeleteObject32( hFont );
668 if (hMenu) DestroyMenu32( hMenu );
671 wndPtr = WIN_FindWndPtr( hwnd );
672 wndPtr->flags |= WIN_ISDIALOG;
673 wndPtr->helpContext = template.helpId;
675 /* Initialise dialog extra data */
677 dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
678 WINPROC_SetProc( &dlgInfo->dlgProc, dlgProc, procType, WIN_PROC_WINDOW );
679 dlgInfo->hUserFont = hFont;
680 dlgInfo->hMenu = hMenu;
681 dlgInfo->xBaseUnit = xUnit;
682 dlgInfo->yBaseUnit = yUnit;
683 dlgInfo->msgResult = 0;
684 dlgInfo->idResult = 0;
686 dlgInfo->hDialogHeap = 0;
688 if (dlgInfo->hUserFont)
689 SendMessage32A( hwnd, WM_SETFONT, (WPARAM32)dlgInfo->hUserFont, 0 );
691 /* Create controls */
693 if (DIALOG_CreateControls( wndPtr, dlgTemplate, &template,
694 hInst, win32Template ))
696 /* Send initialisation messages and set focus */
698 dlgInfo->hwndFocus = GetNextDlgTabItem32( hwnd, 0, FALSE );
700 if (SendMessage32A( hwnd, WM_INITDIALOG, (WPARAM32)dlgInfo->hwndFocus, param ))
701 SetFocus32( dlgInfo->hwndFocus );
703 if (template.style & WS_VISIBLE && !(wndPtr->dwStyle & WS_VISIBLE))
705 ShowWindow32( hwnd, SW_SHOWNORMAL ); /* SW_SHOW doesn't always work */
706 UpdateWindow32( hwnd );
711 if( IsWindow32(hwnd) ) DestroyWindow32( hwnd );
716 /***********************************************************************
717 * CreateDialog16 (USER.89)
719 HWND16 WINAPI CreateDialog16( HINSTANCE16 hInst, SEGPTR dlgTemplate,
720 HWND16 owner, DLGPROC16 dlgProc )
722 return CreateDialogParam16( hInst, dlgTemplate, owner, dlgProc, 0 );
726 /***********************************************************************
727 * CreateDialogParam16 (USER.241)
729 HWND16 WINAPI CreateDialogParam16( HINSTANCE16 hInst, SEGPTR dlgTemplate,
730 HWND16 owner, DLGPROC16 dlgProc,
738 TRACE(dialog, "%04x,%08lx,%04x,%08lx,%ld\n",
739 hInst, (DWORD)dlgTemplate, owner, (DWORD)dlgProc, param );
741 if (!(hRsrc = FindResource16( hInst, dlgTemplate, RT_DIALOG16 ))) return 0;
742 if (!(hmem = LoadResource16( hInst, hRsrc ))) return 0;
743 if (!(data = LockResource16( hmem ))) hwnd = 0;
744 else hwnd = CreateDialogIndirectParam16( hInst, data, owner,
746 FreeResource16( hmem );
750 /***********************************************************************
751 * CreateDialogParam32A (USER32.73)
753 HWND32 WINAPI CreateDialogParam32A( HINSTANCE32 hInst, LPCSTR name,
754 HWND32 owner, DLGPROC32 dlgProc,
759 LPWSTR str = HEAP_strdupAtoW( GetProcessHeap(), 0, name );
760 HWND32 hwnd = CreateDialogParam32W( hInst, str, owner, dlgProc, param);
761 HeapFree( GetProcessHeap(), 0, str );
764 return CreateDialogParam32W( hInst, (LPCWSTR)name, owner, dlgProc, param );
768 /***********************************************************************
769 * CreateDialogParam32W (USER32.74)
771 HWND32 WINAPI CreateDialogParam32W( HINSTANCE32 hInst, LPCWSTR name,
772 HWND32 owner, DLGPROC32 dlgProc,
775 HANDLE32 hrsrc = FindResource32W( hInst, name, RT_DIALOG32W );
776 if (!hrsrc) return 0;
777 return CreateDialogIndirectParam32W( hInst,
778 (LPVOID)LoadResource32(hInst, hrsrc),
779 owner, dlgProc, param );
783 /***********************************************************************
784 * CreateDialogIndirect16 (USER.219)
786 HWND16 WINAPI CreateDialogIndirect16( HINSTANCE16 hInst, LPCVOID dlgTemplate,
787 HWND16 owner, DLGPROC16 dlgProc )
789 return CreateDialogIndirectParam16( hInst, dlgTemplate, owner, dlgProc, 0);
793 /***********************************************************************
794 * CreateDialogIndirectParam16 (USER.242)
796 HWND16 WINAPI CreateDialogIndirectParam16( HINSTANCE16 hInst,
798 HWND16 owner, DLGPROC16 dlgProc,
801 return DIALOG_CreateIndirect( hInst, dlgTemplate, FALSE, owner,
802 dlgProc, param, WIN_PROC_16 );
806 /***********************************************************************
807 * CreateDialogIndirectParam32A (USER32.69)
809 HWND32 WINAPI CreateDialogIndirectParam32A( HINSTANCE32 hInst,
811 HWND32 owner, DLGPROC32 dlgProc,
814 return DIALOG_CreateIndirect( hInst, dlgTemplate, TRUE, owner,
815 (DLGPROC16)dlgProc, param, WIN_PROC_32A );
818 /***********************************************************************
819 * CreateDialogIndirectParam32AorW (USER32.71)
821 HWND32 WINAPI CreateDialogIndirectParam32AorW( HINSTANCE32 hInst,
823 HWND32 owner, DLGPROC32 dlgProc,
825 { FIXME(dialog,"assume WIN_PROC_32W\n");
826 return DIALOG_CreateIndirect( hInst, dlgTemplate, TRUE, owner,
827 (DLGPROC16)dlgProc, param, WIN_PROC_32W );
830 /***********************************************************************
831 * CreateDialogIndirectParam32W (USER32.72)
833 HWND32 WINAPI CreateDialogIndirectParam32W( HINSTANCE32 hInst,
835 HWND32 owner, DLGPROC32 dlgProc,
838 return DIALOG_CreateIndirect( hInst, dlgTemplate, TRUE, owner,
839 (DLGPROC16)dlgProc, param, WIN_PROC_32W );
843 /***********************************************************************
846 INT32 DIALOG_DoDialogBox( HWND32 hwnd, HWND32 owner )
849 DIALOGINFO * dlgInfo;
853 /* Owner must be a top-level window */
854 owner = WIN_GetTopParent( owner );
855 if (!(wndPtr = WIN_FindWndPtr( hwnd ))) return -1;
856 dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
857 EnableWindow32( owner, FALSE );
858 ShowWindow32( hwnd, SW_SHOW );
860 while (MSG_InternalGetMessage(&msg, hwnd, owner, MSGF_DIALOGBOX, PM_REMOVE,
861 !(wndPtr->dwStyle & DS_NOIDLEMSG) ))
863 if (!IsDialogMessage16( hwnd, &msg))
865 TranslateMessage16( &msg );
866 DispatchMessage16( &msg );
868 if (dlgInfo->flags & DF_END) break;
870 retval = dlgInfo->idResult;
871 EnableWindow32( owner, TRUE );
872 DestroyWindow32( hwnd );
877 /***********************************************************************
878 * DialogBox16 (USER.87)
880 INT16 WINAPI DialogBox16( HINSTANCE16 hInst, SEGPTR dlgTemplate,
881 HWND16 owner, DLGPROC16 dlgProc )
883 return DialogBoxParam16( hInst, dlgTemplate, owner, dlgProc, 0 );
887 /***********************************************************************
888 * DialogBoxParam16 (USER.239)
890 INT16 WINAPI DialogBoxParam16( HINSTANCE16 hInst, SEGPTR template,
891 HWND16 owner, DLGPROC16 dlgProc, LPARAM param )
893 HWND16 hwnd = CreateDialogParam16( hInst, template, owner, dlgProc, param);
894 if (hwnd) return (INT16)DIALOG_DoDialogBox( hwnd, owner );
899 /***********************************************************************
900 * DialogBoxParam32A (USER32.139)
902 INT32 WINAPI DialogBoxParam32A( HINSTANCE32 hInst, LPCSTR name,
903 HWND32 owner, DLGPROC32 dlgProc, LPARAM param )
905 HWND32 hwnd = CreateDialogParam32A( hInst, name, owner, dlgProc, param );
906 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
911 /***********************************************************************
912 * DialogBoxParam32W (USER32.140)
914 INT32 WINAPI DialogBoxParam32W( HINSTANCE32 hInst, LPCWSTR name,
915 HWND32 owner, DLGPROC32 dlgProc, LPARAM param )
917 HWND32 hwnd = CreateDialogParam32W( hInst, name, owner, dlgProc, param );
918 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
923 /***********************************************************************
924 * DialogBoxIndirect16 (USER.218)
926 INT16 WINAPI DialogBoxIndirect16( HINSTANCE16 hInst, HANDLE16 dlgTemplate,
927 HWND16 owner, DLGPROC16 dlgProc )
929 return DialogBoxIndirectParam16( hInst, dlgTemplate, owner, dlgProc, 0 );
933 /***********************************************************************
934 * DialogBoxIndirectParam16 (USER.240)
936 INT16 WINAPI DialogBoxIndirectParam16( HINSTANCE16 hInst, HANDLE16 dlgTemplate,
937 HWND16 owner, DLGPROC16 dlgProc,
943 if (!(ptr = GlobalLock16( dlgTemplate ))) return -1;
944 hwnd = CreateDialogIndirectParam16( hInst, ptr, owner, dlgProc, param );
945 GlobalUnlock16( dlgTemplate );
946 if (hwnd) return (INT16)DIALOG_DoDialogBox( hwnd, owner );
951 /***********************************************************************
952 * DialogBoxIndirectParam32A (USER32.136)
954 INT32 WINAPI DialogBoxIndirectParam32A(HINSTANCE32 hInstance, LPCVOID template,
955 HWND32 owner, DLGPROC32 dlgProc,
958 HWND32 hwnd = CreateDialogIndirectParam32A( hInstance, template,
959 owner, dlgProc, param );
960 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
965 /***********************************************************************
966 * DialogBoxIndirectParam32W (USER32.138)
968 INT32 WINAPI DialogBoxIndirectParam32W(HINSTANCE32 hInstance, LPCVOID template,
969 HWND32 owner, DLGPROC32 dlgProc,
972 HWND32 hwnd = CreateDialogIndirectParam32W( hInstance, template,
973 owner, dlgProc, param );
974 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
979 /***********************************************************************
980 * EndDialog16 (USER32.173)
982 BOOL16 WINAPI EndDialog16( HWND16 hwnd, INT16 retval )
984 return EndDialog32( hwnd, retval );
988 /***********************************************************************
989 * EndDialog32 (USER.88)
991 BOOL32 WINAPI EndDialog32( HWND32 hwnd, INT32 retval )
993 WND * wndPtr = WIN_FindWndPtr( hwnd );
994 DIALOGINFO * dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
996 TRACE(dialog, "%04x %d\n", hwnd, retval );
1000 dlgInfo->idResult = retval;
1001 dlgInfo->flags |= DF_END;
1007 /***********************************************************************
1008 * DIALOG_IsAccelerator
1010 static BOOL32 DIALOG_IsAccelerator( HWND32 hwnd, HWND32 hwndDlg, WPARAM32 vKey )
1012 HWND32 hwndControl = hwnd;
1014 BOOL32 RetVal = FALSE;
1017 if (vKey == VK_SPACE)
1019 dlgCode = SendMessage32A( hwndControl, WM_GETDLGCODE, 0, 0 );
1020 if (dlgCode & DLGC_BUTTON)
1022 SendMessage32A( hwndControl, WM_LBUTTONDOWN, 0, 0);
1023 SendMessage32A( hwndControl, WM_LBUTTONUP, 0, 0);
1031 wndPtr = WIN_FindWndPtr( hwndControl );
1032 if (wndPtr != NULL && wndPtr->text != NULL &&
1033 (wndPtr->dwStyle & (WS_VISIBLE | WS_DISABLED)) == WS_VISIBLE)
1035 dlgCode = SendMessage32A( hwndControl, WM_GETDLGCODE, 0, 0 );
1036 if (dlgCode & (DLGC_BUTTON | DLGC_STATIC))
1038 /* find the accelerator key */
1039 LPSTR p = wndPtr->text - 2;
1042 p = strchr( p + 2, '&' );
1044 while (p != NULL && p[1] == '&');
1046 /* and check if it's the one we're looking for */
1047 if (p != NULL && toupper( p[1] ) == toupper( vKey ) )
1049 if ((dlgCode & DLGC_STATIC) ||
1050 (wndPtr->dwStyle & 0x0f) == BS_GROUPBOX )
1052 /* set focus to the control */
1053 SendMessage32A( hwndDlg, WM_NEXTDLGCTL,
1055 /* and bump it on to next */
1056 SendMessage32A( hwndDlg, WM_NEXTDLGCTL, 0, 0);
1059 (DLGC_DEFPUSHBUTTON | DLGC_UNDEFPUSHBUTTON))
1061 /* send command message as from the control */
1062 SendMessage32A( hwndDlg, WM_COMMAND,
1063 MAKEWPARAM( LOWORD(wndPtr->wIDmenu),
1065 (LPARAM)hwndControl );
1069 /* click the control */
1070 SendMessage32A( hwndControl, WM_LBUTTONDOWN, 0, 0);
1071 SendMessage32A( hwndControl, WM_LBUTTONUP, 0, 0);
1078 hwndControl = GetWindow32( hwndControl, GW_HWNDNEXT );
1081 hwndControl = GetWindow32( hwndDlg, GW_CHILD );
1084 while (hwndControl != hwnd);
1090 /***********************************************************************
1091 * DIALOG_IsDialogMessage
1093 static BOOL32 DIALOG_IsDialogMessage( HWND32 hwnd, HWND32 hwndDlg,
1094 UINT32 message, WPARAM32 wParam,
1095 LPARAM lParam, BOOL32 *translate,
1096 BOOL32 *dispatch, INT32 dlgCode )
1098 *translate = *dispatch = FALSE;
1100 if (message == WM_PAINT)
1102 /* Apparently, we have to handle this one as well */
1107 /* Only the key messages get special processing */
1108 if ((message != WM_KEYDOWN) &&
1109 (message != WM_SYSCHAR) &&
1110 (message != WM_CHAR))
1113 if (dlgCode & DLGC_WANTMESSAGE)
1115 *translate = *dispatch = TRUE;
1125 if (!(dlgCode & DLGC_WANTTAB))
1127 SendMessage32A( hwndDlg, WM_NEXTDLGCTL,
1128 (GetKeyState32(VK_SHIFT) & 0x8000), 0 );
1137 if (!(dlgCode & DLGC_WANTARROWS))
1139 BOOL32 fPrevious = (wParam == VK_LEFT || wParam == VK_UP);
1141 GetNextDlgGroupItem32 (hwndDlg, GetFocus32(), fPrevious );
1142 SendMessage32A( hwndDlg, WM_NEXTDLGCTL, hwndNext, 1 );
1148 SendMessage32A( hwndDlg, WM_COMMAND, IDCANCEL,
1149 (LPARAM)GetDlgItem32( hwndDlg, IDCANCEL ) );
1154 DWORD dw = SendMessage16( hwndDlg, DM_GETDEFID, 0, 0 );
1155 if (HIWORD(dw) == DC_HASDEFID)
1157 SendMessage32A( hwndDlg, WM_COMMAND,
1158 MAKEWPARAM( LOWORD(dw), BN_CLICKED ),
1159 (LPARAM)GetDlgItem32(hwndDlg, LOWORD(dw)));
1163 SendMessage32A( hwndDlg, WM_COMMAND, IDOK,
1164 (LPARAM)GetDlgItem32( hwndDlg, IDOK ) );
1171 break; /* case WM_KEYDOWN */
1174 if (dlgCode & DLGC_WANTCHARS) break;
1178 if (DIALOG_IsAccelerator( hwnd, hwndDlg, wParam ))
1180 /* don't translate or dispatch */
1186 /* If we get here, the message has not been treated specially */
1187 /* and can be sent to its destination window. */
1193 /***********************************************************************
1194 * IsDialogMessage16 (USER.90)
1196 BOOL16 WINAPI IsDialogMessage16( HWND16 hwndDlg, LPMSG16 msg )
1198 BOOL32 ret, translate, dispatch;
1201 if ((hwndDlg != msg->hwnd) && !IsChild16( hwndDlg, msg->hwnd ))
1205 dlgCode = SendMessage16( msg->hwnd, WM_GETDLGCODE, 0, (LPARAM)msg);
1206 ret = DIALOG_IsDialogMessage( msg->hwnd, hwndDlg, msg->message,
1207 msg->wParam, msg->lParam,
1208 &translate, &dispatch, dlgCode );
1209 if (translate) TranslateMessage16( msg );
1210 if (dispatch) DispatchMessage16( msg );
1215 /***********************************************************************
1216 * IsDialogMessage32A (USER32.342)
1218 BOOL32 WINAPI IsDialogMessage32A( HWND32 hwndDlg, LPMSG32 msg )
1220 BOOL32 ret, translate, dispatch;
1223 if ((hwndDlg != msg->hwnd) && !IsChild32( hwndDlg, msg->hwnd ))
1226 dlgCode = SendMessage32A( msg->hwnd, WM_GETDLGCODE, 0, (LPARAM)msg);
1227 ret = DIALOG_IsDialogMessage( msg->hwnd, hwndDlg, msg->message,
1228 msg->wParam, msg->lParam,
1229 &translate, &dispatch, dlgCode );
1230 if (translate) TranslateMessage32( msg );
1231 if (dispatch) DispatchMessage32A( msg );
1236 /***********************************************************************
1237 * IsDialogMessage32W (USER32.343)
1239 BOOL32 WINAPI IsDialogMessage32W( HWND32 hwndDlg, LPMSG32 msg )
1241 BOOL32 ret, translate, dispatch;
1244 if ((hwndDlg != msg->hwnd) && !IsChild32( hwndDlg, msg->hwnd ))
1247 dlgCode = SendMessage32W( msg->hwnd, WM_GETDLGCODE, 0, (LPARAM)msg);
1248 ret = DIALOG_IsDialogMessage( msg->hwnd, hwndDlg, msg->message,
1249 msg->wParam, msg->lParam,
1250 &translate, &dispatch, dlgCode );
1251 if (translate) TranslateMessage32( msg );
1252 if (dispatch) DispatchMessage32W( msg );
1257 /****************************************************************
1258 * GetDlgCtrlID16 (USER.277)
1260 INT16 WINAPI GetDlgCtrlID16( HWND16 hwnd )
1262 WND *wndPtr = WIN_FindWndPtr(hwnd);
1263 if (wndPtr) return wndPtr->wIDmenu;
1268 /****************************************************************
1269 * GetDlgCtrlID32 (USER32.234)
1271 INT32 WINAPI GetDlgCtrlID32( HWND32 hwnd )
1273 WND *wndPtr = WIN_FindWndPtr(hwnd);
1274 if (wndPtr) return wndPtr->wIDmenu;
1279 /***********************************************************************
1280 * GetDlgItem16 (USER.91)
1282 HWND16 WINAPI GetDlgItem16( HWND16 hwndDlg, INT16 id )
1286 if (!(pWnd = WIN_FindWndPtr( hwndDlg ))) return 0;
1287 for (pWnd = pWnd->child; pWnd; pWnd = pWnd->next)
1288 if (pWnd->wIDmenu == (UINT16)id) return pWnd->hwndSelf;
1293 /***********************************************************************
1294 * GetDlgItem32 (USER32.235)
1296 HWND32 WINAPI GetDlgItem32( HWND32 hwndDlg, INT32 id )
1300 if (!(pWnd = WIN_FindWndPtr( hwndDlg ))) return 0;
1301 for (pWnd = pWnd->child; pWnd; pWnd = pWnd->next)
1302 if (pWnd->wIDmenu == (UINT16)id) return pWnd->hwndSelf;
1307 /*******************************************************************
1308 * SendDlgItemMessage16 (USER.101)
1310 LRESULT WINAPI SendDlgItemMessage16( HWND16 hwnd, INT16 id, UINT16 msg,
1311 WPARAM16 wParam, LPARAM lParam )
1313 HWND16 hwndCtrl = GetDlgItem16( hwnd, id );
1314 if (hwndCtrl) return SendMessage16( hwndCtrl, msg, wParam, lParam );
1319 /*******************************************************************
1320 * SendDlgItemMessage32A (USER32.452)
1322 LRESULT WINAPI SendDlgItemMessage32A( HWND32 hwnd, INT32 id, UINT32 msg,
1323 WPARAM32 wParam, LPARAM lParam )
1325 HWND32 hwndCtrl = GetDlgItem32( hwnd, id );
1326 if (hwndCtrl) return SendMessage32A( hwndCtrl, msg, wParam, lParam );
1331 /*******************************************************************
1332 * SendDlgItemMessage32W (USER32.453)
1334 LRESULT WINAPI SendDlgItemMessage32W( HWND32 hwnd, INT32 id, UINT32 msg,
1335 WPARAM32 wParam, LPARAM lParam )
1337 HWND32 hwndCtrl = GetDlgItem32( hwnd, id );
1338 if (hwndCtrl) return SendMessage32W( hwndCtrl, msg, wParam, lParam );
1343 /*******************************************************************
1344 * SetDlgItemText16 (USER.92)
1346 void WINAPI SetDlgItemText16( HWND16 hwnd, INT16 id, SEGPTR lpString )
1348 SendDlgItemMessage16( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1352 /*******************************************************************
1353 * SetDlgItemText32A (USER32.478)
1355 void WINAPI SetDlgItemText32A( HWND32 hwnd, INT32 id, LPCSTR lpString )
1357 SendDlgItemMessage32A( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1361 /*******************************************************************
1362 * SetDlgItemText32W (USER32.479)
1364 void WINAPI SetDlgItemText32W( HWND32 hwnd, INT32 id, LPCWSTR lpString )
1366 SendDlgItemMessage32W( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1370 /***********************************************************************
1371 * GetDlgItemText16 (USER.93)
1373 INT16 WINAPI GetDlgItemText16( HWND16 hwnd, INT16 id, SEGPTR str, UINT16 len )
1375 return (INT16)SendDlgItemMessage16( hwnd, id, WM_GETTEXT,
1380 /***********************************************************************
1381 * GetDlgItemText32A (USER32.237)
1383 INT32 WINAPI GetDlgItemText32A( HWND32 hwnd, INT32 id, LPSTR str, UINT32 len )
1385 return (INT32)SendDlgItemMessage32A( hwnd, id, WM_GETTEXT,
1390 /***********************************************************************
1391 * GetDlgItemText32W (USER32.238)
1393 INT32 WINAPI GetDlgItemText32W( HWND32 hwnd, INT32 id, LPWSTR str, UINT32 len )
1395 return (INT32)SendDlgItemMessage32W( hwnd, id, WM_GETTEXT,
1400 /*******************************************************************
1401 * SetDlgItemInt16 (USER.94)
1403 void WINAPI SetDlgItemInt16( HWND16 hwnd, INT16 id, UINT16 value, BOOL16 fSigned )
1405 return SetDlgItemInt32( hwnd, (UINT32)(UINT16)id, value, fSigned );
1409 /*******************************************************************
1410 * SetDlgItemInt32 (USER32.477)
1412 void WINAPI SetDlgItemInt32( HWND32 hwnd, INT32 id, UINT32 value,
1417 if (fSigned) sprintf( str, "%d", (INT32)value );
1418 else sprintf( str, "%u", value );
1419 SendDlgItemMessage32A( hwnd, id, WM_SETTEXT, 0, (LPARAM)str );
1423 /***********************************************************************
1424 * GetDlgItemInt16 (USER.95)
1426 UINT16 WINAPI GetDlgItemInt16( HWND16 hwnd, INT16 id, BOOL16 *translated,
1432 if (translated) *translated = FALSE;
1433 result = GetDlgItemInt32( hwnd, (UINT32)(UINT16)id, &ok, fSigned );
1437 if (((INT32)result < -32767) || ((INT32)result > 32767)) return 0;
1441 if (result > 65535) return 0;
1443 if (translated) *translated = TRUE;
1444 return (UINT16)result;
1448 /***********************************************************************
1449 * GetDlgItemInt32 (USER32.236)
1451 UINT32 WINAPI GetDlgItemInt32( HWND32 hwnd, INT32 id, BOOL32 *translated,
1458 if (translated) *translated = FALSE;
1459 if (!SendDlgItemMessage32A(hwnd, id, WM_GETTEXT, sizeof(str), (LPARAM)str))
1463 result = strtol( str, &endptr, 10 );
1464 if (!endptr || (endptr == str)) /* Conversion was unsuccessful */
1466 if (((result == LONG_MIN) || (result == LONG_MAX)) && (errno==ERANGE))
1471 result = strtoul( str, &endptr, 10 );
1472 if (!endptr || (endptr == str)) /* Conversion was unsuccessful */
1474 if ((result == ULONG_MAX) && (errno == ERANGE)) return 0;
1476 if (translated) *translated = TRUE;
1477 return (UINT32)result;
1481 /***********************************************************************
1482 * CheckDlgButton16 (USER.97)
1484 BOOL16 WINAPI CheckDlgButton16( HWND16 hwnd, INT16 id, UINT16 check )
1486 SendDlgItemMessage32A( hwnd, id, BM_SETCHECK32, check, 0 );
1491 /***********************************************************************
1492 * CheckDlgButton32 (USER32.45)
1494 BOOL32 WINAPI CheckDlgButton32( HWND32 hwnd, INT32 id, UINT32 check )
1496 SendDlgItemMessage32A( hwnd, id, BM_SETCHECK32, check, 0 );
1501 /***********************************************************************
1502 * IsDlgButtonChecked16 (USER.98)
1504 UINT16 WINAPI IsDlgButtonChecked16( HWND16 hwnd, UINT16 id )
1506 return (UINT16)SendDlgItemMessage32A( hwnd, id, BM_GETCHECK32, 0, 0 );
1510 /***********************************************************************
1511 * IsDlgButtonChecked32 (USER32.344)
1513 UINT32 WINAPI IsDlgButtonChecked32( HWND32 hwnd, UINT32 id )
1515 return (UINT32)SendDlgItemMessage32A( hwnd, id, BM_GETCHECK32, 0, 0 );
1519 /***********************************************************************
1520 * CheckRadioButton16 (USER.96)
1522 BOOL16 WINAPI CheckRadioButton16( HWND16 hwndDlg, UINT16 firstID,
1523 UINT16 lastID, UINT16 checkID )
1525 return CheckRadioButton32( hwndDlg, firstID, lastID, checkID );
1529 /***********************************************************************
1530 * CheckRadioButton32 (USER32.48)
1532 BOOL32 WINAPI CheckRadioButton32( HWND32 hwndDlg, UINT32 firstID,
1533 UINT32 lastID, UINT32 checkID )
1535 WND *pWnd = WIN_FindWndPtr( hwndDlg );
1536 if (!pWnd) return FALSE;
1538 for (pWnd = pWnd->child; pWnd; pWnd = pWnd->next)
1539 if ((pWnd->wIDmenu == firstID) || (pWnd->wIDmenu == lastID)) break;
1540 if (!pWnd) return FALSE;
1542 if (pWnd->wIDmenu == lastID)
1543 lastID = firstID; /* Buttons are in reverse order */
1546 SendMessage32A( pWnd->hwndSelf, BM_SETCHECK32,
1547 (pWnd->wIDmenu == checkID), 0 );
1548 if (pWnd->wIDmenu == lastID) break;
1555 /***********************************************************************
1556 * GetDialogBaseUnits (USER.243) (USER32.233)
1558 DWORD WINAPI GetDialogBaseUnits(void)
1560 return MAKELONG( xBaseUnit, yBaseUnit );
1564 /***********************************************************************
1565 * MapDialogRect16 (USER.103)
1567 void WINAPI MapDialogRect16( HWND16 hwnd, LPRECT16 rect )
1569 DIALOGINFO * dlgInfo;
1570 WND * wndPtr = WIN_FindWndPtr( hwnd );
1571 if (!wndPtr) return;
1572 dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
1573 rect->left = (rect->left * dlgInfo->xBaseUnit) / 4;
1574 rect->right = (rect->right * dlgInfo->xBaseUnit) / 4;
1575 rect->top = (rect->top * dlgInfo->yBaseUnit) / 8;
1576 rect->bottom = (rect->bottom * dlgInfo->yBaseUnit) / 8;
1580 /***********************************************************************
1581 * MapDialogRect32 (USER32.382)
1583 void WINAPI MapDialogRect32( HWND32 hwnd, LPRECT32 rect )
1585 DIALOGINFO * dlgInfo;
1586 WND * wndPtr = WIN_FindWndPtr( hwnd );
1587 if (!wndPtr) return;
1588 dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
1589 rect->left = (rect->left * dlgInfo->xBaseUnit) / 4;
1590 rect->right = (rect->right * dlgInfo->xBaseUnit) / 4;
1591 rect->top = (rect->top * dlgInfo->yBaseUnit) / 8;
1592 rect->bottom = (rect->bottom * dlgInfo->yBaseUnit) / 8;
1596 /***********************************************************************
1597 * GetNextDlgGroupItem16 (USER.227)
1599 HWND16 WINAPI GetNextDlgGroupItem16( HWND16 hwndDlg, HWND16 hwndCtrl,
1602 return (HWND16)GetNextDlgGroupItem32( hwndDlg, hwndCtrl, fPrevious );
1606 /***********************************************************************
1607 * GetNextDlgGroupItem32 (USER32.275)
1609 HWND32 WINAPI GetNextDlgGroupItem32( HWND32 hwndDlg, HWND32 hwndCtrl,
1612 WND *pWnd, *pWndLast, *pWndCtrl, *pWndDlg;
1614 if (!(pWndDlg = WIN_FindWndPtr( hwndDlg ))) return 0;
1617 if (!(pWndCtrl = WIN_FindWndPtr( hwndCtrl ))) return 0;
1618 /* Make sure hwndCtrl is a top-level child */
1619 while ((pWndCtrl->dwStyle & WS_CHILD) && (pWndCtrl->parent != pWndDlg))
1620 pWndCtrl = pWndCtrl->parent;
1621 if (pWndCtrl->parent != pWndDlg) return 0;
1625 /* No ctrl specified -> start from the beginning */
1626 if (!(pWndCtrl = pWndDlg->child)) return 0;
1627 if (fPrevious) while (pWndCtrl->next) pWndCtrl = pWndCtrl->next;
1630 pWndLast = pWndCtrl;
1631 pWnd = pWndCtrl->next;
1634 if (!pWnd || (pWnd->dwStyle & WS_GROUP))
1636 /* Wrap-around to the beginning of the group */
1637 WND *pWndStart = pWndDlg->child;
1638 for (pWnd = pWndStart; pWnd; pWnd = pWnd->next)
1640 if (pWnd->dwStyle & WS_GROUP) pWndStart = pWnd;
1641 if (pWnd == pWndCtrl) break;
1645 if (pWnd == pWndCtrl) break;
1646 if ((pWnd->dwStyle & WS_VISIBLE) && !(pWnd->dwStyle & WS_DISABLED))
1649 if (!fPrevious) break;
1653 return pWndLast->hwndSelf;
1657 /***********************************************************************
1658 * GetNextDlgTabItem16 (USER.228)
1660 HWND16 WINAPI GetNextDlgTabItem16( HWND16 hwndDlg, HWND16 hwndCtrl,
1663 return (HWND16)GetNextDlgTabItem32( hwndDlg, hwndCtrl, fPrevious );
1667 /***********************************************************************
1668 * GetNextDlgTabItem32 (USER32.276)
1670 HWND32 WINAPI GetNextDlgTabItem32( HWND32 hwndDlg, HWND32 hwndCtrl,
1673 WND *pWnd, *pWndLast, *pWndCtrl, *pWndDlg;
1675 if (!(pWndDlg = WIN_FindWndPtr( hwndDlg ))) return 0;
1678 if (!(pWndCtrl = WIN_FindWndPtr( hwndCtrl ))) return 0;
1679 /* Make sure hwndCtrl is a top-level child */
1680 while ((pWndCtrl->dwStyle & WS_CHILD) && (pWndCtrl->parent != pWndDlg))
1681 pWndCtrl = pWndCtrl->parent;
1682 if (pWndCtrl->parent != pWndDlg) return 0;
1686 /* No ctrl specified -> start from the beginning */
1687 if (!(pWndCtrl = pWndDlg->child)) return 0;
1688 if (!fPrevious) while (pWndCtrl->next) pWndCtrl = pWndCtrl->next;
1691 pWndLast = pWndCtrl;
1692 pWnd = pWndCtrl->next;
1695 if (!pWnd) pWnd = pWndDlg->child;
1696 if (pWnd == pWndCtrl) break;
1697 if ((pWnd->dwStyle & WS_TABSTOP) && (pWnd->dwStyle & WS_VISIBLE) &&
1698 !(pWnd->dwStyle & WS_DISABLED))
1701 if (!fPrevious) break;
1705 return pWndLast->hwndSelf;
1709 /**********************************************************************
1710 * DIALOG_DlgDirSelect
1712 * Helper function for DlgDirSelect*
1714 static BOOL32 DIALOG_DlgDirSelect( HWND32 hwnd, LPSTR str, INT32 len,
1715 INT32 id, BOOL32 win32, BOOL32 unicode,
1721 HWND32 listbox = GetDlgItem32( hwnd, id );
1723 TRACE(dialog, "%04x '%s' %d\n", hwnd, str, id );
1724 if (!listbox) return FALSE;
1727 item = SendMessage32A(listbox, combo ? CB_GETCURSEL32
1728 : LB_GETCURSEL32, 0, 0 );
1729 if (item == LB_ERR) return FALSE;
1730 size = SendMessage32A(listbox, combo ? CB_GETLBTEXTLEN32
1731 : LB_GETTEXTLEN32, 0, 0 );
1732 if (size == LB_ERR) return FALSE;
1736 item = SendMessage32A(listbox, combo ? CB_GETCURSEL16
1737 : LB_GETCURSEL16, 0, 0 );
1738 if (item == LB_ERR) return FALSE;
1739 size = SendMessage32A(listbox, combo ? CB_GETLBTEXTLEN16
1740 : LB_GETTEXTLEN16, 0, 0 );
1741 if (size == LB_ERR) return FALSE;
1744 if (!(buffer = SEGPTR_ALLOC( size+1 ))) return FALSE;
1747 SendMessage32A( listbox, combo ? CB_GETLBTEXT32 : LB_GETTEXT32,
1748 item, (LPARAM)buffer );
1750 SendMessage16( listbox, combo ? CB_GETLBTEXT16 : LB_GETTEXT16,
1751 item, (LPARAM)SEGPTR_GET(buffer) );
1753 if ((ret = (buffer[0] == '['))) /* drive or directory */
1755 if (buffer[1] == '-') /* drive */
1763 buffer[strlen(buffer)-1] = '\\';
1769 if (unicode) lstrcpynAtoW( (LPWSTR)str, ptr, len );
1770 else lstrcpyn32A( str, ptr, len );
1771 SEGPTR_FREE( buffer );
1772 TRACE(dialog, "Returning %d '%s'\n", ret, str );
1777 /**********************************************************************
1780 * Helper function for DlgDirList*
1782 static INT32 DIALOG_DlgDirList( HWND32 hDlg, LPSTR spec, INT32 idLBox,
1783 INT32 idStatic, UINT32 attrib, BOOL32 combo )
1787 LPSTR orig_spec = spec;
1789 #define SENDMSG(msg,wparam,lparam) \
1790 ((attrib & DDL_POSTMSGS) ? PostMessage32A( hwnd, msg, wparam, lparam ) \
1791 : SendMessage32A( hwnd, msg, wparam, lparam ))
1793 TRACE(dialog, "%04x '%s' %d %d %04x\n",
1794 hDlg, spec ? spec : "NULL", idLBox, idStatic, attrib );
1796 if (spec && spec[0] && (spec[1] == ':'))
1798 drive = toupper( spec[0] ) - 'A';
1800 if (!DRIVE_SetCurrentDrive( drive )) return FALSE;
1802 else drive = DRIVE_GetCurrentDrive();
1804 /* If the path exists and is a directory, chdir to it */
1805 if (!spec || !spec[0] || DRIVE_Chdir( drive, spec )) spec = "*.*";
1810 if ((p2 = strrchr( p, '\\' ))) p = p2;
1811 if ((p2 = strrchr( p, '/' ))) p = p2;
1816 if (!DRIVE_Chdir( drive, spec ))
1818 *p = sep; /* Restore the original spec */
1825 TRACE(dialog, "path=%c:\\%s mask=%s\n",
1826 'A' + drive, DRIVE_GetDosCwd(drive), spec );
1828 if (idLBox && ((hwnd = GetDlgItem32( hDlg, idLBox )) != 0))
1830 SENDMSG( combo ? CB_RESETCONTENT32 : LB_RESETCONTENT32, 0, 0 );
1831 if (attrib & DDL_DIRECTORY)
1833 if (!(attrib & DDL_EXCLUSIVE))
1835 if (SENDMSG( combo ? CB_DIR32 : LB_DIR32,
1836 attrib & ~(DDL_DIRECTORY | DDL_DRIVES),
1837 (LPARAM)spec ) == LB_ERR)
1840 if (SENDMSG( combo ? CB_DIR32 : LB_DIR32,
1841 (attrib & (DDL_DIRECTORY | DDL_DRIVES)) | DDL_EXCLUSIVE,
1842 (LPARAM)"*.*" ) == LB_ERR)
1847 if (SENDMSG( combo ? CB_DIR32 : LB_DIR32, attrib,
1848 (LPARAM)spec ) == LB_ERR)
1853 if (idStatic && ((hwnd = GetDlgItem32( hDlg, idStatic )) != 0))
1856 int drive = DRIVE_GetCurrentDrive();
1857 strcpy( temp, "A:\\" );
1859 lstrcpyn32A( temp + 3, DRIVE_GetDosCwd(drive), sizeof(temp)-3 );
1860 CharLower32A( temp );
1861 /* Can't use PostMessage() here, because the string is on the stack */
1862 SetDlgItemText32A( hDlg, idStatic, temp );
1865 if (orig_spec && (spec != orig_spec))
1867 /* Update the original file spec */
1869 while ((*orig_spec++ = *p++));
1877 /**********************************************************************
1878 * DIALOG_DlgDirListW
1880 * Helper function for DlgDirList*32W
1882 static INT32 DIALOG_DlgDirListW( HWND32 hDlg, LPWSTR spec, INT32 idLBox,
1883 INT32 idStatic, UINT32 attrib, BOOL32 combo )
1887 LPSTR specA = HEAP_strdupWtoA( GetProcessHeap(), 0, spec );
1888 INT32 ret = DIALOG_DlgDirList( hDlg, specA, idLBox, idStatic,
1890 lstrcpyAtoW( spec, specA );
1891 HeapFree( GetProcessHeap(), 0, specA );
1894 return DIALOG_DlgDirList( hDlg, NULL, idLBox, idStatic, attrib, combo );
1898 /**********************************************************************
1899 * DlgDirSelect (USER.99)
1901 BOOL16 WINAPI DlgDirSelect( HWND16 hwnd, LPSTR str, INT16 id )
1903 return DlgDirSelectEx16( hwnd, str, 128, id );
1907 /**********************************************************************
1908 * DlgDirSelectComboBox (USER.194)
1910 BOOL16 WINAPI DlgDirSelectComboBox( HWND16 hwnd, LPSTR str, INT16 id )
1912 return DlgDirSelectComboBoxEx16( hwnd, str, 128, id );
1916 /**********************************************************************
1917 * DlgDirSelectEx16 (USER.422)
1919 BOOL16 WINAPI DlgDirSelectEx16( HWND16 hwnd, LPSTR str, INT16 len, INT16 id )
1921 return DIALOG_DlgDirSelect( hwnd, str, len, id, FALSE, FALSE, FALSE );
1925 /**********************************************************************
1926 * DlgDirSelectEx32A (USER32.149)
1928 BOOL32 WINAPI DlgDirSelectEx32A( HWND32 hwnd, LPSTR str, INT32 len, INT32 id )
1930 return DIALOG_DlgDirSelect( hwnd, str, len, id, TRUE, FALSE, FALSE );
1934 /**********************************************************************
1935 * DlgDirSelectEx32W (USER32.150)
1937 BOOL32 WINAPI DlgDirSelectEx32W( HWND32 hwnd, LPWSTR str, INT32 len, INT32 id )
1939 return DIALOG_DlgDirSelect( hwnd, (LPSTR)str, len, id, TRUE, TRUE, FALSE );
1943 /**********************************************************************
1944 * DlgDirSelectComboBoxEx16 (USER.423)
1946 BOOL16 WINAPI DlgDirSelectComboBoxEx16( HWND16 hwnd, LPSTR str, INT16 len,
1949 return DIALOG_DlgDirSelect( hwnd, str, len, id, FALSE, FALSE, TRUE );
1953 /**********************************************************************
1954 * DlgDirSelectComboBoxEx32A (USER32.147)
1956 BOOL32 WINAPI DlgDirSelectComboBoxEx32A( HWND32 hwnd, LPSTR str, INT32 len,
1959 return DIALOG_DlgDirSelect( hwnd, str, len, id, TRUE, FALSE, TRUE );
1963 /**********************************************************************
1964 * DlgDirSelectComboBoxEx32W (USER32.148)
1966 BOOL32 WINAPI DlgDirSelectComboBoxEx32W( HWND32 hwnd, LPWSTR str, INT32 len,
1969 return DIALOG_DlgDirSelect( hwnd, (LPSTR)str, len, id, TRUE, TRUE, TRUE );
1973 /**********************************************************************
1974 * DlgDirList16 (USER.100)
1976 INT16 WINAPI DlgDirList16( HWND16 hDlg, LPSTR spec, INT16 idLBox,
1977 INT16 idStatic, UINT16 attrib )
1979 return DIALOG_DlgDirList( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1983 /**********************************************************************
1984 * DlgDirList32A (USER32.143)
1986 INT32 WINAPI DlgDirList32A( HWND32 hDlg, LPSTR spec, INT32 idLBox,
1987 INT32 idStatic, UINT32 attrib )
1989 return DIALOG_DlgDirList( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1993 /**********************************************************************
1994 * DlgDirList32W (USER32.146)
1996 INT32 WINAPI DlgDirList32W( HWND32 hDlg, LPWSTR spec, INT32 idLBox,
1997 INT32 idStatic, UINT32 attrib )
1999 return DIALOG_DlgDirListW( hDlg, spec, idLBox, idStatic, attrib, FALSE );
2003 /**********************************************************************
2004 * DlgDirListComboBox16 (USER.195)
2006 INT16 WINAPI DlgDirListComboBox16( HWND16 hDlg, LPSTR spec, INT16 idCBox,
2007 INT16 idStatic, UINT16 attrib )
2009 return DIALOG_DlgDirList( hDlg, spec, idCBox, idStatic, attrib, TRUE );
2013 /**********************************************************************
2014 * DlgDirListComboBox32A (USER32.144)
2016 INT32 WINAPI DlgDirListComboBox32A( HWND32 hDlg, LPSTR spec, INT32 idCBox,
2017 INT32 idStatic, UINT32 attrib )
2019 return DIALOG_DlgDirList( hDlg, spec, idCBox, idStatic, attrib, TRUE );
2023 /**********************************************************************
2024 * DlgDirListComboBox32W (USER32.145)
2026 INT32 WINAPI DlgDirListComboBox32W( HWND32 hDlg, LPWSTR spec, INT32 idCBox,
2027 INT32 idStatic, UINT32 attrib )
2029 return DIALOG_DlgDirListW( hDlg, spec, idCBox, idStatic, attrib, TRUE );