/* * Dialog functions * * Copyright 1993, 1994, 1996 Alexandre Julliard * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "config.h" #include "wine/port.h" #include #include #include #include #include #include #include #include "windef.h" #include "winbase.h" #include "wingdi.h" #include "winuser.h" #include "winnls.h" #include "wine/winuser16.h" #include "wine/unicode.h" #include "controls.h" #include "win.h" #include "user.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(dialog); /* Dialog control information */ typedef struct { DWORD style; DWORD exStyle; DWORD helpId; INT16 x; INT16 y; INT16 cx; INT16 cy; UINT id; LPCWSTR className; LPCWSTR windowName; LPCVOID data; } DLG_CONTROL_INFO; /* Dialog template */ typedef struct { DWORD style; DWORD exStyle; DWORD helpId; UINT16 nbItems; INT16 x; INT16 y; INT16 cx; INT16 cy; LPCWSTR menuName; LPCWSTR className; LPCWSTR caption; INT16 pointSize; WORD weight; BOOL italic; LPCWSTR faceName; BOOL dialogEx; } DLG_TEMPLATE; /* Radio button group */ typedef struct { UINT firstID; UINT lastID; UINT checkID; } RADIOGROUP; /********************************************************************* * dialog class descriptor */ const struct builtin_class_descr DIALOG_builtin_class = { DIALOG_CLASS_ATOMA, /* name */ CS_SAVEBITS | CS_DBLCLKS, /* style */ DefDlgProcA, /* procA */ DefDlgProcW, /* procW */ DLGWINDOWEXTRA, /* extra */ IDC_ARROW, /* cursor */ 0 /* brush */ }; /*********************************************************************** * DIALOG_EnableOwner * * Helper function for modal dialogs to enable again the * owner of the dialog box. */ void DIALOG_EnableOwner( HWND hOwner ) { /* Owner must be a top-level window */ if (hOwner) hOwner = GetAncestor( hOwner, GA_ROOT ); if (!hOwner) return; EnableWindow( hOwner, TRUE ); } /*********************************************************************** * DIALOG_DisableOwner * * Helper function for modal dialogs to disable the * owner of the dialog box. Returns TRUE if owner was enabled. */ BOOL DIALOG_DisableOwner( HWND hOwner ) { /* Owner must be a top-level window */ if (hOwner) hOwner = GetAncestor( hOwner, GA_ROOT ); if (!hOwner) return FALSE; if (IsWindowEnabled( hOwner )) { EnableWindow( hOwner, FALSE ); return TRUE; } else return FALSE; } /*********************************************************************** * DIALOG_GetCharSize * * Despite most of MSDN insisting that the horizontal base unit is * tmAveCharWidth it isn't. Knowledge base article Q145994 * "HOWTO: Calculate Dialog Units When Not Using the System Font", * says that we should take the average of the 52 English upper and lower * case characters. */ BOOL DIALOG_GetCharSize( HDC hDC, HFONT hFont, SIZE * pSize ) { HFONT hFontPrev = 0; const char *alphabet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; SIZE sz; TEXTMETRICA tm; if(!hDC) return FALSE; if(hFont) hFontPrev = SelectObject(hDC, hFont); if(!GetTextMetricsA(hDC, &tm)) return FALSE; if(!GetTextExtentPointA(hDC, alphabet, 52, &sz)) return FALSE; pSize->cy = tm.tmHeight; pSize->cx = (sz.cx / 26 + 1) / 2; if (hFontPrev) SelectObject(hDC, hFontPrev); TRACE("dlg base units: %ld x %ld\n", pSize->cx, pSize->cy); return TRUE; } /*********************************************************************** * DIALOG_GetControl32 * * Return the class and text of the control pointed to by ptr, * fill the header structure and return a pointer to the next control. */ static const WORD *DIALOG_GetControl32( const WORD *p, DLG_CONTROL_INFO *info, BOOL dialogEx ) { if (dialogEx) { info->helpId = GET_DWORD(p); p += 2; info->exStyle = GET_DWORD(p); p += 2; info->style = GET_DWORD(p); p += 2; } else { info->helpId = 0; info->style = GET_DWORD(p); p += 2; info->exStyle = GET_DWORD(p); p += 2; } info->x = GET_WORD(p); p++; info->y = GET_WORD(p); p++; info->cx = GET_WORD(p); p++; info->cy = GET_WORD(p); p++; if (dialogEx) { /* id is a DWORD for DIALOGEX */ info->id = GET_DWORD(p); p += 2; } else { info->id = GET_WORD(p); p++; } if (GET_WORD(p) == 0xffff) { static const WCHAR class_names[6][10] = { { 'B','u','t','t','o','n', }, /* 0x80 */ { 'E','d','i','t', }, /* 0x81 */ { 'S','t','a','t','i','c', }, /* 0x82 */ { 'L','i','s','t','B','o','x', }, /* 0x83 */ { 'S','c','r','o','l','l','B','a','r', }, /* 0x84 */ { 'C','o','m','b','o','B','o','x', } /* 0x85 */ }; WORD id = GET_WORD(p+1); /* Windows treats dialog control class ids 0-5 same way as 0x80-0x85 */ if ((id >= 0x80) && (id <= 0x85)) id -= 0x80; if (id <= 5) info->className = class_names[id]; else { info->className = NULL; ERR("Unknown built-in class id %04x\n", id ); } p += 2; } else { info->className = (LPCWSTR)p; p += strlenW( info->className ) + 1; } if (GET_WORD(p) == 0xffff) /* Is it an integer id? */ { info->windowName = (LPCWSTR)(UINT)GET_WORD(p + 1); p += 2; } else { info->windowName = (LPCWSTR)p; p += strlenW( info->windowName ) + 1; } TRACE(" %s %s %d, %d, %d, %d, %d, %08lx, %08lx, %08lx\n", debugstr_w( info->className ), debugstr_w( info->windowName ), info->id, info->x, info->y, info->cx, info->cy, info->style, info->exStyle, info->helpId ); if (GET_WORD(p)) { if (TRACE_ON(dialog)) { WORD i, count = GET_WORD(p) / sizeof(WORD); TRACE(" BEGIN\n"); TRACE(" "); for (i = 0; i < count; i++) TRACE( "%04x,", GET_WORD(p+i+1) ); TRACE("\n"); TRACE(" END\n" ); } info->data = p + 1; p += GET_WORD(p) / sizeof(WORD); } else info->data = NULL; p++; /* Next control is on dword boundary */ return (const WORD *)((((int)p) + 3) & ~3); } /*********************************************************************** * DIALOG_CreateControls32 * * Create the control windows for a dialog. */ static BOOL DIALOG_CreateControls32( HWND hwnd, LPCSTR template, const DLG_TEMPLATE *dlgTemplate, HINSTANCE hInst, BOOL unicode ) { DIALOGINFO *dlgInfo = DIALOG_get_info( hwnd ); DLG_CONTROL_INFO info; HWND hwndCtrl, hwndDefButton = 0; INT items = dlgTemplate->nbItems; TRACE(" BEGIN\n" ); while (items--) { template = (LPCSTR)DIALOG_GetControl32( (WORD *)template, &info, dlgTemplate->dialogEx ); /* Is this it? */ if (info.style & WS_BORDER) { info.style &= ~WS_BORDER; info.exStyle |= WS_EX_CLIENTEDGE; } if (unicode) { hwndCtrl = CreateWindowExW( info.exStyle | WS_EX_NOPARENTNOTIFY, info.className, info.windowName, info.style | WS_CHILD, MulDiv(info.x, dlgInfo->xBaseUnit, 4), MulDiv(info.y, dlgInfo->yBaseUnit, 8), MulDiv(info.cx, dlgInfo->xBaseUnit, 4), MulDiv(info.cy, dlgInfo->yBaseUnit, 8), hwnd, (HMENU)info.id, hInst, (LPVOID)info.data ); } else { LPSTR class = (LPSTR)info.className; LPSTR caption = (LPSTR)info.windowName; if (HIWORD(class)) { DWORD len = WideCharToMultiByte( CP_ACP, 0, info.className, -1, NULL, 0, NULL, NULL ); class = HeapAlloc( GetProcessHeap(), 0, len ); WideCharToMultiByte( CP_ACP, 0, info.className, -1, class, len, NULL, NULL ); } if (HIWORD(caption)) { DWORD len = WideCharToMultiByte( CP_ACP, 0, info.windowName, -1, NULL, 0, NULL, NULL ); caption = HeapAlloc( GetProcessHeap(), 0, len ); WideCharToMultiByte( CP_ACP, 0, info.windowName, -1, caption, len, NULL, NULL ); } hwndCtrl = CreateWindowExA( info.exStyle | WS_EX_NOPARENTNOTIFY, class, caption, info.style | WS_CHILD, MulDiv(info.x, dlgInfo->xBaseUnit, 4), MulDiv(info.y, dlgInfo->yBaseUnit, 8), MulDiv(info.cx, dlgInfo->xBaseUnit, 4), MulDiv(info.cy, dlgInfo->yBaseUnit, 8), hwnd, (HMENU)info.id, hInst, (LPVOID)info.data ); if (HIWORD(class)) HeapFree( GetProcessHeap(), 0, class ); if (HIWORD(caption)) HeapFree( GetProcessHeap(), 0, caption ); } if (!hwndCtrl) { if (dlgTemplate->style & DS_NOFAILCREATE) continue; return FALSE; } /* Send initialisation messages to the control */ if (dlgInfo->hUserFont) SendMessageA( hwndCtrl, WM_SETFONT, (WPARAM)dlgInfo->hUserFont, 0 ); if (SendMessageA(hwndCtrl, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON) { /* If there's already a default push-button, set it back */ /* to normal and use this one instead. */ if (hwndDefButton) SendMessageA( hwndDefButton, BM_SETSTYLE, BS_PUSHBUTTON, FALSE ); hwndDefButton = hwndCtrl; dlgInfo->idResult = GetWindowLongA( hwndCtrl, GWL_ID ); } } TRACE(" END\n" ); return TRUE; } /*********************************************************************** * DIALOG_ParseTemplate32 * * Fill a DLG_TEMPLATE structure from the dialog template, and return * a pointer to the first control. */ static LPCSTR DIALOG_ParseTemplate32( LPCSTR template, DLG_TEMPLATE * result ) { const WORD *p = (const WORD *)template; result->style = GET_DWORD(p); p += 2; if (result->style == 0xffff0001) /* DIALOGEX resource */ { result->dialogEx = TRUE; result->helpId = GET_DWORD(p); p += 2; result->exStyle = GET_DWORD(p); p += 2; result->style = GET_DWORD(p); p += 2; } else { result->dialogEx = FALSE; result->helpId = 0; result->exStyle = GET_DWORD(p); p += 2; } result->nbItems = GET_WORD(p); p++; result->x = GET_WORD(p); p++; result->y = GET_WORD(p); p++; result->cx = GET_WORD(p); p++; result->cy = GET_WORD(p); p++; TRACE("DIALOG%s %d, %d, %d, %d, %ld\n", result->dialogEx ? "EX" : "", result->x, result->y, result->cx, result->cy, result->helpId ); TRACE(" STYLE 0x%08lx\n", result->style ); TRACE(" EXSTYLE 0x%08lx\n", result->exStyle ); /* Get the menu name */ switch(GET_WORD(p)) { case 0x0000: result->menuName = NULL; p++; break; case 0xffff: result->menuName = (LPCWSTR)(UINT)GET_WORD( p + 1 ); p += 2; TRACE(" MENU %04x\n", LOWORD(result->menuName) ); break; default: result->menuName = (LPCWSTR)p; TRACE(" MENU %s\n", debugstr_w(result->menuName) ); p += strlenW( result->menuName ) + 1; break; } /* Get the class name */ switch(GET_WORD(p)) { case 0x0000: result->className = DIALOG_CLASS_ATOMW; p++; break; case 0xffff: result->className = (LPCWSTR)(UINT)GET_WORD( p + 1 ); p += 2; TRACE(" CLASS %04x\n", LOWORD(result->className) ); break; default: result->className = (LPCWSTR)p; TRACE(" CLASS %s\n", debugstr_w( result->className )); p += strlenW( result->className ) + 1; break; } /* Get the window caption */ result->caption = (LPCWSTR)p; p += strlenW( result->caption ) + 1; TRACE(" CAPTION %s\n", debugstr_w( result->caption ) ); /* Get the font name */ if (result->style & DS_SETFONT) { result->pointSize = GET_WORD(p); p++; if (result->dialogEx) { result->weight = GET_WORD(p); p++; result->italic = LOBYTE(GET_WORD(p)); p++; } else { result->weight = FW_DONTCARE; result->italic = FALSE; } result->faceName = (LPCWSTR)p; p += strlenW( result->faceName ) + 1; TRACE(" FONT %d, %s, %d, %s\n", result->pointSize, debugstr_w( result->faceName ), result->weight, result->italic ? "TRUE" : "FALSE" ); } /* First control is on dword boundary */ return (LPCSTR)((((int)p) + 3) & ~3); } /*********************************************************************** * DIALOG_CreateIndirect * Creates a dialog box window * * modal = TRUE if we are called from a modal dialog box. * (it's more compatible to do it here, as under Windows the owner * is never disabled if the dialog fails because of an invalid template) */ static HWND DIALOG_CreateIndirect( HINSTANCE hInst, LPCVOID dlgTemplate, HWND owner, DLGPROC dlgProc, LPARAM param, BOOL unicode, BOOL modal ) { HWND hwnd; RECT rect; WND * wndPtr; DLG_TEMPLATE template; DIALOGINFO * dlgInfo; DWORD units = GetDialogBaseUnits(); BOOL ownerEnabled = TRUE; /* Parse dialog template */ if (!dlgTemplate) return 0; dlgTemplate = DIALOG_ParseTemplate32( dlgTemplate, &template ); /* Initialise dialog extra data */ if (!(dlgInfo = HeapAlloc( GetProcessHeap(), 0, sizeof(*dlgInfo) ))) return 0; dlgInfo->hwndFocus = 0; dlgInfo->hUserFont = 0; dlgInfo->hMenu = 0; dlgInfo->xBaseUnit = LOWORD(units); dlgInfo->yBaseUnit = HIWORD(units); dlgInfo->idResult = 0; dlgInfo->flags = 0; dlgInfo->hDialogHeap = 0; /* Load menu */ if (template.menuName) dlgInfo->hMenu = LoadMenuW( hInst, template.menuName ); /* Create custom font if needed */ if (template.style & DS_SETFONT) { /* We convert the size to pixels and then make it -ve. This works * for both +ve and -ve template.pointSize */ HDC dc; int pixels; dc = GetDC(0); pixels = MulDiv(template.pointSize, GetDeviceCaps(dc , LOGPIXELSY), 72); dlgInfo->hUserFont = CreateFontW( -pixels, 0, 0, 0, template.weight, template.italic, FALSE, FALSE, DEFAULT_CHARSET, 0, 0, PROOF_QUALITY, FF_DONTCARE, template.faceName ); if (dlgInfo->hUserFont) { SIZE charSize; if (DIALOG_GetCharSize( dc, dlgInfo->hUserFont, &charSize )) { dlgInfo->xBaseUnit = charSize.cx; dlgInfo->yBaseUnit = charSize.cy; } } ReleaseDC(0, dc); TRACE("units = %d,%d\n", dlgInfo->xBaseUnit, dlgInfo->yBaseUnit ); } /* Create dialog main window */ rect.left = rect.top = 0; rect.right = MulDiv(template.cx, dlgInfo->xBaseUnit, 4); rect.bottom = MulDiv(template.cy, dlgInfo->yBaseUnit, 8); if (template.style & WS_CHILD) template.style &= ~(WS_CAPTION|WS_SYSMENU); if (template.style & DS_MODALFRAME) template.exStyle |= WS_EX_DLGMODALFRAME; AdjustWindowRectEx( &rect, template.style, (dlgInfo->hMenu != 0), template.exStyle ); rect.right -= rect.left; rect.bottom -= rect.top; if (template.x == CW_USEDEFAULT16) { rect.left = rect.top = CW_USEDEFAULT; } else { if (template.style & DS_CENTER) { rect.left = (GetSystemMetrics(SM_CXSCREEN) - rect.right) / 2; rect.top = (GetSystemMetrics(SM_CYSCREEN) - rect.bottom) / 2; } else { rect.left += MulDiv(template.x, dlgInfo->xBaseUnit, 4); rect.top += MulDiv(template.y, dlgInfo->yBaseUnit, 8); } if ( !(template.style & WS_CHILD) ) { INT dX, dY; if( !(template.style & DS_ABSALIGN) ) ClientToScreen( owner, (POINT *)&rect ); /* try to fit it into the desktop */ if( (dX = rect.left + rect.right + GetSystemMetrics(SM_CXDLGFRAME) - GetSystemMetrics(SM_CXSCREEN)) > 0 ) rect.left -= dX; if( (dY = rect.top + rect.bottom + GetSystemMetrics(SM_CYDLGFRAME) - GetSystemMetrics(SM_CYSCREEN)) > 0 ) rect.top -= dY; if( rect.left < 0 ) rect.left = 0; if( rect.top < 0 ) rect.top = 0; } } if (modal) { ownerEnabled = DIALOG_DisableOwner( owner ); if (ownerEnabled) dlgInfo->flags |= DF_OWNERENABLED; } if (unicode) { hwnd = CreateWindowExW(template.exStyle, template.className, template.caption, template.style & ~WS_VISIBLE, rect.left, rect.top, rect.right, rect.bottom, owner, dlgInfo->hMenu, hInst, NULL ); } else { LPSTR class = (LPSTR)template.className; LPSTR caption = (LPSTR)template.caption; if (HIWORD(class)) { DWORD len = WideCharToMultiByte( CP_ACP, 0, template.className, -1, NULL, 0, NULL, NULL ); class = HeapAlloc( GetProcessHeap(), 0, len ); WideCharToMultiByte( CP_ACP, 0, template.className, -1, class, len, NULL, NULL ); } if (HIWORD(caption)) { DWORD len = WideCharToMultiByte( CP_ACP, 0, template.caption, -1, NULL, 0, NULL, NULL ); caption = HeapAlloc( GetProcessHeap(), 0, len ); WideCharToMultiByte( CP_ACP, 0, template.caption, -1, caption, len, NULL, NULL ); } hwnd = CreateWindowExA(template.exStyle, class, caption, template.style & ~WS_VISIBLE, rect.left, rect.top, rect.right, rect.bottom, owner, dlgInfo->hMenu, hInst, NULL ); if (HIWORD(class)) HeapFree( GetProcessHeap(), 0, class ); if (HIWORD(caption)) HeapFree( GetProcessHeap(), 0, caption ); } if (!hwnd) { if (dlgInfo->hUserFont) DeleteObject( dlgInfo->hUserFont ); if (dlgInfo->hMenu) DestroyMenu( dlgInfo->hMenu ); if (modal && (dlgInfo->flags & DF_OWNERENABLED)) DIALOG_EnableOwner(owner); HeapFree( GetProcessHeap(), 0, dlgInfo ); return 0; } wndPtr = WIN_GetPtr( hwnd ); wndPtr->flags |= WIN_ISDIALOG; WIN_ReleasePtr( wndPtr ); if (template.helpId) SetWindowContextHelpId( hwnd, template.helpId ); SetWindowLongW( hwnd, DWL_WINE_DIALOGINFO, (LONG)dlgInfo ); if (unicode) SetWindowLongW( hwnd, DWL_DLGPROC, (LONG)dlgProc ); else SetWindowLongA( hwnd, DWL_DLGPROC, (LONG)dlgProc ); if (dlgInfo->hUserFont) SendMessageA( hwnd, WM_SETFONT, (WPARAM)dlgInfo->hUserFont, 0 ); /* Create controls */ if (DIALOG_CreateControls32( hwnd, dlgTemplate, &template, hInst, unicode )) { HWND hwndPreInitFocus; /* Send initialisation messages and set focus */ dlgInfo->hwndFocus = GetNextDlgTabItem( hwnd, 0, FALSE ); hwndPreInitFocus = GetFocus(); if (SendMessageA( hwnd, WM_INITDIALOG, (WPARAM)dlgInfo->hwndFocus, param )) { /* check where the focus is again, * some controls status might have changed in WM_INITDIALOG */ dlgInfo->hwndFocus = GetNextDlgTabItem( hwnd, 0, FALSE); if( dlgInfo->hwndFocus ) SetFocus( dlgInfo->hwndFocus ); } else { /* If the dlgproc has returned FALSE (indicating handling of keyboard focus) but the focus has not changed, set the focus where we expect it. */ if ((GetFocus() == hwndPreInitFocus) && (GetWindowLongW( hwnd, GWL_STYLE ) & WS_VISIBLE)) { dlgInfo->hwndFocus = GetNextDlgTabItem( hwnd, 0, FALSE); if( dlgInfo->hwndFocus ) SetFocus( dlgInfo->hwndFocus ); } } if (template.style & WS_VISIBLE && !(GetWindowLongW( hwnd, GWL_STYLE ) & WS_VISIBLE)) { ShowWindow( hwnd, SW_SHOWNORMAL ); /* SW_SHOW doesn't always work */ } return hwnd; } if( IsWindow(hwnd) ) DestroyWindow( hwnd ); if (modal && ownerEnabled) DIALOG_EnableOwner(owner); return 0; } /*********************************************************************** * CreateDialogParamA (USER32.@) */ HWND WINAPI CreateDialogParamA( HINSTANCE hInst, LPCSTR name, HWND owner, DLGPROC dlgProc, LPARAM param ) { HRSRC hrsrc; LPCDLGTEMPLATEA ptr; if (!(hrsrc = FindResourceA( hInst, name, (LPSTR)RT_DIALOG ))) return 0; if (!(ptr = (LPCDLGTEMPLATEA)LoadResource(hInst, hrsrc))) return 0; return CreateDialogIndirectParamA( hInst, ptr, owner, dlgProc, param ); } /*********************************************************************** * CreateDialogParamW (USER32.@) */ HWND WINAPI CreateDialogParamW( HINSTANCE hInst, LPCWSTR name, HWND owner, DLGPROC dlgProc, LPARAM param ) { HRSRC hrsrc; LPCDLGTEMPLATEA ptr; if (!(hrsrc = FindResourceW( hInst, name, (LPWSTR)RT_DIALOG ))) return 0; if (!(ptr = (LPCDLGTEMPLATEW)LoadResource(hInst, hrsrc))) return 0; return CreateDialogIndirectParamW( hInst, ptr, owner, dlgProc, param ); } /*********************************************************************** * CreateDialogIndirectParamAorW (USER32.@) */ HWND WINAPI CreateDialogIndirectParamAorW( HINSTANCE hInst, LPCVOID dlgTemplate, HWND owner, DLGPROC dlgProc, LPARAM param, DWORD flags ) { return DIALOG_CreateIndirect( hInst, dlgTemplate, owner, dlgProc, param, !flags, FALSE ); } /*********************************************************************** * CreateDialogIndirectParamA (USER32.@) */ HWND WINAPI CreateDialogIndirectParamA( HINSTANCE hInst, LPCDLGTEMPLATEA dlgTemplate, HWND owner, DLGPROC dlgProc, LPARAM param ) { return CreateDialogIndirectParamAorW( hInst, dlgTemplate, owner, dlgProc, param, 2 ); } /*********************************************************************** * CreateDialogIndirectParamW (USER32.@) */ HWND WINAPI CreateDialogIndirectParamW( HINSTANCE hInst, LPCDLGTEMPLATEW dlgTemplate, HWND owner, DLGPROC dlgProc, LPARAM param ) { return CreateDialogIndirectParamAorW( hInst, dlgTemplate, owner, dlgProc, param, 0 ); } /*********************************************************************** * DIALOG_DoDialogBox */ INT DIALOG_DoDialogBox( HWND hwnd, HWND owner ) { DIALOGINFO * dlgInfo; MSG msg; INT retval; HWND ownerMsg = GetAncestor( owner, GA_ROOT ); if (!(dlgInfo = DIALOG_get_info( hwnd ))) return -1; if (!(dlgInfo->flags & DF_END)) /* was EndDialog called in WM_INITDIALOG ? */ { ShowWindow( hwnd, SW_SHOW ); for (;;) { if (!(GetWindowLongW( hwnd, GWL_STYLE ) & DS_NOIDLEMSG)) { if (!PeekMessageW( &msg, 0, 0, 0, PM_REMOVE )) { /* No message present -> send ENTERIDLE and wait */ SendMessageW( ownerMsg, WM_ENTERIDLE, MSGF_DIALOGBOX, (LPARAM)hwnd ); if (!GetMessageW( &msg, 0, 0, 0 )) break; } } else if (!GetMessageW( &msg, 0, 0, 0 )) break; if (!IsWindow( hwnd )) return -1; if (!(dlgInfo->flags & DF_END) && !IsDialogMessageW( hwnd, &msg)) { TranslateMessage( &msg ); DispatchMessageW( &msg ); } if (dlgInfo->flags & DF_END) break; } } if (dlgInfo->flags & DF_OWNERENABLED) DIALOG_EnableOwner( owner ); retval = dlgInfo->idResult; DestroyWindow( hwnd ); return retval; } /*********************************************************************** * DialogBoxParamA (USER32.@) */ INT_PTR WINAPI DialogBoxParamA( HINSTANCE hInst, LPCSTR name, HWND owner, DLGPROC dlgProc, LPARAM param ) { HWND hwnd; HRSRC hrsrc; LPCDLGTEMPLATEA ptr; if (!(hrsrc = FindResourceA( hInst, name, (LPSTR)RT_DIALOG ))) return 0; if (!(ptr = (LPCDLGTEMPLATEA)LoadResource(hInst, hrsrc))) return 0; hwnd = DIALOG_CreateIndirect( hInst, ptr, owner, dlgProc, param, FALSE, TRUE ); if (hwnd) return DIALOG_DoDialogBox( hwnd, owner ); return -1; } /*********************************************************************** * DialogBoxParamW (USER32.@) */ INT_PTR WINAPI DialogBoxParamW( HINSTANCE hInst, LPCWSTR name, HWND owner, DLGPROC dlgProc, LPARAM param ) { HWND hwnd; HRSRC hrsrc; LPCDLGTEMPLATEW ptr; if (!(hrsrc = FindResourceW( hInst, name, (LPWSTR)RT_DIALOG ))) return 0; if (!(ptr = (LPCDLGTEMPLATEW)LoadResource(hInst, hrsrc))) return 0; hwnd = DIALOG_CreateIndirect( hInst, ptr, owner, dlgProc, param, TRUE, TRUE ); if (hwnd) return DIALOG_DoDialogBox( hwnd, owner ); return -1; } /*********************************************************************** * DialogBoxIndirectParamAorW (USER32.@) */ INT_PTR WINAPI DialogBoxIndirectParamAorW( HINSTANCE hInstance, LPCVOID template, HWND owner, DLGPROC dlgProc, LPARAM param, DWORD flags ) { HWND hwnd = DIALOG_CreateIndirect( hInstance, template, owner, dlgProc, param, !flags, TRUE ); if (hwnd) return DIALOG_DoDialogBox( hwnd, owner ); return -1; } /*********************************************************************** * DialogBoxIndirectParamA (USER32.@) */ INT_PTR WINAPI DialogBoxIndirectParamA(HINSTANCE hInstance, LPCDLGTEMPLATEA template, HWND owner, DLGPROC dlgProc, LPARAM param ) { return DialogBoxIndirectParamAorW( hInstance, template, owner, dlgProc, param, 2 ); } /*********************************************************************** * DialogBoxIndirectParamW (USER32.@) */ INT_PTR WINAPI DialogBoxIndirectParamW(HINSTANCE hInstance, LPCDLGTEMPLATEW template, HWND owner, DLGPROC dlgProc, LPARAM param ) { return DialogBoxIndirectParamAorW( hInstance, template, owner, dlgProc, param, 0 ); } /*********************************************************************** * EndDialog (USER32.@) */ BOOL WINAPI EndDialog( HWND hwnd, INT_PTR retval ) { BOOL wasEnabled = TRUE; DIALOGINFO * dlgInfo; HWND owner; TRACE("%p %d\n", hwnd, retval ); if (!(dlgInfo = DIALOG_get_info( hwnd ))) { ERR("got invalid window handle (%p); buggy app !?\n", hwnd); return FALSE; } dlgInfo->idResult = retval; dlgInfo->flags |= DF_END; wasEnabled = (dlgInfo->flags & DF_OWNERENABLED); if (wasEnabled && (owner = GetWindow( hwnd, GW_OWNER ))) DIALOG_EnableOwner( owner ); /* Windows sets the focus to the dialog itself in EndDialog */ if (IsChild(hwnd, GetFocus())) SetFocus( hwnd ); /* Don't have to send a ShowWindow(SW_HIDE), just do SetWindowPos with SWP_HIDEWINDOW as done in Windows */ SetWindowPos(hwnd, NULL, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_HIDEWINDOW); /* unblock dialog loop */ PostMessageA(hwnd, WM_NULL, 0, 0); return TRUE; } /*********************************************************************** * DIALOG_IsAccelerator */ static BOOL DIALOG_IsAccelerator( HWND hwnd, HWND hwndDlg, WPARAM wParam ) { HWND hwndControl = hwnd; HWND hwndNext; INT dlgCode; WCHAR buffer[128]; do { DWORD style = GetWindowLongW( hwndControl, GWL_STYLE ); if ((style & (WS_VISIBLE | WS_DISABLED)) == WS_VISIBLE) { dlgCode = SendMessageA( hwndControl, WM_GETDLGCODE, 0, 0 ); if ( (dlgCode & (DLGC_BUTTON | DLGC_STATIC)) && GetWindowTextW( hwndControl, buffer, sizeof(buffer)/sizeof(WCHAR) )) { /* find the accelerator key */ LPWSTR p = buffer - 2; do { p = strchrW( p + 2, '&' ); } while (p != NULL && p[1] == '&'); /* and check if it's the one we're looking for */ if (p != NULL && toupperW( p[1] ) == toupperW( wParam ) ) { if ((dlgCode & DLGC_STATIC) || (style & 0x0f) == BS_GROUPBOX ) { /* set focus to the control */ SendMessageA( hwndDlg, WM_NEXTDLGCTL, (WPARAM)hwndControl, 1); /* and bump it on to next */ SendMessageA( hwndDlg, WM_NEXTDLGCTL, 0, 0); } else if (dlgCode & DLGC_BUTTON) { /* send BM_CLICK message to the control */ SendMessageA( hwndControl, BM_CLICK, 0, 0 ); } return TRUE; } } hwndNext = GetWindow( hwndControl, GW_CHILD ); } else hwndNext = 0; if (!hwndNext) hwndNext = GetWindow( hwndControl, GW_HWNDNEXT ); while (!hwndNext && hwndControl) { hwndControl = GetParent( hwndControl ); if (hwndControl == hwndDlg) { if(hwnd==hwndDlg) /* prevent endless loop */ { hwndNext=hwnd; break; } hwndNext = GetWindow( hwndDlg, GW_CHILD ); } else hwndNext = GetWindow( hwndControl, GW_HWNDNEXT ); } hwndControl = hwndNext; } while (hwndControl && (hwndControl != hwnd)); return FALSE; } /*********************************************************************** * DIALOG_FindMsgDestination * * The messages that IsDialogMessage sends may not go to the dialog * calling IsDialogMessage if that dialog is a child, and it has the * DS_CONTROL style set. * We propagate up until we hit one that does not have DS_CONTROL, or * whose parent is not a dialog. * * This is undocumented behaviour. */ static HWND DIALOG_FindMsgDestination( HWND hwndDlg ) { while (GetWindowLongA(hwndDlg, GWL_STYLE) & DS_CONTROL) { WND *pParent; HWND hParent = GetParent(hwndDlg); if (!hParent) break; pParent = WIN_FindWndPtr(hParent); if (!pParent) break; if (!(pParent->flags & WIN_ISDIALOG)) { WIN_ReleaseWndPtr(pParent); break; } WIN_ReleaseWndPtr(pParent); hwndDlg = hParent; } return hwndDlg; } /*********************************************************************** * DIALOG_FixOneChildOnChangeFocus * * Callback helper for DIALOG_FixChildrenOnChangeFocus */ static BOOL CALLBACK DIALOG_FixOneChildOnChangeFocus (HWND hwndChild, LPARAM lParam) { /* If a default pushbutton then no longer default */ if (DLGC_DEFPUSHBUTTON & SendMessageW (hwndChild, WM_GETDLGCODE, 0, 0)) SendMessageW (hwndChild, BM_SETSTYLE, BS_PUSHBUTTON, TRUE); return TRUE; } /*********************************************************************** * DIALOG_FixChildrenOnChangeFocus * * Following the change of focus that occurs for example after handling * a WM_KEYDOWN VK_TAB in IsDialogMessage, some tidying of the dialog's * children may be required. */ static void DIALOG_FixChildrenOnChangeFocus (HWND hwndDlg, HWND hwndNext) { INT dlgcode_next = SendMessageW (hwndNext, WM_GETDLGCODE, 0, 0); /* INT dlgcode_dlg = SendMessageW (hwndDlg, WM_GETDLGCODE, 0, 0); */ /* Windows does ask for this. I don't know why yet */ EnumChildWindows (hwndDlg, DIALOG_FixOneChildOnChangeFocus, 0); /* If the button that is getting the focus WAS flagged as the default * pushbutton then ask the dialog what it thinks the default is and * set that in the default style. */ if (dlgcode_next & DLGC_DEFPUSHBUTTON) { DWORD def_id = SendMessageW (hwndDlg, DM_GETDEFID, 0, 0); if (HIWORD(def_id) == DC_HASDEFID) { HWND hwndDef; def_id = LOWORD(def_id); hwndDef = GetDlgItem (hwndDlg, def_id); if (hwndDef) { INT dlgcode_def = SendMessageW (hwndDef, WM_GETDLGCODE, 0, 0); /* I know that if it is a button then it should already be a * UNDEFPUSHBUTTON, since we have just told the buttons to * change style. But maybe they ignored our request */ if ((dlgcode_def & DLGC_BUTTON) && (dlgcode_def & DLGC_UNDEFPUSHBUTTON)) { SendMessageW (hwndDef, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE); } } } } else { SendMessageW (hwndNext, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE); /* I wonder why it doesn't send a DM_SETDEFID */ } } /*********************************************************************** * IsDialogMessageW (USER32.@) */ BOOL WINAPI IsDialogMessageW( HWND hwndDlg, LPMSG msg ) { INT dlgCode = 0; if (CallMsgFilterW( msg, MSGF_DIALOGBOX )) return TRUE; hwndDlg = WIN_GetFullHandle( hwndDlg ); if ((hwndDlg != msg->hwnd) && !IsChild( hwndDlg, msg->hwnd )) return FALSE; hwndDlg = DIALOG_FindMsgDestination(hwndDlg); switch(msg->message) { case WM_KEYDOWN: dlgCode = SendMessageW( msg->hwnd, WM_GETDLGCODE, msg->wParam, (LPARAM)msg ); if (dlgCode & DLGC_WANTMESSAGE) break; switch(msg->wParam) { case VK_TAB: if (!(dlgCode & DLGC_WANTTAB)) { BOOL fIsDialog = TRUE; WND *pWnd = WIN_GetPtr( hwndDlg ); if (pWnd && pWnd != WND_OTHER_PROCESS) { fIsDialog = (pWnd->flags & WIN_ISDIALOG) != 0; WIN_ReleasePtr(pWnd); } /* I am not sure under which circumstances the TAB is handled * each way. All I do know is that it does not always simply * send WM_NEXTDLGCTL. (Personally I have never yet seen it * do so but I presume someone has) */ if (fIsDialog) SendMessageW( hwndDlg, WM_NEXTDLGCTL, (GetKeyState(VK_SHIFT) & 0x8000), 0 ); else { /* It would appear that GetNextDlgTabItem can handle being * passed hwndDlg rather than NULL but that is undocumented * so let's do it properly */ HWND hwndFocus = GetFocus(); HWND hwndNext = GetNextDlgTabItem (hwndDlg, hwndFocus == hwndDlg ? NULL : hwndFocus, GetKeyState (VK_SHIFT) & 0x8000); if (hwndNext) { dlgCode = SendMessageW (hwndNext, WM_GETDLGCODE, msg->wParam, (LPARAM)msg); if (dlgCode & DLGC_HASSETSEL) { INT maxlen = 1 + SendMessageW (hwndNext, WM_GETTEXTLENGTH, 0, 0); WCHAR *buffer = HeapAlloc (GetProcessHeap(), 0, maxlen * sizeof(WCHAR)); if (buffer) { INT length; SendMessageW (hwndNext, WM_GETTEXT, maxlen, (LPARAM) buffer); length = strlenW (buffer); HeapFree (GetProcessHeap(), 0, buffer); SendMessageW (hwndNext, EM_SETSEL, 0, length); } } SetFocus (hwndNext); DIALOG_FixChildrenOnChangeFocus (hwndDlg, hwndNext); } else return FALSE; } return TRUE; } break; case VK_RIGHT: case VK_DOWN: case VK_LEFT: case VK_UP: if (!(dlgCode & DLGC_WANTARROWS)) { BOOL fPrevious = (msg->wParam == VK_LEFT || msg->wParam == VK_UP); HWND hwndNext = GetNextDlgGroupItem (hwndDlg, GetFocus(), fPrevious ); SendMessageW( hwndDlg, WM_NEXTDLGCTL, (WPARAM)hwndNext, 1 ); return TRUE; } break; case VK_CANCEL: case VK_ESCAPE: SendMessageW( hwndDlg, WM_COMMAND, IDCANCEL, (LPARAM)GetDlgItem( hwndDlg, IDCANCEL ) ); return TRUE; case VK_EXECUTE: case VK_RETURN: { DWORD dw; if ((GetFocus() == msg->hwnd) && (SendMessageW (msg->hwnd, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON)) { SendMessageW (hwndDlg, WM_COMMAND, MAKEWPARAM (GetDlgCtrlID(msg->hwnd),BN_CLICKED), (LPARAM)msg->hwnd); } else if (DC_HASDEFID == HIWORD(dw = SendMessageW (hwndDlg, DM_GETDEFID, 0, 0))) { SendMessageW( hwndDlg, WM_COMMAND, MAKEWPARAM( LOWORD(dw), BN_CLICKED ), (LPARAM)GetDlgItem(hwndDlg, LOWORD(dw))); } else { SendMessageW( hwndDlg, WM_COMMAND, IDOK, (LPARAM)GetDlgItem( hwndDlg, IDOK ) ); } } return TRUE; } break; case WM_CHAR: /* FIXME Under what circumstances does WM_GETDLGCODE get sent? * It does NOT get sent in the test program I have */ dlgCode = SendMessageW( msg->hwnd, WM_GETDLGCODE, msg->wParam, (LPARAM)msg ); if (dlgCode & (DLGC_WANTCHARS|DLGC_WANTMESSAGE)) break; if (msg->wParam == '\t' && (dlgCode & DLGC_WANTTAB)) break; /* drop through */ case WM_SYSCHAR: if (DIALOG_IsAccelerator( WIN_GetFullHandle(msg->hwnd), hwndDlg, msg->wParam )) { /* don't translate or dispatch */ return TRUE; } break; } TranslateMessage( msg ); DispatchMessageW( msg ); return TRUE; } /*********************************************************************** * GetDlgCtrlID (USER32.@) */ INT WINAPI GetDlgCtrlID( HWND hwnd ) { return GetWindowLongW( hwnd, GWL_ID ); } /*********************************************************************** * GetDlgItem (USER32.@) */ HWND WINAPI GetDlgItem( HWND hwndDlg, INT id ) { int i; HWND *list = WIN_ListChildren( hwndDlg ); HWND ret = 0; if (!list) return 0; for (i = 0; list[i]; i++) if (GetWindowLongW( list[i], GWL_ID ) == id) break; ret = list[i]; HeapFree( GetProcessHeap(), 0, list ); return ret; } /******************************************************************* * SendDlgItemMessageA (USER32.@) */ LRESULT WINAPI SendDlgItemMessageA( HWND hwnd, INT id, UINT msg, WPARAM wParam, LPARAM lParam ) { HWND hwndCtrl = GetDlgItem( hwnd, id ); if (hwndCtrl) return SendMessageA( hwndCtrl, msg, wParam, lParam ); else return 0; } /******************************************************************* * SendDlgItemMessageW (USER32.@) */ LRESULT WINAPI SendDlgItemMessageW( HWND hwnd, INT id, UINT msg, WPARAM wParam, LPARAM lParam ) { HWND hwndCtrl = GetDlgItem( hwnd, id ); if (hwndCtrl) return SendMessageW( hwndCtrl, msg, wParam, lParam ); else return 0; } /******************************************************************* * SetDlgItemTextA (USER32.@) */ BOOL WINAPI SetDlgItemTextA( HWND hwnd, INT id, LPCSTR lpString ) { return SendDlgItemMessageA( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString ); } /******************************************************************* * SetDlgItemTextW (USER32.@) */ BOOL WINAPI SetDlgItemTextW( HWND hwnd, INT id, LPCWSTR lpString ) { return SendDlgItemMessageW( hwnd, id, WM_SETTEXT, 0, (LPARAM)lpString ); } /*********************************************************************** * GetDlgItemTextA (USER32.@) */ INT WINAPI GetDlgItemTextA( HWND hwnd, INT id, LPSTR str, UINT len ) { return (INT)SendDlgItemMessageA( hwnd, id, WM_GETTEXT, len, (LPARAM)str ); } /*********************************************************************** * GetDlgItemTextW (USER32.@) */ INT WINAPI GetDlgItemTextW( HWND hwnd, INT id, LPWSTR str, UINT len ) { return (INT)SendDlgItemMessageW( hwnd, id, WM_GETTEXT, len, (LPARAM)str ); } /******************************************************************* * SetDlgItemInt (USER32.@) */ BOOL WINAPI SetDlgItemInt( HWND hwnd, INT id, UINT value, BOOL fSigned ) { char str[20]; if (fSigned) sprintf( str, "%d", (INT)value ); else sprintf( str, "%u", value ); SendDlgItemMessageA( hwnd, id, WM_SETTEXT, 0, (LPARAM)str ); return TRUE; } /*********************************************************************** * GetDlgItemInt (USER32.@) */ UINT WINAPI GetDlgItemInt( HWND hwnd, INT id, BOOL *translated, BOOL fSigned ) { char str[30]; char * endptr; long result = 0; if (translated) *translated = FALSE; if (!SendDlgItemMessageA(hwnd, id, WM_GETTEXT, sizeof(str), (LPARAM)str)) return 0; if (fSigned) { result = strtol( str, &endptr, 10 ); if (!endptr || (endptr == str)) /* Conversion was unsuccessful */ return 0; if (((result == LONG_MIN) || (result == LONG_MAX)) && (errno==ERANGE)) return 0; } else { result = strtoul( str, &endptr, 10 ); if (!endptr || (endptr == str)) /* Conversion was unsuccessful */ return 0; if ((result == ULONG_MAX) && (errno == ERANGE)) return 0; } if (translated) *translated = TRUE; return (UINT)result; } /*********************************************************************** * CheckDlgButton (USER32.@) */ BOOL WINAPI CheckDlgButton( HWND hwnd, INT id, UINT check ) { SendDlgItemMessageA( hwnd, id, BM_SETCHECK, check, 0 ); return TRUE; } /*********************************************************************** * IsDlgButtonChecked (USER32.@) */ UINT WINAPI IsDlgButtonChecked( HWND hwnd, UINT id ) { return (UINT)SendDlgItemMessageA( hwnd, id, BM_GETCHECK, 0, 0 ); } /*********************************************************************** * CheckRB * * Callback function used to check/uncheck radio buttons that fall * within a specific range of IDs. */ static BOOL CALLBACK CheckRB(HWND hwndChild, LPARAM lParam) { LONG lChildID = GetWindowLongA(hwndChild, GWL_ID); RADIOGROUP *lpRadioGroup = (RADIOGROUP *) lParam; if ((lChildID >= lpRadioGroup->firstID) && (lChildID <= lpRadioGroup->lastID)) { if (lChildID == lpRadioGroup->checkID) { SendMessageA(hwndChild, BM_SETCHECK, BST_CHECKED, 0); } else { SendMessageA(hwndChild, BM_SETCHECK, BST_UNCHECKED, 0); } } return TRUE; } /*********************************************************************** * CheckRadioButton (USER32.@) */ BOOL WINAPI CheckRadioButton( HWND hwndDlg, UINT firstID, UINT lastID, UINT checkID ) { RADIOGROUP radioGroup; radioGroup.firstID = firstID; radioGroup.lastID = lastID; radioGroup.checkID = checkID; return EnumChildWindows(hwndDlg, (WNDENUMPROC)CheckRB, (LPARAM)&radioGroup); } /*********************************************************************** * GetDialogBaseUnits (USER.243) * GetDialogBaseUnits (USER32.@) */ DWORD WINAPI GetDialogBaseUnits(void) { static DWORD units; if (!units) { HDC hdc; SIZE size; if ((hdc = GetDC(0))) { if (DIALOG_GetCharSize( hdc, 0, &size )) units = MAKELONG( size.cx, size.cy ); ReleaseDC( 0, hdc ); } TRACE("base units = %d,%d\n", LOWORD(units), HIWORD(units) ); } return units; } /*********************************************************************** * MapDialogRect (USER32.@) */ BOOL WINAPI MapDialogRect( HWND hwnd, LPRECT rect ) { DIALOGINFO * dlgInfo; if (!(dlgInfo = DIALOG_get_info( hwnd ))) return FALSE; rect->left = MulDiv(rect->left, dlgInfo->xBaseUnit, 4); rect->right = MulDiv(rect->right, dlgInfo->xBaseUnit, 4); rect->top = MulDiv(rect->top, dlgInfo->yBaseUnit, 8); rect->bottom = MulDiv(rect->bottom, dlgInfo->yBaseUnit, 8); return TRUE; } /*********************************************************************** * GetNextDlgGroupItem (USER32.@) * * Corrections to MSDN documentation * * (Under Windows 2000 at least, where hwndDlg is not actually a dialog) * 1. hwndCtrl can be hwndDlg in which case it behaves as for NULL * 2. Prev of NULL or hwndDlg fails */ HWND WINAPI GetNextDlgGroupItem( HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious ) { HWND hwnd, hwndNext, retvalue, hwndLastGroup = 0; BOOL fLooped=FALSE; BOOL fSkipping=FALSE; hwndDlg = WIN_GetFullHandle( hwndDlg ); hwndCtrl = WIN_GetFullHandle( hwndCtrl ); if (hwndDlg == hwndCtrl) hwndCtrl = NULL; if (!hwndCtrl && fPrevious) return 0; if (hwndCtrl) { if (!IsChild (hwndDlg, hwndCtrl)) return 0; } else { /* No ctrl specified -> start from the beginning */ if (!(hwndCtrl = GetWindow( hwndDlg, GW_CHILD ))) return 0; /* MSDN is wrong. fPrevious does not result in the last child */ /* Maybe that first one is valid. If so then we don't want to skip it*/ if ((GetWindowLongW( hwndCtrl, GWL_STYLE ) & (WS_VISIBLE|WS_DISABLED)) == WS_VISIBLE) { return hwndCtrl; } } /* Always go forward around the group and list of controls; for the * previous control keep track; for the next break when you find one */ retvalue = hwndCtrl; hwnd = hwndCtrl; while (hwndNext = GetWindow (hwnd, GW_HWNDNEXT), 1) { while (!hwndNext) { /* Climb out until there is a next sibling of the ancestor or we * reach the top (in which case we loop back to the start) */ if (hwndDlg == GetParent (hwnd)) { /* Wrap around to the beginning of the list, within the same * group. (Once only) */ if (fLooped) goto end; fLooped = TRUE; hwndNext = GetWindow (hwndDlg, GW_CHILD); } else { hwnd = GetParent (hwnd); hwndNext = GetWindow (hwnd, GW_HWNDNEXT); } } hwnd = hwndNext; /* Wander down the leading edge of controlparents */ while ( (GetWindowLongW (hwnd, GWL_EXSTYLE) & WS_EX_CONTROLPARENT) && ((GetWindowLongW (hwnd, GWL_STYLE) & (WS_VISIBLE | WS_DISABLED)) == WS_VISIBLE) && (hwndNext = GetWindow (hwnd, GW_CHILD))) hwnd = hwndNext; /* Question. If the control is a control parent but either has no * children or is not visible/enabled then if it has a WS_GROUP does * it count? For that matter does it count anyway? * I believe it doesn't count. */ if ((GetWindowLongW (hwnd, GWL_STYLE) & WS_GROUP)) { hwndLastGroup = hwnd; if (!fSkipping) { /* Look for the beginning of the group */ fSkipping = TRUE; } } if (hwnd == hwndCtrl) { if (!fSkipping) break; if (hwndLastGroup == hwnd) break; hwnd = hwndLastGroup; fSkipping = FALSE; fLooped = FALSE; } if (!fSkipping && (GetWindowLongW (hwnd, GWL_STYLE) & (WS_VISIBLE|WS_DISABLED)) == WS_VISIBLE) { retvalue = hwnd; if (!fPrevious) break; } } end: return retvalue; } /*********************************************************************** * DIALOG_GetNextTabItem * * Recursive helper for GetNextDlgTabItem */ static HWND DIALOG_GetNextTabItem( HWND hwndMain, HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious ) { LONG dsStyle; LONG exStyle; UINT wndSearch = fPrevious ? GW_HWNDPREV : GW_HWNDNEXT; HWND retWnd = 0; HWND hChildFirst = 0; if(!hwndCtrl) { hChildFirst = GetWindow(hwndDlg,GW_CHILD); if(fPrevious) hChildFirst = GetWindow(hChildFirst,GW_HWNDLAST); } else if (IsChild( hwndMain, hwndCtrl )) { hChildFirst = GetWindow(hwndCtrl,wndSearch); if(!hChildFirst) { if(GetParent(hwndCtrl) != hwndMain) /* i.e. if we are not at the top level of the recursion */ hChildFirst = GetWindow(GetParent(hwndCtrl),wndSearch); else hChildFirst = GetWindow(hwndCtrl, fPrevious ? GW_HWNDLAST : GW_HWNDFIRST); } } while(hChildFirst) { dsStyle = GetWindowLongA(hChildFirst,GWL_STYLE); exStyle = GetWindowLongA(hChildFirst,GWL_EXSTYLE); if( (exStyle & WS_EX_CONTROLPARENT) && (dsStyle & WS_VISIBLE) && !(dsStyle & WS_DISABLED)) { HWND retWnd; retWnd = DIALOG_GetNextTabItem(hwndMain,hChildFirst,NULL,fPrevious ); if (retWnd) return (retWnd); } else if( (dsStyle & WS_TABSTOP) && (dsStyle & WS_VISIBLE) && !(dsStyle & WS_DISABLED)) { return (hChildFirst); } hChildFirst = GetWindow(hChildFirst,wndSearch); } if(hwndCtrl) { HWND hParent = GetParent(hwndCtrl); while(hParent) { if(hParent == hwndMain) break; retWnd = DIALOG_GetNextTabItem(hwndMain,GetParent(hParent),hParent,fPrevious ); if(retWnd) break; hParent = GetParent(hParent); } if(!retWnd) retWnd = DIALOG_GetNextTabItem(hwndMain,hwndMain,NULL,fPrevious ); } return retWnd ? retWnd : hwndCtrl; } /*********************************************************************** * GetNextDlgTabItem (USER32.@) */ HWND WINAPI GetNextDlgTabItem( HWND hwndDlg, HWND hwndCtrl, BOOL fPrevious ) { hwndDlg = WIN_GetFullHandle( hwndDlg ); hwndCtrl = WIN_GetFullHandle( hwndCtrl ); /* Undocumented but tested under Win2000 and WinME */ if (hwndDlg == hwndCtrl) hwndCtrl = NULL; /* Contrary to MSDN documentation, tested under Win2000 and WinME * NB GetLastError returns whatever was set before the function was * called. */ if (!hwndCtrl && fPrevious) return 0; return DIALOG_GetNextTabItem(hwndDlg,hwndDlg,hwndCtrl,fPrevious); } /********************************************************************** * DIALOG_DlgDirSelect * * Helper function for DlgDirSelect* */ static BOOL DIALOG_DlgDirSelect( HWND hwnd, LPSTR str, INT len, INT id, BOOL unicode, BOOL combo ) { char *buffer, *ptr; INT item, size; BOOL ret; HWND listbox = GetDlgItem( hwnd, id ); TRACE("%p '%s' %d\n", hwnd, str, id ); if (!listbox) return FALSE; item = SendMessageA(listbox, combo ? CB_GETCURSEL : LB_GETCURSEL, 0, 0 ); if (item == LB_ERR) return FALSE; size = SendMessageA(listbox, combo ? CB_GETLBTEXTLEN : LB_GETTEXTLEN, 0, 0 ); if (size == LB_ERR) return FALSE; if (!(buffer = HeapAlloc( GetProcessHeap(), 0, size+1 ))) return FALSE; SendMessageA( listbox, combo ? CB_GETLBTEXT : LB_GETTEXT, item, (LPARAM)buffer ); if ((ret = (buffer[0] == '['))) /* drive or directory */ { if (buffer[1] == '-') /* drive */ { buffer[3] = ':'; buffer[4] = 0; ptr = buffer + 2; } else { buffer[strlen(buffer)-1] = '\\'; ptr = buffer + 1; } } else ptr = buffer; if (unicode) { if (len > 0 && !MultiByteToWideChar( CP_ACP, 0, ptr, -1, (LPWSTR)str, len )) ((LPWSTR)str)[len-1] = 0; } else lstrcpynA( str, ptr, len ); HeapFree( GetProcessHeap(), 0, buffer ); TRACE("Returning %d '%s'\n", ret, str ); return ret; } /********************************************************************** * DIALOG_DlgDirListW * * Helper function for DlgDirList*W */ static INT DIALOG_DlgDirListW( HWND hDlg, LPWSTR spec, INT idLBox, INT idStatic, UINT attrib, BOOL combo ) { HWND hwnd; LPWSTR orig_spec = spec; WCHAR any[] = {'*','.','*',0}; #define SENDMSG(msg,wparam,lparam) \ ((attrib & DDL_POSTMSGS) ? PostMessageW( hwnd, msg, wparam, lparam ) \ : SendMessageW( hwnd, msg, wparam, lparam )) TRACE("%p %s %d %d %04x\n", hDlg, debugstr_w(spec), idLBox, idStatic, attrib ); /* If the path exists and is a directory, chdir to it */ if (!spec || !spec[0] || SetCurrentDirectoryW( spec )) spec = any; else { WCHAR *p, *p2; p = spec; if ((p2 = strrchrW( p, '\\' ))) p = p2; if ((p2 = strrchrW( p, '/' ))) p = p2; if (p != spec) { WCHAR sep = *p; *p = 0; if (!SetCurrentDirectoryW( spec )) { *p = sep; /* Restore the original spec */ return FALSE; } spec = p + 1; } } TRACE( "mask=%s\n", debugstr_w(spec) ); if (idLBox && ((hwnd = GetDlgItem( hDlg, idLBox )) != 0)) { SENDMSG( combo ? CB_RESETCONTENT : LB_RESETCONTENT, 0, 0 ); if (attrib & DDL_DIRECTORY) { if (!(attrib & DDL_EXCLUSIVE)) { if (SENDMSG( combo ? CB_DIR : LB_DIR, attrib & ~(DDL_DIRECTORY | DDL_DRIVES), (LPARAM)spec ) == LB_ERR) return FALSE; } if (SENDMSG( combo ? CB_DIR : LB_DIR, (attrib & (DDL_DIRECTORY | DDL_DRIVES)) | DDL_EXCLUSIVE, (LPARAM)any ) == LB_ERR) return FALSE; } else { if (SENDMSG( combo ? CB_DIR : LB_DIR, attrib, (LPARAM)spec ) == LB_ERR) return FALSE; } } if (idStatic && ((hwnd = GetDlgItem( hDlg, idStatic )) != 0)) { WCHAR temp[MAX_PATH]; GetCurrentDirectoryW( sizeof(temp)/sizeof(WCHAR), temp ); CharLowerW( temp ); /* Can't use PostMessage() here, because the string is on the stack */ SetDlgItemTextW( hDlg, idStatic, temp ); } if (orig_spec && (spec != orig_spec)) { /* Update the original file spec */ WCHAR *p = spec; while ((*orig_spec++ = *p++)); } return TRUE; #undef SENDMSG } /********************************************************************** * DIALOG_DlgDirListA * * Helper function for DlgDirList*A */ static INT DIALOG_DlgDirListA( HWND hDlg, LPSTR spec, INT idLBox, INT idStatic, UINT attrib, BOOL combo ) { if (spec) { INT ret, len = MultiByteToWideChar( CP_ACP, 0, spec, -1, NULL, 0 ); LPWSTR specW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) ); MultiByteToWideChar( CP_ACP, 0, spec, -1, specW, len ); ret = DIALOG_DlgDirListW( hDlg, specW, idLBox, idStatic, attrib, combo ); WideCharToMultiByte( CP_ACP, 0, specW, -1, spec, 0x7fffffff, NULL, NULL ); HeapFree( GetProcessHeap(), 0, specW ); return ret; } return DIALOG_DlgDirListW( hDlg, NULL, idLBox, idStatic, attrib, combo ); } /********************************************************************** * DlgDirSelectExA (USER32.@) */ BOOL WINAPI DlgDirSelectExA( HWND hwnd, LPSTR str, INT len, INT id ) { return DIALOG_DlgDirSelect( hwnd, str, len, id, FALSE, FALSE ); } /********************************************************************** * DlgDirSelectExW (USER32.@) */ BOOL WINAPI DlgDirSelectExW( HWND hwnd, LPWSTR str, INT len, INT id ) { return DIALOG_DlgDirSelect( hwnd, (LPSTR)str, len, id, TRUE, FALSE ); } /********************************************************************** * DlgDirSelectComboBoxExA (USER32.@) */ BOOL WINAPI DlgDirSelectComboBoxExA( HWND hwnd, LPSTR str, INT len, INT id ) { return DIALOG_DlgDirSelect( hwnd, str, len, id, FALSE, TRUE ); } /********************************************************************** * DlgDirSelectComboBoxExW (USER32.@) */ BOOL WINAPI DlgDirSelectComboBoxExW( HWND hwnd, LPWSTR str, INT len, INT id) { return DIALOG_DlgDirSelect( hwnd, (LPSTR)str, len, id, TRUE, TRUE ); } /********************************************************************** * DlgDirListA (USER32.@) */ INT WINAPI DlgDirListA( HWND hDlg, LPSTR spec, INT idLBox, INT idStatic, UINT attrib ) { return DIALOG_DlgDirListA( hDlg, spec, idLBox, idStatic, attrib, FALSE ); } /********************************************************************** * DlgDirListW (USER32.@) */ INT WINAPI DlgDirListW( HWND hDlg, LPWSTR spec, INT idLBox, INT idStatic, UINT attrib ) { return DIALOG_DlgDirListW( hDlg, spec, idLBox, idStatic, attrib, FALSE ); } /********************************************************************** * DlgDirListComboBoxA (USER32.@) */ INT WINAPI DlgDirListComboBoxA( HWND hDlg, LPSTR spec, INT idCBox, INT idStatic, UINT attrib ) { return DIALOG_DlgDirListA( hDlg, spec, idCBox, idStatic, attrib, TRUE ); } /********************************************************************** * DlgDirListComboBoxW (USER32.@) */ INT WINAPI DlgDirListComboBoxW( HWND hDlg, LPWSTR spec, INT idCBox, INT idStatic, UINT attrib ) { return DIALOG_DlgDirListW( hDlg, spec, idCBox, idStatic, attrib, TRUE ); }