Fix handling of text align modes for rotated text.
[wine] / 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 "winternl.h"
28 #include "dlgs.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 #define IDS_ERROR     2
37
38 static HFONT MSGBOX_OnInit(HWND hwnd, LPMSGBOXPARAMSW lpmb)
39 {
40     HFONT hFont = 0, hPrevFont = 0;
41     RECT rect;
42     HWND hItem;
43     HDC hdc;
44     int i, buttons;
45     int bspace, bw, bh, theight, tleft, wwidth, wheight, bpos;
46     int borheight, borwidth, iheight, ileft, iwidth, twidth, tiheight;
47     LPCWSTR lpszText;
48     WCHAR buf[256];
49
50     if (TWEAK_WineLook >= WIN95_LOOK) {
51         NONCLIENTMETRICSW nclm;
52         nclm.cbSize = sizeof(nclm);
53         SystemParametersInfoW (SPI_GETNONCLIENTMETRICS, 0, &nclm, 0);
54         hFont = CreateFontIndirectW (&nclm.lfMessageFont);
55         /* set button font */
56         for (i=1; i < 8; i++)
57             SendDlgItemMessageW (hwnd, i, WM_SETFONT, (WPARAM)hFont, 0);
58         /* set text font */
59         SendDlgItemMessageW (hwnd, MSGBOX_IDTEXT, WM_SETFONT, (WPARAM)hFont, 0);
60     }
61     if (HIWORD(lpmb->lpszCaption)) {
62        SetWindowTextW(hwnd, lpmb->lpszCaption);
63     } else {
64        UINT res_id = LOWORD(lpmb->lpszCaption);
65        if (res_id)
66        {
67            if (LoadStringW(lpmb->hInstance, res_id, buf, 256))
68                SetWindowTextW(hwnd, buf);
69        }
70        else
71        {
72            if (LoadStringW(GetModuleHandleA("user32.dll"), IDS_ERROR, buf, 256))
73                SetWindowTextW(hwnd, buf);
74        }
75     }
76     if (HIWORD(lpmb->lpszText)) {
77        lpszText = lpmb->lpszText;
78     } else {
79        lpszText = buf;
80        if (!LoadStringW(lpmb->hInstance, LOWORD(lpmb->lpszText), buf, 256))
81           *buf = 0;     /* FIXME ?? */
82     }
83     SetWindowTextW(GetDlgItem(hwnd, MSGBOX_IDTEXT), lpszText);
84
85     /* Hide not selected buttons */
86     switch(lpmb->dwStyle & MB_TYPEMASK) {
87     case MB_OK:
88         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
89         /* fall through */
90     case MB_OKCANCEL:
91         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
92         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
93         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
94         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
95         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
96         break;
97     case MB_ABORTRETRYIGNORE:
98         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
99         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
100         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
101         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
102         break;
103     case MB_YESNO:
104         ShowWindow(GetDlgItem(hwnd, IDCANCEL), SW_HIDE);
105         /* fall through */
106     case MB_YESNOCANCEL:
107         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
108         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
109         ShowWindow(GetDlgItem(hwnd, IDRETRY), SW_HIDE);
110         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
111         break;
112     case MB_RETRYCANCEL:
113         ShowWindow(GetDlgItem(hwnd, IDOK), SW_HIDE);
114         ShowWindow(GetDlgItem(hwnd, IDABORT), SW_HIDE);
115         ShowWindow(GetDlgItem(hwnd, IDIGNORE), SW_HIDE);
116         ShowWindow(GetDlgItem(hwnd, IDYES), SW_HIDE);
117         ShowWindow(GetDlgItem(hwnd, IDNO), SW_HIDE);
118         break;
119     }
120     /* Set the icon */
121     switch(lpmb->dwStyle & MB_ICONMASK) {
122     case MB_ICONEXCLAMATION:
123         SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
124                             (WPARAM)LoadIconW(0, IDI_EXCLAMATIONW), 0);
125         break;
126     case MB_ICONQUESTION:
127         SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
128                             (WPARAM)LoadIconW(0, IDI_QUESTIONW), 0);
129         break;
130     case MB_ICONASTERISK:
131         SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
132                             (WPARAM)LoadIconW(0, IDI_ASTERISKW), 0);
133         break;
134     case MB_ICONHAND:
135       SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
136                             (WPARAM)LoadIconW(0, IDI_HANDW), 0);
137       break;
138     case MB_USERICON:
139       SendDlgItemMessageW(hwnd, stc1, STM_SETICON,
140                           (WPARAM)LoadIconW(lpmb->hInstance, lpmb->lpszIcon), 0);
141       break;
142     default:
143         /* By default, Windows 95/98/NT do not associate an icon to message boxes.
144          * So wine should do the same.
145          */
146         break;
147     }
148
149     /* Position everything */
150     GetWindowRect(hwnd, &rect);
151     borheight = rect.bottom - rect.top;
152     borwidth  = rect.right - rect.left;
153     GetClientRect(hwnd, &rect);
154     borheight -= rect.bottom - rect.top;
155     borwidth  -= rect.right - rect.left;
156
157     /* Get the icon height */
158     GetWindowRect(GetDlgItem(hwnd, MSGBOX_IDICON), &rect);
159     MapWindowPoints(0, hwnd, (LPPOINT)&rect, 2);
160     if (!(lpmb->dwStyle & MB_ICONMASK))
161     {
162         rect.bottom = rect.top;
163         rect.right = rect.left;
164     }
165     iheight = rect.bottom - rect.top;
166     ileft = rect.left;
167     iwidth = rect.right - ileft;
168
169     hdc = GetDC(hwnd);
170     if (hFont)
171         hPrevFont = SelectObject(hdc, hFont);
172
173     /* Get the number of visible buttons and their size */
174     bh = bw = 1; /* Minimum button sizes */
175     for (buttons = 0, i = 1; i < 8; i++)
176     {
177         hItem = GetDlgItem(hwnd, i);
178         if (GetWindowLongW(hItem, GWL_STYLE) & WS_VISIBLE)
179         {
180             WCHAR buttonText[1024];
181             int w, h;
182             buttons++;
183             if (GetWindowTextW(hItem, buttonText, 1024))
184             {
185                 DrawTextW( hdc, buttonText, -1, &rect, DT_LEFT | DT_EXPANDTABS | DT_CALCRECT);
186                 h = rect.bottom - rect.top;
187                 w = rect.right - rect.left;
188                 if (h > bh) bh = h;
189                 if (w > bw)  bw = w ;
190             }
191         }
192     }
193     bw = max(bw, bh * 2);
194     /* Button white space */
195     bh = bh * 2;
196     bw = bw * 2;
197     bspace = bw/3; /* Space between buttons */
198
199     /* Get the text size */
200     GetClientRect(GetDlgItem(hwnd, MSGBOX_IDTEXT), &rect);
201     rect.top = rect.left = rect.bottom = 0;
202     DrawTextW( hdc, lpszText, -1, &rect,
203                DT_LEFT | DT_EXPANDTABS | DT_WORDBREAK | DT_CALCRECT);
204     /* Min text width corresponds to space for the buttons */
205     tleft = ileft;
206     if (iwidth) tleft += ileft + iwidth;
207     twidth = max((bw + bspace) * buttons + bspace - tleft, rect.right);
208     theight = rect.bottom;
209
210     if (hFont)
211         SelectObject(hdc, hPrevFont);
212     ReleaseDC(hItem, hdc);
213
214     tiheight = 16 + max(iheight, theight);
215     wwidth  = tleft + twidth + ileft + borwidth;
216     wheight = 8 + tiheight + bh + borheight;
217
218     /* Resize the window */
219     SetWindowPos(hwnd, 0, 0, 0, wwidth, wheight,
220                  SWP_NOMOVE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
221
222     /* Position the icon */
223     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDICON), 0, ileft, (tiheight - iheight) / 2, 0, 0,
224                  SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
225
226     /* Position the text */
227     SetWindowPos(GetDlgItem(hwnd, MSGBOX_IDTEXT), 0, tleft, (tiheight - theight) / 2, twidth, theight,
228                  SWP_NOZORDER | SWP_NOACTIVATE | SWP_NOREDRAW);
229
230     /* Position the buttons */
231     bpos = (wwidth - (bw + bspace) * buttons + bspace) / 2;
232     for (buttons = i = 0; i < 7; i++) {
233         /* some arithmetic to get the right order for YesNoCancel windows */
234         hItem = GetDlgItem(hwnd, (i + 5) % 7 + 1);
235         if (GetWindowLongW(hItem, GWL_STYLE) & WS_VISIBLE) {
236             if (buttons++ == ((lpmb->dwStyle & MB_DEFMASK) >> 8)) {
237                 SetFocus(hItem);
238                 SendMessageW( hItem, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE );
239             }
240             SetWindowPos(hItem, 0, bpos, tiheight, bw, bh,
241                          SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOREDRAW);
242             bpos += bw + bspace;
243         }
244     }
245
246     /* handle modal MessageBoxes */
247     if (lpmb->dwStyle & (MB_TASKMODAL|MB_SYSTEMMODAL))
248     {
249         FIXME("%s modal msgbox ! Not modal yet.\n",
250                 lpmb->dwStyle & MB_TASKMODAL ? "task" : "system");
251         /* Probably do EnumTaskWindows etc. here for TASKMODAL
252          * and work your way up to the top - I'm lazy (HWND_TOP) */
253         SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0,
254                         SWP_NOSIZE | SWP_NOMOVE);
255         if (lpmb->dwStyle & MB_TASKMODAL)
256             /* at least MB_TASKMODAL seems to imply a ShowWindow */
257             ShowWindow(hwnd, SW_SHOW);
258     }
259     if (lpmb->dwStyle & MB_APPLMODAL)
260         FIXME("app modal msgbox ! Not modal yet.\n");
261
262     return hFont;
263 }
264
265
266 /**************************************************************************
267  *           MSGBOX_DlgProc
268  *
269  * Dialog procedure for message boxes.
270  */
271 static INT_PTR CALLBACK MSGBOX_DlgProc( HWND hwnd, UINT message,
272                                         WPARAM wParam, LPARAM lParam )
273 {
274   HFONT hFont;
275
276   switch(message) {
277    case WM_INITDIALOG:
278    {
279        LPMSGBOXPARAMSW mbp = (LPMSGBOXPARAMSW)lParam;
280        SetWindowContextHelpId(hwnd, mbp->dwContextHelpId);
281        hFont = MSGBOX_OnInit(hwnd, mbp);
282        SetPropA(hwnd, "WINE_MSGBOX_HFONT", (HANDLE)hFont);
283        SetPropA(hwnd, "WINE_MSGBOX_HELPCALLBACK", (HANDLE)mbp->lpfnMsgBoxCallback);
284        break;
285    }
286
287    case WM_COMMAND:
288     switch (LOWORD(wParam))
289     {
290      case IDOK:
291      case IDCANCEL:
292      case IDABORT:
293      case IDRETRY:
294      case IDIGNORE:
295      case IDYES:
296      case IDNO:
297       hFont = GetPropA(hwnd, "WINE_MSGBOX_HFONT");
298       EndDialog(hwnd, wParam);
299       if (hFont)
300           DeleteObject(hFont);
301       break;
302     }
303     break;
304
305     case WM_HELP:
306     {
307         MSGBOXCALLBACK callback = (MSGBOXCALLBACK)GetPropA(hwnd, "WINE_MSGBOX_HELPCALLBACK");
308         HELPINFO hi;
309
310         memcpy(&hi, (void *)lParam, sizeof(hi));
311         hi.dwContextId = GetWindowContextHelpId(hwnd);
312
313         if (callback)
314             callback(&hi);
315         else
316             SendMessageW(GetWindow(hwnd, GW_OWNER), WM_HELP, 0, (LPARAM)&hi);
317         break;
318    }
319
320    default:
321      /* Ok. Ignore all the other messages */
322      TRACE("Message number 0x%04x is being ignored.\n", message);
323     break;
324   }
325   return 0;
326 }
327
328
329 /**************************************************************************
330  *              MessageBoxA (USER32.@)
331  *
332  * NOTES
333  *   The WARN is here to help debug erroneous MessageBoxes
334  *   Use: -debugmsg warn+dialog,+relay
335  */
336 INT WINAPI MessageBoxA(HWND hWnd, LPCSTR text, LPCSTR title, UINT type)
337 {
338     return MessageBoxExA(hWnd, text, title, type, LANG_NEUTRAL);
339 }
340
341
342 /**************************************************************************
343  *              MessageBoxW (USER32.@)
344  */
345 INT WINAPI MessageBoxW( HWND hwnd, LPCWSTR text, LPCWSTR title, UINT type )
346 {
347     return MessageBoxExW(hwnd, text, title, type, LANG_NEUTRAL);
348 }
349
350
351 /**************************************************************************
352  *              MessageBoxExA (USER32.@)
353  */
354 INT WINAPI MessageBoxExA( HWND hWnd, LPCSTR text, LPCSTR title,
355                               UINT type, WORD langid )
356 {
357     MSGBOXPARAMSA msgbox;
358
359     msgbox.cbSize = sizeof(msgbox);
360     msgbox.hwndOwner = hWnd;
361     msgbox.hInstance = 0;
362     msgbox.lpszText = text;
363     msgbox.lpszCaption = title;
364     msgbox.dwStyle = type;
365     msgbox.lpszIcon = NULL;
366     msgbox.dwContextHelpId = 0;
367     msgbox.lpfnMsgBoxCallback = NULL;
368     msgbox.dwLanguageId = langid;
369
370     return MessageBoxIndirectA(&msgbox);
371 }
372
373 /**************************************************************************
374  *              MessageBoxExW (USER32.@)
375  */
376 INT WINAPI MessageBoxExW( HWND hWnd, LPCWSTR text, LPCWSTR title,
377                               UINT type, WORD langid )
378 {
379     MSGBOXPARAMSW msgbox;
380
381     msgbox.cbSize = sizeof(msgbox);
382     msgbox.hwndOwner = hWnd;
383     msgbox.hInstance = 0;
384     msgbox.lpszText = text;
385     msgbox.lpszCaption = title;
386     msgbox.dwStyle = type;
387     msgbox.lpszIcon = NULL;
388     msgbox.dwContextHelpId = 0;
389     msgbox.lpfnMsgBoxCallback = NULL;
390     msgbox.dwLanguageId = langid;
391
392     return MessageBoxIndirectW(&msgbox);
393 }
394
395 /**************************************************************************
396  *              MessageBoxIndirectA (USER32.@)
397  */
398 INT WINAPI MessageBoxIndirectA( LPMSGBOXPARAMSA msgbox )
399 {
400     MSGBOXPARAMSW msgboxW;
401     UNICODE_STRING textW, captionW, iconW;
402     int ret;
403
404     if (HIWORD(msgbox->lpszText))
405         RtlCreateUnicodeStringFromAsciiz(&textW, msgbox->lpszText);
406     else
407         textW.Buffer = (LPWSTR)msgbox->lpszText;
408     if (HIWORD(msgbox->lpszCaption))
409         RtlCreateUnicodeStringFromAsciiz(&captionW, msgbox->lpszCaption);
410     else
411         captionW.Buffer = (LPWSTR)msgbox->lpszCaption;
412     if (HIWORD(msgbox->lpszIcon))
413         RtlCreateUnicodeStringFromAsciiz(&iconW, msgbox->lpszIcon);
414     else
415         iconW.Buffer = (LPWSTR)msgbox->lpszIcon;
416
417     msgboxW.cbSize = sizeof(msgboxW);
418     msgboxW.hwndOwner = msgbox->hwndOwner;
419     msgboxW.hInstance = msgbox->hInstance;
420     msgboxW.lpszText = textW.Buffer;
421     msgboxW.lpszCaption = captionW.Buffer;
422     msgboxW.dwStyle = msgbox->dwStyle;
423     msgboxW.lpszIcon = iconW.Buffer;
424     msgboxW.dwContextHelpId = msgbox->dwContextHelpId;
425     msgboxW.lpfnMsgBoxCallback = msgbox->lpfnMsgBoxCallback;
426     msgboxW.dwLanguageId = msgbox->dwLanguageId;
427
428     ret = MessageBoxIndirectW(&msgboxW);
429
430     if (HIWORD(textW.Buffer)) RtlFreeUnicodeString(&textW);
431     if (HIWORD(captionW.Buffer)) RtlFreeUnicodeString(&captionW);
432     if (HIWORD(iconW.Buffer)) RtlFreeUnicodeString(&iconW);
433     return ret;
434 }
435
436 /**************************************************************************
437  *              MessageBoxIndirectW (USER32.@)
438  */
439 INT WINAPI MessageBoxIndirectW( LPMSGBOXPARAMSW msgbox )
440 {
441     LPVOID tmplate;
442     HRSRC hRes;
443     HMODULE hUser32;
444     static const WCHAR user32_res_nameW[] = { 'u','s','e','r','3','2','.','d','l','l',0 };
445     static const WCHAR msg_box_res_nameW[] = { 'M','S','G','B','O','X',0 };
446
447     hUser32 = GetModuleHandleW(user32_res_nameW);
448     if (!(hRes = FindResourceExW(hUser32, RT_DIALOGW, msg_box_res_nameW, msgbox->dwLanguageId)))
449         return 0;
450     if (!(tmplate = (LPVOID)LoadResource(hUser32, hRes)))
451         return 0;
452
453     return DialogBoxIndirectParamW(msgbox->hInstance, tmplate, msgbox->hwndOwner,
454                                    MSGBOX_DlgProc, (LPARAM)msgbox);
455 }