Yet another small self-loader fix.
[wine/multimedia.git] / windows / dialog.c
blobae82fdfa51888bdcb2fb4a353e372cb058107f32
1 /*
2 * Dialog functions
4 * Copyright 1993, 1994, 1996 Alexandre Julliard
5 */
7 #include <ctype.h>
8 #include <sys/errno.h>
9 #include <limits.h>
10 #include <stdlib.h>
11 #include <string.h>
12 #include "windows.h"
13 #include "dialog.h"
14 #include "drive.h"
15 #include "heap.h"
16 #include "win.h"
17 #include "ldt.h"
18 #include "user.h"
19 #include "winproc.h"
20 #include "message.h"
21 #include "sysmetrics.h"
22 #include "debug.h"
25 /* Dialog control information */
26 typedef struct
28 DWORD style;
29 DWORD exStyle;
30 DWORD helpId;
31 INT16 x;
32 INT16 y;
33 INT16 cx;
34 INT16 cy;
35 UINT32 id;
36 LPCSTR className;
37 LPCSTR windowName;
38 LPVOID data;
39 } DLG_CONTROL_INFO;
41 /* Dialog template */
42 typedef struct
44 DWORD style;
45 DWORD exStyle;
46 DWORD helpId;
47 UINT16 nbItems;
48 INT16 x;
49 INT16 y;
50 INT16 cx;
51 INT16 cy;
52 LPCSTR menuName;
53 LPCSTR className;
54 LPCSTR caption;
55 WORD pointSize;
56 WORD weight;
57 BOOL32 italic;
58 LPCSTR faceName;
59 BOOL32 dialogEx;
60 } DLG_TEMPLATE;
62 /* Dialog base units */
63 static WORD xBaseUnit = 0, yBaseUnit = 0;
66 /***********************************************************************
67 * DIALOG_Init
69 * Initialisation of the dialog manager.
71 BOOL32 DIALOG_Init(void)
73 TEXTMETRIC16 tm;
74 HDC16 hdc;
76 /* Calculate the dialog base units */
78 if (!(hdc = CreateDC16( "DISPLAY", NULL, NULL, NULL ))) return FALSE;
79 GetTextMetrics16( hdc, &tm );
80 DeleteDC32( hdc );
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 );
91 return TRUE;
95 /***********************************************************************
96 * DIALOG_GetControl16
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];
104 int int_id;
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);
112 info->exStyle = 0;
114 if (*p & 0x80)
116 switch((BYTE)*p)
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;
127 p++;
129 else
131 info->className = p;
132 p += strlen(p) + 1;
135 int_id = ((BYTE)*p == 0xff);
136 if (int_id)
138 /* Integer id, not documented (?). Only works for SS_ICON controls */
139 info->windowName = (LPCSTR)(UINT32)GET_WORD(p+1);
140 p += 3;
142 else
144 info->windowName = p;
145 p += strlen(p) + 1;
148 info->data = (LPVOID)(*p ? p + 1 : NULL); /* FIXME: should be a segptr */
149 p += *p + 1;
151 if(int_id)
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);
156 else
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);
162 return p;
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,
173 BOOL32 dialogEx )
175 if (dialogEx)
177 info->helpId = GET_DWORD(p); p += 2;
178 info->exStyle = GET_DWORD(p); p += 2;
179 info->style = GET_DWORD(p); p += 2;
181 else
183 info->helpId = 0;
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++;
192 if (dialogEx)
194 /* id is a DWORD for DIALOGEX */
195 info->id = GET_DWORD(p);
196 p += 2;
198 else
200 info->id = GET_WORD(p);
201 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];
218 else
220 info->className = NULL;
221 ERR( dialog, "Unknown built-in class id %04x\n", id );
223 p += 2;
225 else
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);
234 p += 2;
236 else
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 );
248 if (GET_WORD(p))
250 if (TRACE_ON(dialog))
252 WORD i, count = GET_WORD(p) / sizeof(WORD);
253 TRACE(dialog, " BEGIN\n");
254 TRACE(dialog, " ");
255 for (i = 0; i < count; i++) DUMP( "%04x,", GET_WORD(p+i+1) );
256 DUMP("\n");
257 TRACE(dialog, " END\n" );
259 info->data = (LPVOID)(p + 1);
260 p += GET_WORD(p) / sizeof(WORD);
262 else info->data = NULL;
263 p++;
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" );
285 while (items--)
287 if (!win32)
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" );
300 continue;
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 );
318 else
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,
331 hInst, info.data );
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. */
342 if (hwndDefButton)
343 SendMessage32A( hwndDefButton, BM_SETSTYLE32,
344 BS_PUSHBUTTON,FALSE );
345 hwndDefButton = hwndCtrl;
346 dlgInfo->idResult = GetWindowWord32( hwndCtrl, GWW_ID );
349 TRACE(dialog, " END\n" );
350 return TRUE;
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);
363 result->exStyle = 0;
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 */
375 switch( (BYTE)*p )
377 case 0:
378 result->menuName = 0;
379 p++;
380 break;
381 case 0xff:
382 result->menuName = (LPCSTR)(UINT32)GET_WORD( p + 1 );
383 p += 3;
384 TRACE(dialog, " MENU %04x\n", LOWORD(result->menuName) );
385 break;
386 default:
387 result->menuName = p;
388 TRACE(dialog, " MENU '%s'\n", p );
389 p += strlen(p) + 1;
390 break;
393 /* Get the class name */
395 if (*p)
397 result->className = p;
398 TRACE(dialog, " CLASS '%s'\n", result->className );
400 else result->className = DIALOG_CLASS_ATOM;
401 p += strlen(p) + 1;
403 /* Get the window caption */
405 result->caption = p;
406 p += strlen(p) + 1;
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);
414 p += sizeof(WORD);
415 result->faceName = p;
416 p += strlen(p) + 1;
417 TRACE(dialog, " FONT %d,'%s'\n",
418 result->pointSize, result->faceName );
420 return p;
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;
442 else
444 result->dialogEx = FALSE;
445 result->helpId = 0;
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 */
461 switch(GET_WORD(p))
463 case 0x0000:
464 result->menuName = NULL;
465 p++;
466 break;
467 case 0xffff:
468 result->menuName = (LPCSTR)(UINT32)GET_WORD( p + 1 );
469 p += 2;
470 TRACE(dialog, " MENU %04x\n", LOWORD(result->menuName) );
471 break;
472 default:
473 result->menuName = (LPCSTR)p;
474 TRACE(dialog, " MENU %s\n", debugstr_w( (LPCWSTR)p ));
475 p += lstrlen32W( (LPCWSTR)p ) + 1;
476 break;
479 /* Get the class name */
481 switch(GET_WORD(p))
483 case 0x0000:
484 result->className = DIALOG_CLASS_ATOM;
485 p++;
486 break;
487 case 0xffff:
488 result->className = (LPCSTR)(UINT32)GET_WORD( p + 1 );
489 p += 2;
490 TRACE(dialog, " CLASS %04x\n", LOWORD(result->className) );
491 break;
492 default:
493 result->className = (LPCSTR)p;
494 TRACE(dialog, " CLASS %s\n", debugstr_w( (LPCWSTR)p ));
495 p += lstrlen32W( (LPCWSTR)p ) + 1;
496 break;
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);
510 p++;
511 if (result->dialogEx)
513 result->weight = GET_WORD(p); p++;
514 result->italic = LOBYTE(GET_WORD(p)); p++;
516 else
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 )
541 HMENU16 hMenu = 0;
542 HFONT16 hFont = 0;
543 HWND32 hwnd;
544 RECT32 rect;
545 WND * wndPtr;
546 DLG_TEMPLATE template;
547 DIALOGINFO * dlgInfo;
548 WORD xUnit = xBaseUnit;
549 WORD yUnit = yBaseUnit;
551 /* Parse dialog template */
553 if (!dlgTemplate) return 0;
554 if (win32Template)
555 dlgTemplate = DIALOG_ParseTemplate32( dlgTemplate, &template );
556 else
557 dlgTemplate = DIALOG_ParseTemplate16( dlgTemplate, &template );
559 /* Load menu */
561 if (template.menuName)
563 if (!win32Template)
565 LPSTR str = SEGPTR_STRDUP( template.menuName );
566 hMenu = LoadMenu16( hInst, SEGPTR_GET(str) );
567 SEGPTR_FREE( 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). */
579 if (win32Template)
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 );
584 else
585 hFont = CreateFont16( -template.pointSize, 0, 0, 0, FW_DONTCARE,
586 FALSE, FALSE, FALSE, DEFAULT_CHARSET, 0, 0,
587 PROOF_QUALITY, FF_DONTCARE,
588 template.faceName );
589 if (hFont)
591 TEXTMETRIC16 tm;
592 HFONT16 oldFont;
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;
600 yUnit = tm.tmHeight;
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
621 : CW_USEDEFAULT32;
623 else
625 if (template.style & DS_CENTER)
627 rect.left = (SYSMETRICS_CXSCREEN - rect.right) / 2;
628 rect.top = (SYSMETRICS_CYSCREEN - rect.bottom) / 2;
630 else
632 rect.left += template.x * xUnit / 4;
633 rect.top += template.y * yUnit / 8;
635 if ( !(template.style & WS_CHILD) )
637 INT16 dX, dY;
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 );
658 else
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 );
665 if (!hwnd)
667 if (hFont) DeleteObject32( hFont );
668 if (hMenu) DestroyMenu32( hMenu );
669 return 0;
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;
685 dlgInfo->flags = 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 );
708 return hwnd;
711 if( IsWindow32(hwnd) ) DestroyWindow32( hwnd );
712 return 0;
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,
731 LPARAM param )
733 HWND16 hwnd = 0;
734 HRSRC16 hRsrc;
735 HGLOBAL16 hmem;
736 LPCVOID data;
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,
745 dlgProc, param );
746 FreeResource16( hmem );
747 return hwnd;
750 /***********************************************************************
751 * CreateDialogParam32A (USER32.73)
753 HWND32 WINAPI CreateDialogParam32A( HINSTANCE32 hInst, LPCSTR name,
754 HWND32 owner, DLGPROC32 dlgProc,
755 LPARAM param )
757 if (HIWORD(name))
759 LPWSTR str = HEAP_strdupAtoW( GetProcessHeap(), 0, name );
760 HWND32 hwnd = CreateDialogParam32W( hInst, str, owner, dlgProc, param);
761 HeapFree( GetProcessHeap(), 0, str );
762 return hwnd;
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,
773 LPARAM param )
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,
797 LPCVOID dlgTemplate,
798 HWND16 owner, DLGPROC16 dlgProc,
799 LPARAM param )
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,
810 LPCVOID dlgTemplate,
811 HWND32 owner, DLGPROC32 dlgProc,
812 LPARAM param )
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,
822 LPCVOID dlgTemplate,
823 HWND32 owner, DLGPROC32 dlgProc,
824 LPARAM param )
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,
834 LPCVOID dlgTemplate,
835 HWND32 owner, DLGPROC32 dlgProc,
836 LPARAM param )
838 return DIALOG_CreateIndirect( hInst, dlgTemplate, TRUE, owner,
839 (DLGPROC16)dlgProc, param, WIN_PROC_32W );
843 /***********************************************************************
844 * DIALOG_DoDialogBox
846 INT32 DIALOG_DoDialogBox( HWND32 hwnd, HWND32 owner )
848 WND * wndPtr;
849 DIALOGINFO * dlgInfo;
850 MSG16 msg;
851 INT32 retval;
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 );
873 return retval;
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 );
895 return -1;
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 );
907 return -1;
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 );
919 return -1;
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,
938 LPARAM param )
940 HWND16 hwnd;
941 LPCVOID ptr;
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 );
947 return -1;
951 /***********************************************************************
952 * DialogBoxIndirectParam32A (USER32.136)
954 INT32 WINAPI DialogBoxIndirectParam32A(HINSTANCE32 hInstance, LPCVOID template,
955 HWND32 owner, DLGPROC32 dlgProc,
956 LPARAM param )
958 HWND32 hwnd = CreateDialogIndirectParam32A( hInstance, template,
959 owner, dlgProc, param );
960 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
961 return -1;
965 /***********************************************************************
966 * DialogBoxIndirectParam32W (USER32.138)
968 INT32 WINAPI DialogBoxIndirectParam32W(HINSTANCE32 hInstance, LPCVOID template,
969 HWND32 owner, DLGPROC32 dlgProc,
970 LPARAM param )
972 HWND32 hwnd = CreateDialogIndirectParam32W( hInstance, template,
973 owner, dlgProc, param );
974 if (hwnd) return DIALOG_DoDialogBox( hwnd, owner );
975 return -1;
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 );
998 if( dlgInfo )
1000 dlgInfo->idResult = retval;
1001 dlgInfo->flags |= DF_END;
1003 return TRUE;
1007 /***********************************************************************
1008 * DIALOG_IsDialogMessage
1010 static BOOL32 DIALOG_IsDialogMessage( HWND32 hwnd, HWND32 hwndDlg,
1011 UINT32 message, WPARAM32 wParam,
1012 LPARAM lParam, BOOL32 *translate,
1013 BOOL32 *dispatch )
1015 INT32 dlgCode;
1017 *translate = *dispatch = FALSE;
1019 if (message == WM_PAINT)
1021 /* Apparently, we have to handle this one as well */
1022 *dispatch = TRUE;
1023 return TRUE;
1026 /* Only the key messages get special processing */
1027 if ((message != WM_KEYDOWN) &&
1028 (message != WM_SYSCHAR) &&
1029 (message != WM_CHAR))
1030 return FALSE;
1032 dlgCode = SendMessage32A( hwnd, WM_GETDLGCODE, 0, 0 );
1033 if (dlgCode & DLGC_WANTMESSAGE)
1035 *translate = *dispatch = TRUE;
1036 return TRUE;
1039 switch(message)
1041 case WM_KEYDOWN:
1042 if (dlgCode & DLGC_WANTALLKEYS) break;
1043 switch(wParam)
1045 case VK_TAB:
1046 if (!(dlgCode & DLGC_WANTTAB))
1048 SendMessage32A( hwndDlg, WM_NEXTDLGCTL,
1049 (GetKeyState32(VK_SHIFT) & 0x8000), 0 );
1050 return TRUE;
1052 break;
1054 case VK_RIGHT:
1055 case VK_DOWN:
1056 if (!(dlgCode & DLGC_WANTARROWS))
1058 SetFocus32( GetNextDlgGroupItem32( hwndDlg, GetFocus32(),
1059 FALSE ) );
1060 return TRUE;
1062 break;
1064 case VK_LEFT:
1065 case VK_UP:
1066 if (!(dlgCode & DLGC_WANTARROWS))
1068 SetFocus32( GetNextDlgGroupItem32( hwndDlg, GetFocus32(),
1069 TRUE ) );
1070 return TRUE;
1072 break;
1074 case VK_ESCAPE:
1075 SendMessage32A( hwndDlg, WM_COMMAND, IDCANCEL,
1076 (LPARAM)GetDlgItem32( hwndDlg, IDCANCEL ) );
1077 break;
1079 case VK_RETURN:
1081 DWORD dw = SendMessage16( hwndDlg, DM_GETDEFID, 0, 0 );
1082 if (HIWORD(dw) == DC_HASDEFID)
1083 SendMessage32A( hwndDlg, WM_COMMAND,
1084 MAKEWPARAM( LOWORD(dw), BN_CLICKED ),
1085 (LPARAM)GetDlgItem32(hwndDlg, LOWORD(dw)));
1086 else
1087 SendMessage32A( hwndDlg, WM_COMMAND, IDOK,
1088 (LPARAM)GetDlgItem32( hwndDlg, IDOK ) );
1090 break;
1092 default:
1093 *translate = TRUE;
1094 break;
1096 break; /* case WM_KEYDOWN */
1099 case WM_CHAR:
1100 if (dlgCode & (DLGC_WANTALLKEYS | DLGC_WANTCHARS)) break;
1101 break;
1103 case WM_SYSCHAR:
1104 if (dlgCode & DLGC_WANTALLKEYS) break;
1105 break;
1108 /* If we get here, the message has not been treated specially */
1109 /* and can be sent to its destination window. */
1110 *dispatch = TRUE;
1111 return TRUE;
1115 /***********************************************************************
1116 * IsDialogMessage16 (USER.90)
1118 BOOL16 WINAPI IsDialogMessage16( HWND16 hwndDlg, LPMSG16 msg )
1120 BOOL32 ret, translate, dispatch;
1122 if ((hwndDlg != msg->hwnd) && !IsChild16( hwndDlg, msg->hwnd ))
1123 return FALSE;
1125 ret = DIALOG_IsDialogMessage( msg->hwnd, hwndDlg, msg->message,
1126 msg->wParam, msg->lParam,
1127 &translate, &dispatch );
1128 if (translate) TranslateMessage16( msg );
1129 if (dispatch) DispatchMessage16( msg );
1130 return ret;
1134 /***********************************************************************
1135 * IsDialogMessage32A (USER32.342)
1137 BOOL32 WINAPI IsDialogMessage32A( HWND32 hwndDlg, LPMSG32 msg )
1139 BOOL32 ret, translate, dispatch;
1141 if ((hwndDlg != msg->hwnd) && !IsChild32( hwndDlg, msg->hwnd ))
1142 return FALSE;
1144 ret = DIALOG_IsDialogMessage( msg->hwnd, hwndDlg, msg->message,
1145 msg->wParam, msg->lParam,
1146 &translate, &dispatch );
1147 if (translate) TranslateMessage32( msg );
1148 if (dispatch) DispatchMessage32A( msg );
1149 return ret;
1153 /***********************************************************************
1154 * IsDialogMessage32W (USER32.343)
1156 BOOL32 WINAPI IsDialogMessage32W( HWND32 hwndDlg, LPMSG32 msg )
1158 BOOL32 ret, translate, dispatch;
1160 if ((hwndDlg != msg->hwnd) && !IsChild32( hwndDlg, msg->hwnd ))
1161 return FALSE;
1163 ret = DIALOG_IsDialogMessage( msg->hwnd, hwndDlg, msg->message,
1164 msg->wParam, msg->lParam,
1165 &translate, &dispatch );
1166 if (translate) TranslateMessage32( msg );
1167 if (dispatch) DispatchMessage32W( msg );
1168 return ret;
1172 /****************************************************************
1173 * GetDlgCtrlID16 (USER.277)
1175 INT16 WINAPI GetDlgCtrlID16( HWND16 hwnd )
1177 WND *wndPtr = WIN_FindWndPtr(hwnd);
1178 if (wndPtr) return wndPtr->wIDmenu;
1179 else return 0;
1183 /****************************************************************
1184 * GetDlgCtrlID32 (USER32.234)
1186 INT32 WINAPI GetDlgCtrlID32( HWND32 hwnd )
1188 WND *wndPtr = WIN_FindWndPtr(hwnd);
1189 if (wndPtr) return wndPtr->wIDmenu;
1190 else return 0;
1194 /***********************************************************************
1195 * GetDlgItem16 (USER.91)
1197 HWND16 WINAPI GetDlgItem16( HWND16 hwndDlg, INT16 id )
1199 WND *pWnd;
1201 if (!(pWnd = WIN_FindWndPtr( hwndDlg ))) return 0;
1202 for (pWnd = pWnd->child; pWnd; pWnd = pWnd->next)
1203 if (pWnd->wIDmenu == (UINT16)id) return pWnd->hwndSelf;
1204 return 0;
1208 /***********************************************************************
1209 * GetDlgItem32 (USER32.235)
1211 HWND32 WINAPI GetDlgItem32( HWND32 hwndDlg, INT32 id )
1213 WND *pWnd;
1215 if (!(pWnd = WIN_FindWndPtr( hwndDlg ))) return 0;
1216 for (pWnd = pWnd->child; pWnd; pWnd = pWnd->next)
1217 if (pWnd->wIDmenu == (UINT16)id) return pWnd->hwndSelf;
1218 return 0;
1222 /*******************************************************************
1223 * SendDlgItemMessage16 (USER.101)
1225 LRESULT WINAPI SendDlgItemMessage16( HWND16 hwnd, INT16 id, UINT16 msg,
1226 WPARAM16 wParam, LPARAM lParam )
1228 HWND16 hwndCtrl = GetDlgItem16( hwnd, id );
1229 if (hwndCtrl) return SendMessage16( hwndCtrl, msg, wParam, lParam );
1230 else return 0;
1234 /*******************************************************************
1235 * SendDlgItemMessage32A (USER32.452)
1237 LRESULT WINAPI SendDlgItemMessage32A( HWND32 hwnd, INT32 id, UINT32 msg,
1238 WPARAM32 wParam, LPARAM lParam )
1240 HWND32 hwndCtrl = GetDlgItem32( hwnd, id );
1241 if (hwndCtrl) return SendMessage32A( hwndCtrl, msg, wParam, lParam );
1242 else return 0;
1246 /*******************************************************************
1247 * SendDlgItemMessage32W (USER32.453)
1249 LRESULT WINAPI SendDlgItemMessage32W( HWND32 hwnd, INT32 id, UINT32 msg,
1250 WPARAM32 wParam, LPARAM lParam )
1252 HWND32 hwndCtrl = GetDlgItem32( hwnd, id );
1253 if (hwndCtrl) return SendMessage32W( hwndCtrl, msg, wParam, lParam );
1254 else return 0;
1258 /*******************************************************************
1259 * SetDlgItemText16 (USER.92)
1261 void WINAPI SetDlgItemText16( HWND16 hwnd, INT16 id, SEGPTR lpString )
1263 SendDlgItemMessage16( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1267 /*******************************************************************
1268 * SetDlgItemText32A (USER32.478)
1270 void WINAPI SetDlgItemText32A( HWND32 hwnd, INT32 id, LPCSTR lpString )
1272 SendDlgItemMessage32A( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1276 /*******************************************************************
1277 * SetDlgItemText32W (USER32.479)
1279 void WINAPI SetDlgItemText32W( HWND32 hwnd, INT32 id, LPCWSTR lpString )
1281 SendDlgItemMessage32W( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString );
1285 /***********************************************************************
1286 * GetDlgItemText16 (USER.93)
1288 INT16 WINAPI GetDlgItemText16( HWND16 hwnd, INT16 id, SEGPTR str, UINT16 len )
1290 return (INT16)SendDlgItemMessage16( hwnd, id, WM_GETTEXT,
1291 len, (LPARAM)str );
1295 /***********************************************************************
1296 * GetDlgItemText32A (USER32.237)
1298 INT32 WINAPI GetDlgItemText32A( HWND32 hwnd, INT32 id, LPSTR str, UINT32 len )
1300 return (INT32)SendDlgItemMessage32A( hwnd, id, WM_GETTEXT,
1301 len, (LPARAM)str );
1305 /***********************************************************************
1306 * GetDlgItemText32W (USER32.238)
1308 INT32 WINAPI GetDlgItemText32W( HWND32 hwnd, INT32 id, LPWSTR str, UINT32 len )
1310 return (INT32)SendDlgItemMessage32W( hwnd, id, WM_GETTEXT,
1311 len, (LPARAM)str );
1315 /*******************************************************************
1316 * SetDlgItemInt16 (USER.94)
1318 void WINAPI SetDlgItemInt16( HWND16 hwnd, INT16 id, UINT16 value, BOOL16 fSigned )
1320 return SetDlgItemInt32( hwnd, (UINT32)(UINT16)id, value, fSigned );
1324 /*******************************************************************
1325 * SetDlgItemInt32 (USER32.477)
1327 void WINAPI SetDlgItemInt32( HWND32 hwnd, INT32 id, UINT32 value,
1328 BOOL32 fSigned )
1330 char str[20];
1332 if (fSigned) sprintf( str, "%d", (INT32)value );
1333 else sprintf( str, "%u", value );
1334 SendDlgItemMessage32A( hwnd, id, WM_SETTEXT, 0, (LPARAM)str );
1338 /***********************************************************************
1339 * GetDlgItemInt16 (USER.95)
1341 UINT16 WINAPI GetDlgItemInt16( HWND16 hwnd, INT16 id, BOOL16 *translated,
1342 BOOL16 fSigned )
1344 UINT32 result;
1345 BOOL32 ok;
1347 if (translated) *translated = FALSE;
1348 result = GetDlgItemInt32( hwnd, (UINT32)(UINT16)id, &ok, fSigned );
1349 if (!ok) return 0;
1350 if (fSigned)
1352 if (((INT32)result < -32767) || ((INT32)result > 32767)) return 0;
1354 else
1356 if (result > 65535) return 0;
1358 if (translated) *translated = TRUE;
1359 return (UINT16)result;
1363 /***********************************************************************
1364 * GetDlgItemInt32 (USER32.236)
1366 UINT32 WINAPI GetDlgItemInt32( HWND32 hwnd, INT32 id, BOOL32 *translated,
1367 BOOL32 fSigned )
1369 char str[30];
1370 char * endptr;
1371 long result = 0;
1373 if (translated) *translated = FALSE;
1374 if (!SendDlgItemMessage32A(hwnd, id, WM_GETTEXT, sizeof(str), (LPARAM)str))
1375 return 0;
1376 if (fSigned)
1378 result = strtol( str, &endptr, 10 );
1379 if (!endptr || (endptr == str)) /* Conversion was unsuccessful */
1380 return 0;
1381 if (((result == LONG_MIN) || (result == LONG_MAX)) && (errno==ERANGE))
1382 return 0;
1384 else
1386 result = strtoul( str, &endptr, 10 );
1387 if (!endptr || (endptr == str)) /* Conversion was unsuccessful */
1388 return 0;
1389 if ((result == ULONG_MAX) && (errno == ERANGE)) return 0;
1391 if (translated) *translated = TRUE;
1392 return (UINT32)result;
1396 /***********************************************************************
1397 * CheckDlgButton16 (USER.97)
1399 BOOL16 WINAPI CheckDlgButton16( HWND16 hwnd, INT16 id, UINT16 check )
1401 SendDlgItemMessage32A( hwnd, id, BM_SETCHECK32, check, 0 );
1402 return TRUE;
1406 /***********************************************************************
1407 * CheckDlgButton32 (USER32.45)
1409 BOOL32 WINAPI CheckDlgButton32( HWND32 hwnd, INT32 id, UINT32 check )
1411 SendDlgItemMessage32A( hwnd, id, BM_SETCHECK32, check, 0 );
1412 return TRUE;
1416 /***********************************************************************
1417 * IsDlgButtonChecked16 (USER.98)
1419 UINT16 WINAPI IsDlgButtonChecked16( HWND16 hwnd, UINT16 id )
1421 return (UINT16)SendDlgItemMessage32A( hwnd, id, BM_GETCHECK32, 0, 0 );
1425 /***********************************************************************
1426 * IsDlgButtonChecked32 (USER32.344)
1428 UINT32 WINAPI IsDlgButtonChecked32( HWND32 hwnd, UINT32 id )
1430 return (UINT32)SendDlgItemMessage32A( hwnd, id, BM_GETCHECK32, 0, 0 );
1434 /***********************************************************************
1435 * CheckRadioButton16 (USER.96)
1437 BOOL16 WINAPI CheckRadioButton16( HWND16 hwndDlg, UINT16 firstID,
1438 UINT16 lastID, UINT16 checkID )
1440 return CheckRadioButton32( hwndDlg, firstID, lastID, checkID );
1444 /***********************************************************************
1445 * CheckRadioButton32 (USER32.48)
1447 BOOL32 WINAPI CheckRadioButton32( HWND32 hwndDlg, UINT32 firstID,
1448 UINT32 lastID, UINT32 checkID )
1450 WND *pWnd = WIN_FindWndPtr( hwndDlg );
1451 if (!pWnd) return FALSE;
1453 for (pWnd = pWnd->child; pWnd; pWnd = pWnd->next)
1454 if ((pWnd->wIDmenu == firstID) || (pWnd->wIDmenu == lastID)) break;
1455 if (!pWnd) return FALSE;
1457 if (pWnd->wIDmenu == lastID)
1458 lastID = firstID; /* Buttons are in reverse order */
1459 while (pWnd)
1461 SendMessage32A( pWnd->hwndSelf, BM_SETCHECK32,
1462 (pWnd->wIDmenu == checkID), 0 );
1463 if (pWnd->wIDmenu == lastID) break;
1464 pWnd = pWnd->next;
1466 return TRUE;
1470 /***********************************************************************
1471 * GetDialogBaseUnits (USER.243) (USER32.233)
1473 DWORD WINAPI GetDialogBaseUnits(void)
1475 return MAKELONG( xBaseUnit, yBaseUnit );
1479 /***********************************************************************
1480 * MapDialogRect16 (USER.103)
1482 void WINAPI MapDialogRect16( HWND16 hwnd, LPRECT16 rect )
1484 DIALOGINFO * dlgInfo;
1485 WND * wndPtr = WIN_FindWndPtr( hwnd );
1486 if (!wndPtr) return;
1487 dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
1488 rect->left = (rect->left * dlgInfo->xBaseUnit) / 4;
1489 rect->right = (rect->right * dlgInfo->xBaseUnit) / 4;
1490 rect->top = (rect->top * dlgInfo->yBaseUnit) / 8;
1491 rect->bottom = (rect->bottom * dlgInfo->yBaseUnit) / 8;
1495 /***********************************************************************
1496 * MapDialogRect32 (USER32.382)
1498 void WINAPI MapDialogRect32( HWND32 hwnd, LPRECT32 rect )
1500 DIALOGINFO * dlgInfo;
1501 WND * wndPtr = WIN_FindWndPtr( hwnd );
1502 if (!wndPtr) return;
1503 dlgInfo = (DIALOGINFO *)wndPtr->wExtra;
1504 rect->left = (rect->left * dlgInfo->xBaseUnit) / 4;
1505 rect->right = (rect->right * dlgInfo->xBaseUnit) / 4;
1506 rect->top = (rect->top * dlgInfo->yBaseUnit) / 8;
1507 rect->bottom = (rect->bottom * dlgInfo->yBaseUnit) / 8;
1511 /***********************************************************************
1512 * GetNextDlgGroupItem16 (USER.227)
1514 HWND16 WINAPI GetNextDlgGroupItem16( HWND16 hwndDlg, HWND16 hwndCtrl,
1515 BOOL16 fPrevious )
1517 return (HWND16)GetNextDlgGroupItem32( hwndDlg, hwndCtrl, fPrevious );
1521 /***********************************************************************
1522 * GetNextDlgGroupItem32 (USER32.275)
1524 HWND32 WINAPI GetNextDlgGroupItem32( HWND32 hwndDlg, HWND32 hwndCtrl,
1525 BOOL32 fPrevious )
1527 WND *pWnd, *pWndLast, *pWndCtrl, *pWndDlg;
1529 if (!(pWndDlg = WIN_FindWndPtr( hwndDlg ))) return 0;
1530 if (hwndCtrl)
1532 if (!(pWndCtrl = WIN_FindWndPtr( hwndCtrl ))) return 0;
1533 /* Make sure hwndCtrl is a top-level child */
1534 while ((pWndCtrl->dwStyle & WS_CHILD) && (pWndCtrl->parent != pWndDlg))
1535 pWndCtrl = pWndCtrl->parent;
1536 if (pWndCtrl->parent != pWndDlg) return 0;
1538 else
1540 /* No ctrl specified -> start from the beginning */
1541 if (!(pWndCtrl = pWndDlg->child)) return 0;
1542 if (fPrevious) while (pWndCtrl->next) pWndCtrl = pWndCtrl->next;
1545 pWndLast = pWndCtrl;
1546 pWnd = pWndCtrl->next;
1547 while (1)
1549 if (!pWnd || (pWnd->dwStyle & WS_GROUP))
1551 /* Wrap-around to the beginning of the group */
1552 WND *pWndStart = pWndDlg->child;
1553 for (pWnd = pWndStart; pWnd; pWnd = pWnd->next)
1555 if (pWnd->dwStyle & WS_GROUP) pWndStart = pWnd;
1556 if (pWnd == pWndCtrl) break;
1558 pWnd = pWndStart;
1560 if (pWnd == pWndCtrl) break;
1561 if ((pWnd->dwStyle & WS_VISIBLE) && !(pWnd->dwStyle & WS_DISABLED))
1563 pWndLast = pWnd;
1564 if (!fPrevious) break;
1566 pWnd = pWnd->next;
1568 return pWndLast->hwndSelf;
1572 /***********************************************************************
1573 * GetNextDlgTabItem16 (USER.228)
1575 HWND16 WINAPI GetNextDlgTabItem16( HWND16 hwndDlg, HWND16 hwndCtrl,
1576 BOOL16 fPrevious )
1578 return (HWND16)GetNextDlgTabItem32( hwndDlg, hwndCtrl, fPrevious );
1582 /***********************************************************************
1583 * GetNextDlgTabItem32 (USER32.276)
1585 HWND32 WINAPI GetNextDlgTabItem32( HWND32 hwndDlg, HWND32 hwndCtrl,
1586 BOOL32 fPrevious )
1588 WND *pWnd, *pWndLast, *pWndCtrl, *pWndDlg;
1590 if (!(pWndDlg = WIN_FindWndPtr( hwndDlg ))) return 0;
1591 if (hwndCtrl)
1593 if (!(pWndCtrl = WIN_FindWndPtr( hwndCtrl ))) return 0;
1594 /* Make sure hwndCtrl is a top-level child */
1595 while ((pWndCtrl->dwStyle & WS_CHILD) && (pWndCtrl->parent != pWndDlg))
1596 pWndCtrl = pWndCtrl->parent;
1597 if (pWndCtrl->parent != pWndDlg) return 0;
1599 else
1601 /* No ctrl specified -> start from the beginning */
1602 if (!(pWndCtrl = pWndDlg->child)) return 0;
1603 if (!fPrevious) while (pWndCtrl->next) pWndCtrl = pWndCtrl->next;
1606 pWndLast = pWndCtrl;
1607 pWnd = pWndCtrl->next;
1608 while (1)
1610 if (!pWnd) pWnd = pWndDlg->child;
1611 if (pWnd == pWndCtrl) break;
1612 if ((pWnd->dwStyle & WS_TABSTOP) && (pWnd->dwStyle & WS_VISIBLE) &&
1613 !(pWnd->dwStyle & WS_DISABLED))
1615 pWndLast = pWnd;
1616 if (!fPrevious) break;
1618 pWnd = pWnd->next;
1620 return pWndLast->hwndSelf;
1624 /**********************************************************************
1625 * DIALOG_DlgDirSelect
1627 * Helper function for DlgDirSelect*
1629 static BOOL32 DIALOG_DlgDirSelect( HWND32 hwnd, LPSTR str, INT32 len,
1630 INT32 id, BOOL32 win32, BOOL32 unicode,
1631 BOOL32 combo )
1633 char *buffer, *ptr;
1634 INT32 item, size;
1635 BOOL32 ret;
1636 HWND32 listbox = GetDlgItem32( hwnd, id );
1638 TRACE(dialog, "%04x '%s' %d\n", hwnd, str, id );
1639 if (!listbox) return FALSE;
1640 if (win32)
1642 item = SendMessage32A(listbox, combo ? CB_GETCURSEL32
1643 : LB_GETCURSEL32, 0, 0 );
1644 if (item == LB_ERR) return FALSE;
1645 size = SendMessage32A(listbox, combo ? CB_GETLBTEXTLEN32
1646 : LB_GETTEXTLEN32, 0, 0 );
1647 if (size == LB_ERR) return FALSE;
1649 else
1651 item = SendMessage32A(listbox, combo ? CB_GETCURSEL16
1652 : LB_GETCURSEL16, 0, 0 );
1653 if (item == LB_ERR) return FALSE;
1654 size = SendMessage32A(listbox, combo ? CB_GETLBTEXTLEN16
1655 : LB_GETTEXTLEN16, 0, 0 );
1656 if (size == LB_ERR) return FALSE;
1659 if (!(buffer = SEGPTR_ALLOC( size+1 ))) return FALSE;
1661 if (win32)
1662 SendMessage32A( listbox, combo ? CB_GETLBTEXT32 : LB_GETTEXT32,
1663 item, (LPARAM)buffer );
1664 else
1665 SendMessage16( listbox, combo ? CB_GETLBTEXT16 : LB_GETTEXT16,
1666 item, (LPARAM)SEGPTR_GET(buffer) );
1668 if ((ret = (buffer[0] == '['))) /* drive or directory */
1670 if (buffer[1] == '-') /* drive */
1672 buffer[3] = ':';
1673 buffer[4] = 0;
1674 ptr = buffer + 2;
1676 else
1678 buffer[strlen(buffer)-1] = '\\';
1679 ptr = buffer + 1;
1682 else ptr = buffer;
1684 if (unicode) lstrcpynAtoW( (LPWSTR)str, ptr, len );
1685 else lstrcpyn32A( str, ptr, len );
1686 SEGPTR_FREE( buffer );
1687 TRACE(dialog, "Returning %d '%s'\n", ret, str );
1688 return ret;
1692 /**********************************************************************
1693 * DIALOG_DlgDirList
1695 * Helper function for DlgDirList*
1697 static INT32 DIALOG_DlgDirList( HWND32 hDlg, LPSTR spec, INT32 idLBox,
1698 INT32 idStatic, UINT32 attrib, BOOL32 combo )
1700 int drive;
1701 HWND32 hwnd;
1702 LPSTR orig_spec = spec;
1704 #define SENDMSG(msg,wparam,lparam) \
1705 ((attrib & DDL_POSTMSGS) ? PostMessage32A( hwnd, msg, wparam, lparam ) \
1706 : SendMessage32A( hwnd, msg, wparam, lparam ))
1708 TRACE(dialog, "%04x '%s' %d %d %04x\n",
1709 hDlg, spec ? spec : "NULL", idLBox, idStatic, attrib );
1711 if (spec && spec[0] && (spec[1] == ':'))
1713 drive = toupper( spec[0] ) - 'A';
1714 spec += 2;
1715 if (!DRIVE_SetCurrentDrive( drive )) return FALSE;
1717 else drive = DRIVE_GetCurrentDrive();
1719 /* If the path exists and is a directory, chdir to it */
1720 if (!spec || !spec[0] || DRIVE_Chdir( drive, spec )) spec = "*.*";
1721 else
1723 char *p, *p2;
1724 p = spec;
1725 if ((p2 = strrchr( p, '\\' ))) p = p2;
1726 if ((p2 = strrchr( p, '/' ))) p = p2;
1727 if (p != spec)
1729 char sep = *p;
1730 *p = 0;
1731 if (!DRIVE_Chdir( drive, spec ))
1733 *p = sep; /* Restore the original spec */
1734 return FALSE;
1736 spec = p + 1;
1740 TRACE(dialog, "path=%c:\\%s mask=%s\n",
1741 'A' + drive, DRIVE_GetDosCwd(drive), spec );
1743 if (idLBox && ((hwnd = GetDlgItem32( hDlg, idLBox )) != 0))
1745 SENDMSG( combo ? CB_RESETCONTENT32 : LB_RESETCONTENT32, 0, 0 );
1746 if (attrib & DDL_DIRECTORY)
1748 if (!(attrib & DDL_EXCLUSIVE))
1750 if (SENDMSG( combo ? CB_DIR32 : LB_DIR32,
1751 attrib & ~(DDL_DIRECTORY | DDL_DRIVES),
1752 (LPARAM)spec ) == LB_ERR)
1753 return FALSE;
1755 if (SENDMSG( combo ? CB_DIR32 : LB_DIR32,
1756 (attrib & (DDL_DIRECTORY | DDL_DRIVES)) | DDL_EXCLUSIVE,
1757 (LPARAM)"*.*" ) == LB_ERR)
1758 return FALSE;
1760 else
1762 if (SENDMSG( combo ? CB_DIR32 : LB_DIR32, attrib,
1763 (LPARAM)spec ) == LB_ERR)
1764 return FALSE;
1768 if (idStatic && ((hwnd = GetDlgItem32( hDlg, idStatic )) != 0))
1770 char temp[512];
1771 int drive = DRIVE_GetCurrentDrive();
1772 strcpy( temp, "A:\\" );
1773 temp[0] += drive;
1774 lstrcpyn32A( temp + 3, DRIVE_GetDosCwd(drive), sizeof(temp)-3 );
1775 CharLower32A( temp );
1776 /* Can't use PostMessage() here, because the string is on the stack */
1777 SetDlgItemText32A( hDlg, idStatic, temp );
1780 if (orig_spec && (spec != orig_spec))
1782 /* Update the original file spec */
1783 char *p = spec;
1784 while ((*orig_spec++ = *p++));
1787 return TRUE;
1788 #undef SENDMSG
1792 /**********************************************************************
1793 * DIALOG_DlgDirListW
1795 * Helper function for DlgDirList*32W
1797 static INT32 DIALOG_DlgDirListW( HWND32 hDlg, LPWSTR spec, INT32 idLBox,
1798 INT32 idStatic, UINT32 attrib, BOOL32 combo )
1800 if (spec)
1802 LPSTR specA = HEAP_strdupWtoA( GetProcessHeap(), 0, spec );
1803 INT32 ret = DIALOG_DlgDirList( hDlg, specA, idLBox, idStatic,
1804 attrib, combo );
1805 lstrcpyAtoW( spec, specA );
1806 HeapFree( GetProcessHeap(), 0, specA );
1807 return ret;
1809 return DIALOG_DlgDirList( hDlg, NULL, idLBox, idStatic, attrib, combo );
1813 /**********************************************************************
1814 * DlgDirSelect (USER.99)
1816 BOOL16 WINAPI DlgDirSelect( HWND16 hwnd, LPSTR str, INT16 id )
1818 return DlgDirSelectEx16( hwnd, str, 128, id );
1822 /**********************************************************************
1823 * DlgDirSelectComboBox (USER.194)
1825 BOOL16 WINAPI DlgDirSelectComboBox( HWND16 hwnd, LPSTR str, INT16 id )
1827 return DlgDirSelectComboBoxEx16( hwnd, str, 128, id );
1831 /**********************************************************************
1832 * DlgDirSelectEx16 (USER.422)
1834 BOOL16 WINAPI DlgDirSelectEx16( HWND16 hwnd, LPSTR str, INT16 len, INT16 id )
1836 return DIALOG_DlgDirSelect( hwnd, str, len, id, FALSE, FALSE, FALSE );
1840 /**********************************************************************
1841 * DlgDirSelectEx32A (USER32.149)
1843 BOOL32 WINAPI DlgDirSelectEx32A( HWND32 hwnd, LPSTR str, INT32 len, INT32 id )
1845 return DIALOG_DlgDirSelect( hwnd, str, len, id, TRUE, FALSE, FALSE );
1849 /**********************************************************************
1850 * DlgDirSelectEx32W (USER32.150)
1852 BOOL32 WINAPI DlgDirSelectEx32W( HWND32 hwnd, LPWSTR str, INT32 len, INT32 id )
1854 return DIALOG_DlgDirSelect( hwnd, (LPSTR)str, len, id, TRUE, TRUE, FALSE );
1858 /**********************************************************************
1859 * DlgDirSelectComboBoxEx16 (USER.423)
1861 BOOL16 WINAPI DlgDirSelectComboBoxEx16( HWND16 hwnd, LPSTR str, INT16 len,
1862 INT16 id )
1864 return DIALOG_DlgDirSelect( hwnd, str, len, id, FALSE, FALSE, TRUE );
1868 /**********************************************************************
1869 * DlgDirSelectComboBoxEx32A (USER32.147)
1871 BOOL32 WINAPI DlgDirSelectComboBoxEx32A( HWND32 hwnd, LPSTR str, INT32 len,
1872 INT32 id )
1874 return DIALOG_DlgDirSelect( hwnd, str, len, id, TRUE, FALSE, TRUE );
1878 /**********************************************************************
1879 * DlgDirSelectComboBoxEx32W (USER32.148)
1881 BOOL32 WINAPI DlgDirSelectComboBoxEx32W( HWND32 hwnd, LPWSTR str, INT32 len,
1882 INT32 id)
1884 return DIALOG_DlgDirSelect( hwnd, (LPSTR)str, len, id, TRUE, TRUE, TRUE );
1888 /**********************************************************************
1889 * DlgDirList16 (USER.100)
1891 INT16 WINAPI DlgDirList16( HWND16 hDlg, LPSTR spec, INT16 idLBox,
1892 INT16 idStatic, UINT16 attrib )
1894 return DIALOG_DlgDirList( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1898 /**********************************************************************
1899 * DlgDirList32A (USER32.143)
1901 INT32 WINAPI DlgDirList32A( HWND32 hDlg, LPSTR spec, INT32 idLBox,
1902 INT32 idStatic, UINT32 attrib )
1904 return DIALOG_DlgDirList( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1908 /**********************************************************************
1909 * DlgDirList32W (USER32.146)
1911 INT32 WINAPI DlgDirList32W( HWND32 hDlg, LPWSTR spec, INT32 idLBox,
1912 INT32 idStatic, UINT32 attrib )
1914 return DIALOG_DlgDirListW( hDlg, spec, idLBox, idStatic, attrib, FALSE );
1918 /**********************************************************************
1919 * DlgDirListComboBox16 (USER.195)
1921 INT16 WINAPI DlgDirListComboBox16( HWND16 hDlg, LPSTR spec, INT16 idCBox,
1922 INT16 idStatic, UINT16 attrib )
1924 return DIALOG_DlgDirList( hDlg, spec, idCBox, idStatic, attrib, TRUE );
1928 /**********************************************************************
1929 * DlgDirListComboBox32A (USER32.144)
1931 INT32 WINAPI DlgDirListComboBox32A( HWND32 hDlg, LPSTR spec, INT32 idCBox,
1932 INT32 idStatic, UINT32 attrib )
1934 return DIALOG_DlgDirList( hDlg, spec, idCBox, idStatic, attrib, TRUE );
1938 /**********************************************************************
1939 * DlgDirListComboBox32W (USER32.145)
1941 INT32 WINAPI DlgDirListComboBox32W( HWND32 hDlg, LPWSTR spec, INT32 idCBox,
1942 INT32 idStatic, UINT32 attrib )
1944 return DIALOG_DlgDirListW( hDlg, spec, idCBox, idStatic, attrib, TRUE );