4 * Copyright 1993, 1994, 1996 Alexandre Julliard
21 #include "sysmetrics.h"
25 /* Dialog control information */
62 /* Dialog base units */
63 static WORD xBaseUnit
= 0, yBaseUnit
= 0;
66 /***********************************************************************
69 * Initialisation of the dialog manager.
71 BOOL32
DIALOG_Init(void)
76 /* Calculate the dialog base units */
78 if (!(hdc
= CreateDC16( "DISPLAY", NULL
, NULL
, NULL
))) return FALSE
;
79 GetTextMetrics16( hdc
, &tm
);
81 xBaseUnit
= tm
.tmAveCharWidth
;
82 yBaseUnit
= tm
.tmHeight
;
84 /* Dialog units are based on a proportional system font */
85 /* so we adjust them a bit for a fixed font. */
86 if (!(tm
.tmPitchAndFamily
& TMPF_FIXED_PITCH
))
87 xBaseUnit
= xBaseUnit
* 5 / 4;
89 TRACE(dialog
, "base units = %d,%d\n",
90 xBaseUnit
, yBaseUnit
);
95 /***********************************************************************
98 * Return the class and text of the control pointed to by ptr,
99 * fill the header structure and return a pointer to the next control.
101 static LPCSTR
DIALOG_GetControl16( LPCSTR p
, DLG_CONTROL_INFO
*info
)
103 static char buffer
[10];
106 info
->x
= GET_WORD(p
); p
+= sizeof(WORD
);
107 info
->y
= GET_WORD(p
); p
+= sizeof(WORD
);
108 info
->cx
= GET_WORD(p
); p
+= sizeof(WORD
);
109 info
->cy
= GET_WORD(p
); p
+= sizeof(WORD
);
110 info
->id
= GET_WORD(p
); p
+= sizeof(WORD
);
111 info
->style
= GET_DWORD(p
); p
+= sizeof(DWORD
);
118 case 0x80: strcpy( buffer
, "BUTTON" ); break;
119 case 0x81: strcpy( buffer
, "EDIT" ); break;
120 case 0x82: strcpy( buffer
, "STATIC" ); break;
121 case 0x83: strcpy( buffer
, "LISTBOX" ); break;
122 case 0x84: strcpy( buffer
, "SCROLLBAR" ); break;
123 case 0x85: strcpy( buffer
, "COMBOBOX" ); break;
124 default: buffer
[0] = '\0'; break;
126 info
->className
= buffer
;
135 int_id
= ((BYTE
)*p
== 0xff);
138 /* Integer id, not documented (?). Only works for SS_ICON controls */
139 info
->windowName
= (LPCSTR
)(UINT32
)GET_WORD(p
+1);
144 info
->windowName
= p
;
148 info
->data
= (LPVOID
)(*p
? p
+ 1 : NULL
); /* FIXME: should be a segptr */
152 TRACE(dialog
," %s %04x %d, %d, %d, %d, %d, %08lx, %08lx\n",
153 info
->className
, LOWORD(info
->windowName
),
154 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
155 info
->style
, (DWORD
)info
->data
);
157 TRACE(dialog
," %s '%s' %d, %d, %d, %d, %d, %08lx, %08lx\n",
158 info
->className
, info
->windowName
,
159 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
160 info
->style
, (DWORD
)info
->data
);
166 /***********************************************************************
167 * DIALOG_GetControl32
169 * Return the class and text of the control pointed to by ptr,
170 * fill the header structure and return a pointer to the next control.
172 static const WORD
*DIALOG_GetControl32( const WORD
*p
, DLG_CONTROL_INFO
*info
,
177 info
->helpId
= GET_DWORD(p
); p
+= 2;
178 info
->exStyle
= GET_DWORD(p
); p
+= 2;
179 info
->style
= GET_DWORD(p
); p
+= 2;
184 info
->style
= GET_DWORD(p
); p
+= 2;
185 info
->exStyle
= GET_DWORD(p
); p
+= 2;
187 info
->x
= GET_WORD(p
); p
++;
188 info
->y
= GET_WORD(p
); p
++;
189 info
->cx
= GET_WORD(p
); p
++;
190 info
->cy
= GET_WORD(p
); p
++;
194 /* id is a DWORD for DIALOGEX */
195 info
->id
= GET_DWORD(p
);
200 info
->id
= GET_WORD(p
);
204 if (GET_WORD(p
) == 0xffff)
206 static const WCHAR class_names
[6][10] =
208 { 'B','u','t','t','o','n', }, /* 0x80 */
209 { 'E','d','i','t', }, /* 0x81 */
210 { 'S','t','a','t','i','c', }, /* 0x82 */
211 { 'L','i','s','t','B','o','x', }, /* 0x83 */
212 { 'S','c','r','o','l','l','B','a','r', }, /* 0x84 */
213 { 'C','o','m','b','o','B','o','x', } /* 0x85 */
215 WORD id
= GET_WORD(p
+1);
216 if ((id
>= 0x80) && (id
<= 0x85))
217 info
->className
= (LPCSTR
)class_names
[id
- 0x80];
220 info
->className
= NULL
;
221 ERR( dialog
, "Unknown built-in class id %04x\n", id
);
227 info
->className
= (LPCSTR
)p
;
228 p
+= lstrlen32W( (LPCWSTR
)p
) + 1;
231 if (GET_WORD(p
) == 0xffff) /* Is it an integer id? */
233 info
->windowName
= (LPCSTR
)(UINT32
)GET_WORD(p
+ 1);
238 info
->windowName
= (LPCSTR
)p
;
239 p
+= lstrlen32W( (LPCWSTR
)p
) + 1;
242 TRACE(dialog
," %s %s %d, %d, %d, %d, %d, %08lx, %08lx, %08lx\n",
243 debugstr_w( (LPCWSTR
)info
->className
),
244 debugres_w( (LPCWSTR
)info
->windowName
),
245 info
->id
, info
->x
, info
->y
, info
->cx
, info
->cy
,
246 info
->style
, info
->exStyle
, info
->helpId
);
250 if (TRACE_ON(dialog
))
252 WORD i
, count
= GET_WORD(p
) / sizeof(WORD
);
253 TRACE(dialog
, " BEGIN\n");
255 for (i
= 0; i
< count
; i
++) DUMP( "%04x,", GET_WORD(p
+i
+1) );
257 TRACE(dialog
, " END\n" );
259 info
->data
= (LPVOID
)(p
+ 1);
260 p
+= GET_WORD(p
) / sizeof(WORD
);
262 else info
->data
= NULL
;
265 /* Next control is on dword boundary */
266 return (const WORD
*)((((int)p
) + 3) & ~3);
270 /***********************************************************************
271 * DIALOG_CreateControls
273 * Create the control windows for a dialog.
275 static BOOL32
DIALOG_CreateControls( WND
*pWnd
, LPCSTR
template,
276 const DLG_TEMPLATE
*dlgTemplate
,
277 HINSTANCE32 hInst
, BOOL32 win32
)
279 DIALOGINFO
*dlgInfo
= (DIALOGINFO
*)pWnd
->wExtra
;
280 DLG_CONTROL_INFO info
;
281 HWND32 hwndCtrl
, hwndDefButton
= 0;
282 INT32 items
= dlgTemplate
->nbItems
;
284 TRACE(dialog
, " BEGIN\n" );
289 HINSTANCE16 instance
;
290 template = DIALOG_GetControl16( template, &info
);
291 if (HIWORD(info
.className
) && !strcmp( info
.className
, "EDIT") &&
292 ((pWnd
->dwStyle
& DS_LOCALEDIT
) != DS_LOCALEDIT
))
294 if (!dlgInfo
->hDialogHeap
)
296 dlgInfo
->hDialogHeap
= GlobalAlloc16(GMEM_FIXED
, 0x10000);
297 if (!dlgInfo
->hDialogHeap
)
299 ERR(dialog
, "Insufficient memory to create heap for edit control\n" );
302 LocalInit(dlgInfo
->hDialogHeap
, 0, 0xffff);
304 instance
= dlgInfo
->hDialogHeap
;
306 else instance
= (HINSTANCE16
)hInst
;
308 hwndCtrl
= CreateWindowEx16( info
.exStyle
| WS_EX_NOPARENTNOTIFY
,
309 info
.className
, info
.windowName
,
310 info
.style
| WS_CHILD
,
311 info
.x
* dlgInfo
->xBaseUnit
/ 4,
312 info
.y
* dlgInfo
->yBaseUnit
/ 8,
313 info
.cx
* dlgInfo
->xBaseUnit
/ 4,
314 info
.cy
* dlgInfo
->yBaseUnit
/ 8,
315 pWnd
->hwndSelf
, (HMENU16
)info
.id
,
316 instance
, info
.data
);
320 template = (LPCSTR
)DIALOG_GetControl32( (WORD
*)template, &info
,
321 dlgTemplate
->dialogEx
);
322 hwndCtrl
= CreateWindowEx32W( info
.exStyle
| WS_EX_NOPARENTNOTIFY
,
323 (LPCWSTR
)info
.className
,
324 (LPCWSTR
)info
.windowName
,
325 info
.style
| WS_CHILD
,
326 info
.x
* dlgInfo
->xBaseUnit
/ 4,
327 info
.y
* dlgInfo
->yBaseUnit
/ 8,
328 info
.cx
* dlgInfo
->xBaseUnit
/ 4,
329 info
.cy
* dlgInfo
->yBaseUnit
/ 8,
330 pWnd
->hwndSelf
, (HMENU32
)info
.id
,
333 if (!hwndCtrl
) return FALSE
;
335 /* Send initialisation messages to the control */
336 if (dlgInfo
->hUserFont
) SendMessage32A( hwndCtrl
, WM_SETFONT
,
337 (WPARAM32
)dlgInfo
->hUserFont
, 0 );
338 if (SendMessage32A(hwndCtrl
, WM_GETDLGCODE
, 0, 0) & DLGC_DEFPUSHBUTTON
)
340 /* If there's already a default push-button, set it back */
341 /* to normal and use this one instead. */
343 SendMessage32A( hwndDefButton
, BM_SETSTYLE32
,
344 BS_PUSHBUTTON
,FALSE
);
345 hwndDefButton
= hwndCtrl
;
346 dlgInfo
->idResult
= GetWindowWord32( hwndCtrl
, GWW_ID
);
349 TRACE(dialog
, " END\n" );
354 /***********************************************************************
355 * DIALOG_ParseTemplate16
357 * Fill a DLG_TEMPLATE structure from the dialog template, and return
358 * a pointer to the first control.
360 static LPCSTR
DIALOG_ParseTemplate16( LPCSTR p
, DLG_TEMPLATE
* result
)
362 result
->style
= GET_DWORD(p
); p
+= sizeof(DWORD
);
364 result
->nbItems
= *p
++;
365 result
->x
= GET_WORD(p
); p
+= sizeof(WORD
);
366 result
->y
= GET_WORD(p
); p
+= sizeof(WORD
);
367 result
->cx
= GET_WORD(p
); p
+= sizeof(WORD
);
368 result
->cy
= GET_WORD(p
); p
+= sizeof(WORD
);
369 TRACE(dialog
, "DIALOG %d, %d, %d, %d\n",
370 result
->x
, result
->y
, result
->cx
, result
->cy
);
371 TRACE(dialog
, " STYLE %08lx\n", result
->style
);
373 /* Get the menu name */
378 result
->menuName
= 0;
382 result
->menuName
= (LPCSTR
)(UINT32
)GET_WORD( p
+ 1 );
384 TRACE(dialog
, " MENU %04x\n", LOWORD(result
->menuName
) );
387 result
->menuName
= p
;
388 TRACE(dialog
, " MENU '%s'\n", p
);
393 /* Get the class name */
397 result
->className
= p
;
398 TRACE(dialog
, " CLASS '%s'\n", result
->className
);
400 else result
->className
= DIALOG_CLASS_ATOM
;
403 /* Get the window caption */
407 TRACE(dialog
, " CAPTION '%s'\n", result
->caption
);
409 /* Get the font name */
411 if (result
->style
& DS_SETFONT
)
413 result
->pointSize
= GET_WORD(p
);
415 result
->faceName
= p
;
417 TRACE(dialog
, " FONT %d,'%s'\n",
418 result
->pointSize
, result
->faceName
);
424 /***********************************************************************
425 * DIALOG_ParseTemplate32
427 * Fill a DLG_TEMPLATE structure from the dialog template, and return
428 * a pointer to the first control.
430 static LPCSTR
DIALOG_ParseTemplate32( LPCSTR
template, DLG_TEMPLATE
* result
)
432 const WORD
*p
= (const WORD
*)template;
434 result
->style
= GET_DWORD(p
); p
+= 2;
435 if (result
->style
== 0xffff0001) /* DIALOGEX resource */
437 result
->dialogEx
= TRUE
;
438 result
->helpId
= GET_DWORD(p
); p
+= 2;
439 result
->exStyle
= GET_DWORD(p
); p
+= 2;
440 result
->style
= GET_DWORD(p
); p
+= 2;
444 result
->dialogEx
= FALSE
;
446 result
->exStyle
= GET_DWORD(p
); p
+= 2;
448 result
->nbItems
= GET_WORD(p
); p
++;
449 result
->x
= GET_WORD(p
); p
++;
450 result
->y
= GET_WORD(p
); p
++;
451 result
->cx
= GET_WORD(p
); p
++;
452 result
->cy
= GET_WORD(p
); p
++;
453 TRACE( dialog
, "DIALOG%s %d, %d, %d, %d, %ld\n",
454 result
->dialogEx
? "EX" : "", result
->x
, result
->y
,
455 result
->cx
, result
->cy
, result
->helpId
);
456 TRACE( dialog
, " STYLE 0x%08lx\n", result
->style
);
457 TRACE( dialog
, " EXSTYLE 0x%08lx\n", result
->exStyle
);
459 /* Get the menu name */
464 result
->menuName
= NULL
;
468 result
->menuName
= (LPCSTR
)(UINT32
)GET_WORD( p
+ 1 );
470 TRACE(dialog
, " MENU %04x\n", LOWORD(result
->menuName
) );
473 result
->menuName
= (LPCSTR
)p
;
474 TRACE(dialog
, " MENU %s\n", debugstr_w( (LPCWSTR
)p
));
475 p
+= lstrlen32W( (LPCWSTR
)p
) + 1;
479 /* Get the class name */
484 result
->className
= DIALOG_CLASS_ATOM
;
488 result
->className
= (LPCSTR
)(UINT32
)GET_WORD( p
+ 1 );
490 TRACE(dialog
, " CLASS %04x\n", LOWORD(result
->className
) );
493 result
->className
= (LPCSTR
)p
;
494 TRACE(dialog
, " CLASS %s\n", debugstr_w( (LPCWSTR
)p
));
495 p
+= lstrlen32W( (LPCWSTR
)p
) + 1;
499 /* Get the window caption */
501 result
->caption
= (LPCSTR
)p
;
502 p
+= lstrlen32W( (LPCWSTR
)p
) + 1;
503 TRACE(dialog
, " CAPTION %s\n", debugstr_w( (LPCWSTR
)result
->caption
) );
505 /* Get the font name */
507 if (result
->style
& DS_SETFONT
)
509 result
->pointSize
= GET_WORD(p
);
511 if (result
->dialogEx
)
513 result
->weight
= GET_WORD(p
); p
++;
514 result
->italic
= LOBYTE(GET_WORD(p
)); p
++;
518 result
->weight
= FW_DONTCARE
;
519 result
->italic
= FALSE
;
521 result
->faceName
= (LPCSTR
)p
;
522 p
+= lstrlen32W( (LPCWSTR
)p
) + 1;
523 TRACE(dialog
, " FONT %d, %s, %d, %s\n",
524 result
->pointSize
, debugstr_w( (LPCWSTR
)result
->faceName
),
525 result
->weight
, result
->italic
? "TRUE" : "FALSE" );
528 /* First control is on dword boundary */
529 return (LPCSTR
)((((int)p
) + 3) & ~3);
533 /***********************************************************************
534 * DIALOG_CreateIndirect
536 HWND32
DIALOG_CreateIndirect( HINSTANCE32 hInst
, LPCSTR dlgTemplate
,
537 BOOL32 win32Template
, HWND32 owner
,
538 DLGPROC16 dlgProc
, LPARAM param
,
539 WINDOWPROCTYPE procType
)
546 DLG_TEMPLATE
template;
547 DIALOGINFO
* dlgInfo
;
548 WORD xUnit
= xBaseUnit
;
549 WORD yUnit
= yBaseUnit
;
551 /* Parse dialog template */
553 if (!dlgTemplate
) return 0;
555 dlgTemplate
= DIALOG_ParseTemplate32( dlgTemplate
, &template );
557 dlgTemplate
= DIALOG_ParseTemplate16( dlgTemplate
, &template );
561 if (template.menuName
)
565 LPSTR str
= SEGPTR_STRDUP( template.menuName
);
566 hMenu
= LoadMenu16( hInst
, SEGPTR_GET(str
) );
569 else hMenu
= LoadMenu32W( hInst
, (LPCWSTR
)template.menuName
);
572 /* Create custom font if needed */
574 if (template.style
& DS_SETFONT
)
576 /* The font height must be negative as it is a point size */
577 /* (see CreateFont() documentation in the Windows SDK). */
580 hFont
= CreateFont32W( -template.pointSize
, 0, 0, 0,
581 template.weight
, template.italic
, FALSE
,
582 FALSE
, DEFAULT_CHARSET
, 0, 0, PROOF_QUALITY
,
583 FF_DONTCARE
, (LPCWSTR
)template.faceName
);
585 hFont
= CreateFont16( -template.pointSize
, 0, 0, 0, FW_DONTCARE
,
586 FALSE
, FALSE
, FALSE
, DEFAULT_CHARSET
, 0, 0,
587 PROOF_QUALITY
, FF_DONTCARE
,
594 HDC32 hdc
= GetDC32(0);
595 oldFont
= SelectObject32( hdc
, hFont
);
596 GetTextMetrics16( hdc
, &tm
);
597 SelectObject32( hdc
, oldFont
);
598 ReleaseDC32( 0, hdc
);
599 xUnit
= tm
.tmAveCharWidth
;
601 if (!(tm
.tmPitchAndFamily
& TMPF_FIXED_PITCH
))
602 xBaseUnit
= xBaseUnit
* 5 / 4; /* See DIALOG_Init() */
606 /* Create dialog main window */
608 rect
.left
= rect
.top
= 0;
609 rect
.right
= template.cx
* xUnit
/ 4;
610 rect
.bottom
= template.cy
* yUnit
/ 8;
611 if (template.style
& DS_MODALFRAME
)
612 template.exStyle
|= WS_EX_DLGMODALFRAME
;
613 AdjustWindowRectEx32( &rect
, template.style
,
614 hMenu
? TRUE
: FALSE
, template.exStyle
);
615 rect
.right
-= rect
.left
;
616 rect
.bottom
-= rect
.top
;
618 if ((INT16
)template.x
== CW_USEDEFAULT16
)
620 rect
.left
= rect
.top
= (procType
== WIN_PROC_16
) ? CW_USEDEFAULT16
625 if (template.style
& DS_CENTER
)
627 rect
.left
= (SYSMETRICS_CXSCREEN
- rect
.right
) / 2;
628 rect
.top
= (SYSMETRICS_CYSCREEN
- rect
.bottom
) / 2;
632 rect
.left
+= template.x
* xUnit
/ 4;
633 rect
.top
+= template.y
* yUnit
/ 8;
635 if ( !(template.style
& WS_CHILD
) )
639 if( !(template.style
& DS_ABSALIGN
) )
640 ClientToScreen32( owner
, (POINT32
*)&rect
);
642 /* try to fit it into the desktop */
644 if( (dX
= rect
.left
+ rect
.right
+ SYSMETRICS_CXDLGFRAME
645 - SYSMETRICS_CXSCREEN
) > 0 ) rect
.left
-= dX
;
646 if( (dY
= rect
.top
+ rect
.bottom
+ SYSMETRICS_CYDLGFRAME
647 - SYSMETRICS_CYSCREEN
) > 0 ) rect
.top
-= dY
;
648 if( rect
.left
< 0 ) rect
.left
= 0;
649 if( rect
.top
< 0 ) rect
.top
= 0;
653 if (procType
== WIN_PROC_16
)
654 hwnd
= CreateWindowEx16(template.exStyle
, template.className
,
655 template.caption
, template.style
& ~WS_VISIBLE
,
656 rect
.left
, rect
.top
, rect
.right
, rect
.bottom
,
657 owner
, hMenu
, hInst
, NULL
);
659 hwnd
= CreateWindowEx32W(template.exStyle
, (LPCWSTR
)template.className
,
660 (LPCWSTR
)template.caption
,
661 template.style
& ~WS_VISIBLE
,
662 rect
.left
, rect
.top
, rect
.right
, rect
.bottom
,
663 owner
, hMenu
, hInst
, NULL
);
667 if (hFont
) DeleteObject32( hFont
);
668 if (hMenu
) DestroyMenu32( hMenu
);
671 wndPtr
= WIN_FindWndPtr( hwnd
);
672 wndPtr
->flags
|= WIN_ISDIALOG
;
673 wndPtr
->helpContext
= template.helpId
;
675 /* Initialise dialog extra data */
677 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
678 WINPROC_SetProc( &dlgInfo
->dlgProc
, dlgProc
, procType
, WIN_PROC_WINDOW
);
679 dlgInfo
->hUserFont
= hFont
;
680 dlgInfo
->hMenu
= hMenu
;
681 dlgInfo
->xBaseUnit
= xUnit
;
682 dlgInfo
->yBaseUnit
= yUnit
;
683 dlgInfo
->msgResult
= 0;
684 dlgInfo
->idResult
= 0;
686 dlgInfo
->hDialogHeap
= 0;
688 if (dlgInfo
->hUserFont
)
689 SendMessage32A( hwnd
, WM_SETFONT
, (WPARAM32
)dlgInfo
->hUserFont
, 0 );
691 /* Create controls */
693 if (DIALOG_CreateControls( wndPtr
, dlgTemplate
, &template,
694 hInst
, win32Template
))
696 /* Send initialisation messages and set focus */
698 dlgInfo
->hwndFocus
= GetNextDlgTabItem32( hwnd
, 0, FALSE
);
700 if (SendMessage32A( hwnd
, WM_INITDIALOG
, (WPARAM32
)dlgInfo
->hwndFocus
, param
))
701 SetFocus32( dlgInfo
->hwndFocus
);
703 if (template.style
& WS_VISIBLE
&& !(wndPtr
->dwStyle
& WS_VISIBLE
))
705 ShowWindow32( hwnd
, SW_SHOWNORMAL
); /* SW_SHOW doesn't always work */
706 UpdateWindow32( hwnd
);
711 if( IsWindow32(hwnd
) ) DestroyWindow32( hwnd
);
716 /***********************************************************************
717 * CreateDialog16 (USER.89)
719 HWND16 WINAPI
CreateDialog16( HINSTANCE16 hInst
, SEGPTR dlgTemplate
,
720 HWND16 owner
, DLGPROC16 dlgProc
)
722 return CreateDialogParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
726 /***********************************************************************
727 * CreateDialogParam16 (USER.241)
729 HWND16 WINAPI
CreateDialogParam16( HINSTANCE16 hInst
, SEGPTR dlgTemplate
,
730 HWND16 owner
, DLGPROC16 dlgProc
,
738 TRACE(dialog
, "%04x,%08lx,%04x,%08lx,%ld\n",
739 hInst
, (DWORD
)dlgTemplate
, owner
, (DWORD
)dlgProc
, param
);
741 if (!(hRsrc
= FindResource16( hInst
, dlgTemplate
, RT_DIALOG16
))) return 0;
742 if (!(hmem
= LoadResource16( hInst
, hRsrc
))) return 0;
743 if (!(data
= LockResource16( hmem
))) hwnd
= 0;
744 else hwnd
= CreateDialogIndirectParam16( hInst
, data
, owner
,
746 FreeResource16( hmem
);
750 /***********************************************************************
751 * CreateDialogParam32A (USER32.73)
753 HWND32 WINAPI
CreateDialogParam32A( HINSTANCE32 hInst
, LPCSTR name
,
754 HWND32 owner
, DLGPROC32 dlgProc
,
759 LPWSTR str
= HEAP_strdupAtoW( GetProcessHeap(), 0, name
);
760 HWND32 hwnd
= CreateDialogParam32W( hInst
, str
, owner
, dlgProc
, param
);
761 HeapFree( GetProcessHeap(), 0, str
);
764 return CreateDialogParam32W( hInst
, (LPCWSTR
)name
, owner
, dlgProc
, param
);
768 /***********************************************************************
769 * CreateDialogParam32W (USER32.74)
771 HWND32 WINAPI
CreateDialogParam32W( HINSTANCE32 hInst
, LPCWSTR name
,
772 HWND32 owner
, DLGPROC32 dlgProc
,
775 HANDLE32 hrsrc
= FindResource32W( hInst
, name
, RT_DIALOG32W
);
776 if (!hrsrc
) return 0;
777 return CreateDialogIndirectParam32W( hInst
,
778 (LPVOID
)LoadResource32(hInst
, hrsrc
),
779 owner
, dlgProc
, param
);
783 /***********************************************************************
784 * CreateDialogIndirect16 (USER.219)
786 HWND16 WINAPI
CreateDialogIndirect16( HINSTANCE16 hInst
, LPCVOID dlgTemplate
,
787 HWND16 owner
, DLGPROC16 dlgProc
)
789 return CreateDialogIndirectParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0);
793 /***********************************************************************
794 * CreateDialogIndirectParam16 (USER.242)
796 HWND16 WINAPI
CreateDialogIndirectParam16( HINSTANCE16 hInst
,
798 HWND16 owner
, DLGPROC16 dlgProc
,
801 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, FALSE
, owner
,
802 dlgProc
, param
, WIN_PROC_16
);
806 /***********************************************************************
807 * CreateDialogIndirectParam32A (USER32.69)
809 HWND32 WINAPI
CreateDialogIndirectParam32A( HINSTANCE32 hInst
,
811 HWND32 owner
, DLGPROC32 dlgProc
,
814 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, TRUE
, owner
,
815 (DLGPROC16
)dlgProc
, param
, WIN_PROC_32A
);
818 /***********************************************************************
819 * CreateDialogIndirectParam32AorW (USER32.71)
821 HWND32 WINAPI
CreateDialogIndirectParam32AorW( HINSTANCE32 hInst
,
823 HWND32 owner
, DLGPROC32 dlgProc
,
825 { FIXME(dialog
,"assume WIN_PROC_32W\n");
826 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, TRUE
, owner
,
827 (DLGPROC16
)dlgProc
, param
, WIN_PROC_32W
);
830 /***********************************************************************
831 * CreateDialogIndirectParam32W (USER32.72)
833 HWND32 WINAPI
CreateDialogIndirectParam32W( HINSTANCE32 hInst
,
835 HWND32 owner
, DLGPROC32 dlgProc
,
838 return DIALOG_CreateIndirect( hInst
, dlgTemplate
, TRUE
, owner
,
839 (DLGPROC16
)dlgProc
, param
, WIN_PROC_32W
);
843 /***********************************************************************
846 INT32
DIALOG_DoDialogBox( HWND32 hwnd
, HWND32 owner
)
849 DIALOGINFO
* dlgInfo
;
853 /* Owner must be a top-level window */
854 owner
= WIN_GetTopParent( owner
);
855 if (!(wndPtr
= WIN_FindWndPtr( hwnd
))) return -1;
856 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
857 EnableWindow32( owner
, FALSE
);
858 ShowWindow32( hwnd
, SW_SHOW
);
860 while (MSG_InternalGetMessage(&msg
, hwnd
, owner
, MSGF_DIALOGBOX
, PM_REMOVE
,
861 !(wndPtr
->dwStyle
& DS_NOIDLEMSG
) ))
863 if (!IsDialogMessage16( hwnd
, &msg
))
865 TranslateMessage16( &msg
);
866 DispatchMessage16( &msg
);
868 if (dlgInfo
->flags
& DF_END
) break;
870 retval
= dlgInfo
->idResult
;
871 EnableWindow32( owner
, TRUE
);
872 dlgInfo
->flags
|= DF_ENDING
; /* try to stop it being destroyed twice */
873 DestroyWindow32( hwnd
);
878 /***********************************************************************
879 * DialogBox16 (USER.87)
881 INT16 WINAPI
DialogBox16( HINSTANCE16 hInst
, SEGPTR dlgTemplate
,
882 HWND16 owner
, DLGPROC16 dlgProc
)
884 return DialogBoxParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
888 /***********************************************************************
889 * DialogBoxParam16 (USER.239)
891 INT16 WINAPI
DialogBoxParam16( HINSTANCE16 hInst
, SEGPTR
template,
892 HWND16 owner
, DLGPROC16 dlgProc
, LPARAM param
)
894 HWND16 hwnd
= CreateDialogParam16( hInst
, template, owner
, dlgProc
, param
);
895 if (hwnd
) return (INT16
)DIALOG_DoDialogBox( hwnd
, owner
);
900 /***********************************************************************
901 * DialogBoxParam32A (USER32.139)
903 INT32 WINAPI
DialogBoxParam32A( HINSTANCE32 hInst
, LPCSTR name
,
904 HWND32 owner
, DLGPROC32 dlgProc
, LPARAM param
)
906 HWND32 hwnd
= CreateDialogParam32A( hInst
, name
, owner
, dlgProc
, param
);
907 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
912 /***********************************************************************
913 * DialogBoxParam32W (USER32.140)
915 INT32 WINAPI
DialogBoxParam32W( HINSTANCE32 hInst
, LPCWSTR name
,
916 HWND32 owner
, DLGPROC32 dlgProc
, LPARAM param
)
918 HWND32 hwnd
= CreateDialogParam32W( hInst
, name
, owner
, dlgProc
, param
);
919 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
924 /***********************************************************************
925 * DialogBoxIndirect16 (USER.218)
927 INT16 WINAPI
DialogBoxIndirect16( HINSTANCE16 hInst
, HANDLE16 dlgTemplate
,
928 HWND16 owner
, DLGPROC16 dlgProc
)
930 return DialogBoxIndirectParam16( hInst
, dlgTemplate
, owner
, dlgProc
, 0 );
934 /***********************************************************************
935 * DialogBoxIndirectParam16 (USER.240)
937 INT16 WINAPI
DialogBoxIndirectParam16( HINSTANCE16 hInst
, HANDLE16 dlgTemplate
,
938 HWND16 owner
, DLGPROC16 dlgProc
,
944 if (!(ptr
= GlobalLock16( dlgTemplate
))) return -1;
945 hwnd
= CreateDialogIndirectParam16( hInst
, ptr
, owner
, dlgProc
, param
);
946 GlobalUnlock16( dlgTemplate
);
947 if (hwnd
) return (INT16
)DIALOG_DoDialogBox( hwnd
, owner
);
952 /***********************************************************************
953 * DialogBoxIndirectParam32A (USER32.136)
955 INT32 WINAPI
DialogBoxIndirectParam32A(HINSTANCE32 hInstance
, LPCVOID
template,
956 HWND32 owner
, DLGPROC32 dlgProc
,
959 HWND32 hwnd
= CreateDialogIndirectParam32A( hInstance
, template,
960 owner
, dlgProc
, param
);
961 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
966 /***********************************************************************
967 * DialogBoxIndirectParam32W (USER32.138)
969 INT32 WINAPI
DialogBoxIndirectParam32W(HINSTANCE32 hInstance
, LPCVOID
template,
970 HWND32 owner
, DLGPROC32 dlgProc
,
973 HWND32 hwnd
= CreateDialogIndirectParam32W( hInstance
, template,
974 owner
, dlgProc
, param
);
975 if (hwnd
) return DIALOG_DoDialogBox( hwnd
, owner
);
980 /***********************************************************************
981 * EndDialog16 (USER32.173)
983 BOOL16 WINAPI
EndDialog16( HWND16 hwnd
, INT16 retval
)
985 return EndDialog32( hwnd
, retval
);
989 /***********************************************************************
990 * EndDialog32 (USER.88)
992 BOOL32 WINAPI
EndDialog32( HWND32 hwnd
, INT32 retval
)
994 WND
* wndPtr
= WIN_FindWndPtr( hwnd
);
995 DIALOGINFO
* dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
997 TRACE(dialog
, "%04x %d\n", hwnd
, retval
);
1001 dlgInfo
->idResult
= retval
;
1002 dlgInfo
->flags
|= DF_END
;
1008 /***********************************************************************
1009 * DIALOG_IsAccelerator
1011 static BOOL32
DIALOG_IsAccelerator( HWND32 hwnd
, HWND32 hwndDlg
, WPARAM32 vKey
)
1013 HWND32 hwndControl
= hwnd
;
1016 BOOL32 RetVal
= FALSE
;
1019 if (vKey
== VK_SPACE
)
1021 dlgCode
= SendMessage32A( hwndControl
, WM_GETDLGCODE
, 0, 0 );
1022 if (dlgCode
& DLGC_BUTTON
)
1024 SendMessage32A( hwndControl
, WM_LBUTTONDOWN
, 0, 0);
1025 SendMessage32A( hwndControl
, WM_LBUTTONUP
, 0, 0);
1033 wndPtr
= WIN_FindWndPtr( hwndControl
);
1034 if (wndPtr
!= NULL
&& wndPtr
->text
!= NULL
&&
1035 (wndPtr
->dwStyle
& (WS_VISIBLE
| WS_DISABLED
)) == WS_VISIBLE
)
1037 dlgCode
= SendMessage32A( hwndControl
, WM_GETDLGCODE
, 0, 0 );
1038 if (dlgCode
& (DLGC_BUTTON
| DLGC_STATIC
))
1040 /* find the accelerator key */
1041 LPSTR p
= wndPtr
->text
- 2;
1044 p
= strchr( p
+ 2, '&' );
1046 while (p
!= NULL
&& p
[1] == '&');
1048 /* and check if it's the one we're looking for */
1049 if (p
!= NULL
&& toupper( p
[1] ) == toupper( vKey
) )
1051 if ((dlgCode
& DLGC_STATIC
) ||
1052 (wndPtr
->dwStyle
& 0x0f) == BS_GROUPBOX
)
1054 /* set focus to the control */
1055 SendMessage32A( hwndDlg
, WM_NEXTDLGCTL
,
1057 /* and bump it on to next */
1058 SendMessage32A( hwndDlg
, WM_NEXTDLGCTL
, 0, 0);
1061 (DLGC_DEFPUSHBUTTON
| DLGC_UNDEFPUSHBUTTON
))
1063 /* send command message as from the control */
1064 SendMessage32A( hwndDlg
, WM_COMMAND
,
1065 MAKEWPARAM( LOWORD(wndPtr
->wIDmenu
),
1067 (LPARAM
)hwndControl
);
1071 /* click the control */
1072 SendMessage32A( hwndControl
, WM_LBUTTONDOWN
, 0, 0);
1073 SendMessage32A( hwndControl
, WM_LBUTTONUP
, 0, 0);
1080 hwndNext
= GetWindow32( hwndControl
, GW_CHILD
);
1083 hwndNext
= GetWindow32( hwndControl
, GW_HWNDNEXT
);
1087 hwndControl
= GetParent32( hwndControl
);
1088 if (hwndControl
== hwndDlg
)
1090 hwndNext
= GetWindow32( hwndDlg
, GW_CHILD
);
1094 hwndNext
= GetWindow32( hwndControl
, GW_HWNDNEXT
);
1097 hwndControl
= hwndNext
;
1099 while (hwndControl
!= hwnd
);
1105 /***********************************************************************
1106 * DIALOG_IsDialogMessage
1108 static BOOL32
DIALOG_IsDialogMessage( HWND32 hwnd
, HWND32 hwndDlg
,
1109 UINT32 message
, WPARAM32 wParam
,
1110 LPARAM lParam
, BOOL32
*translate
,
1111 BOOL32
*dispatch
, INT32 dlgCode
)
1113 *translate
= *dispatch
= FALSE
;
1115 if (message
== WM_PAINT
)
1117 /* Apparently, we have to handle this one as well */
1122 /* Only the key messages get special processing */
1123 if ((message
!= WM_KEYDOWN
) &&
1124 (message
!= WM_SYSCHAR
) &&
1125 (message
!= WM_CHAR
))
1128 if (dlgCode
& DLGC_WANTMESSAGE
)
1130 *translate
= *dispatch
= TRUE
;
1140 if (!(dlgCode
& DLGC_WANTTAB
))
1142 SendMessage32A( hwndDlg
, WM_NEXTDLGCTL
,
1143 (GetKeyState32(VK_SHIFT
) & 0x8000), 0 );
1152 if (!(dlgCode
& DLGC_WANTARROWS
))
1154 BOOL32 fPrevious
= (wParam
== VK_LEFT
|| wParam
== VK_UP
);
1156 GetNextDlgGroupItem32 (hwndDlg
, GetFocus32(), fPrevious
);
1157 SendMessage32A( hwndDlg
, WM_NEXTDLGCTL
, hwndNext
, 1 );
1163 SendMessage32A( hwndDlg
, WM_COMMAND
, IDCANCEL
,
1164 (LPARAM
)GetDlgItem32( hwndDlg
, IDCANCEL
) );
1169 DWORD dw
= SendMessage16( hwndDlg
, DM_GETDEFID
, 0, 0 );
1170 if (HIWORD(dw
) == DC_HASDEFID
)
1172 SendMessage32A( hwndDlg
, WM_COMMAND
,
1173 MAKEWPARAM( LOWORD(dw
), BN_CLICKED
),
1174 (LPARAM
)GetDlgItem32(hwndDlg
, LOWORD(dw
)));
1178 SendMessage32A( hwndDlg
, WM_COMMAND
, IDOK
,
1179 (LPARAM
)GetDlgItem32( hwndDlg
, IDOK
) );
1186 break; /* case WM_KEYDOWN */
1189 if (dlgCode
& DLGC_WANTCHARS
) break;
1193 if (DIALOG_IsAccelerator( hwnd
, hwndDlg
, wParam
))
1195 /* don't translate or dispatch */
1201 /* If we get here, the message has not been treated specially */
1202 /* and can be sent to its destination window. */
1208 /***********************************************************************
1209 * IsDialogMessage16 (USER.90)
1211 BOOL16 WINAPI
WIN16_IsDialogMessage16( HWND16 hwndDlg
, SEGPTR msg16
)
1213 LPMSG16 msg
= PTR_SEG_TO_LIN(msg16
);
1214 BOOL32 ret
, translate
, dispatch
;
1217 if ((hwndDlg
!= msg
->hwnd
) && !IsChild16( hwndDlg
, msg
->hwnd
))
1220 dlgCode
= SendMessage16( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg16
);
1221 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1222 msg
->wParam
, msg
->lParam
,
1223 &translate
, &dispatch
, dlgCode
);
1224 if (translate
) TranslateMessage16( msg
);
1225 if (dispatch
) DispatchMessage16( msg
);
1230 BOOL16 WINAPI
IsDialogMessage16( HWND16 hwndDlg
, LPMSG16 msg
)
1232 LPMSG16 msg16
= SEGPTR_NEW(MSG16
);
1236 ret
= WIN16_IsDialogMessage16( hwndDlg
, SEGPTR_GET(msg16
) );
1241 /***********************************************************************
1242 * IsDialogMessage32A (USER32.342)
1244 BOOL32 WINAPI
IsDialogMessage32A( HWND32 hwndDlg
, LPMSG32 msg
)
1246 BOOL32 ret
, translate
, dispatch
;
1249 if ((hwndDlg
!= msg
->hwnd
) && !IsChild32( hwndDlg
, msg
->hwnd
))
1252 dlgCode
= SendMessage32A( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg
);
1253 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1254 msg
->wParam
, msg
->lParam
,
1255 &translate
, &dispatch
, dlgCode
);
1256 if (translate
) TranslateMessage32( msg
);
1257 if (dispatch
) DispatchMessage32A( msg
);
1262 /***********************************************************************
1263 * IsDialogMessage32W (USER32.343)
1265 BOOL32 WINAPI
IsDialogMessage32W( HWND32 hwndDlg
, LPMSG32 msg
)
1267 BOOL32 ret
, translate
, dispatch
;
1270 if ((hwndDlg
!= msg
->hwnd
) && !IsChild32( hwndDlg
, msg
->hwnd
))
1273 dlgCode
= SendMessage32W( msg
->hwnd
, WM_GETDLGCODE
, 0, (LPARAM
)msg
);
1274 ret
= DIALOG_IsDialogMessage( msg
->hwnd
, hwndDlg
, msg
->message
,
1275 msg
->wParam
, msg
->lParam
,
1276 &translate
, &dispatch
, dlgCode
);
1277 if (translate
) TranslateMessage32( msg
);
1278 if (dispatch
) DispatchMessage32W( msg
);
1283 /****************************************************************
1284 * GetDlgCtrlID16 (USER.277)
1286 INT16 WINAPI
GetDlgCtrlID16( HWND16 hwnd
)
1288 WND
*wndPtr
= WIN_FindWndPtr(hwnd
);
1289 if (wndPtr
) return wndPtr
->wIDmenu
;
1294 /****************************************************************
1295 * GetDlgCtrlID32 (USER32.234)
1297 INT32 WINAPI
GetDlgCtrlID32( HWND32 hwnd
)
1299 WND
*wndPtr
= WIN_FindWndPtr(hwnd
);
1300 if (wndPtr
) return wndPtr
->wIDmenu
;
1305 /***********************************************************************
1306 * GetDlgItem16 (USER.91)
1308 HWND16 WINAPI
GetDlgItem16( HWND16 hwndDlg
, INT16 id
)
1312 if (!(pWnd
= WIN_FindWndPtr( hwndDlg
))) return 0;
1313 for (pWnd
= pWnd
->child
; pWnd
; pWnd
= pWnd
->next
)
1314 if (pWnd
->wIDmenu
== (UINT16
)id
) return pWnd
->hwndSelf
;
1319 /***********************************************************************
1320 * GetDlgItem32 (USER32.235)
1322 HWND32 WINAPI
GetDlgItem32( HWND32 hwndDlg
, INT32 id
)
1326 if (!(pWnd
= WIN_FindWndPtr( hwndDlg
))) return 0;
1327 for (pWnd
= pWnd
->child
; pWnd
; pWnd
= pWnd
->next
)
1328 if (pWnd
->wIDmenu
== (UINT16
)id
) return pWnd
->hwndSelf
;
1333 /*******************************************************************
1334 * SendDlgItemMessage16 (USER.101)
1336 LRESULT WINAPI
SendDlgItemMessage16( HWND16 hwnd
, INT16 id
, UINT16 msg
,
1337 WPARAM16 wParam
, LPARAM lParam
)
1339 HWND16 hwndCtrl
= GetDlgItem16( hwnd
, id
);
1340 if (hwndCtrl
) return SendMessage16( hwndCtrl
, msg
, wParam
, lParam
);
1345 /*******************************************************************
1346 * SendDlgItemMessage32A (USER32.452)
1348 LRESULT WINAPI
SendDlgItemMessage32A( HWND32 hwnd
, INT32 id
, UINT32 msg
,
1349 WPARAM32 wParam
, LPARAM lParam
)
1351 HWND32 hwndCtrl
= GetDlgItem32( hwnd
, id
);
1352 if (hwndCtrl
) return SendMessage32A( hwndCtrl
, msg
, wParam
, lParam
);
1357 /*******************************************************************
1358 * SendDlgItemMessage32W (USER32.453)
1360 LRESULT WINAPI
SendDlgItemMessage32W( HWND32 hwnd
, INT32 id
, UINT32 msg
,
1361 WPARAM32 wParam
, LPARAM lParam
)
1363 HWND32 hwndCtrl
= GetDlgItem32( hwnd
, id
);
1364 if (hwndCtrl
) return SendMessage32W( hwndCtrl
, msg
, wParam
, lParam
);
1369 /*******************************************************************
1370 * SetDlgItemText16 (USER.92)
1372 void WINAPI
SetDlgItemText16( HWND16 hwnd
, INT16 id
, SEGPTR lpString
)
1374 SendDlgItemMessage16( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1378 /*******************************************************************
1379 * SetDlgItemText32A (USER32.478)
1381 BOOL32 WINAPI
SetDlgItemText32A( HWND32 hwnd
, INT32 id
, LPCSTR lpString
)
1383 return SendDlgItemMessage32A( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1387 /*******************************************************************
1388 * SetDlgItemText32W (USER32.479)
1390 BOOL32 WINAPI
SetDlgItemText32W( HWND32 hwnd
, INT32 id
, LPCWSTR lpString
)
1392 return SendDlgItemMessage32W( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)lpString
);
1396 /***********************************************************************
1397 * GetDlgItemText16 (USER.93)
1399 INT16 WINAPI
GetDlgItemText16( HWND16 hwnd
, INT16 id
, SEGPTR str
, UINT16 len
)
1401 return (INT16
)SendDlgItemMessage16( hwnd
, id
, WM_GETTEXT
,
1406 /***********************************************************************
1407 * GetDlgItemText32A (USER32.237)
1409 INT32 WINAPI
GetDlgItemText32A( HWND32 hwnd
, INT32 id
, LPSTR str
, UINT32 len
)
1411 return (INT32
)SendDlgItemMessage32A( hwnd
, id
, WM_GETTEXT
,
1416 /***********************************************************************
1417 * GetDlgItemText32W (USER32.238)
1419 INT32 WINAPI
GetDlgItemText32W( HWND32 hwnd
, INT32 id
, LPWSTR str
, UINT32 len
)
1421 return (INT32
)SendDlgItemMessage32W( hwnd
, id
, WM_GETTEXT
,
1426 /*******************************************************************
1427 * SetDlgItemInt16 (USER.94)
1429 void WINAPI
SetDlgItemInt16( HWND16 hwnd
, INT16 id
, UINT16 value
, BOOL16 fSigned
)
1431 return SetDlgItemInt32( hwnd
, (UINT32
)(UINT16
)id
, value
, fSigned
);
1435 /*******************************************************************
1436 * SetDlgItemInt32 (USER32.477)
1438 void WINAPI
SetDlgItemInt32( HWND32 hwnd
, INT32 id
, UINT32 value
,
1443 if (fSigned
) sprintf( str
, "%d", (INT32
)value
);
1444 else sprintf( str
, "%u", value
);
1445 SendDlgItemMessage32A( hwnd
, id
, WM_SETTEXT
, 0, (LPARAM
)str
);
1449 /***********************************************************************
1450 * GetDlgItemInt16 (USER.95)
1452 UINT16 WINAPI
GetDlgItemInt16( HWND16 hwnd
, INT16 id
, BOOL16
*translated
,
1458 if (translated
) *translated
= FALSE
;
1459 result
= GetDlgItemInt32( hwnd
, (UINT32
)(UINT16
)id
, &ok
, fSigned
);
1463 if (((INT32
)result
< -32767) || ((INT32
)result
> 32767)) return 0;
1467 if (result
> 65535) return 0;
1469 if (translated
) *translated
= TRUE
;
1470 return (UINT16
)result
;
1474 /***********************************************************************
1475 * GetDlgItemInt32 (USER32.236)
1477 UINT32 WINAPI
GetDlgItemInt32( HWND32 hwnd
, INT32 id
, BOOL32
*translated
,
1484 if (translated
) *translated
= FALSE
;
1485 if (!SendDlgItemMessage32A(hwnd
, id
, WM_GETTEXT
, sizeof(str
), (LPARAM
)str
))
1489 result
= strtol( str
, &endptr
, 10 );
1490 if (!endptr
|| (endptr
== str
)) /* Conversion was unsuccessful */
1492 if (((result
== LONG_MIN
) || (result
== LONG_MAX
)) && (errno
==ERANGE
))
1497 result
= strtoul( str
, &endptr
, 10 );
1498 if (!endptr
|| (endptr
== str
)) /* Conversion was unsuccessful */
1500 if ((result
== ULONG_MAX
) && (errno
== ERANGE
)) return 0;
1502 if (translated
) *translated
= TRUE
;
1503 return (UINT32
)result
;
1507 /***********************************************************************
1508 * CheckDlgButton16 (USER.97)
1510 BOOL16 WINAPI
CheckDlgButton16( HWND16 hwnd
, INT16 id
, UINT16 check
)
1512 SendDlgItemMessage32A( hwnd
, id
, BM_SETCHECK32
, check
, 0 );
1517 /***********************************************************************
1518 * CheckDlgButton32 (USER32.45)
1520 BOOL32 WINAPI
CheckDlgButton32( HWND32 hwnd
, INT32 id
, UINT32 check
)
1522 SendDlgItemMessage32A( hwnd
, id
, BM_SETCHECK32
, check
, 0 );
1527 /***********************************************************************
1528 * IsDlgButtonChecked16 (USER.98)
1530 UINT16 WINAPI
IsDlgButtonChecked16( HWND16 hwnd
, UINT16 id
)
1532 return (UINT16
)SendDlgItemMessage32A( hwnd
, id
, BM_GETCHECK32
, 0, 0 );
1536 /***********************************************************************
1537 * IsDlgButtonChecked32 (USER32.344)
1539 UINT32 WINAPI
IsDlgButtonChecked32( HWND32 hwnd
, UINT32 id
)
1541 return (UINT32
)SendDlgItemMessage32A( hwnd
, id
, BM_GETCHECK32
, 0, 0 );
1545 /***********************************************************************
1546 * CheckRadioButton16 (USER.96)
1548 BOOL16 WINAPI
CheckRadioButton16( HWND16 hwndDlg
, UINT16 firstID
,
1549 UINT16 lastID
, UINT16 checkID
)
1551 return CheckRadioButton32( hwndDlg
, firstID
, lastID
, checkID
);
1555 /***********************************************************************
1556 * CheckRadioButton32 (USER32.48)
1558 BOOL32 WINAPI
CheckRadioButton32( HWND32 hwndDlg
, UINT32 firstID
,
1559 UINT32 lastID
, UINT32 checkID
)
1561 WND
*pWnd
= WIN_FindWndPtr( hwndDlg
);
1562 if (!pWnd
) return FALSE
;
1564 for (pWnd
= pWnd
->child
; pWnd
; pWnd
= pWnd
->next
)
1565 if ((pWnd
->wIDmenu
== firstID
) || (pWnd
->wIDmenu
== lastID
)) break;
1566 if (!pWnd
) return FALSE
;
1568 if (pWnd
->wIDmenu
== lastID
)
1569 lastID
= firstID
; /* Buttons are in reverse order */
1572 SendMessage32A( pWnd
->hwndSelf
, BM_SETCHECK32
,
1573 (pWnd
->wIDmenu
== checkID
), 0 );
1574 if (pWnd
->wIDmenu
== lastID
) break;
1581 /***********************************************************************
1582 * GetDialogBaseUnits (USER.243) (USER32.233)
1584 DWORD WINAPI
GetDialogBaseUnits(void)
1586 return MAKELONG( xBaseUnit
, yBaseUnit
);
1590 /***********************************************************************
1591 * MapDialogRect16 (USER.103)
1593 void WINAPI
MapDialogRect16( HWND16 hwnd
, LPRECT16 rect
)
1595 DIALOGINFO
* dlgInfo
;
1596 WND
* wndPtr
= WIN_FindWndPtr( hwnd
);
1597 if (!wndPtr
) return;
1598 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
1599 rect
->left
= (rect
->left
* dlgInfo
->xBaseUnit
) / 4;
1600 rect
->right
= (rect
->right
* dlgInfo
->xBaseUnit
) / 4;
1601 rect
->top
= (rect
->top
* dlgInfo
->yBaseUnit
) / 8;
1602 rect
->bottom
= (rect
->bottom
* dlgInfo
->yBaseUnit
) / 8;
1606 /***********************************************************************
1607 * MapDialogRect32 (USER32.382)
1609 void WINAPI
MapDialogRect32( HWND32 hwnd
, LPRECT32 rect
)
1611 DIALOGINFO
* dlgInfo
;
1612 WND
* wndPtr
= WIN_FindWndPtr( hwnd
);
1613 if (!wndPtr
) return;
1614 dlgInfo
= (DIALOGINFO
*)wndPtr
->wExtra
;
1615 rect
->left
= (rect
->left
* dlgInfo
->xBaseUnit
) / 4;
1616 rect
->right
= (rect
->right
* dlgInfo
->xBaseUnit
) / 4;
1617 rect
->top
= (rect
->top
* dlgInfo
->yBaseUnit
) / 8;
1618 rect
->bottom
= (rect
->bottom
* dlgInfo
->yBaseUnit
) / 8;
1622 /***********************************************************************
1623 * GetNextDlgGroupItem16 (USER.227)
1625 HWND16 WINAPI
GetNextDlgGroupItem16( HWND16 hwndDlg
, HWND16 hwndCtrl
,
1628 return (HWND16
)GetNextDlgGroupItem32( hwndDlg
, hwndCtrl
, fPrevious
);
1632 /***********************************************************************
1633 * GetNextDlgGroupItem32 (USER32.275)
1635 HWND32 WINAPI
GetNextDlgGroupItem32( HWND32 hwndDlg
, HWND32 hwndCtrl
,
1638 WND
*pWnd
, *pWndLast
, *pWndCtrl
, *pWndDlg
;
1640 if (!(pWndDlg
= WIN_FindWndPtr( hwndDlg
))) return 0;
1643 if (!(pWndCtrl
= WIN_FindWndPtr( hwndCtrl
))) return 0;
1644 /* Make sure hwndCtrl is a top-level child */
1645 while ((pWndCtrl
->dwStyle
& WS_CHILD
) && (pWndCtrl
->parent
!= pWndDlg
))
1646 pWndCtrl
= pWndCtrl
->parent
;
1647 if (pWndCtrl
->parent
!= pWndDlg
) return 0;
1651 /* No ctrl specified -> start from the beginning */
1652 if (!(pWndCtrl
= pWndDlg
->child
)) return 0;
1653 if (fPrevious
) while (pWndCtrl
->next
) pWndCtrl
= pWndCtrl
->next
;
1656 pWndLast
= pWndCtrl
;
1657 pWnd
= pWndCtrl
->next
;
1660 if (!pWnd
|| (pWnd
->dwStyle
& WS_GROUP
))
1662 /* Wrap-around to the beginning of the group */
1663 WND
*pWndStart
= pWndDlg
->child
;
1664 for (pWnd
= pWndStart
; pWnd
; pWnd
= pWnd
->next
)
1666 if (pWnd
->dwStyle
& WS_GROUP
) pWndStart
= pWnd
;
1667 if (pWnd
== pWndCtrl
) break;
1671 if (pWnd
== pWndCtrl
) break;
1672 if ((pWnd
->dwStyle
& WS_VISIBLE
) && !(pWnd
->dwStyle
& WS_DISABLED
))
1675 if (!fPrevious
) break;
1679 return pWndLast
->hwndSelf
;
1683 /***********************************************************************
1684 * GetNextDlgTabItem16 (USER.228)
1686 HWND16 WINAPI
GetNextDlgTabItem16( HWND16 hwndDlg
, HWND16 hwndCtrl
,
1689 return (HWND16
)GetNextDlgTabItem32( hwndDlg
, hwndCtrl
, fPrevious
);
1693 /***********************************************************************
1694 * GetNextDlgTabItem32 (USER32.276)
1696 HWND32 WINAPI
GetNextDlgTabItem32( HWND32 hwndDlg
, HWND32 hwndCtrl
,
1699 WND
*pWnd
, *pWndLast
, *pWndCtrl
, *pWndDlg
;
1701 if (!(pWndDlg
= WIN_FindWndPtr( hwndDlg
))) return 0;
1704 if (!(pWndCtrl
= WIN_FindWndPtr( hwndCtrl
))) return 0;
1705 /* Make sure hwndCtrl is a top-level child */
1706 while ((pWndCtrl
->dwStyle
& WS_CHILD
) && (pWndCtrl
->parent
!= pWndDlg
))
1707 pWndCtrl
= pWndCtrl
->parent
;
1708 if (pWndCtrl
->parent
!= pWndDlg
) return 0;
1712 /* No ctrl specified -> start from the beginning */
1713 if (!(pWndCtrl
= pWndDlg
->child
)) return 0;
1714 if (!fPrevious
) while (pWndCtrl
->next
) pWndCtrl
= pWndCtrl
->next
;
1717 pWndLast
= pWndCtrl
;
1718 pWnd
= pWndCtrl
->next
;
1721 if (!pWnd
) pWnd
= pWndDlg
->child
;
1722 if (pWnd
== pWndCtrl
) break;
1723 if ((pWnd
->dwStyle
& WS_TABSTOP
) && (pWnd
->dwStyle
& WS_VISIBLE
) &&
1724 !(pWnd
->dwStyle
& WS_DISABLED
))
1727 if (!fPrevious
) break;
1731 return pWndLast
->hwndSelf
;
1735 /**********************************************************************
1736 * DIALOG_DlgDirSelect
1738 * Helper function for DlgDirSelect*
1740 static BOOL32
DIALOG_DlgDirSelect( HWND32 hwnd
, LPSTR str
, INT32 len
,
1741 INT32 id
, BOOL32 win32
, BOOL32 unicode
,
1747 HWND32 listbox
= GetDlgItem32( hwnd
, id
);
1749 TRACE(dialog
, "%04x '%s' %d\n", hwnd
, str
, id
);
1750 if (!listbox
) return FALSE
;
1753 item
= SendMessage32A(listbox
, combo
? CB_GETCURSEL32
1754 : LB_GETCURSEL32
, 0, 0 );
1755 if (item
== LB_ERR
) return FALSE
;
1756 size
= SendMessage32A(listbox
, combo
? CB_GETLBTEXTLEN32
1757 : LB_GETTEXTLEN32
, 0, 0 );
1758 if (size
== LB_ERR
) return FALSE
;
1762 item
= SendMessage32A(listbox
, combo
? CB_GETCURSEL16
1763 : LB_GETCURSEL16
, 0, 0 );
1764 if (item
== LB_ERR
) return FALSE
;
1765 size
= SendMessage32A(listbox
, combo
? CB_GETLBTEXTLEN16
1766 : LB_GETTEXTLEN16
, 0, 0 );
1767 if (size
== LB_ERR
) return FALSE
;
1770 if (!(buffer
= SEGPTR_ALLOC( size
+1 ))) return FALSE
;
1773 SendMessage32A( listbox
, combo
? CB_GETLBTEXT32
: LB_GETTEXT32
,
1774 item
, (LPARAM
)buffer
);
1776 SendMessage16( listbox
, combo
? CB_GETLBTEXT16
: LB_GETTEXT16
,
1777 item
, (LPARAM
)SEGPTR_GET(buffer
) );
1779 if ((ret
= (buffer
[0] == '['))) /* drive or directory */
1781 if (buffer
[1] == '-') /* drive */
1789 buffer
[strlen(buffer
)-1] = '\\';
1795 if (unicode
) lstrcpynAtoW( (LPWSTR
)str
, ptr
, len
);
1796 else lstrcpyn32A( str
, ptr
, len
);
1797 SEGPTR_FREE( buffer
);
1798 TRACE(dialog
, "Returning %d '%s'\n", ret
, str
);
1803 /**********************************************************************
1806 * Helper function for DlgDirList*
1808 static INT32
DIALOG_DlgDirList( HWND32 hDlg
, LPSTR spec
, INT32 idLBox
,
1809 INT32 idStatic
, UINT32 attrib
, BOOL32 combo
)
1813 LPSTR orig_spec
= spec
;
1815 #define SENDMSG(msg,wparam,lparam) \
1816 ((attrib & DDL_POSTMSGS) ? PostMessage32A( hwnd, msg, wparam, lparam ) \
1817 : SendMessage32A( hwnd, msg, wparam, lparam ))
1819 TRACE(dialog
, "%04x '%s' %d %d %04x\n",
1820 hDlg
, spec
? spec
: "NULL", idLBox
, idStatic
, attrib
);
1822 if (spec
&& spec
[0] && (spec
[1] == ':'))
1824 drive
= toupper( spec
[0] ) - 'A';
1826 if (!DRIVE_SetCurrentDrive( drive
)) return FALSE
;
1828 else drive
= DRIVE_GetCurrentDrive();
1830 /* If the path exists and is a directory, chdir to it */
1831 if (!spec
|| !spec
[0] || DRIVE_Chdir( drive
, spec
)) spec
= "*.*";
1836 if ((p2
= strrchr( p
, '\\' ))) p
= p2
;
1837 if ((p2
= strrchr( p
, '/' ))) p
= p2
;
1842 if (!DRIVE_Chdir( drive
, spec
))
1844 *p
= sep
; /* Restore the original spec */
1851 TRACE(dialog
, "path=%c:\\%s mask=%s\n",
1852 'A' + drive
, DRIVE_GetDosCwd(drive
), spec
);
1854 if (idLBox
&& ((hwnd
= GetDlgItem32( hDlg
, idLBox
)) != 0))
1856 SENDMSG( combo
? CB_RESETCONTENT32
: LB_RESETCONTENT32
, 0, 0 );
1857 if (attrib
& DDL_DIRECTORY
)
1859 if (!(attrib
& DDL_EXCLUSIVE
))
1861 if (SENDMSG( combo
? CB_DIR32
: LB_DIR32
,
1862 attrib
& ~(DDL_DIRECTORY
| DDL_DRIVES
),
1863 (LPARAM
)spec
) == LB_ERR
)
1866 if (SENDMSG( combo
? CB_DIR32
: LB_DIR32
,
1867 (attrib
& (DDL_DIRECTORY
| DDL_DRIVES
)) | DDL_EXCLUSIVE
,
1868 (LPARAM
)"*.*" ) == LB_ERR
)
1873 if (SENDMSG( combo
? CB_DIR32
: LB_DIR32
, attrib
,
1874 (LPARAM
)spec
) == LB_ERR
)
1879 if (idStatic
&& ((hwnd
= GetDlgItem32( hDlg
, idStatic
)) != 0))
1882 int drive
= DRIVE_GetCurrentDrive();
1883 strcpy( temp
, "A:\\" );
1885 lstrcpyn32A( temp
+ 3, DRIVE_GetDosCwd(drive
), sizeof(temp
)-3 );
1886 CharLower32A( temp
);
1887 /* Can't use PostMessage() here, because the string is on the stack */
1888 SetDlgItemText32A( hDlg
, idStatic
, temp
);
1891 if (orig_spec
&& (spec
!= orig_spec
))
1893 /* Update the original file spec */
1895 while ((*orig_spec
++ = *p
++));
1903 /**********************************************************************
1904 * DIALOG_DlgDirListW
1906 * Helper function for DlgDirList*32W
1908 static INT32
DIALOG_DlgDirListW( HWND32 hDlg
, LPWSTR spec
, INT32 idLBox
,
1909 INT32 idStatic
, UINT32 attrib
, BOOL32 combo
)
1913 LPSTR specA
= HEAP_strdupWtoA( GetProcessHeap(), 0, spec
);
1914 INT32 ret
= DIALOG_DlgDirList( hDlg
, specA
, idLBox
, idStatic
,
1916 lstrcpyAtoW( spec
, specA
);
1917 HeapFree( GetProcessHeap(), 0, specA
);
1920 return DIALOG_DlgDirList( hDlg
, NULL
, idLBox
, idStatic
, attrib
, combo
);
1924 /**********************************************************************
1925 * DlgDirSelect (USER.99)
1927 BOOL16 WINAPI
DlgDirSelect( HWND16 hwnd
, LPSTR str
, INT16 id
)
1929 return DlgDirSelectEx16( hwnd
, str
, 128, id
);
1933 /**********************************************************************
1934 * DlgDirSelectComboBox (USER.194)
1936 BOOL16 WINAPI
DlgDirSelectComboBox( HWND16 hwnd
, LPSTR str
, INT16 id
)
1938 return DlgDirSelectComboBoxEx16( hwnd
, str
, 128, id
);
1942 /**********************************************************************
1943 * DlgDirSelectEx16 (USER.422)
1945 BOOL16 WINAPI
DlgDirSelectEx16( HWND16 hwnd
, LPSTR str
, INT16 len
, INT16 id
)
1947 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, FALSE
, FALSE
, FALSE
);
1951 /**********************************************************************
1952 * DlgDirSelectEx32A (USER32.149)
1954 BOOL32 WINAPI
DlgDirSelectEx32A( HWND32 hwnd
, LPSTR str
, INT32 len
, INT32 id
)
1956 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, TRUE
, FALSE
, FALSE
);
1960 /**********************************************************************
1961 * DlgDirSelectEx32W (USER32.150)
1963 BOOL32 WINAPI
DlgDirSelectEx32W( HWND32 hwnd
, LPWSTR str
, INT32 len
, INT32 id
)
1965 return DIALOG_DlgDirSelect( hwnd
, (LPSTR
)str
, len
, id
, TRUE
, TRUE
, FALSE
);
1969 /**********************************************************************
1970 * DlgDirSelectComboBoxEx16 (USER.423)
1972 BOOL16 WINAPI
DlgDirSelectComboBoxEx16( HWND16 hwnd
, LPSTR str
, INT16 len
,
1975 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, FALSE
, FALSE
, TRUE
);
1979 /**********************************************************************
1980 * DlgDirSelectComboBoxEx32A (USER32.147)
1982 BOOL32 WINAPI
DlgDirSelectComboBoxEx32A( HWND32 hwnd
, LPSTR str
, INT32 len
,
1985 return DIALOG_DlgDirSelect( hwnd
, str
, len
, id
, TRUE
, FALSE
, TRUE
);
1989 /**********************************************************************
1990 * DlgDirSelectComboBoxEx32W (USER32.148)
1992 BOOL32 WINAPI
DlgDirSelectComboBoxEx32W( HWND32 hwnd
, LPWSTR str
, INT32 len
,
1995 return DIALOG_DlgDirSelect( hwnd
, (LPSTR
)str
, len
, id
, TRUE
, TRUE
, TRUE
);
1999 /**********************************************************************
2000 * DlgDirList16 (USER.100)
2002 INT16 WINAPI
DlgDirList16( HWND16 hDlg
, LPSTR spec
, INT16 idLBox
,
2003 INT16 idStatic
, UINT16 attrib
)
2005 return DIALOG_DlgDirList( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2009 /**********************************************************************
2010 * DlgDirList32A (USER32.143)
2012 INT32 WINAPI
DlgDirList32A( HWND32 hDlg
, LPSTR spec
, INT32 idLBox
,
2013 INT32 idStatic
, UINT32 attrib
)
2015 return DIALOG_DlgDirList( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2019 /**********************************************************************
2020 * DlgDirList32W (USER32.146)
2022 INT32 WINAPI
DlgDirList32W( HWND32 hDlg
, LPWSTR spec
, INT32 idLBox
,
2023 INT32 idStatic
, UINT32 attrib
)
2025 return DIALOG_DlgDirListW( hDlg
, spec
, idLBox
, idStatic
, attrib
, FALSE
);
2029 /**********************************************************************
2030 * DlgDirListComboBox16 (USER.195)
2032 INT16 WINAPI
DlgDirListComboBox16( HWND16 hDlg
, LPSTR spec
, INT16 idCBox
,
2033 INT16 idStatic
, UINT16 attrib
)
2035 return DIALOG_DlgDirList( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);
2039 /**********************************************************************
2040 * DlgDirListComboBox32A (USER32.144)
2042 INT32 WINAPI
DlgDirListComboBox32A( HWND32 hDlg
, LPSTR spec
, INT32 idCBox
,
2043 INT32 idStatic
, UINT32 attrib
)
2045 return DIALOG_DlgDirList( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);
2049 /**********************************************************************
2050 * DlgDirListComboBox32W (USER32.145)
2052 INT32 WINAPI
DlgDirListComboBox32W( HWND32 hDlg
, LPWSTR spec
, INT32 idCBox
,
2053 INT32 idStatic
, UINT32 attrib
)
2055 return DIALOG_DlgDirListW( hDlg
, spec
, idCBox
, idStatic
, attrib
, TRUE
);