windows/msgbox.c

   1 /*
   2  * Message boxes
   3  *
   4  * Copyright 1995 Bernd Schmidt
   5  */
   6
   7 #include <string.h>
   8
   9 #include "wine/winbase16.h"
  10 #include "wine/winuser16.h"
  11 #include "dlgs.h"
  12 #include "heap.h"
  13 #include "ldt.h"
  14 #include "debugtools.h"
  15 #include "debugstr.h"
  16 #include "tweak.h"
  17
  18 DEFAULT_DEBUG_CHANNEL(dialog)
  19
  20 #define MSGBOX_IDICON 1088
  21 #define MSGBOX_IDTEXT 100
  22
  23 static HFONT MSGBOX_OnInit(HWND hwnd, LPMSGBOXPARAMSA lpmb)
  24 {
  25     static HFONT hFont = 0, hPrevFont = 0;
  26     RECT rect;
  27     HWND hItem;
  28     HDC hdc;
  29     int i, buttons;
  30     int bspace, bw, bh, theight, tleft, wwidth, wheight, bpos;
  31     int borheight, borwidth, iheight, ileft, iwidth, twidth, tiheight;
  32
  33     if (TWEAK_WineLook >= WIN95_LOOK) {
  34         NONCLIENTMETRICSA nclm;
  35         INT i;
  36         nclm.cbSize = sizeof(NONCLIENTMETRICSA);
  37         SystemParametersInfoA (SPI_GETNONCLIENTMETRICS, 0, &nclm, 0);
  38         hFont = CreateFontIndirectA (&nclm.lfMessageFont);
  39         /* set button font */
  40         for (i=1; i < 8; i++)
  41             SendDlgItemMessageA (hwnd, i, WM_SETFONT, (WPARAM)hFont, 0);
  42         /* set text font */
  43         SendDlgItemMessageA (hwnd, MSGBOX_IDTEXT, WM_SETFONT, (WPARAM)hFont, 0);
  44     }
  45     if (lpmb->lpszCaption) SetWindowTextA(hwnd, lpmb->lpszCaption);
  46     SetWindowTextA(GetDlgItem(hwnd, MSGBOX_IDTEXT), lpmb->lpszText);
  47     /* Hide not selected buttons */
  48     switch(lpmb->dwStyle & MB_TYPEMASK) {
  49     case MB_OK:
  50         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
  51         /* fall through */
  52     case MB_OKCANCEL:
  53         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
  54         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
  55         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
  56         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
  57         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
  58         break;
  59     case MB_ABORTRETRYIGNORE:
  60         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
  61         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
  62         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
  63         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
  64         break;
  65     case MB_YESNO:
  66         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
  67         /* fall through */
  68     case MB_YESNOCANCEL:
  69         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
  70         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
  71         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
  72         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
  73         break;
  74     case MB_RETRYCANCEL:
  75         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
  76         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
  77         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
  78         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
  79         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
  80         break;
  81     }
  82     /* Set the icon */
  83     switch(lpmb->dwStyle & MB_ICONMASK) {
  84     case MB_ICONEXCLAMATION:
  85         SendDlgItemMessage16(hwnd, stc1, STM_SETICON16,
  86                              (WPARAM16)LoadIcon16(0, IDI_EXCLAMATION16), 0);
  87         break;
  88     case MB_ICONQUESTION:
  89         SendDlgItemMessage16(hwnd, stc1, STM_SETICON16,
  90                              (WPARAM16)LoadIcon16(0, IDI_QUESTION16), 0);
  91         break;
  92     case MB_ICONASTERISK:
  93         SendDlgItemMessage16(hwnd, stc1, STM_SETICON16,
  94                              (WPARAM16)LoadIcon16(0, IDI_ASTERISK16), 0);
  95         break;
  96     case MB_ICONHAND:
  97     default:
  98         SendDlgItemMessage16(hwnd, stc1, STM_SETICON16,
  99                              (WPARAM16)LoadIcon16(0, IDI_HAND16), 0);
 100         break;
 101     }
 102
 103     /* Position everything */
 104     GetWindowRect(hwnd, &rect);
 105     borheight = rect.bottom - rect.top;
 106     borwidth  = rect.right - rect.left;
 107     GetClientRect(hwnd, &rect);
 108     borheight -= rect.bottom - rect.top;
 109     borwidth  -= rect.right - rect.left;
 110
 111     /* Get the icon height */
 112     GetWindowRect(GetDlgItem(hwnd, MSGBOX_IDICON), &rect);
 113     MapWindowPoints(0, hwnd, (LPPOINT)&rect, 2);
 114     iheight = rect.bottom - rect.top;
 115     ileft = rect.left;
 116     iwidth = rect.right - ileft;
 117
 118     hdc = GetDC(hwnd);
 119     if (hFont)
 120         hPrevFont = SelectObject(hdc, hFont);
 121
 122     /* Get the number of visible buttons and their size */
 123     bh = bw = 1; /* Minimum button sizes */
 124     for (buttons = 0, i = 1; i < 8; i++)
 125     {
 126         hItem = GetDlgItem(hwnd, i);
 127         if (GetWindowLongA(hItem, GWL_STYLE) & WS_VISIBLE)
 128         {
 129             char buttonText[1024];
 130             int w, h;
 131             buttons++;
 132             if (GetWindowTextA(hItem, buttonText, sizeof buttonText))
 133             {
 134                 DrawTextA( hdc, buttonText, -1, &rect, DT_LEFT | DT_EXPANDTABS | DT_CALCRECT);
 135                 h = rect.bottom - rect.top;
 136                 w = rect.right - rect.left;
 137                 if (h > bh) bh = h;
 138                 if (w > bw)  bw = w ;
 139             }
 140         }
 141     }
 142     bw = MAX(bw, bh * 2);
 143     /* Button white space */
 144     bh = bh * 2;
 145     bw = bw * 2;
 146     bspace = bw/3; /* Space between buttons */
 147
 148     /* Get the text size */
 149     GetClientRect(GetDlgItem(hwnd, MSGBOX_IDTEXT), &rect);
 150     rect.top = rect.left = rect.bottom = 0;
 151     DrawTextA( hdc, lpmb->lpszText, -1, &rect,
 152                DT_LEFT | DT_EXPANDTABS | DT_WORDBREAK | DT_CALCRECT);
 153     /* Min text width corresponds to space for the buttons */
 154     tleft = 2 * ileft + iwidth;
 155     twidth = MAX((bw + bspace) * buttons + bspace - tleft, rect.right);
 156     theight = rect.bottom;
 157
 158     if (hFont)
 159         SelectObject(hdc, hPrevFont);
 160     ReleaseDC(hItem, hdc);
 161
 162     tiheight = 16 + MAX(iheight, theight);
 163     wwidth  = tleft + twidth + ileft + borwidth;
 164     wheight = 8 + tiheight + bh + borheight;
 165
 166     /* Resize the window */
 167     SetWindowPos(hwnd, 0, 0, 0, wwidth, wheight,
 168                  SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 169
 170     /* Position the icon */
 171     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDICON), 0, ileft, (tiheight - iheight) / 2, 0, 0,
 172                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 173
 174     /* Position the text */
 175     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDTEXT), 0, tleft, (tiheight - theight) / 2, twidth, theight,
 176                  SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
 177
 178     /* Position the buttons */
 179     bpos = (wwidth - (bw + bspace) * buttons + bspace) / 2;
 180     for (buttons = i = 0; i < 7; i++) {
 181         /* some arithmetic to get the right order for YesNoCancel windows */
 182         hItem = GetDlgItem(hwnd, (i + 5) % 7 + 1);
 183         if (GetWindowLongA(hItem, GWL_STYLE) & WS_VISIBLE) {
 184             if (buttons++ == ((lpmb->dwStyle & MB_DEFMASK) >> 8)) {
 185                 SetFocus(hItem);
 186                 SendMessageA( hItem, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE );
 187             }
 188             SetWindowPos(hItem, 0, bpos, tiheight, bw, bh,
 189                          SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOREDRAW);
 190             bpos += bw + bspace;
 191         }
 192     }
 193     return hFont;
 194 }
 195
 196
 197 /**************************************************************************
 198  *           MSGBOX_DlgProc
 199  *
 200  * Dialog procedure for message boxes.
 201  */
 202 static LRESULT CALLBACK MSGBOX_DlgProc( HWND hwnd, UINT message,
 203                                         WPARAM wParam, LPARAM lParam )
 204 {
 205   static HFONT hFont;
 206   switch(message) {
 207    case WM_INITDIALOG:
 208     hFont = MSGBOX_OnInit(hwnd, (LPMSGBOXPARAMSA)lParam);
 209     return 0;
 210
 211    case WM_COMMAND:
 212     switch (wParam)
 213     {
 214      case IDOK:
 215      case IDCANCEL:
 216      case IDABORT:
 217      case IDRETRY:
 218      case IDIGNORE:
 219      case IDYES:
 220      case IDNO:
 221       EndDialog(hwnd, wParam);
 222       if (hFont)
 223           DeleteObject(hFont);
 224       break;
 225     }
 226
 227    default:
 228      /* Ok. Ignore all the other messages */
 229      TRACE("Message number %i is being ignored.\n", message);
 230     break;
 231   }
 232   return 0;
 233 }
 234
 235
 236 /**************************************************************************
 237  *           MessageBox16   (USER.1)
 238  */
 239 INT16 WINAPI MessageBox16( HWND16 hwnd, LPCSTR text, LPCSTR title, UINT16 type)
 240 {
 241     WARN("Messagebox\n");
 242     return MessageBoxA( hwnd, text, title, type );
 243 }
 244
 245
 246 /**************************************************************************
 247  *           MessageBox32A   (USER32.391)
 248  *
 249  * NOTES
 250  *   The WARN is here to help debug erroneous MessageBoxes
 251  *   Use: -debugmsg warn+dialog,+relay
 252  */
 253 INT WINAPI MessageBoxA(HWND hWnd, LPCSTR text, LPCSTR title, UINT type)
 254 {
 255     LPVOID template;
 256     HRSRC hRes;
 257     MSGBOXPARAMSA mbox;
 258
 259     WARN("Messagebox\n");
 260
 261     if(!(hRes = FindResourceA(GetModuleHandleA("USER32"), "MSGBOX", RT_DIALOGA)))
 262         return 0;
 263     if(!(template = (LPVOID)LoadResource(GetModuleHandleA("USER32"), hRes)))
 264         return 0;
 265
 266     if (!text) text="<WINE-NULL>";
 267     if (!title)
 268       title="Error";
 269     mbox.lpszCaption = title;
 270     mbox.lpszText  = text;
 271     mbox.dwStyle  = type;
 272     return DialogBoxIndirectParamA( GetWindowLongA(hWnd,GWL_HINSTANCE), template,
 273                                       hWnd, (DLGPROC)MSGBOX_DlgProc, (LPARAM)&mbox );
 274 }
 275
 276
 277 /**************************************************************************
 278  *           MessageBox32W   (USER32.396)
 279  */
 280 INT WINAPI MessageBoxW( HWND hwnd, LPCWSTR text, LPCWSTR title,
 281                             UINT type )
 282 {
 283     LPSTR titleA = HEAP_strdupWtoA( GetProcessHeap(), 0, title );
 284     LPSTR textA  = HEAP_strdupWtoA( GetProcessHeap(), 0, text );
 285     INT ret;
 286
 287     WARN("Messagebox\n");
 288
 289     ret = MessageBoxA( hwnd, textA, titleA, type );
 290     HeapFree( GetProcessHeap(), 0, titleA );
 291     HeapFree( GetProcessHeap(), 0, textA );
 292     return ret;
 293 }
 294
 295
 296 /**************************************************************************
 297  *           MessageBoxEx32A   (USER32.392)
 298  */
 299 INT WINAPI MessageBoxExA( HWND hWnd, LPCSTR text, LPCSTR title,
 300                               UINT type, WORD langid )
 301 {
 302     WARN("Messagebox\n");
 303     /* ignore language id for now */
 304     return MessageBoxA(hWnd,text,title,type);
 305 }
 306
 307 /**************************************************************************
 308  *           MessageBoxEx32W   (USER32.393)
 309  */
 310 INT WINAPI MessageBoxExW( HWND hWnd, LPCWSTR text, LPCWSTR title,
 311                               UINT type, WORD langid )
 312 {
 313     WARN("Messagebox\n");
 314     /* ignore language id for now */
 315     return MessageBoxW(hWnd,text,title,type);
 316 }
 317
 318 /**************************************************************************
 319  *           MessageBoxIndirect16   (USER.827)
 320  */
 321 INT16 WINAPI MessageBoxIndirect16( LPMSGBOXPARAMS16 msgbox )
 322 {
 323     LPVOID template;
 324     HRSRC hRes;
 325     MSGBOXPARAMSA msgbox32;
 326
 327     WARN("Messagebox\n");
 328
 329     if(!(hRes = FindResourceA(GetModuleHandleA("USER32"), "MSGBOX", RT_DIALOGA)))
 330         return 0;
 331     if(!(template = (LPVOID)LoadResource(GetModuleHandleA("USER32"), hRes)))
 332         return 0;
 333
 334     msgbox32.cbSize             = msgbox->cbSize;
 335     msgbox32.hwndOwner          = msgbox->hwndOwner;
 336     msgbox32.hInstance          = msgbox->hInstance;
 337     msgbox32.lpszText           = PTR_SEG_TO_LIN(msgbox->lpszText);
 338     msgbox32.lpszCaption        = PTR_SEG_TO_LIN(msgbox->lpszCaption);
 339     msgbox32.dwStyle            = msgbox->dwStyle;
 340     msgbox32.lpszIcon           = PTR_SEG_TO_LIN(msgbox->lpszIcon);
 341     msgbox32.dwContextHelpId    = msgbox->dwContextHelpId;
 342     msgbox32.lpfnMsgBoxCallback = msgbox->lpfnMsgBoxCallback;
 343     msgbox32.dwLanguageId       = msgbox->dwLanguageId;
 344
 345     return DialogBoxIndirectParamA( msgbox32.hInstance, template,
 346                                       msgbox32.hwndOwner, (DLGPROC)MSGBOX_DlgProc,
 347                                       (LPARAM)&msgbox32 );
 348 }
 349
 350 /**************************************************************************
 351  *           MessageBoxIndirect32A   (USER32.394)
 352  */
 353 INT WINAPI MessageBoxIndirectA( LPMSGBOXPARAMSA msgbox )
 354 {
 355     LPVOID template;
 356     HRSRC hRes;
 357
 358     WARN("Messagebox\n");
 359
 360     if(!(hRes = FindResourceA(GetModuleHandleA("USER32"), "MSGBOX", RT_DIALOGA)))
 361         return 0;
 362     if(!(template = (LPVOID)LoadResource(GetModuleHandleA("USER32"), hRes)))
 363         return 0;
 364
 365     return DialogBoxIndirectParamA( msgbox->hInstance, template,
 366                                       msgbox->hwndOwner, (DLGPROC)MSGBOX_DlgProc,
 367                                       (LPARAM)msgbox );
 368 }
 369
 370 /**************************************************************************
 371  *           MessageBoxIndirect32W   (USER32.395)
 372  */
 373 INT WINAPI MessageBoxIndirectW( LPMSGBOXPARAMSW msgbox )
 374 {
 375     MSGBOXPARAMSA       msgboxa;
 376     WARN("Messagebox\n");
 377
 378     memcpy(&msgboxa,msgbox,sizeof(msgboxa));
 379     if (msgbox->lpszCaption)
 380       lstrcpyWtoA((LPSTR)msgboxa.lpszCaption,msgbox->lpszCaption);
 381     if (msgbox->lpszText)
 382       lstrcpyWtoA((LPSTR)msgboxa.lpszText,msgbox->lpszText);
 383
 384     return MessageBoxIndirectA(&msgboxa);
 385 }
 386
 387
 388 /**************************************************************************
 389  *           FatalAppExit16   (KERNEL.137)
 390  */
 391 void WINAPI FatalAppExit16( UINT16 action, LPCSTR str )
 392 {
 393     WARN("AppExit\n");
 394     FatalAppExitA( action, str );
 395 }
 396
 397
 398 /**************************************************************************
 399  *           FatalAppExit32A   (KERNEL32.108)
 400  */
 401 void WINAPI FatalAppExitA( UINT action, LPCSTR str )
 402 {
 403     WARN("AppExit\n");
 404     MessageBoxA( 0, str, NULL, MB_SYSTEMMODAL | MB_OK );
 405     ExitProcess(0);
 406 }
 407
 408
 409 /**************************************************************************
 410  *           FatalAppExit32W   (KERNEL32.109)
 411  */
 412 void WINAPI FatalAppExitW( UINT action, LPCWSTR str )
 413 {
 414     WARN("AppExit\n");
 415     MessageBoxW( 0, str, NULL, MB_SYSTEMMODAL | MB_OK );
 416     ExitProcess(0);
 417 }
 418
 419