windows/msgbox.c

   1 /*
   2  * Message boxes
   3  *
   4  * Copyright 1995 Bernd Schmidt
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <string.h>
  22
  23 #include "windef.h"
  24 #include "wingdi.h"
  25 #include "wine/winbase16.h"
  26 #include "wine/winuser16.h"
  27 #include "dlgs.h"
  28 #include "heap.h"
  29 #include "user.h"
  30 #include "wine/debug.h"
  31
  32 WINE_DEFAULT_DEBUG_CHANNEL(dialog);
  33
  34 #define MSGBOX_IDICON 1088
  35 #define MSGBOX_IDTEXT 100
  36
  37 static HFONT MSGBOX_OnInit(HWND hwnd, LPMSGBOXPARAMSA lpmb)
  38 {
  39     static HFONT hFont = 0, hPrevFont = 0;
  40     RECT rect;
  41     HWND hItem;
  42     HDC hdc;
  43     int i, buttons;
  44     int bspace, bw, bh, theight, tleft, wwidth, wheight, bpos;
  45     int borheight, borwidth, iheight, ileft, iwidth, twidth, tiheight;
  46     LPCSTR lpszText;
  47     char buf[256];
  48
  49     if (TWEAK_WineLook >= WIN95_LOOK) {
  50         NONCLIENTMETRICSA nclm;
  51         nclm.cbSize = sizeof(NONCLIENTMETRICSA);
  52         SystemParametersInfoA (SPI_GETNONCLIENTMETRICS, 0, &nclm, 0);
  53         hFont = CreateFontIndirectA (&nclm.lfMessageFont);
  54         /* set button font */
  55         for (i=1; i < 8; i++)
  56             SendDlgItemMessageA (hwnd, i, WM_SETFONT, (WPARAM)hFont, 0);
  57         /* set text font */
  58         SendDlgItemMessageA (hwnd, MSGBOX_IDTEXT, WM_SETFONT, (WPARAM)hFont, 0);
  59     }
  60     if (HIWORD(lpmb->lpszCaption)) {
  61        SetWindowTextA(hwnd, lpmb->lpszCaption);
  62     } else {
  63        if (LoadStringA(lpmb->hInstance, LOWORD(lpmb->lpszCaption), buf, sizeof(buf)))
  64           SetWindowTextA(hwnd, buf);
  65     }
  66     if (HIWORD(lpmb->lpszText)) {
  67        lpszText = lpmb->lpszText;
  68     } else {
  69        lpszText = buf;
  70        if (!LoadStringA(lpmb->hInstance, LOWORD(lpmb->lpszText), buf, sizeof(buf)))
  71           *buf = 0;     /* FIXME ?? */
  72     }
  73     SetWindowTextA(GetDlgItem(hwnd, MSGBOX_IDTEXT), lpszText);
  74
  75     /* Hide not selected buttons */
  76     switch(lpmb->dwStyle & MB_TYPEMASK) {
  77     case MB_OK:
  78         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
  79         /* fall through */
  80     case MB_OKCANCEL:
  81         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
  82         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
  83         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
  84         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
  85         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
  86         break;
  87     case MB_ABORTRETRYIGNORE:
  88         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
  89         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
  90         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
  91         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
  92         break;
  93     case MB_YESNO:
  94         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
  95         /* fall through */
  96     case MB_YESNOCANCEL:
  97         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
  98         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
  99         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
 100         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
 101         break;
 102     case MB_RETRYCANCEL:
 103         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
 104         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
 105         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
 106         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
 107         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
 108         break;
 109     }
 110     /* Set the icon */
 111     switch(lpmb->dwStyle & MB_ICONMASK) {
 112     case MB_ICONEXCLAMATION:
 113         SendDlgItemMessageA(hwnd, stc1, STM_SETICON,
 114                             (WPARAM)LoadIconA(0, IDI_EXCLAMATIONA), 0);
 115         break;
 116     case MB_ICONQUESTION:
 117         SendDlgItemMessageA(hwnd, stc1, STM_SETICON,
 118                             (WPARAM)LoadIconA(0, IDI_QUESTIONA), 0);
 119         break;
 120     case MB_ICONASTERISK:
 121         SendDlgItemMessageA(hwnd, stc1, STM_SETICON,
 122                             (WPARAM)LoadIconA(0, IDI_ASTERISKA), 0);
 123         break;
 124     case MB_ICONHAND:
 125       SendDlgItemMessageA(hwnd, stc1, STM_SETICON,
 126                             (WPARAM)LoadIconA(0, IDI_HANDA), 0);
 127       break;
 128     default:
 129         /* By default, Windows 95/98/NT do not associate an icon to message boxes.
 130          * So wine should do the same.
 131          */
 132         break;
 133     }
 134
 135     /* Position everything */
 136     GetWindowRect(hwnd, &rect);
 137     borheight = rect.bottom - rect.top;
 138     borwidth  = rect.right - rect.left;
 139     GetClientRect(hwnd, &rect);
 140     borheight -= rect.bottom - rect.top;
 141     borwidth  -= rect.right - rect.left;
 142
 143     /* Get the icon height */
 144     GetWindowRect(GetDlgItem(hwnd, MSGBOX_IDICON), &rect);
 145     MapWindowPoints(0, hwnd, (LPPOINT)&rect, 2);
 146     iheight = rect.bottom - rect.top;
 147     ileft = rect.left;
 148     iwidth = rect.right - ileft;
 149
 150     hdc = GetDC(hwnd);
 151     if (hFont)
 152         hPrevFont = SelectObject(hdc, hFont);
 153
 154     /* Get the number of visible buttons and their size */
 155     bh = bw = 1; /* Minimum button sizes */
 156     for (buttons = 0, i = 1; i < 8; i++)
 157     {
 158         hItem = GetDlgItem(hwnd, i);
 159         if (GetWindowLongA(hItem, GWL_STYLE) & WS_VISIBLE)
 160         {
 161             char buttonText[1024];
 162             int w, h;
 163             buttons++;
 164             if (GetWindowTextA(hItem, buttonText, sizeof buttonText))
 165             {
 166                 DrawTextA( hdc, buttonText, -1, &rect, DT_LEFT | DT_EXPANDTABS | DT_CALCRECT);
 167                 h = rect.bottom - rect.top;
 168                 w = rect.right - rect.left;
 169                 if (h > bh) bh = h;
 170                 if (w > bw)  bw = w ;
 171             }
 172         }
 173     }
 174     bw = max(bw, bh * 2);
 175     /* Button white space */
 176     bh = bh * 2;
 177     bw = bw * 2;
 178     bspace = bw/3; /* Space between buttons */
 179
 180     /* Get the text size */
 181     GetClientRect(GetDlgItem(hwnd, MSGBOX_IDTEXT), &rect);
 182     rect.top = rect.left = rect.bottom = 0;
 183     DrawTextA( hdc, lpszText, -1, &rect,
 184                DT_LEFT | DT_EXPANDTABS | DT_WORDBREAK | DT_CALCRECT);
 185     /* Min text width corresponds to space for the buttons */
 186     tleft = 2 * ileft + iwidth;
 187     twidth = max((bw + bspace) * buttons + bspace - tleft, rect.right);
 188     theight = rect.bottom;
 189
 190     if (hFont)
 191         SelectObject(hdc, hPrevFont);
 192     ReleaseDC(hItem, hdc);
 193
 194     tiheight = 16 + max(iheight, theight);
 195     wwidth  = tleft + twidth + ileft + borwidth;
 196     wheight = 8 + tiheight + bh + borheight;
 197
 198     /* Resize the window */
 199     SetWindowPos(hwnd, 0, 0, 0, wwidth, wheight,
 200                  SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 201
 202     /* Position the icon */
 203     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDICON), 0, ileft, (tiheight - iheight) / 2, 0, 0,
 204                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 205
 206     /* Position the text */
 207     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDTEXT), 0, tleft, (tiheight - theight) / 2, twidth, theight,
 208                  SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 209
 210     /* Position the buttons */
 211     bpos = (wwidth - (bw + bspace) * buttons + bspace) / 2;
 212     for (buttons = i = 0; i < 7; i++) {
 213         /* some arithmetic to get the right order for YesNoCancel windows */
 214         hItem = GetDlgItem(hwnd, (i + 5) % 7 + 1);
 215         if (GetWindowLongA(hItem, GWL_STYLE) & WS_VISIBLE) {
 216             if (buttons++ == ((lpmb->dwStyle & MB_DEFMASK) >> 8)) {
 217                 SetFocus(hItem);
 218                 SendMessageA( hItem, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE );
 219             }
 220             SetWindowPos(hItem, 0, bpos, tiheight, bw, bh,
 221                          SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOREDRAW);
 222             bpos += bw + bspace;
 223         }
 224     }
 225
 226     /* handle modal MessageBoxes */
 227     if (lpmb->dwStyle & (MB_TASKMODAL|MB_SYSTEMMODAL))
 228     {
 229         FIXME("%s modal msgbox ! Not modal yet.\n",
 230                 lpmb->dwStyle & MB_TASKMODAL ? "task" : "system");
 231         /* Probably do EnumTaskWindows etc. here for TASKMODAL
 232          * and work your way up to the top - I'm lazy (HWND_TOP) */
 233         SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0,
 234                         SWP_NOSIZE | SWP_NOMOVE);
 235         if (lpmb->dwStyle & MB_TASKMODAL)
 236             /* at least MB_TASKMODAL seems to imply a ShowWindow */
 237             ShowWindow(hwnd, SW_SHOW);
 238     }
 239     if (lpmb->dwStyle & MB_APPLMODAL)
 240         FIXME("app modal msgbox ! Not modal yet.\n");
 241
 242     return hFont;
 243 }
 244
 245
 246 /**************************************************************************
 247  *           MSGBOX_DlgProc
 248  *
 249  * Dialog procedure for message boxes.
 250  */
 251 static LRESULT CALLBACK MSGBOX_DlgProc( HWND hwnd, UINT message,
 252                                         WPARAM wParam, LPARAM lParam )
 253 {
 254   static HFONT hFont;
 255   switch(message) {
 256    case WM_INITDIALOG:
 257     hFont = MSGBOX_OnInit(hwnd, (LPMSGBOXPARAMSA)lParam);
 258     return 0;
 259
 260    case WM_COMMAND:
 261     switch (wParam)
 262     {
 263      case IDOK:
 264      case IDCANCEL:
 265      case IDABORT:
 266      case IDRETRY:
 267      case IDIGNORE:
 268      case IDYES:
 269      case IDNO:
 270       EndDialog(hwnd, wParam);
 271       if (hFont)
 272           DeleteObject(hFont);
 273       break;
 274     }
 275
 276    default:
 277      /* Ok. Ignore all the other messages */
 278      TRACE("Message number 0x%04x is being ignored.\n", message);
 279     break;
 280   }
 281   return 0;
 282 }
 283
 284
 285 /**************************************************************************
 286  *              MessageBoxA (USER32.@)
 287  *
 288  * NOTES
 289  *   The WARN is here to help debug erroneous MessageBoxes
 290  *   Use: -debugmsg warn+dialog,+relay
 291  */
 292 INT WINAPI MessageBoxA(HWND hWnd, LPCSTR text, LPCSTR title, UINT type)
 293 {
 294     LPVOID template;
 295     HRSRC hRes;
 296     MSGBOXPARAMSA mbox;
 297
 298     WARN("Messagebox\n");
 299
 300     if(!(hRes = FindResourceA(GetModuleHandleA("USER32"), "MSGBOX", RT_DIALOGA)))
 301         return 0;
 302     if(!(template = (LPVOID)LoadResource(GetModuleHandleA("USER32"), hRes)))
 303         return 0;
 304
 305     if (!text) text="<WINE-NULL>";
 306     if (!title)
 307       title="Error";
 308     mbox.lpszCaption = title;
 309     mbox.lpszText  = text;
 310     mbox.dwStyle  = type;
 311     return DialogBoxIndirectParamA( GetWindowLongA(hWnd,GWL_HINSTANCE), template,
 312                                       hWnd, (DLGPROC)MSGBOX_DlgProc, (LPARAM)&mbox );
 313 }
 314
 315
 316 /**************************************************************************
 317  *              MessageBoxW (USER32.@)
 318  */
 319 INT WINAPI MessageBoxW( HWND hwnd, LPCWSTR text, LPCWSTR title,
 320                             UINT type )
 321 {
 322     LPSTR titleA = HEAP_strdupWtoA( GetProcessHeap(), 0, title );
 323     LPSTR textA  = HEAP_strdupWtoA( GetProcessHeap(), 0, text );
 324     INT ret;
 325
 326     WARN("Messagebox\n");
 327
 328     ret = MessageBoxA( hwnd, textA, titleA, type );
 329     HeapFree( GetProcessHeap(), 0, titleA );
 330     HeapFree( GetProcessHeap(), 0, textA );
 331     return ret;
 332 }
 333
 334
 335 /**************************************************************************
 336  *              MessageBoxExA (USER32.@)
 337  */
 338 INT WINAPI MessageBoxExA( HWND hWnd, LPCSTR text, LPCSTR title,
 339                               UINT type, WORD langid )
 340 {
 341     WARN("Messagebox\n");
 342     /* ignore language id for now */
 343     return MessageBoxA(hWnd,text,title,type);
 344 }
 345
 346 /**************************************************************************
 347  *              MessageBoxExW (USER32.@)
 348  */
 349 INT WINAPI MessageBoxExW( HWND hWnd, LPCWSTR text, LPCWSTR title,
 350                               UINT type, WORD langid )
 351 {
 352     WARN("Messagebox\n");
 353     /* ignore language id for now */
 354     return MessageBoxW(hWnd,text,title,type);
 355 }
 356
 357 /**************************************************************************
 358  *              MessageBoxIndirectA (USER32.@)
 359  */
 360 INT WINAPI MessageBoxIndirectA( LPMSGBOXPARAMSA msgbox )
 361 {
 362     LPVOID template;
 363     HRSRC hRes;
 364
 365     WARN("Messagebox\n");
 366
 367     if(!(hRes = FindResourceA(GetModuleHandleA("USER32"), "MSGBOX", RT_DIALOGA)))
 368         return 0;
 369     if(!(template = (LPVOID)LoadResource(GetModuleHandleA("USER32"), hRes)))
 370         return 0;
 371
 372     return DialogBoxIndirectParamA( msgbox->hInstance, template,
 373                                       msgbox->hwndOwner, (DLGPROC)MSGBOX_DlgProc,
 374                                       (LPARAM)msgbox );
 375 }
 376
 377 /**************************************************************************
 378  *              MessageBoxIndirectW (USER32.@)
 379  */
 380 INT WINAPI MessageBoxIndirectW( LPMSGBOXPARAMSW msgbox )
 381 {
 382     MSGBOXPARAMSA       msgboxa;
 383     memcpy(&msgboxa,msgbox,sizeof(msgboxa));
 384     msgboxa.lpszCaption = HEAP_strdupWtoA( GetProcessHeap(), 0, msgbox->lpszCaption );
 385     msgboxa.lpszText = HEAP_strdupWtoA( GetProcessHeap(), 0, msgbox->lpszText );
 386     msgboxa.lpszIcon = HEAP_strdupWtoA( GetProcessHeap(), 0, msgbox->lpszIcon );
 387     return MessageBoxIndirectA(&msgboxa);
 388 }