4 * Copyright 1993, 1994, 1996 Alexandre Julliard
14 #include "wine/winuser16.h"
15 #include "wine/winbase16.h"
26 DEFAULT_DEBUG_CHANNEL(dialog
)
29 /* Dialog control information */
66 /* Radio button group */
74 /* Dialog base units */
75 static WORD xBaseUnit
= 0, yBaseUnit
= 0;
78 /***********************************************************************
79 * DIALOG_GetCharSizeFromDC
82 * Calculates the *true* average size of English characters in the
83 * specified font as oppposed to the one returned by GetTextMetrics.
85 static BOOL
DIALOG_GetCharSizeFromDC( HDC hDC
, HFONT hFont
, SIZE
* pSize
)
89 pSize
->cx
= xBaseUnit
;
90 pSize
->cy
= yBaseUnit
;
95 memset(&tm
,0,sizeof(tm
));
96 if (hFont
) hFontPrev
= SelectFont(hDC
,hFont
);
97 if (GetTextMetricsA(hDC
,&tm
))
99 pSize
->cx
= tm
.tmAveCharWidth
;
100 pSize
->cy
= tm
.tmHeight
;
102 /* if variable width font */
103 if (tm
.tmPitchAndFamily
& TMPF_FIXED_PITCH
)
106 static const char szAvgChars
[52] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
108 /* Calculate a true average as opposed to the one returned
109 * by tmAveCharWidth. This works better when dealing with
110 * proportional spaced fonts and (more important) that's
111 * how Microsoft's dialog creation code calculates the size
114 if (GetTextExtentPointA(hDC
,szAvgChars
,sizeof(szAvgChars
),&total
))
117 pSize
->cx
= ((2*total
.cx
/sizeof(szAvgChars
)) + 1)/2;
127 /* select the original font */
128 if (hFontPrev
) SelectFont(hDC
,hFontPrev
);
134 /***********************************************************************
138 * Calculates the *true* average size of English characters in the
139 * specified font as oppposed to the one returned by GetTextMetrics.
140 * A convenient variant of DIALOG_GetCharSizeFromDC.
142 static BOOL
DIALOG_GetCharSize( HFONT hFont
, SIZE
* pSize
)
145 BOOL Success
= DIALOG_GetCharSizeFromDC( hDC
, hFont
, pSize
);
151 /***********************************************************************
154 * Initialisation of the dialog manager.
156 BOOL
DIALOG_Init(void)
161 /* Calculate the dialog base units */
163 if (!(hdc
= CreateDC16( "DISPLAY", NULL
, NULL
, NULL
))) return FALSE
;
164 if (!DIALOG_GetCharSizeFromDC( hdc
, 0, &size
)) return FALSE
;
169 TRACE(dialog
, "base units = %d,%d\n", xBaseUnit
, yBaseUnit
);
174 /***********************************************************************
175 * DIALOG_GetControl16
177 * Return the class and text of the control pointed to by ptr,
178 * fill the header structure and return a pointer to the next control.
180 static LPCSTR
DIALOG_GetControl16( LPCSTR p
, DLG_CONTROL_INFO
*info
)
182 static char buffer
[10];
185 info
->x
= GET_WORD(p
); p
+= sizeof(WORD
);
186 info
->y
= GET_WORD(p
); p
+= sizeof(WORD
);
187 info
->cx
= GET_WORD(p
); p
+= sizeof(WORD
);
188 info
->cy
= GET_WORD(p
); p
+= sizeof(WORD
);
189 info
->id
= GET_WORD(p
); p
+= sizeof(WORD
);
190 info
->style
= GET_DWORD(p
); p
+= sizeof(DWORD
);
197 case 0x80: strcpy( buffer
, "BUTTON" ); break;
198 case 0x81: strcpy( buffer
, "EDIT" ); break;
199 case 0x82: strcpy( buffer
, "STATIC" ); break;
200 case 0x83: strcpy( buffer
, "LISTBOX" ); break;
201 case 0x84: strcpy( buffer
, "SCROLLBAR" ); break;
202 case 0x85: strcpy( buffer
, "COMBOBOX" ); break;
203 default: buffer
[0] = '\0'; break;
205 info
->className
= buffer
;
214 int_id
= ((BYTE
)*p
== 0xff);
217 /* Integer id, not documented (?). Only works for SS_ICON controls */
218 info
->windowName
= (LPCSTR
)(UINT
)GET_WORD(p
+1);
223 info
->windowName
= p
;
227 info
->data
= (LPVOID
)(*p
? p
+ 1 : NULL
); /* FIXME: should be a segptr */
231 TRACE(dialog
," %s %04x %d, %d, %d, %d, %d, %08lx, %08lx\n",
232 info
->className
, LOWORD(info
->windowName
),
233 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
234 info
->style
, (DWORD
)info
->data
);
236 TRACE(dialog
," %s '%s' %d, %d, %d, %d, %d, %08lx, %08lx\n",
237 info
->className
, info
->windowName
,
238 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
239 info
->style
, (DWORD
)info
->data
);
245 /***********************************************************************
246 * DIALOG_GetControl32
248 * Return the class and text of the control pointed to by ptr,
249 * fill the header structure and return a pointer to the next control.
251 static const WORD
*DIALOG_GetControl32( const WORD
*p
, DLG_CONTROL_INFO
*info
,
256 info
->helpId
= GET_DWORD(p
); p
+= 2;
257 info
->exStyle
= GET_DWORD(p
); p
+= 2;
258 info
->style
= GET_DWORD(p
); p
+= 2;
263 info
->style
= GET_DWORD(p
); p
+= 2;
264 info
->exStyle
= GET_DWORD(p
); p
+= 2;
266 info
->x
= GET_WORD(p
); p
++;
267 info
->y
= GET_WORD(p
); p
++;
268 info
->cx
= GET_WORD(p
); p
++;
269 info
->cy
= GET_WORD(p
); p
++;
273 /* id is a DWORD for DIALOGEX */
274 info
->id
= GET_DWORD(p
);
279 info
->id
= GET_WORD(p
);
283 if (GET_WORD(p
) == 0xffff)
285 static const WCHAR class_names
[6][10] =
287 { 'B','u','t','t','o','n', }, /* 0x80 */
288 { 'E','d','i','t', }, /* 0x81 */
289 { 'S','t','a','t','i','c', }, /* 0x82 */
290 { 'L','i','s','t','B','o','x', }, /* 0x83 */
291 { 'S','c','r','o','l','l','B','a','r', }, /* 0x84 */
292 { 'C','o','m','b','o','B','o','x', } /* 0x85 */
294 WORD id
= GET_WORD(p
+1);
295 if ((id
>= 0x80) && (id
<= 0x85))
296 info
->className
= (LPCSTR
)class_names
[id
- 0x80];
299 info
->className
= NULL
;
300 ERR( dialog
, "Unknown built-in class id %04x\n", id
);
306 info
->className
= (LPCSTR
)p
;
307 p
+= lstrlenW( (LPCWSTR
)p
) + 1;
310 if (GET_WORD(p
) == 0xffff) /* Is it an integer id? */
312 info
->windowName
= (LPCSTR
)(UINT
)GET_WORD(p
+ 1);
317 info
->windowName
= (LPCSTR
)p
;
318 p
+= lstrlenW( (LPCWSTR
)p
) + 1;
321 TRACE(dialog
," %s %s %d, %d, %d, %d, %d, %08lx, %08lx, %08lx\n",
322 debugstr_w( (LPCWSTR
)info
->className
),
323 debugres_w( (LPCWSTR
)info
->windowName
),
324 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
325 info
->style
, info
->exStyle
, info
->helpId
);
329 if (TRACE_ON(dialog
))
331 WORD i
, count
= GET_WORD(p
) / sizeof(WORD
);
332 TRACE(dialog
, " BEGIN\n");
334 for (i
= 0; i
< count
; i
++) DUMP( "%04x,", GET_WORD(p
+i
+1) );
336 TRACE(dialog
, " END\n" );
338 info
->data
= (LPVOID
)(p
+ 1);
339 p
+= GET_WORD(p
) / sizeof(WORD
);
341 else info
->data
= NULL
;
344 /* Next control is on dword boundary */
345 return (const WORD
*)((((int)p
) + 3) & ~3);
349 /***********************************************************************
350 * DIALOG_CreateControls
352 * Create the control windows for a dialog.
354 static BOOL
DIALOG_CreateControls( WND
*pWnd
, LPCSTR
template,
355 const DLG_TEMPLATE
*dlgTemplate
,
356 HINSTANCE hInst
, BOOL win32
)
358 DIALOGINFO
*dlgInfo
= (DIALOGINFO
*)pWnd
->wExtra
;
359 DLG_CONTROL_INFO info
;
360 HWND hwndCtrl
, hwndDefButton
= 0;
361 INT items
= dlgTemplate
->nbItems
;
363 TRACE(dialog
, " BEGIN\n" );
368 HINSTANCE16 instance
;
369 template = DIALOG_GetControl16( template, &info
);
370 if (HIWORD(info
.className
) && !strcmp( info
.className
, "EDIT") &&
371 ((pWnd
->dwStyle
& DS_LOCALEDIT
) != DS_LOCALEDIT
))
373 if (!dlgInfo
->hDialogHeap
)
375 dlgInfo
->hDialogHeap
= GlobalAlloc16(GMEM_FIXED
, 0x10000);
376 if (!dlgInfo
->hDialogHeap
)
378 ERR(dialog
, "Insufficient memory to create heap for edit control\n" );
381 LocalInit16(dlgInfo
->hDialogHeap
, 0, 0xffff);
383 instance
= dlgInfo
->hDialogHeap
;
385 else instance
= (HINSTANCE16
)hInst
;
387 hwndCtrl
= CreateWindowEx16( info
.exStyle
| WS_EX_NOPARENTNOTIFY
,
388 info
.className
, info
.windowName
,
389 info
.style
| WS_CHILD
,
390 info
.x
* dlgInfo
->xBaseUnit
/ 4,
391 info
.y
* dlgInfo
->yBaseUnit
/ 8,
392 info
.cx
* dlgInfo
->xBaseUnit
/ 4,
393 info
.cy
* dlgInfo
->yBaseUnit
/ 8,
394 pWnd
->hwndSelf
, (HMENU16
)info
.id
,
395 instance
, info
.data
);
399 template = (LPCSTR
)DIALOG_GetControl32( (WORD
*)template, &info
,
400 dlgTemplate
->dialogEx
);
401 hwndCtrl
= CreateWindowExW( info
.exStyle
| WS_EX_NOPARENTNOTIFY
,
402 (LPCWSTR
)info
.className
,
403 (LPCWSTR
)info
.windowName
,
404 info
.style
| WS_CHILD
,
405 info
.x
* dlgInfo
->xBaseUnit
/ 4,
406 info
.y
* dlgInfo
->yBaseUnit
/ 8,
407 info
.cx
* dlgInfo
->xBaseUnit
/ 4,
408 info
.cy
* dlgInfo
->yBaseUnit
/ 8,
409 pWnd
->hwndSelf
, (HMENU
)info
.id
,
412 if (!hwndCtrl
) return FALSE
;
414 /* Send initialisation messages to the control */
415 if (dlgInfo
->hUserFont
) SendMessageA( hwndCtrl
, WM_SETFONT
,
416 (WPARAM
)dlgInfo
->hUserFont
, 0 );
417 if (SendMessageA(hwndCtrl
, WM_GETDLGCODE
, 0, 0) & DLGC_DEFPUSHBUTTON
)
419 /* If there's already a default push-button, set it back */
420 /* to normal and use this one instead. */
422 SendMessageA( hwndDefButton
, BM_SETSTYLE
,
423 BS_PUSHBUTTON
,FALSE
);
424 hwndDefButton
= hwndCtrl
;
425 dlgInfo
->idResult
= GetWindowWord( hwndCtrl
, GWW_ID
);
428 TRACE(dialog
, " END\n" );
433 /***********************************************************************
434 * DIALOG_ParseTemplate16
436 * Fill a DLG_TEMPLATE structure from the dialog template, and return
437 * a pointer to the first control.
439 static LPCSTR
DIALOG_ParseTemplate16( LPCSTR p
, DLG_TEMPLATE
* result
)
441 result
->style
= GET_DWORD(p
); p
+= sizeof(DWORD
);
443 result
->nbItems
= (unsigned char) *p
++;
444 result
->x
= GET_WORD(p
); p
+= sizeof(WORD
);
445 result
->y
= GET_WORD(p
); p
+= sizeof(WORD
);
446 result
->cx
= GET_WORD(p
); p
+= sizeof(WORD
);
447 result
->cy
= GET_WORD(p
); p
+= sizeof(WORD
);
448 TRACE(dialog
, "DIALOG %d, %d, %d, %d\n",
449 result
->x
, result
->y
, result
->cx
, result
->cy
);
450 TRACE(dialog
, " STYLE %08lx\n", result
->style
);
452 /* Get the menu name */
457 result
->menuName
= 0;
461 result
->menuName
= (LPCSTR
)(UINT
)GET_WORD( p
+ 1 );
463 TRACE(dialog
, " MENU %04x\n", LOWORD(result
->menuName
) );
466 result
->menuName
= p
;
467 TRACE(dialog
, " MENU '%s'\n", p
);
472 /* Get the class name */
476 result
->className
= p
;
477 TRACE(dialog
, " CLASS '%s'\n", result
->className
);
479 else result
->className
= DIALOG_CLASS_ATOM
;
482 /* Get the window caption */
486 TRACE(dialog
, " CAPTION '%s'\n", result
->caption
);
488 /* Get the font name */
490 if (result
->style
& DS_SETFONT
)
492 result
->pointSize
= GET_WORD(p
);
494 result
->faceName
= p
;
496 TRACE(dialog
, " FONT %d,'%s'\n",
497 result
->pointSize
, result
->faceName
);
503 /***********************************************************************
504 * DIALOG_ParseTemplate32
506 * Fill a DLG_TEMPLATE structure from the dialog template, and return
507 * a pointer to the first control.
509 static LPCSTR
DIALOG_ParseTemplate32( LPCSTR
template, DLG_TEMPLATE
* result
)
511 const WORD
*p
= (const WORD
*)template;
513 result
->style
= GET_DWORD(p
); p
+= 2;
514 if (result
->style
== 0xffff0001) /* DIALOGEX resource */
516 result
->dialogEx
= TRUE
;
517 result
->helpId
= GET_DWORD(p
); p
+= 2;
518 result
->exStyle
= GET_DWORD(p
); p
+= 2;
519 result
->style
= GET_DWORD(p
); p
+= 2;
523 result
->dialogEx
= FALSE
;
525 result
->exStyle
= GET_DWORD(p
); p
+= 2;
527 result
->nbItems
= GET_WORD(p
); p
++;
528 result
->x
= GET_WORD(p
); p
++;
529 result
->y
= GET_WORD(p
); p
++;
530 result
->cx
= GET_WORD(p
); p
++;
531 result
->cy
= GET_WORD(p
); p
++;
532 TRACE( dialog
, "DIALOG%s %d, %d, %d, %d, %ld\n",
533 result
->dialogEx
? "EX" : "", result
->x
, result
->y
,
534 result
->cx
, result
->cy
, result
->helpId
);
535 TRACE( dialog
, " STYLE 0x%08lx\n", result
->style
);
536 TRACE( dialog
, " EXSTYLE 0x%08lx\n", result
->exStyle
);
538 /* Get the menu name */
543 result
->menuName
= NULL
;
547 result
->menuName
= (LPCSTR
)(UINT
)GET_WORD( p
+ 1 );
549 TRACE(dialog
, " MENU %04x\n", LOWORD(result
->menuName
) );
552 result
->menuName
= (LPCSTR
)p
;
553 TRACE(dialog
, " MENU %s\n", debugstr_w( (LPCWSTR
)p
));
554 p
+= lstrlenW( (LPCWSTR
)p
) + 1;
558 /* Get the class name */
563 result
->className
= DIALOG_CLASS_ATOM
;
567 result
->className
= (LPCSTR
)(UINT
)GET_WORD( p
+ 1 );
569 TRACE(dialog
, " CLASS %04x\n", LOWORD(result
->className
) );
572 result
->className
= (LPCSTR
)p
;
573 TRACE(dialog
, " CLASS %s\n", debugstr_w( (LPCWSTR
)p
));
574 p
+= lstrlenW( (LPCWSTR
)p
) + 1;
578 /* Get the window caption */
580 result
->caption
= (LPCSTR
)p
;
581 p
+= lstrlenW( (LPCWSTR
)p
) + 1;
582 TRACE(dialog
, " CAPTION %s\n", debugstr_w( (LPCWSTR
)result
->caption
) );
584 /* Get the font name */
586 if (result
->style
& DS_SETFONT
)
588 result
->pointSize
= GET_WORD(p
);
590 if (result
->dialogEx
)
592 result
->weight
= GET_WORD(p
); p
++;
593 result
->italic
= LOBYTE(GET_WORD(p
)); p
++;
597 result
->weight
= FW_DONTCARE
;
598 result
->italic
= FALSE
;
600 result
->faceName
= (LPCSTR
)p
;
601 p
+= lstrlenW( (LPCWSTR
)p
) + 1;
602 TRACE(dialog
, " FONT %d, %s, %d, %s\n",
603 result
->pointSize
, debugstr_w( (LPCWSTR
)result
->faceName
),
604 result
->weight
, result
->italic
? "TRUE" : "FALSE" );
607 /* First control is on dword boundary */
608 return (LPCSTR
)((((int)p
) + 3) & ~3);
612 /***********************************************************************
613 * DIALOG_CreateIndirect
615 HWND
DIALOG_CreateIndirect( HINSTANCE hInst
, LPCSTR dlgTemplate
,
616 BOOL win32Template
, HWND owner
,
617 DLGPROC16 dlgProc
, LPARAM param
,
618 WINDOWPROCTYPE procType
)
625 DLG_TEMPLATE
template;
626 DIALOGINFO
* dlgInfo
;
627 WORD xUnit
= xBaseUnit
;
628 WORD yUnit
= yBaseUnit
;
630 /* Parse dialog template */
632 if (!dlgTemplate
) return 0;
634 dlgTemplate
= DIALOG_ParseTemplate32( dlgTemplate
, &template );
636 dlgTemplate
= DIALOG_ParseTemplate16( dlgTemplate
, &template );
640 if (template.menuName
)
644 LPSTR str
= SEGPTR_STRDUP( template.menuName
);
645 hMenu
= LoadMenu16( hInst
, SEGPTR_GET(str
) );
648 else hMenu
= LoadMenuW( hInst
, (LPCWSTR
)template.menuName
);
651 /* Create custom font if needed */
653 if (template.style
& DS_SETFONT
)
655 /* The font height must be negative as it is a point size */
656 /* (see CreateFont() documentation in the Windows SDK). */
659 hFont
= CreateFontW( -template.pointSize
, 0, 0, 0,
660 template.weight
, template.italic
, FALSE
,
661 FALSE
, DEFAULT_CHARSET
, 0, 0, PROOF_QUALITY
,
662 FF_DONTCARE
, (LPCWSTR
)template.faceName
);
664 hFont
= CreateFont16( -template.pointSize
, 0, 0, 0, FW_DONTCARE
,
665 FALSE
, FALSE
, FALSE
, DEFAULT_CHARSET
, 0, 0,
666 PROOF_QUALITY
, FF_DONTCARE
,
671 DIALOG_GetCharSize(hFont
,&charSize
);
677 /* Create dialog main window */
679 rect
.left
= rect
.top
= 0;
680 rect
.right
= template.cx
* xUnit
/ 4;
681 rect
.bottom
= template.cy
* yUnit
/ 8;
682 if (template.style
& DS_MODALFRAME
)
683 template.exStyle
|= WS_EX_DLGMODALFRAME
;
684 AdjustWindowRectEx( &rect
, template.style
,
685 hMenu
? TRUE
: FALSE
, template.exStyle
);
686 rect
.right
-= rect
.left
;
687 rect
.bottom
-= rect
.top
;
689 if ((INT16
)template.x
== CW_USEDEFAULT16
)
691 rect
.left
= rect
.top
= (procType
== WIN_PROC_16
) ? CW_USEDEFAULT16
696 if (template.style
& DS_CENTER
)
698 rect
.left
= (GetSystemMetrics(SM_CXSCREEN
) - rect
.right
) / 2;
699 rect
.top
= (GetSystemMetrics(SM_CYSCREEN
) - rect
.bottom
) / 2;
703 rect
.left
+= template.x
* xUnit
/ 4;
704 rect
.top
+= template.y
* yUnit
/ 8;
706 if ( !(template.style
& WS_CHILD
) )
710 if( !(template.style
& DS_ABSALIGN
) )
711 ClientToScreen( owner
, (POINT
*)&rect
);
713 /* try to fit it into the desktop */
715 if( (dX
= rect
.left
+ rect
.right
+ GetSystemMetrics(SM_CXDLGFRAME
)
716 - GetSystemMetrics(SM_CXSCREEN
)) > 0 ) rect
.left
-= dX
;
717 if( (dY
= rect
.top
+ rect
.bottom
+ GetSystemMetrics(SM_CYDLGFRAME
)
718 - GetSystemMetrics(SM_CYSCREEN
)) > 0 ) rect
.top
-= dY
;
719 if( rect
.left
< 0 ) rect
.left
= 0;
720 if( rect
.top
< 0 ) rect
.top
= 0;
724 if (procType
== WIN_PROC_16
)
725 hwnd
= CreateWindowEx16(template.exStyle
, template.className
,
726 template.caption
, template.style
& ~WS_VISIBLE
,
727 rect
.left
, rect
.top
, rect
.right
, rect
.bottom
,
728 owner
, hMenu
, hInst
, NULL
);
730 hwnd
= CreateWindowExW(template.exStyle
, (LPCWSTR
)template.className
,
731 (LPCWSTR
)template.caption
,
732 template.style
& ~WS_VISIBLE
,
733 rect
.left
, rect
.top
, rect
.right
, rect
.bottom
,
734 owner
, hMenu
, hInst
, NULL
);
738 if (hFont
) DeleteObject( hFont
);
739 if (hMenu
) DestroyMenu( hMenu
);
742 wndPtr
= WIN_FindWndPtr( hwnd
);
743 wndPtr
->flags
|= WIN_ISDIALOG
;
744 wndPtr
->helpContext
= template.helpId
;
746 /* Initialise dialog extra data */
748 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
749 WINPROC_SetProc( &dlgInfo
->dlgProc
, (WNDPROC16
)dlgProc
, procType
, WIN_PROC_WINDOW
);
750 dlgInfo
->hUserFont
= hFont
;
751 dlgInfo
->hMenu
= hMenu
;
752 dlgInfo
->xBaseUnit
= xUnit
;
753 dlgInfo
->yBaseUnit
= yUnit
;
754 dlgInfo
->msgResult
= 0;
755 dlgInfo
->idResult
= 0;
757 dlgInfo
->hDialogHeap
= 0;
759 if (dlgInfo
->hUserFont
)
760 SendMessageA( hwnd
, WM_SETFONT
, (WPARAM
)dlgInfo
->hUserFont
, 0 );
762 /* Create controls */
764 if (DIALOG_CreateControls( wndPtr
, dlgTemplate
, &template,
765 hInst
, win32Template
))
767 /* Send initialisation messages and set focus */
769 dlgInfo
->hwndFocus
= GetNextDlgTabItem( hwnd
, 0, FALSE
);
771 if (SendMessageA( hwnd
, WM_INITDIALOG
, (WPARAM
)dlgInfo
->hwndFocus
, param
))
772 SetFocus( dlgInfo
->hwndFocus
);
774 if (template.style
& WS_VISIBLE
&& !(wndPtr
->dwStyle
& WS_VISIBLE
))
776 ShowWindow( hwnd
, SW_SHOWNORMAL
); /* SW_SHOW doesn't always work */
777 UpdateWindow( hwnd
);
779 WIN_ReleaseWndPtr(wndPtr
);
782 WIN_ReleaseWndPtr(wndPtr
);
783 if( IsWindow(hwnd
) ) DestroyWindow( hwnd
);
788 /***********************************************************************
789 * CreateDialog16 (USER.89)
791 HWND16 WINAPI
CreateDialog16( HINSTANCE16 hInst
, SEGPTR dlgTemplate
,
792 HWND16 owner
, DLGPROC16 dlgProc
)
794 return CreateDialogParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
798 /***********************************************************************
799 * CreateDialogParam16 (USER.241)
801 HWND16 WINAPI
CreateDialogParam16( HINSTANCE16 hInst
, SEGPTR dlgTemplate
,
802 HWND16 owner
, DLGPROC16 dlgProc
,
810 TRACE(dialog
, "%04x,%08lx,%04x,%08lx,%ld\n",
811 hInst
, (DWORD
)dlgTemplate
, owner
, (DWORD
)dlgProc
, param
);
813 if (!(hRsrc
= FindResource16( hInst
, dlgTemplate
, RT_DIALOG16
))) return 0;
814 if (!(hmem
= LoadResource16( hInst
, hRsrc
))) return 0;
815 if (!(data
= LockResource16( hmem
))) hwnd
= 0;
816 else hwnd
= CreateDialogIndirectParam16( hInst
, data
, owner
,
818 FreeResource16( hmem
);
822 /***********************************************************************
823 * CreateDialogParam32A (USER32.73)
825 HWND WINAPI
CreateDialogParamA( HINSTANCE hInst
, LPCSTR name
,
826 HWND owner
, DLGPROC dlgProc
,
831 LPWSTR str
= HEAP_strdupAtoW( GetProcessHeap(), 0, name
);
832 HWND hwnd
= CreateDialogParamW( hInst
, str
, owner
, dlgProc
, param
);
833 HeapFree( GetProcessHeap(), 0, str
);
836 return CreateDialogParamW( hInst
, (LPCWSTR
)name
, owner
, dlgProc
, param
);
840 /***********************************************************************
841 * CreateDialogParam32W (USER32.74)
843 HWND WINAPI
CreateDialogParamW( HINSTANCE hInst
, LPCWSTR name
,
844 HWND owner
, DLGPROC dlgProc
,
847 HANDLE hrsrc
= FindResourceW( hInst
, name
, RT_DIALOGW
);
848 if (!hrsrc
) return 0;
849 return CreateDialogIndirectParamW( hInst
,
850 (LPVOID
)LoadResource(hInst
, hrsrc
),
851 owner
, dlgProc
, param
);
855 /***********************************************************************
856 * CreateDialogIndirect16 (USER.219)
858 HWND16 WINAPI
CreateDialogIndirect16( HINSTANCE16 hInst
, LPCVOID dlgTemplate
,
859 HWND16 owner
, DLGPROC16 dlgProc
)
861 return CreateDialogIndirectParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0);
865 /***********************************************************************
866 * CreateDialogIndirectParam16 (USER.242)
868 HWND16 WINAPI
CreateDialogIndirectParam16( HINSTANCE16 hInst
,
870 HWND16 owner
, DLGPROC16 dlgProc
,
873 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, FALSE
, owner
,
874 dlgProc
, param
, WIN_PROC_16
);
878 /***********************************************************************
879 * CreateDialogIndirectParam32A (USER32.69)
881 HWND WINAPI
CreateDialogIndirectParamA( HINSTANCE hInst
,
883 HWND owner
, DLGPROC dlgProc
,
886 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, TRUE
, owner
,
887 (DLGPROC16
)dlgProc
, param
, WIN_PROC_32A
);
890 /***********************************************************************
891 * CreateDialogIndirectParam32AorW (USER32.71)
893 HWND WINAPI
CreateDialogIndirectParamAorW( HINSTANCE hInst
,
895 HWND owner
, DLGPROC dlgProc
,
897 { FIXME(dialog
,"assume WIN_PROC_32W\n");
898 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, TRUE
, owner
,
899 (DLGPROC16
)dlgProc
, param
, WIN_PROC_32W
);
902 /***********************************************************************
903 * CreateDialogIndirectParam32W (USER32.72)
905 HWND WINAPI
CreateDialogIndirectParamW( HINSTANCE hInst
,
907 HWND owner
, DLGPROC dlgProc
,
910 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, TRUE
, owner
,
911 (DLGPROC16
)dlgProc
, param
, WIN_PROC_32W
);
915 /***********************************************************************
918 INT
DIALOG_DoDialogBox( HWND hwnd
, HWND owner
)
921 DIALOGINFO
* dlgInfo
;
925 /* Owner must be a top-level window */
926 owner
= WIN_GetTopParent( owner
);
927 if (!(wndPtr
= WIN_FindWndPtr( hwnd
))) return -1;
928 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
930 if (!dlgInfo
->flags
& DF_END
) /* was EndDialog called in WM_INITDIALOG ? */
932 EnableWindow( owner
, FALSE
);
933 ShowWindow( hwnd
, SW_SHOW
);
934 while (MSG_InternalGetMessage(&msg
, hwnd
, owner
, MSGF_DIALOGBOX
,
935 PM_REMOVE
, !(wndPtr
->dwStyle
& DS_NOIDLEMSG
) ))
937 if (!IsDialogMessageA( hwnd
, &msg
))
939 TranslateMessage( &msg
);
940 DispatchMessageA( &msg
);
942 if (dlgInfo
->flags
& DF_END
) break;
944 EnableWindow( owner
, TRUE
);
946 retval
= dlgInfo
->idResult
;
947 WIN_ReleaseWndPtr(wndPtr
);
948 DestroyWindow( hwnd
);
953 /***********************************************************************
954 * DialogBox16 (USER.87)
956 INT16 WINAPI
DialogBox16( HINSTANCE16 hInst
, SEGPTR dlgTemplate
,
957 HWND16 owner
, DLGPROC16 dlgProc
)
959 return DialogBoxParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
963 /***********************************************************************
964 * DialogBoxParam16 (USER.239)
966 INT16 WINAPI
DialogBoxParam16( HINSTANCE16 hInst
, SEGPTR
template,
967 HWND16 owner
, DLGPROC16 dlgProc
, LPARAM param
)
969 HWND16 hwnd
= CreateDialogParam16( hInst
, template, owner
, dlgProc
, param
);
970 if (hwnd
) return (INT16
)DIALOG_DoDialogBox( hwnd
, owner
);
975 /***********************************************************************
976 * DialogBoxParam32A (USER32.139)
978 INT WINAPI
DialogBoxParamA( HINSTANCE hInst
, LPCSTR name
,
979 HWND owner
, DLGPROC dlgProc
, LPARAM param
)
981 HWND hwnd
= CreateDialogParamA( hInst
, name
, owner
, dlgProc
, param
);
982 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
987 /***********************************************************************
988 * DialogBoxParam32W (USER32.140)
990 INT WINAPI
DialogBoxParamW( HINSTANCE hInst
, LPCWSTR name
,
991 HWND owner
, DLGPROC dlgProc
, LPARAM param
)
993 HWND hwnd
= CreateDialogParamW( hInst
, name
, owner
, dlgProc
, param
);
994 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
999 /***********************************************************************
1000 * DialogBoxIndirect16 (USER.218)
1002 INT16 WINAPI
DialogBoxIndirect16( HINSTANCE16 hInst
, HANDLE16 dlgTemplate
,
1003 HWND16 owner
, DLGPROC16 dlgProc
)
1005 return DialogBoxIndirectParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
1009 /***********************************************************************
1010 * DialogBoxIndirectParam16 (USER.240)
1012 INT16 WINAPI
DialogBoxIndirectParam16( HINSTANCE16 hInst
, HANDLE16 dlgTemplate
,
1013 HWND16 owner
, DLGPROC16 dlgProc
,
1019 if (!(ptr
= GlobalLock16( dlgTemplate
))) return -1;
1020 hwnd
= CreateDialogIndirectParam16( hInst
, ptr
, owner
, dlgProc
, param
);
1021 GlobalUnlock16( dlgTemplate
);
1022 if (hwnd
) return (INT16
)DIALOG_DoDialogBox( hwnd
, owner
);
1027 /***********************************************************************
1028 * DialogBoxIndirectParam32A (USER32.136)
1030 INT WINAPI
DialogBoxIndirectParamA(HINSTANCE hInstance
, LPCVOID
template,
1031 HWND owner
, DLGPROC dlgProc
,
1034 HWND hwnd
= CreateDialogIndirectParamA( hInstance
, template,
1035 owner
, dlgProc
, param
);
1036 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1041 /***********************************************************************
1042 * DialogBoxIndirectParam32W (USER32.138)
1044 INT WINAPI
DialogBoxIndirectParamW(HINSTANCE hInstance
, LPCVOID
template,
1045 HWND owner
, DLGPROC dlgProc
,
1048 HWND hwnd
= CreateDialogIndirectParamW( hInstance
, template,
1049 owner
, dlgProc
, param
);
1050 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
1055 /***********************************************************************
1056 * EndDialog16 (USER.88)
1058 BOOL16 WINAPI
EndDialog16( HWND16 hwnd
, INT16 retval
)
1060 return EndDialog( hwnd
, retval
);
1064 /***********************************************************************
1065 * EndDialog32 (USER32.173)
1067 BOOL WINAPI
EndDialog( HWND hwnd
, INT retval
)
1069 WND
* wndPtr
= WIN_FindWndPtr( hwnd
);
1070 DIALOGINFO
* dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
1072 TRACE(dialog
, "%04x %d\n", hwnd
, retval
);
1076 dlgInfo
->idResult
= retval
;
1077 dlgInfo
->flags
|= DF_END
;
1080 /* Paint Shop Pro 4.14 calls EndDialog for a CreateDialog* dialog,
1081 * which isn't "normal". Only DialogBox* dialogs may be EndDialog()ed.
1082 * Just hide the window as windows does it...
1084 ShowWindow(hwnd
, SW_HIDE
);
1086 WIN_ReleaseWndPtr(wndPtr
);
1091 /***********************************************************************
1092 * DIALOG_IsAccelerator
1094 static BOOL
DIALOG_IsAccelerator( HWND hwnd
, HWND hwndDlg
, WPARAM vKey
)
1096 HWND hwndControl
= hwnd
;
1099 BOOL RetVal
= FALSE
;
1102 if (vKey
== VK_SPACE
)
1104 dlgCode
= SendMessageA( hwndControl
, WM_GETDLGCODE
, 0, 0 );
1105 if (dlgCode
& DLGC_BUTTON
)
1107 SendMessageA( hwndControl
, WM_LBUTTONDOWN
, 0, 0);
1108 SendMessageA( hwndControl
, WM_LBUTTONUP
, 0, 0);
1116 wndPtr
= WIN_FindWndPtr( hwndControl
);
1117 if ( (wndPtr
!= NULL
) &&
1118 ((wndPtr
->dwStyle
& (WS_VISIBLE
| WS_DISABLED
)) == WS_VISIBLE
) )
1120 dlgCode
= SendMessageA( hwndControl
, WM_GETDLGCODE
, 0, 0 );
1121 if ( (dlgCode
& (DLGC_BUTTON
| DLGC_STATIC
)) &&
1122 (wndPtr
->text
!=NULL
))
1124 /* find the accelerator key */
1125 LPSTR p
= wndPtr
->text
- 2;
1128 p
= strchr( p
+ 2, '&' );
1130 while (p
!= NULL
&& p
[1] == '&');
1132 /* and check if it's the one we're looking for */
1133 if (p
!= NULL
&& toupper( p
[1] ) == toupper( vKey
) )
1135 if ((dlgCode
& DLGC_STATIC
) ||
1136 (wndPtr
->dwStyle
& 0x0f) == BS_GROUPBOX
)
1138 /* set focus to the control */
1139 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
,
1141 /* and bump it on to next */
1142 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
, 0, 0);
1145 (DLGC_DEFPUSHBUTTON
| DLGC_UNDEFPUSHBUTTON
))
1147 /* send command message as from the control */
1148 SendMessageA( hwndDlg
, WM_COMMAND
,
1149 MAKEWPARAM( LOWORD(wndPtr
->wIDmenu
),
1151 (LPARAM
)hwndControl
);
1155 /* click the control */
1156 SendMessageA( hwndControl
, WM_LBUTTONDOWN
, 0, 0);
1157 SendMessageA( hwndControl
, WM_LBUTTONUP
, 0, 0);
1163 hwndNext
= GetWindow( hwndControl
, GW_CHILD
);
1169 WIN_ReleaseWndPtr(wndPtr
);
1172 hwndNext
= GetWindow( hwndControl
, GW_HWNDNEXT
);
1176 hwndControl
= GetParent( hwndControl
);
1177 if (hwndControl
== hwndDlg
)
1179 hwndNext
= GetWindow( hwndDlg
, GW_CHILD
);
1183 hwndNext
= GetWindow( hwndControl
, GW_HWNDNEXT
);
1186 hwndControl
= hwndNext
;
1188 while (hwndControl
!= hwnd
);
1194 /***********************************************************************
1195 * DIALOG_IsDialogMessage
1197 static BOOL
DIALOG_IsDialogMessage( HWND hwnd
, HWND hwndDlg
,
1198 UINT message
, WPARAM wParam
,
1199 LPARAM lParam
, BOOL
*translate
,
1200 BOOL
*dispatch
, INT dlgCode
)
1202 *translate
= *dispatch
= FALSE
;
1204 if (message
== WM_PAINT
)
1206 /* Apparently, we have to handle this one as well */
1211 /* Only the key messages get special processing */
1212 if ((message
!= WM_KEYDOWN
) &&
1213 (message
!= WM_SYSCHAR
) &&
1214 (message
!= WM_CHAR
))
1217 if (dlgCode
& DLGC_WANTMESSAGE
)
1219 *translate
= *dispatch
= TRUE
;
1229 if (!(dlgCode
& DLGC_WANTTAB
))
1231 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
,
1232 (GetKeyState(VK_SHIFT
) & 0x8000), 0 );
1241 if (!(dlgCode
& DLGC_WANTARROWS
))
1243 BOOL fPrevious
= (wParam
== VK_LEFT
|| wParam
== VK_UP
);
1245 GetNextDlgGroupItem (hwndDlg
, GetFocus(), fPrevious
);
1246 SendMessageA( hwndDlg
, WM_NEXTDLGCTL
, hwndNext
, 1 );
1252 SendMessageA( hwndDlg
, WM_COMMAND
, IDCANCEL
,
1253 (LPARAM
)GetDlgItem( hwndDlg
, IDCANCEL
) );
1258 DWORD dw
= SendMessage16( hwndDlg
, DM_GETDEFID
, 0, 0 );
1259 if (HIWORD(dw
) == DC_HASDEFID
)
1261 SendMessageA( hwndDlg
, WM_COMMAND
,
1262 MAKEWPARAM( LOWORD(dw
), BN_CLICKED
),
1263 (LPARAM
)GetDlgItem(hwndDlg
, LOWORD(dw
)));
1267 SendMessageA( hwndDlg
, WM_COMMAND
, IDOK
,
1268 (LPARAM
)GetDlgItem( hwndDlg
, IDOK
) );
1275 break; /* case WM_KEYDOWN */
1278 if (dlgCode
& DLGC_WANTCHARS
) break;
1282 if (DIALOG_IsAccelerator( hwnd
, hwndDlg
, wParam
))
1284 /* don't translate or dispatch */
1290 /* If we get here, the message has not been treated specially */
1291 /* and can be sent to its destination window. */
1297 /***********************************************************************
1298 * IsDialogMessage16 (USER.90)
1300 BOOL16 WINAPI
WIN16_IsDialogMessage16( HWND16 hwndDlg
, SEGPTR msg16
)
1302 LPMSG16 msg
= PTR_SEG_TO_LIN(msg16
);
1303 BOOL ret
, translate
, dispatch
;
1306 if ((hwndDlg
!= msg
->hwnd
) && !IsChild16( hwndDlg
, msg
->hwnd
))
1309 dlgCode
= SendMessage16( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg16
);
1310 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1311 msg
->wParam
, msg
->lParam
,
1312 &translate
, &dispatch
, dlgCode
);
1313 if (translate
) TranslateMessage16( msg
);
1314 if (dispatch
) DispatchMessage16( msg
);
1319 BOOL16 WINAPI
IsDialogMessage16( HWND16 hwndDlg
, LPMSG16 msg
)
1321 LPMSG16 msg16
= SEGPTR_NEW(MSG16
);
1325 ret
= WIN16_IsDialogMessage16( hwndDlg
, SEGPTR_GET(msg16
) );
1330 /***********************************************************************
1331 * IsDialogMessage32A (USER32.342)
1333 BOOL WINAPI
IsDialogMessageA( HWND hwndDlg
, LPMSG msg
)
1335 BOOL ret
, translate
, dispatch
;
1338 if ((hwndDlg
!= msg
->hwnd
) && !IsChild( hwndDlg
, msg
->hwnd
))
1341 dlgCode
= SendMessageA( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg
);
1342 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1343 msg
->wParam
, msg
->lParam
,
1344 &translate
, &dispatch
, dlgCode
);
1345 if (translate
) TranslateMessage( msg
);
1346 if (dispatch
) DispatchMessageA( msg
);
1351 /***********************************************************************
1352 * IsDialogMessage32W (USER32.343)
1354 BOOL WINAPI
IsDialogMessageW( HWND hwndDlg
, LPMSG msg
)
1356 BOOL ret
, translate
, dispatch
;
1359 if ((hwndDlg
!= msg
->hwnd
) && !IsChild( hwndDlg
, msg
->hwnd
))
1362 dlgCode
= SendMessageW( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg
);
1363 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1364 msg
->wParam
, msg
->lParam
,
1365 &translate
, &dispatch
, dlgCode
);
1366 if (translate
) TranslateMessage( msg
);
1367 if (dispatch
) DispatchMessageW( msg
);
1372 /****************************************************************
1373 * GetDlgCtrlID16 (USER.277)
1375 INT16 WINAPI
GetDlgCtrlID16( HWND16 hwnd
)
1377 WND
*wndPtr
= WIN_FindWndPtr(hwnd
);
1380 if (!wndPtr
) return 0;
1382 retvalue
= wndPtr
->wIDmenu
;
1383 WIN_ReleaseWndPtr(wndPtr
);
1388 /****************************************************************
1389 * GetDlgCtrlID32 (USER32.234)
1391 INT WINAPI
GetDlgCtrlID( HWND hwnd
)
1394 WND
*wndPtr
= WIN_FindWndPtr(hwnd
);
1395 if (!wndPtr
) return 0;
1396 retvalue
= wndPtr
->wIDmenu
;
1397 WIN_ReleaseWndPtr(wndPtr
);
1402 /***********************************************************************
1403 * GetDlgItem16 (USER.91)
1405 HWND16 WINAPI
GetDlgItem16( HWND16 hwndDlg
, INT16 id
)
1409 if (!(pWnd
= WIN_FindWndPtr( hwndDlg
))) return 0;
1410 for (WIN_UpdateWndPtr(&pWnd
,pWnd
->child
); pWnd
; WIN_UpdateWndPtr(&pWnd
,pWnd
->next
))
1411 if (pWnd
->wIDmenu
== (UINT16
)id
)
1413 HWND16 retvalue
= pWnd
->hwndSelf
;
1414 WIN_ReleaseWndPtr(pWnd
);
1421 /***********************************************************************
1422 * GetDlgItem32 (USER32.235)
1424 HWND WINAPI
GetDlgItem( HWND hwndDlg
, INT id
)
1428 if (!(pWnd
= WIN_FindWndPtr( hwndDlg
))) return 0;
1429 for (WIN_UpdateWndPtr(&pWnd
,pWnd
->child
); pWnd
;WIN_UpdateWndPtr(&pWnd
,pWnd
->next
))
1430 if (pWnd
->wIDmenu
== (UINT16
)id
)
1432 HWND retvalue
= pWnd
->hwndSelf
;
1433 WIN_ReleaseWndPtr(pWnd
);
1440 /*******************************************************************
1441 * SendDlgItemMessage16 (USER.101)
1443 LRESULT WINAPI
SendDlgItemMessage16( HWND16 hwnd
, INT16 id
, UINT16 msg
,
1444 WPARAM16 wParam
, LPARAM lParam
)
1446 HWND16 hwndCtrl
= GetDlgItem16( hwnd
, id
);
1447 if (hwndCtrl
) return SendMessage16( hwndCtrl
, msg
, wParam
, lParam
);
1452 /*******************************************************************
1453 * SendDlgItemMessage32A (USER32.452)
1455 LRESULT WINAPI
SendDlgItemMessageA( HWND hwnd
, INT id
, UINT msg
,
1456 WPARAM wParam
, LPARAM lParam
)
1458 HWND hwndCtrl
= GetDlgItem( hwnd
, id
);
1459 if (hwndCtrl
) return SendMessageA( hwndCtrl
, msg
, wParam
, lParam
);
1464 /*******************************************************************
1465 * SendDlgItemMessage32W (USER32.453)
1467 LRESULT WINAPI
SendDlgItemMessageW( HWND hwnd
, INT id
, UINT msg
,
1468 WPARAM wParam
, LPARAM lParam
)
1470 HWND hwndCtrl
= GetDlgItem( hwnd
, id
);
1471 if (hwndCtrl
) return SendMessageW( hwndCtrl
, msg
, wParam
, lParam
);
1476 /*******************************************************************
1477 * SetDlgItemText16 (USER.92)
1479 void WINAPI
SetDlgItemText16( HWND16 hwnd
, INT16 id
, SEGPTR lpString
)
1481 SendDlgItemMessage16( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1485 /*******************************************************************
1486 * SetDlgItemText32A (USER32.478)
1488 BOOL WINAPI
SetDlgItemTextA( HWND hwnd
, INT id
, LPCSTR lpString
)
1490 return SendDlgItemMessageA( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1494 /*******************************************************************
1495 * SetDlgItemText32W (USER32.479)
1497 BOOL WINAPI
SetDlgItemTextW( HWND hwnd
, INT id
, LPCWSTR lpString
)
1499 return SendDlgItemMessageW( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1503 /***********************************************************************
1504 * GetDlgItemText16 (USER.93)
1506 INT16 WINAPI
GetDlgItemText16( HWND16 hwnd
, INT16 id
, SEGPTR str
, UINT16 len
)
1508 return (INT16
)SendDlgItemMessage16( hwnd
, id
, WM_GETTEXT
,
1513 /***********************************************************************
1514 * GetDlgItemText32A (USER32.237)
1516 INT WINAPI
GetDlgItemTextA( HWND hwnd
, INT id
, LPSTR str
, UINT len
)
1518 return (INT
)SendDlgItemMessageA( hwnd
, id
, WM_GETTEXT
,
1523 /***********************************************************************
1524 * GetDlgItemText32W (USER32.238)
1526 INT WINAPI
GetDlgItemTextW( HWND hwnd
, INT id
, LPWSTR str
, UINT len
)
1528 return (INT
)SendDlgItemMessageW( hwnd
, id
, WM_GETTEXT
,
1533 /*******************************************************************
1534 * SetDlgItemInt16 (USER.94)
1536 void WINAPI
SetDlgItemInt16( HWND16 hwnd
, INT16 id
, UINT16 value
, BOOL16 fSigned
)
1538 SetDlgItemInt( hwnd
, (UINT
)(UINT16
)id
, value
, fSigned
);
1542 /*******************************************************************
1543 * SetDlgItemInt32 (USER32.477)
1545 BOOL WINAPI
SetDlgItemInt( HWND hwnd
, INT id
, UINT value
,
1550 if (fSigned
) sprintf( str
, "%d", (INT
)value
);
1551 else sprintf( str
, "%u", value
);
1552 SendDlgItemMessageA( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)str
);
1557 /***********************************************************************
1558 * GetDlgItemInt16 (USER.95)
1560 UINT16 WINAPI
GetDlgItemInt16( HWND16 hwnd
, INT16 id
, BOOL16
*translated
,
1566 if (translated
) *translated
= FALSE
;
1567 result
= GetDlgItemInt( hwnd
, (UINT
)(UINT16
)id
, &ok
, fSigned
);
1571 if (((INT
)result
< -32767) || ((INT
)result
> 32767)) return 0;
1575 if (result
> 65535) return 0;
1577 if (translated
) *translated
= TRUE
;
1578 return (UINT16
)result
;
1582 /***********************************************************************
1583 * GetDlgItemInt32 (USER32.236)
1585 UINT WINAPI
GetDlgItemInt( HWND hwnd
, INT id
, BOOL
*translated
,
1592 if (translated
) *translated
= FALSE
;
1593 if (!SendDlgItemMessageA(hwnd
, id
, WM_GETTEXT
, sizeof(str
), (LPARAM
)str
))
1597 result
= strtol( str
, &endptr
, 10 );
1598 if (!endptr
|| (endptr
== str
)) /* Conversion was unsuccessful */
1600 if (((result
== LONG_MIN
) || (result
== LONG_MAX
)) && (errno
==ERANGE
))
1605 result
= strtoul( str
, &endptr
, 10 );
1606 if (!endptr
|| (endptr
== str
)) /* Conversion was unsuccessful */
1608 if ((result
== ULONG_MAX
) && (errno
== ERANGE
)) return 0;
1610 if (translated
) *translated
= TRUE
;
1611 return (UINT
)result
;
1615 /***********************************************************************
1616 * CheckDlgButton16 (USER.97)
1618 BOOL16 WINAPI
CheckDlgButton16( HWND16 hwnd
, INT16 id
, UINT16 check
)
1620 SendDlgItemMessageA( hwnd
, id
, BM_SETCHECK
, check
, 0 );
1625 /***********************************************************************
1626 * CheckDlgButton32 (USER32.45)
1628 BOOL WINAPI
CheckDlgButton( HWND hwnd
, INT id
, UINT check
)
1630 SendDlgItemMessageA( hwnd
, id
, BM_SETCHECK
, check
, 0 );
1635 /***********************************************************************
1636 * IsDlgButtonChecked16 (USER.98)
1638 UINT16 WINAPI
IsDlgButtonChecked16( HWND16 hwnd
, UINT16 id
)
1640 return (UINT16
)SendDlgItemMessageA( hwnd
, id
, BM_GETCHECK
, 0, 0 );
1644 /***********************************************************************
1645 * IsDlgButtonChecked32 (USER32.344)
1647 UINT WINAPI
IsDlgButtonChecked( HWND hwnd
, UINT id
)
1649 return (UINT
)SendDlgItemMessageA( hwnd
, id
, BM_GETCHECK
, 0, 0 );
1653 /***********************************************************************
1654 * CheckRadioButton16 (USER.96)
1656 BOOL16 WINAPI
CheckRadioButton16( HWND16 hwndDlg
, UINT16 firstID
,
1657 UINT16 lastID
, UINT16 checkID
)
1659 return CheckRadioButton( hwndDlg
, firstID
, lastID
, checkID
);
1663 /***********************************************************************
1666 * Callback function used to check/uncheck radio buttons that fall
1667 * within a specific range of IDs.
1669 static BOOL CALLBACK
CheckRB(HWND hwndChild
, LPARAM lParam
)
1671 LONG lChildID
= GetWindowLongA(hwndChild
, GWL_ID
);
1672 RADIOGROUP
*lpRadioGroup
= (RADIOGROUP
*) lParam
;
1674 if ((lChildID
>= lpRadioGroup
->firstID
) &&
1675 (lChildID
<= lpRadioGroup
->lastID
))
1677 if (lChildID
== lpRadioGroup
->checkID
)
1679 SendMessageA(hwndChild
, BM_SETCHECK
, BST_CHECKED
, 0);
1683 SendMessageA(hwndChild
, BM_SETCHECK
, BST_UNCHECKED
, 0);
1691 /***********************************************************************
1692 * CheckRadioButton32 (USER32.48)
1694 BOOL WINAPI
CheckRadioButton( HWND hwndDlg
, UINT firstID
,
1695 UINT lastID
, UINT checkID
)
1697 RADIOGROUP radioGroup
;
1699 /* perform bounds checking for a radio button group */
1700 radioGroup
.firstID
= min(min(firstID
, lastID
), checkID
);
1701 radioGroup
.lastID
= max(max(firstID
, lastID
), checkID
);
1702 radioGroup
.checkID
= checkID
;
1704 return EnumChildWindows(hwndDlg
, (WNDENUMPROC
)CheckRB
,
1705 (LPARAM
)&radioGroup
);
1709 /***********************************************************************
1710 * GetDialogBaseUnits (USER.243) (USER32.233)
1712 DWORD WINAPI
GetDialogBaseUnits(void)
1714 return MAKELONG( xBaseUnit
, yBaseUnit
);
1718 /***********************************************************************
1719 * MapDialogRect16 (USER.103)
1721 void WINAPI
MapDialogRect16( HWND16 hwnd
, LPRECT16 rect
)
1723 DIALOGINFO
* dlgInfo
;
1724 WND
* wndPtr
= WIN_FindWndPtr( hwnd
);
1725 if (!wndPtr
) return;
1726 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
1727 rect
->left
= (rect
->left
* dlgInfo
->xBaseUnit
) / 4;
1728 rect
->right
= (rect
->right
* dlgInfo
->xBaseUnit
) / 4;
1729 rect
->top
= (rect
->top
* dlgInfo
->yBaseUnit
) / 8;
1730 rect
->bottom
= (rect
->bottom
* dlgInfo
->yBaseUnit
) / 8;
1731 WIN_ReleaseWndPtr(wndPtr
);
1735 /***********************************************************************
1736 * MapDialogRect32 (USER32.382)
1738 BOOL WINAPI
MapDialogRect( HWND hwnd
, LPRECT rect
)
1740 DIALOGINFO
* dlgInfo
;
1741 WND
* wndPtr
= WIN_FindWndPtr( hwnd
);
1742 if (!wndPtr
) return FALSE
;
1743 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
1744 rect
->left
= (rect
->left
* dlgInfo
->xBaseUnit
) / 4;
1745 rect
->right
= (rect
->right
* dlgInfo
->xBaseUnit
) / 4;
1746 rect
->top
= (rect
->top
* dlgInfo
->yBaseUnit
) / 8;
1747 rect
->bottom
= (rect
->bottom
* dlgInfo
->yBaseUnit
) / 8;
1748 WIN_ReleaseWndPtr(wndPtr
);
1753 /***********************************************************************
1754 * GetNextDlgGroupItem16 (USER.227)
1756 HWND16 WINAPI
GetNextDlgGroupItem16( HWND16 hwndDlg
, HWND16 hwndCtrl
,
1759 return (HWND16
)GetNextDlgGroupItem( hwndDlg
, hwndCtrl
, fPrevious
);
1763 /***********************************************************************
1764 * GetNextDlgGroupItem32 (USER32.275)
1766 HWND WINAPI
GetNextDlgGroupItem( HWND hwndDlg
, HWND hwndCtrl
,
1775 if (!(pWndDlg
= WIN_FindWndPtr( hwndDlg
))) return 0;
1778 if (!(pWndCtrl
= WIN_FindWndPtr( hwndCtrl
)))
1783 /* Make sure hwndCtrl is a top-level child */
1784 while ((pWndCtrl
->dwStyle
& WS_CHILD
) && (pWndCtrl
->parent
!= pWndDlg
))
1785 WIN_UpdateWndPtr(&pWndCtrl
,pWndCtrl
->parent
);
1786 if (pWndCtrl
->parent
!= pWndDlg
)
1794 /* No ctrl specified -> start from the beginning */
1795 if (!(pWndCtrl
= WIN_LockWndPtr(pWndDlg
->child
)))
1801 while (pWndCtrl
->next
) WIN_UpdateWndPtr(&pWndCtrl
,pWndCtrl
->next
);
1804 pWndLast
= WIN_LockWndPtr(pWndCtrl
);
1805 pWnd
= WIN_LockWndPtr(pWndCtrl
->next
);
1809 if (!pWnd
|| (pWnd
->dwStyle
& WS_GROUP
))
1811 /* Wrap-around to the beginning of the group */
1814 WIN_UpdateWndPtr( &pWnd
, pWndDlg
->child
);
1815 for ( pWndTemp
= WIN_LockWndPtr( pWnd
);
1817 WIN_UpdateWndPtr( &pWndTemp
, pWndTemp
->next
) )
1819 if (pWndTemp
->dwStyle
& WS_GROUP
) WIN_UpdateWndPtr( &pWnd
, pWndTemp
);
1820 if (pWndTemp
== pWndCtrl
) break;
1822 WIN_ReleaseWndPtr( pWndTemp
);
1824 if (pWnd
== pWndCtrl
) break;
1825 if ((pWnd
->dwStyle
& WS_VISIBLE
) && !(pWnd
->dwStyle
& WS_DISABLED
))
1827 WIN_UpdateWndPtr(&pWndLast
,pWnd
);
1828 if (!fPrevious
) break;
1830 WIN_UpdateWndPtr(&pWnd
,pWnd
->next
);
1832 retvalue
= pWndLast
->hwndSelf
;
1834 WIN_ReleaseWndPtr(pWndLast
);
1835 WIN_ReleaseWndPtr(pWnd
);
1837 WIN_ReleaseWndPtr(pWndCtrl
);
1838 WIN_ReleaseWndPtr(pWndDlg
);
1844 /***********************************************************************
1845 * GetNextDlgTabItem16 (USER.228)
1847 HWND16 WINAPI
GetNextDlgTabItem16( HWND16 hwndDlg
, HWND16 hwndCtrl
,
1850 return (HWND16
)GetNextDlgTabItem( hwndDlg
, hwndCtrl
, fPrevious
);
1854 /***********************************************************************
1855 * GetNextDlgTabItem32 (USER32.276)
1857 HWND WINAPI
GetNextDlgTabItem( HWND hwndDlg
, HWND hwndCtrl
,
1866 if (!(pWndDlg
= WIN_FindWndPtr( hwndDlg
))) return 0;
1869 if (!(pWndCtrl
= WIN_FindWndPtr( hwndCtrl
)))
1874 /* Make sure hwndCtrl is a top-level child */
1875 while ((pWndCtrl
->dwStyle
& WS_CHILD
) && (pWndCtrl
->parent
!= pWndDlg
))
1876 WIN_UpdateWndPtr(&pWndCtrl
,pWndCtrl
->parent
);
1877 if (pWndCtrl
->parent
!= pWndDlg
)
1885 /* No ctrl specified -> start from the beginning */
1886 if (!(pWndCtrl
= WIN_LockWndPtr(pWndDlg
->child
)))
1893 while (pWndCtrl
->next
) WIN_UpdateWndPtr(&pWndCtrl
,pWndCtrl
->next
);
1896 pWndLast
= WIN_LockWndPtr(pWndCtrl
);
1897 pWnd
= WIN_LockWndPtr(pWndCtrl
->next
);
1900 if (!pWnd
) pWnd
= WIN_LockWndPtr(pWndDlg
->child
);
1901 if (pWnd
== pWndCtrl
) break;
1902 if ((pWnd
->dwStyle
& WS_TABSTOP
) && (pWnd
->dwStyle
& WS_VISIBLE
) &&
1903 !(pWnd
->dwStyle
& WS_DISABLED
))
1905 WIN_UpdateWndPtr(&pWndLast
,pWnd
);
1906 if (!fPrevious
) break;
1908 WIN_UpdateWndPtr(&pWnd
,pWnd
->next
);
1910 retvalue
= pWndLast
->hwndSelf
;
1912 WIN_ReleaseWndPtr(pWndLast
);
1913 WIN_ReleaseWndPtr(pWnd
);
1915 WIN_ReleaseWndPtr(pWndCtrl
);
1916 WIN_ReleaseWndPtr(pWndDlg
);
1923 /**********************************************************************
1924 * DIALOG_DlgDirSelect
1926 * Helper function for DlgDirSelect*
1928 static BOOL
DIALOG_DlgDirSelect( HWND hwnd
, LPSTR str
, INT len
,
1929 INT id
, BOOL win32
, BOOL unicode
,
1935 HWND listbox
= GetDlgItem( hwnd
, id
);
1937 TRACE(dialog
, "%04x '%s' %d\n", hwnd
, str
, id
);
1938 if (!listbox
) return FALSE
;
1941 item
= SendMessageA(listbox
, combo
? CB_GETCURSEL
1942 : LB_GETCURSEL
, 0, 0 );
1943 if (item
== LB_ERR
) return FALSE
;
1944 size
= SendMessageA(listbox
, combo
? CB_GETLBTEXTLEN
1945 : LB_GETTEXTLEN
, 0, 0 );
1946 if (size
== LB_ERR
) return FALSE
;
1950 item
= SendMessageA(listbox
, combo
? CB_GETCURSEL16
1951 : LB_GETCURSEL16
, 0, 0 );
1952 if (item
== LB_ERR
) return FALSE
;
1953 size
= SendMessageA(listbox
, combo
? CB_GETLBTEXTLEN16
1954 : LB_GETTEXTLEN16
, 0, 0 );
1955 if (size
== LB_ERR
) return FALSE
;
1958 if (!(buffer
= SEGPTR_ALLOC( size
+1 ))) return FALSE
;
1961 SendMessageA( listbox
, combo
? CB_GETLBTEXT
: LB_GETTEXT
,
1962 item
, (LPARAM
)buffer
);
1964 SendMessage16( listbox
, combo
? CB_GETLBTEXT16
: LB_GETTEXT16
,
1965 item
, (LPARAM
)SEGPTR_GET(buffer
) );
1967 if ((ret
= (buffer
[0] == '['))) /* drive or directory */
1969 if (buffer
[1] == '-') /* drive */
1977 buffer
[strlen(buffer
)-1] = '\\';
1983 if (unicode
) lstrcpynAtoW( (LPWSTR
)str
, ptr
, len
);
1984 else lstrcpynA( str
, ptr
, len
);
1985 SEGPTR_FREE( buffer
);
1986 TRACE(dialog
, "Returning %d '%s'\n", ret
, str
);
1991 /**********************************************************************
1994 * Helper function for DlgDirList*
1996 static INT
DIALOG_DlgDirList( HWND hDlg
, LPSTR spec
, INT idLBox
,
1997 INT idStatic
, UINT attrib
, BOOL combo
)
2001 LPSTR orig_spec
= spec
;
2003 #define SENDMSG(msg,wparam,lparam) \
2004 ((attrib & DDL_POSTMSGS) ? PostMessageA( hwnd, msg, wparam, lparam ) \
2005 : SendMessageA( hwnd, msg, wparam, lparam ))
2007 TRACE(dialog
, "%04x '%s' %d %d %04x\n",
2008 hDlg
, spec
? spec
: "NULL", idLBox
, idStatic
, attrib
);
2010 if (spec
&& spec
[0] && (spec
[1] == ':'))
2012 drive
= toupper( spec
[0] ) - 'A';
2014 if (!DRIVE_SetCurrentDrive( drive
)) return FALSE
;
2016 else drive
= DRIVE_GetCurrentDrive();
2018 /* If the path exists and is a directory, chdir to it */
2019 if (!spec
|| !spec
[0] || DRIVE_Chdir( drive
, spec
)) spec
= "*.*";
2024 if ((p2
= strrchr( p
, '\\' ))) p
= p2
;
2025 if ((p2
= strrchr( p
, '/' ))) p
= p2
;
2030 if (!DRIVE_Chdir( drive
, spec
))
2032 *p
= sep
; /* Restore the original spec */
2039 TRACE(dialog
, "path=%c:\\%s mask=%s\n",
2040 'A' + drive
, DRIVE_GetDosCwd(drive
), spec
);
2042 if (idLBox
&& ((hwnd
= GetDlgItem( hDlg
, idLBox
)) != 0))
2044 SENDMSG( combo
? CB_RESETCONTENT
: LB_RESETCONTENT
, 0, 0 );
2045 if (attrib
& DDL_DIRECTORY
)
2047 if (!(attrib
& DDL_EXCLUSIVE
))
2049 if (SENDMSG( combo
? CB_DIR
: LB_DIR
,
2050 attrib
& ~(DDL_DIRECTORY
| DDL_DRIVES
),
2051 (LPARAM
)spec
) == LB_ERR
)
2054 if (SENDMSG( combo
? CB_DIR
: LB_DIR
,
2055 (attrib
& (DDL_DIRECTORY
| DDL_DRIVES
)) | DDL_EXCLUSIVE
,
2056 (LPARAM
)"*.*" ) == LB_ERR
)
2061 if (SENDMSG( combo
? CB_DIR
: LB_DIR
, attrib
,
2062 (LPARAM
)spec
) == LB_ERR
)
2067 if (idStatic
&& ((hwnd
= GetDlgItem( hDlg
, idStatic
)) != 0))
2070 int drive
= DRIVE_GetCurrentDrive();
2071 strcpy( temp
, "A:\\" );
2073 lstrcpynA( temp
+ 3, DRIVE_GetDosCwd(drive
), sizeof(temp
)-3 );
2075 /* Can't use PostMessage() here, because the string is on the stack */
2076 SetDlgItemTextA( hDlg
, idStatic
, temp
);
2079 if (orig_spec
&& (spec
!= orig_spec
))
2081 /* Update the original file spec */
2083 while ((*orig_spec
++ = *p
++));
2091 /**********************************************************************
2092 * DIALOG_DlgDirListW
2094 * Helper function for DlgDirList*32W
2096 static INT
DIALOG_DlgDirListW( HWND hDlg
, LPWSTR spec
, INT idLBox
,
2097 INT idStatic
, UINT attrib
, BOOL combo
)
2101 LPSTR specA
= HEAP_strdupWtoA( GetProcessHeap(), 0, spec
);
2102 INT ret
= DIALOG_DlgDirList( hDlg
, specA
, idLBox
, idStatic
,
2104 lstrcpyAtoW( spec
, specA
);
2105 HeapFree( GetProcessHeap(), 0, specA
);
2108 return DIALOG_DlgDirList( hDlg
, NULL
, idLBox
, idStatic
, attrib
, combo
);
2112 /**********************************************************************
2113 * DlgDirSelect (USER.99)
2115 BOOL16 WINAPI
DlgDirSelect16( HWND16 hwnd
, LPSTR str
, INT16 id
)
2117 return DlgDirSelectEx16( hwnd
, str
, 128, id
);
2121 /**********************************************************************
2122 * DlgDirSelectComboBox (USER.194)
2124 BOOL16 WINAPI
DlgDirSelectComboBox16( HWND16 hwnd
, LPSTR str
, INT16 id
)
2126 return DlgDirSelectComboBoxEx16( hwnd
, str
, 128, id
);
2130 /**********************************************************************
2131 * DlgDirSelectEx16 (USER.422)
2133 BOOL16 WINAPI
DlgDirSelectEx16( HWND16 hwnd
, LPSTR str
, INT16 len
, INT16 id
)
2135 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, FALSE
, FALSE
, FALSE
);
2139 /**********************************************************************
2140 * DlgDirSelectEx32A (USER32.149)
2142 BOOL WINAPI
DlgDirSelectExA( HWND hwnd
, LPSTR str
, INT len
, INT id
)
2144 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, TRUE
, FALSE
, FALSE
);
2148 /**********************************************************************
2149 * DlgDirSelectEx32W (USER32.150)
2151 BOOL WINAPI
DlgDirSelectExW( HWND hwnd
, LPWSTR str
, INT len
, INT id
)
2153 return DIALOG_DlgDirSelect( hwnd
, (LPSTR
)str
, len
, id
, TRUE
, TRUE
, FALSE
);
2157 /**********************************************************************
2158 * DlgDirSelectComboBoxEx16 (USER.423)
2160 BOOL16 WINAPI
DlgDirSelectComboBoxEx16( HWND16 hwnd
, LPSTR str
, INT16 len
,
2163 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, FALSE
, FALSE
, TRUE
);
2167 /**********************************************************************
2168 * DlgDirSelectComboBoxEx32A (USER32.147)
2170 BOOL WINAPI
DlgDirSelectComboBoxExA( HWND hwnd
, LPSTR str
, INT len
,
2173 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, TRUE
, FALSE
, TRUE
);
2177 /**********************************************************************
2178 * DlgDirSelectComboBoxEx32W (USER32.148)
2180 BOOL WINAPI
DlgDirSelectComboBoxExW( HWND hwnd
, LPWSTR str
, INT len
,
2183 return DIALOG_DlgDirSelect( hwnd
, (LPSTR
)str
, len
, id
, TRUE
, TRUE
, TRUE
);
2187 /**********************************************************************
2188 * DlgDirList16 (USER.100)
2190 INT16 WINAPI
DlgDirList16( HWND16 hDlg
, LPSTR spec
, INT16 idLBox
,
2191 INT16 idStatic
, UINT16 attrib
)
2193 return DIALOG_DlgDirList( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2197 /**********************************************************************
2198 * DlgDirList32A (USER32.143)
2200 INT WINAPI
DlgDirListA( HWND hDlg
, LPSTR spec
, INT idLBox
,
2201 INT idStatic
, UINT attrib
)
2203 return DIALOG_DlgDirList( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2207 /**********************************************************************
2208 * DlgDirList32W (USER32.146)
2210 INT WINAPI
DlgDirListW( HWND hDlg
, LPWSTR spec
, INT idLBox
,
2211 INT idStatic
, UINT attrib
)
2213 return DIALOG_DlgDirListW( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2217 /**********************************************************************
2218 * DlgDirListComboBox16 (USER.195)
2220 INT16 WINAPI
DlgDirListComboBox16( HWND16 hDlg
, LPSTR spec
, INT16 idCBox
,
2221 INT16 idStatic
, UINT16 attrib
)
2223 return DIALOG_DlgDirList( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);
2227 /**********************************************************************
2228 * DlgDirListComboBox32A (USER32.144)
2230 INT WINAPI
DlgDirListComboBoxA( HWND hDlg
, LPSTR spec
, INT idCBox
,
2231 INT idStatic
, UINT attrib
)
2233 return DIALOG_DlgDirList( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);
2237 /**********************************************************************
2238 * DlgDirListComboBox32W (USER32.145)
2240 INT WINAPI
DlgDirListComboBoxW( HWND hDlg
, LPWSTR spec
, INT idCBox
,
2241 INT idStatic
, UINT attrib
)
2243 return DIALOG_DlgDirListW( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);