git.oblomov.eu Git - wine/blob - dlls/user/msgbox.c

   1 /*
   2  * Message boxes
   3  *
   4  * Copyright 1995 Bernd Schmidt
   5  * Copyright 2004 Ivan Leo Puoti, Juan Lang
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include <stdarg.h>
  23 #include <string.h>
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "wingdi.h"
  28 #include "wine/winbase16.h"
  29 #include "wine/winuser16.h"
  30 #include "winreg.h"
  31 #include "winternl.h"
  32 #include "dlgs.h"
  33 #include "user_private.h"
  34 #include "wine/debug.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(dialog);
  37 WINE_DECLARE_DEBUG_CHANNEL(msgbox);
  38
  39 #define MSGBOX_IDICON 1088
  40 #define MSGBOX_IDTEXT 100
  41 #define IDS_ERROR     2
  42
  43 struct ThreadWindows
  44 {
  45     UINT numHandles;
  46     UINT numAllocs;
  47     HWND *handles;
  48 };
  49
  50 static BOOL CALLBACK MSGBOX_EnumProc(HWND hwnd, LPARAM lParam)
  51 {
  52     struct ThreadWindows *threadWindows = (struct ThreadWindows *)lParam;
  53
  54     if (!EnableWindow(hwnd, FALSE))
  55     {
  56         if(threadWindows->numHandles >= threadWindows->numAllocs)
  57         {
  58             threadWindows->handles = HeapReAlloc(GetProcessHeap(), 0, threadWindows->handles,
  59                                                  (threadWindows->numAllocs*2)*sizeof(HWND));
  60             threadWindows->numAllocs *= 2;
  61         }
  62         threadWindows->handles[threadWindows->numHandles++]=hwnd;
  63     }
  64    return TRUE;
  65 }
  66
  67 static HFONT MSGBOX_OnInit(HWND hwnd, LPMSGBOXPARAMSW lpmb)
  68 {
  69     HFONT hFont = 0, hPrevFont = 0;
  70     RECT rect;
  71     HWND hItem;
  72     HDC hdc;
  73     int i, buttons;
  74     int bspace, bw, bh, theight, tleft, wwidth, wheight, bpos;
  75     int borheight, borwidth, iheight, ileft, iwidth, twidth, tiheight;
  76     NONCLIENTMETRICSW nclm;
  77     LPCWSTR lpszText;
  78     WCHAR buf[256];
  79
  80     nclm.cbSize = sizeof(nclm);
  81     SystemParametersInfoW (SPI_GETNONCLIENTMETRICS, 0, &nclm, 0);
  82     hFont = CreateFontIndirectW (&nclm.lfMessageFont);
  83     /* set button font */
  84     for (i=1; i < 8; i++)
  85         SendDlgItemMessageW (hwnd, i, WM_SETFONT, (WPARAM)hFont, 0);
  86     /* set text font */
  87     SendDlgItemMessageW (hwnd, MSGBOX_IDTEXT, WM_SETFONT, (WPARAM)hFont, 0);
  88
  89     if (HIWORD(lpmb->lpszCaption)) {
  90        SetWindowTextW(hwnd, lpmb->lpszCaption);
  91     } else {
  92        UINT res_id = LOWORD(lpmb->lpszCaption);
  93        if (res_id)
  94        {
  95            if (LoadStringW(lpmb->hInstance, res_id, buf, 256))
  96                SetWindowTextW(hwnd, buf);
  97        }
  98        else
  99        {
 100            if (LoadStringW(user32_module, IDS_ERROR, buf, 256))
 101                SetWindowTextW(hwnd, buf);
 102        }
 103     }
 104     if (HIWORD(lpmb->lpszText)) {
 105        lpszText = lpmb->lpszText;
 106     } else {
 107        lpszText = buf;
 108        if (!LoadStringW(lpmb->hInstance, LOWORD(lpmb->lpszText), buf, 256))
 109           *buf = 0;     /* FIXME ?? */
 110     }
 111
 112     TRACE_(msgbox)("%s\n", debugstr_w(lpszText));
 113     SetWindowTextW(GetDlgItem(hwnd, MSGBOX_IDTEXT), lpszText);
 114
 115     /* Hide not selected buttons */
 116     switch(lpmb->dwStyle & MB_TYPEMASK) {
 117     case MB_OK:
 118         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
 119         /* fall through */
 120     case MB_OKCANCEL:
 121         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
 122         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
 123         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
 124         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
 125         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
 126         break;
 127     case MB_ABORTRETRYIGNORE:
 128         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
 129         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
 130         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
 131         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
 132         break;
 133     case MB_YESNO:
 134         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
 135         /* fall through */
 136     case MB_YESNOCANCEL:
 137         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
 138         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
 139         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
 140         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
 141         break;
 142     case MB_RETRYCANCEL:
 143         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
 144         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
 145         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
 146         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
 147         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
 148         break;
 149     }
 150     /* Set the icon */
 151     switch(lpmb->dwStyle & MB_ICONMASK) {
 152     case MB_ICONEXCLAMATION:
 153         SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
 154                             (WPARAM)LoadIconW(0, (LPWSTR)IDI_EXCLAMATION), 0);
 155         break;
 156     case MB_ICONQUESTION:
 157         SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
 158                             (WPARAM)LoadIconW(0, (LPWSTR)IDI_QUESTION), 0);
 159         break;
 160     case MB_ICONASTERISK:
 161         SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
 162                             (WPARAM)LoadIconW(0, (LPWSTR)IDI_ASTERISK), 0);
 163         break;
 164     case MB_ICONHAND:
 165       SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
 166                             (WPARAM)LoadIconW(0, (LPWSTR)IDI_HAND), 0);
 167       break;
 168     case MB_USERICON:
 169       SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
 170                           (WPARAM)LoadIconW(lpmb->hInstance, lpmb->lpszIcon), 0);
 171       break;
 172     default:
 173         /* By default, Windows 95/98/NT do not associate an icon to message boxes.
 174          * So wine should do the same.
 175          */
 176         break;
 177     }
 178
 179     /* Position everything */
 180     GetWindowRect(hwnd, &rect);
 181     borheight = rect.bottom - rect.top;
 182     borwidth  = rect.right - rect.left;
 183     GetClientRect(hwnd, &rect);
 184     borheight -= rect.bottom - rect.top;
 185     borwidth  -= rect.right - rect.left;
 186
 187     /* Get the icon height */
 188     GetWindowRect(GetDlgItem(hwnd, MSGBOX_IDICON), &rect);
 189     MapWindowPoints(0, hwnd, (LPPOINT)&rect, 2);
 190     if (!(lpmb->dwStyle & MB_ICONMASK))
 191     {
 192         rect.bottom = rect.top;
 193         rect.right = rect.left;
 194     }
 195     iheight = rect.bottom - rect.top;
 196     ileft = rect.left;
 197     iwidth = rect.right - ileft;
 198
 199     hdc = GetDC(hwnd);
 200     if (hFont)
 201         hPrevFont = SelectObject(hdc, hFont);
 202
 203     /* Get the number of visible buttons and their size */
 204     bh = bw = 1; /* Minimum button sizes */
 205     for (buttons = 0, i = 1; i < 8; i++)
 206     {
 207         hItem = GetDlgItem(hwnd, i);
 208         if (GetWindowLongW(hItem, GWL_STYLE) & WS_VISIBLE)
 209         {
 210             WCHAR buttonText[1024];
 211             int w, h;
 212             buttons++;
 213             if (GetWindowTextW(hItem, buttonText, 1024))
 214             {
 215                 DrawTextW( hdc, buttonText, -1, &rect, DT_LEFT | DT_EXPANDTABS | DT_CALCRECT);
 216                 h = rect.bottom - rect.top;
 217                 w = rect.right - rect.left;
 218                 if (h > bh) bh = h;
 219                 if (w > bw)  bw = w ;
 220             }
 221         }
 222     }
 223     bw = max(bw, bh * 2);
 224     /* Button white space */
 225     bh = bh * 2;
 226     bw = bw * 2;
 227     bspace = bw/3; /* Space between buttons */
 228
 229     /* Get the text size */
 230     GetClientRect(GetDlgItem(hwnd, MSGBOX_IDTEXT), &rect);
 231     rect.top = rect.left = rect.bottom = 0;
 232     DrawTextW( hdc, lpszText, -1, &rect,
 233                DT_LEFT | DT_EXPANDTABS | DT_WORDBREAK | DT_CALCRECT);
 234     /* Min text width corresponds to space for the buttons */
 235     tleft = ileft;
 236     if (iwidth) tleft += ileft + iwidth;
 237     twidth = max((bw + bspace) * buttons + bspace - tleft, rect.right);
 238     theight = rect.bottom;
 239
 240     if (hFont)
 241         SelectObject(hdc, hPrevFont);
 242     ReleaseDC(hwnd, hdc);
 243
 244     tiheight = 16 + max(iheight, theight);
 245     wwidth  = tleft + twidth + ileft + borwidth;
 246     wheight = 8 + tiheight + bh + borheight;
 247
 248     /* Resize the window */
 249     SetWindowPos(hwnd, 0, 0, 0, wwidth, wheight,
 250                  SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 251
 252     /* Position the icon */
 253     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDICON), 0, ileft, (tiheight - iheight) / 2, 0, 0,
 254                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 255
 256     /* Position the text */
 257     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDTEXT), 0, tleft, (tiheight - theight) / 2, twidth, theight,
 258                  SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 259
 260     /* Position the buttons */
 261     bpos = (wwidth - (bw + bspace) * buttons + bspace) / 2;
 262     for (buttons = i = 0; i < 7; i++) {
 263         /* some arithmetic to get the right order for YesNoCancel windows */
 264         hItem = GetDlgItem(hwnd, (i + 5) % 7 + 1);
 265         if (GetWindowLongW(hItem, GWL_STYLE) & WS_VISIBLE) {
 266             if (buttons++ == ((lpmb->dwStyle & MB_DEFMASK) >> 8)) {
 267                 SetFocus(hItem);
 268                 SendMessageW( hItem, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE );
 269             }
 270             SetWindowPos(hItem, 0, bpos, tiheight, bw, bh,
 271                          SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOREDRAW);
 272             bpos += bw + bspace;
 273         }
 274     }
 275
 276     /*handle modal message boxes*/
 277     if (((lpmb->dwStyle & MB_TASKMODAL) && (lpmb->hwndOwner==NULL)) || (lpmb->dwStyle & MB_SYSTEMMODAL))
 278         SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE);
 279
 280     return hFont;
 281 }
 282
 283
 284 /**************************************************************************
 285  *           MSGBOX_DlgProc
 286  *
 287  * Dialog procedure for message boxes.
 288  */
 289 static INT_PTR CALLBACK MSGBOX_DlgProc( HWND hwnd, UINT message,
 290                                         WPARAM wParam, LPARAM lParam )
 291 {
 292   HFONT hFont;
 293
 294   switch(message) {
 295    case WM_INITDIALOG:
 296    {
 297        LPMSGBOXPARAMSW mbp = (LPMSGBOXPARAMSW)lParam;
 298        SetWindowContextHelpId(hwnd, mbp->dwContextHelpId);
 299        hFont = MSGBOX_OnInit(hwnd, mbp);
 300        SetPropA(hwnd, "WINE_MSGBOX_HFONT", (HANDLE)hFont);
 301        SetPropA(hwnd, "WINE_MSGBOX_HELPCALLBACK", (HANDLE)mbp->lpfnMsgBoxCallback);
 302        break;
 303    }
 304
 305    case WM_COMMAND:
 306     switch (LOWORD(wParam))
 307     {
 308      case IDOK:
 309      case IDCANCEL:
 310      case IDABORT:
 311      case IDRETRY:
 312      case IDIGNORE:
 313      case IDYES:
 314      case IDNO:
 315       hFont = GetPropA(hwnd, "WINE_MSGBOX_HFONT");
 316       EndDialog(hwnd, wParam);
 317       if (hFont)
 318           DeleteObject(hFont);
 319       break;
 320     }
 321     break;
 322
 323     case WM_HELP:
 324     {
 325         MSGBOXCALLBACK callback = (MSGBOXCALLBACK)GetPropA(hwnd, "WINE_MSGBOX_HELPCALLBACK");
 326         HELPINFO hi;
 327
 328         memcpy(&hi, (void *)lParam, sizeof(hi));
 329         hi.dwContextId = GetWindowContextHelpId(hwnd);
 330
 331         if (callback)
 332             callback(&hi);
 333         else
 334             SendMessageW(GetWindow(hwnd, GW_OWNER), WM_HELP, 0, (LPARAM)&hi);
 335         break;
 336    }
 337
 338    default:
 339      /* Ok. Ignore all the other messages */
 340      TRACE("Message number 0x%04x is being ignored.\n", message);
 341     break;
 342   }
 343   return 0;
 344 }
 345
 346
 347 /**************************************************************************
 348  *              MessageBoxA (USER32.@)
 349  */
 350 INT WINAPI MessageBoxA(HWND hWnd, LPCSTR text, LPCSTR title, UINT type)
 351 {
 352     return MessageBoxExA(hWnd, text, title, type, LANG_NEUTRAL);
 353 }
 354
 355
 356 /**************************************************************************
 357  *              MessageBoxW (USER32.@)
 358  */
 359 INT WINAPI MessageBoxW( HWND hwnd, LPCWSTR text, LPCWSTR title, UINT type )
 360 {
 361     return MessageBoxExW(hwnd, text, title, type, LANG_NEUTRAL);
 362 }
 363
 364
 365 /**************************************************************************
 366  *              MessageBoxExA (USER32.@)
 367  */
 368 INT WINAPI MessageBoxExA( HWND hWnd, LPCSTR text, LPCSTR title,
 369                               UINT type, WORD langid )
 370 {
 371     MSGBOXPARAMSA msgbox;
 372
 373     msgbox.cbSize = sizeof(msgbox);
 374     msgbox.hwndOwner = hWnd;
 375     msgbox.hInstance = 0;
 376     msgbox.lpszText = text;
 377     msgbox.lpszCaption = title;
 378     msgbox.dwStyle = type;
 379     msgbox.lpszIcon = NULL;
 380     msgbox.dwContextHelpId = 0;
 381     msgbox.lpfnMsgBoxCallback = NULL;
 382     msgbox.dwLanguageId = langid;
 383
 384     return MessageBoxIndirectA(&msgbox);
 385 }
 386
 387 /**************************************************************************
 388  *              MessageBoxExW (USER32.@)
 389  */
 390 INT WINAPI MessageBoxExW( HWND hWnd, LPCWSTR text, LPCWSTR title,
 391                               UINT type, WORD langid )
 392 {
 393     MSGBOXPARAMSW msgbox;
 394
 395     msgbox.cbSize = sizeof(msgbox);
 396     msgbox.hwndOwner = hWnd;
 397     msgbox.hInstance = 0;
 398     msgbox.lpszText = text;
 399     msgbox.lpszCaption = title;
 400     msgbox.dwStyle = type;
 401     msgbox.lpszIcon = NULL;
 402     msgbox.dwContextHelpId = 0;
 403     msgbox.lpfnMsgBoxCallback = NULL;
 404     msgbox.dwLanguageId = langid;
 405
 406     return MessageBoxIndirectW(&msgbox);
 407 }
 408
 409 /**************************************************************************
 410  *              MessageBoxIndirectA (USER32.@)
 411  */
 412 INT WINAPI MessageBoxIndirectA( LPMSGBOXPARAMSA msgbox )
 413 {
 414     MSGBOXPARAMSW msgboxW;
 415     UNICODE_STRING textW, captionW, iconW;
 416     int ret;
 417
 418     if (HIWORD(msgbox->lpszText))
 419         RtlCreateUnicodeStringFromAsciiz(&textW, msgbox->lpszText);
 420     else
 421         textW.Buffer = (LPWSTR)msgbox->lpszText;
 422     if (HIWORD(msgbox->lpszCaption))
 423         RtlCreateUnicodeStringFromAsciiz(&captionW, msgbox->lpszCaption);
 424     else
 425         captionW.Buffer = (LPWSTR)msgbox->lpszCaption;
 426
 427     if (msgbox->dwStyle & MB_USERICON)
 428     {
 429         if (HIWORD(msgbox->lpszIcon))
 430             RtlCreateUnicodeStringFromAsciiz(&iconW, msgbox->lpszIcon);
 431         else
 432             iconW.Buffer = (LPWSTR)msgbox->lpszIcon;
 433     }
 434     else
 435         iconW.Buffer = NULL;
 436
 437     msgboxW.cbSize = sizeof(msgboxW);
 438     msgboxW.hwndOwner = msgbox->hwndOwner;
 439     msgboxW.hInstance = msgbox->hInstance;
 440     msgboxW.lpszText = textW.Buffer;
 441     msgboxW.lpszCaption = captionW.Buffer;
 442     msgboxW.dwStyle = msgbox->dwStyle;
 443     msgboxW.lpszIcon = iconW.Buffer;
 444     msgboxW.dwContextHelpId = msgbox->dwContextHelpId;
 445     msgboxW.lpfnMsgBoxCallback = msgbox->lpfnMsgBoxCallback;
 446     msgboxW.dwLanguageId = msgbox->dwLanguageId;
 447
 448     ret = MessageBoxIndirectW(&msgboxW);
 449
 450     if (HIWORD(textW.Buffer)) RtlFreeUnicodeString(&textW);
 451     if (HIWORD(captionW.Buffer)) RtlFreeUnicodeString(&captionW);
 452     if (HIWORD(iconW.Buffer)) RtlFreeUnicodeString(&iconW);
 453     return ret;
 454 }
 455
 456 /**************************************************************************
 457  *              MessageBoxIndirectW (USER32.@)
 458  */
 459 INT WINAPI MessageBoxIndirectW( LPMSGBOXPARAMSW msgbox )
 460 {
 461     LPVOID tmplate;
 462     HRSRC hRes;
 463     int ret;
 464     UINT i;
 465     struct ThreadWindows threadWindows;
 466     static const WCHAR msg_box_res_nameW[] = { 'M','S','G','B','O','X',0 };
 467
 468     if (!(hRes = FindResourceExW(user32_module, (LPWSTR)RT_DIALOG,
 469                                  msg_box_res_nameW, msgbox->dwLanguageId)))
 470         return 0;
 471     if (!(tmplate = (LPVOID)LoadResource(user32_module, hRes)))
 472         return 0;
 473
 474     if ((msgbox->dwStyle & MB_TASKMODAL) && (msgbox->hwndOwner==NULL))
 475     {
 476         threadWindows.numHandles = 0;
 477         threadWindows.numAllocs = 10;
 478         threadWindows.handles = HeapAlloc(GetProcessHeap(), 0, 10*sizeof(HWND));
 479         EnumThreadWindows(GetCurrentThreadId(), MSGBOX_EnumProc, (LPARAM)&threadWindows);
 480     }
 481
 482     ret=DialogBoxIndirectParamW(msgbox->hInstance, tmplate,
 483                                 msgbox->hwndOwner, MSGBOX_DlgProc, (LPARAM)msgbox);
 484
 485     if ((msgbox->dwStyle & MB_TASKMODAL) && (msgbox->hwndOwner==NULL))
 486     {
 487         for (i = 0; i < threadWindows.numHandles; i++)
 488             EnableWindow(threadWindows.handles[i], TRUE);
 489         HeapFree(GetProcessHeap(), 0, threadWindows.handles);
 490     }
 491     return ret;
 492 }