winhlp32: Update Norwegian Bokmål translation.
[wine] / programs / winhlp32 / winhelp.c
1 /*
2  * Help Viewer
3  *
4  * Copyright    1996 Ulrich Schmid <uschmid@mail.hh.provi.de>
5  *              2002 Sylvain Petreolle <spetreolle@yahoo.fr>
6  *              2002, 2008 Eric Pouech <eric.pouech@wanadoo.fr>
7  *              2004 Ken Belleau <jamez@ivic.qc.ca>
8  *              2008 Kirill K. Smirnov <lich@math.spbu.ru>
9  *
10  * This library is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU Lesser General Public
12  * License as published by the Free Software Foundation; either
13  * version 2.1 of the License, or (at your option) any later version.
14  *
15  * This library is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18  * Lesser General Public License for more details.
19  *
20  * You should have received a copy of the GNU Lesser General Public
21  * License along with this library; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23  */
24
25 #include <assert.h>
26 #include <stdio.h>
27 #include <string.h>
28 #include <stdarg.h>
29 #include <stdlib.h>
30
31 #define NONAMELESSUNION
32 #define NONAMELESSSTRUCT
33
34 #include "windef.h"
35 #include "winbase.h"
36 #include "wingdi.h"
37 #include "winuser.h"
38 #include "commdlg.h"
39 #include "winhelp.h"
40 #include "winhelp_res.h"
41 #include "shellapi.h"
42 #include "richedit.h"
43 #include "commctrl.h"
44
45 #include "wine/debug.h"
46
47 WINE_DEFAULT_DEBUG_CHANNEL(winhelp);
48
49 static BOOL    WINHELP_RegisterWinClasses(void);
50 static LRESULT CALLBACK WINHELP_MainWndProc(HWND, UINT, WPARAM, LPARAM);
51 static LRESULT CALLBACK WINHELP_ButtonBoxWndProc(HWND, UINT, WPARAM, LPARAM);
52 static LRESULT CALLBACK WINHELP_ButtonWndProc(HWND, UINT, WPARAM, LPARAM);
53 static LRESULT CALLBACK WINHELP_HistoryWndProc(HWND, UINT, WPARAM, LPARAM);
54 static LRESULT CALLBACK WINHELP_ShadowWndProc(HWND, UINT, WPARAM, LPARAM);
55 static BOOL    WINHELP_CheckPopup(HWND, UINT, WPARAM, LPARAM, LRESULT*);
56 static void    WINHELP_InitFonts(HWND hWnd);
57 static void    WINHELP_DeleteWindow(WINHELP_WINDOW*);
58 static void    WINHELP_DeleteButtons(WINHELP_WINDOW*);
59 static void    WINHELP_SetupText(HWND hWnd, WINHELP_WINDOW *win, ULONG relative);
60 static void    WINHELP_DeletePageLinks(HLPFILE_PAGE* page);
61
62 WINHELP_GLOBALS Globals = {3, NULL, TRUE, NULL, NULL, NULL, NULL, NULL, {{{NULL,NULL}},0}, NULL};
63
64 #define CTL_ID_BUTTON   0x700
65 #define CTL_ID_TEXT     0x701
66
67 /***********************************************************************
68  *
69  *           WINHELP_GetOpenFileName
70  */
71 BOOL WINHELP_GetOpenFileName(LPSTR lpszFile, int len)
72 {
73     OPENFILENAME openfilename;
74     CHAR szDir[MAX_PATH];
75     CHAR szzFilter[2 * MAX_STRING_LEN + 100];
76     LPSTR p = szzFilter;
77
78     WINE_TRACE("()\n");
79
80     LoadString(Globals.hInstance, STID_HELP_FILES_HLP, p, MAX_STRING_LEN);
81     p += strlen(p) + 1;
82     lstrcpy(p, "*.hlp");
83     p += strlen(p) + 1;
84     LoadString(Globals.hInstance, STID_ALL_FILES, p, MAX_STRING_LEN);
85     p += strlen(p) + 1;
86     lstrcpy(p, "*.*");
87     p += strlen(p) + 1;
88     *p = '\0';
89
90     GetCurrentDirectory(sizeof(szDir), szDir);
91
92     lpszFile[0]='\0';
93
94     openfilename.lStructSize       = sizeof(OPENFILENAME);
95     openfilename.hwndOwner         = NULL;
96     openfilename.hInstance         = Globals.hInstance;
97     openfilename.lpstrFilter       = szzFilter;
98     openfilename.lpstrCustomFilter = 0;
99     openfilename.nMaxCustFilter    = 0;
100     openfilename.nFilterIndex      = 1;
101     openfilename.lpstrFile         = lpszFile;
102     openfilename.nMaxFile          = len;
103     openfilename.lpstrFileTitle    = 0;
104     openfilename.nMaxFileTitle     = 0;
105     openfilename.lpstrInitialDir   = szDir;
106     openfilename.lpstrTitle        = 0;
107     openfilename.Flags             = 0;
108     openfilename.nFileOffset       = 0;
109     openfilename.nFileExtension    = 0;
110     openfilename.lpstrDefExt       = 0;
111     openfilename.lCustData         = 0;
112     openfilename.lpfnHook          = 0;
113     openfilename.lpTemplateName    = 0;
114
115     return GetOpenFileName(&openfilename);
116 }
117
118 static char* WINHELP_GetCaption(WINHELP_WNDPAGE* wpage)
119 {
120     if (wpage->wininfo->caption[0]) return wpage->wininfo->caption;
121     return wpage->page->file->lpszTitle;
122 }
123
124 /***********************************************************************
125  *
126  *           WINHELP_LookupHelpFile
127  */
128 HLPFILE* WINHELP_LookupHelpFile(LPCSTR lpszFile)
129 {
130     HLPFILE*        hlpfile;
131     char szFullName[MAX_PATH];
132     char szAddPath[MAX_PATH];
133     char *p;
134
135     /*
136      * NOTE: This is needed by popup windows only.
137      * In other cases it's not needed but does not hurt though.
138      */
139     if (Globals.active_win && Globals.active_win->page && Globals.active_win->page->file)
140     {
141         strcpy(szAddPath, Globals.active_win->page->file->lpszPath);
142         p = strrchr(szAddPath, '\\');
143         if (p) *p = 0;
144     }
145
146     /*
147      * FIXME: Should we swap conditions?
148      */
149     if (!SearchPath(NULL, lpszFile, ".hlp", MAX_PATH, szFullName, NULL) &&
150         !SearchPath(szAddPath, lpszFile, ".hlp", MAX_PATH, szFullName, NULL))
151     {
152         if (WINHELP_MessageBoxIDS_s(STID_FILE_NOT_FOUND_s, lpszFile, STID_WHERROR,
153                                     MB_YESNO|MB_ICONQUESTION) != IDYES)
154             return NULL;
155         if (!WINHELP_GetOpenFileName(szFullName, MAX_PATH))
156             return NULL;
157     }
158     hlpfile = HLPFILE_ReadHlpFile(szFullName);
159     if (!hlpfile)
160         WINHELP_MessageBoxIDS_s(STID_HLPFILE_ERROR_s, lpszFile,
161                                 STID_WHERROR, MB_OK|MB_ICONSTOP);
162     return hlpfile;
163 }
164
165 /******************************************************************
166  *              WINHELP_GetWindowInfo
167  *
168  *
169  */
170 HLPFILE_WINDOWINFO*     WINHELP_GetWindowInfo(HLPFILE* hlpfile, LPCSTR name)
171 {
172     static      HLPFILE_WINDOWINFO      mwi;
173     unsigned int     i;
174
175     if (!name || !name[0])
176         name = Globals.active_win->lpszName;
177
178     if (hlpfile)
179         for (i = 0; i < hlpfile->numWindows; i++)
180             if (!strcmp(hlpfile->windows[i].name, name))
181                 return &hlpfile->windows[i];
182
183     if (strcmp(name, "main") != 0)
184     {
185         WINE_FIXME("Couldn't find window info for %s\n", name);
186         assert(0);
187         return NULL;
188     }
189     if (!mwi.name[0])
190     {
191         strcpy(mwi.type, "primary");
192         strcpy(mwi.name, "main");
193         if (!LoadString(Globals.hInstance, STID_WINE_HELP, 
194                         mwi.caption, sizeof(mwi.caption)))
195             strcpy(mwi.caption, hlpfile->lpszTitle);
196         mwi.origin.x = mwi.origin.y = mwi.size.cx = mwi.size.cy = CW_USEDEFAULT;
197         mwi.style = SW_SHOW;
198         mwi.win_style = WS_OVERLAPPEDWINDOW;
199         mwi.sr_color = mwi.sr_color = 0xFFFFFF;
200     }
201     return &mwi;
202 }
203
204 /******************************************************************
205  *              HLPFILE_GetPopupWindowInfo
206  *
207  *
208  */
209 static HLPFILE_WINDOWINFO*     WINHELP_GetPopupWindowInfo(HLPFILE* hlpfile,
210                                                           WINHELP_WINDOW* parent, LPARAM mouse)
211 {
212     static      HLPFILE_WINDOWINFO      wi;
213
214     RECT parent_rect;
215     
216     wi.type[0] = wi.name[0] = wi.caption[0] = '\0';
217
218     /* Calculate horizontal size and position of a popup window */
219     GetWindowRect(parent->hMainWnd, &parent_rect);
220     wi.size.cx = (parent_rect.right  - parent_rect.left) / 2;
221     wi.size.cy = 10; /* need a non null value, so that border are taken into account while computing */
222
223     wi.origin.x = (short)LOWORD(mouse);
224     wi.origin.y = (short)HIWORD(mouse);
225     ClientToScreen(parent->hMainWnd, &wi.origin);
226     wi.origin.x -= wi.size.cx / 2;
227     wi.origin.x  = min(wi.origin.x, GetSystemMetrics(SM_CXSCREEN) - wi.size.cx);
228     wi.origin.x  = max(wi.origin.x, 0);
229
230     wi.style = SW_SHOW;
231     wi.win_style = WS_POPUP | WS_BORDER;
232     if (parent->page->file->has_popup_color)
233         wi.sr_color = parent->page->file->popup_color;
234     else
235         wi.sr_color = parent->info->sr_color;
236     wi.nsr_color = 0xFFFFFF;
237
238     return &wi;
239 }
240
241 /***********************************************************************
242  *
243  *           WinMain
244  */
245 int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE prev, LPSTR cmdline, int show)
246 {
247     MSG                 msg;
248     LONG                lHash = 0;
249     HLPFILE*            hlpfile;
250     static CHAR         default_wndname[] = "main";
251     LPSTR               wndname = default_wndname;
252     WINHELP_DLL*        dll;
253
254     Globals.hInstance = hInstance;
255
256     if (LoadLibrary("riched20.dll") == NULL)
257         return MessageBox(0, MAKEINTRESOURCE(STID_NO_RICHEDIT),
258                           MAKEINTRESOURCE(STID_WHERROR), MB_OK);
259
260     /* Get options */
261     while (*cmdline && (*cmdline == ' ' || *cmdline == '-'))
262     {
263         CHAR   option;
264         LPCSTR topic_id;
265         if (*cmdline++ == ' ') continue;
266
267         option = *cmdline;
268         if (option) cmdline++;
269         while (*cmdline && *cmdline == ' ') cmdline++;
270         switch (option)
271         {
272         case 'i':
273         case 'I':
274             topic_id = cmdline;
275             while (*cmdline && *cmdline != ' ') cmdline++;
276             if (*cmdline) *cmdline++ = '\0';
277             lHash = HLPFILE_Hash(topic_id);
278             break;
279
280         case '3':
281         case '4':
282             Globals.wVersion = option - '0';
283             break;
284
285         case 'x':
286             show = SW_HIDE; 
287             Globals.isBook = FALSE;
288             break;
289
290         default:
291             WINE_FIXME("Unsupported cmd line: %s\n", cmdline);
292             break;
293         }
294     }
295
296     /* Create primary window */
297     if (!WINHELP_RegisterWinClasses())
298     {
299         WINE_FIXME("Couldn't register classes\n");
300         return 0;
301     }
302
303     if (*cmdline)
304     {
305         char*   ptr;
306         if ((*cmdline == '"') && (ptr = strchr(cmdline+1, '"')))
307         {
308             cmdline++;
309             *ptr = '\0';
310         }
311         if ((ptr = strchr(cmdline, '>')))
312         {
313             *ptr = '\0';
314             wndname = ptr + 1;
315         }
316         hlpfile = WINHELP_LookupHelpFile(cmdline);
317         if (!hlpfile) return 0;
318     }
319     else hlpfile = NULL;
320     WINHELP_OpenHelpWindow(HLPFILE_PageByHash, hlpfile, lHash,
321                            WINHELP_GetWindowInfo(hlpfile, wndname), show);
322
323     /* Message loop */
324     while (GetMessage(&msg, 0, 0, 0))
325     {
326         TranslateMessage(&msg);
327         DispatchMessage(&msg);
328     }
329     for (dll = Globals.dlls; dll; dll = dll->next)
330     {
331         if (dll->class & DC_INITTERM) dll->handler(DW_TERM, 0, 0);
332     }
333     return 0;
334 }
335
336 /***********************************************************************
337  *
338  *           RegisterWinClasses
339  */
340 static BOOL WINHELP_RegisterWinClasses(void)
341 {
342     WNDCLASS class_main, class_button_box, class_shadow, class_history;
343
344     class_main.style               = CS_HREDRAW | CS_VREDRAW;
345     class_main.lpfnWndProc         = WINHELP_MainWndProc;
346     class_main.cbClsExtra          = 0;
347     class_main.cbWndExtra          = sizeof(LONG);
348     class_main.hInstance           = Globals.hInstance;
349     class_main.hIcon               = LoadIcon(Globals.hInstance, MAKEINTRESOURCE(IDI_WINHELP));
350     class_main.hCursor             = LoadCursor(0, IDC_ARROW);
351     class_main.hbrBackground       = (HBRUSH)(COLOR_WINDOW+1);
352     class_main.lpszMenuName        = 0;
353     class_main.lpszClassName       = MAIN_WIN_CLASS_NAME;
354
355     class_button_box               = class_main;
356     class_button_box.lpfnWndProc   = WINHELP_ButtonBoxWndProc;
357     class_button_box.cbWndExtra    = 0;
358     class_button_box.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
359     class_button_box.lpszClassName = BUTTON_BOX_WIN_CLASS_NAME;
360
361     class_shadow                   = class_main;
362     class_shadow.lpfnWndProc       = WINHELP_ShadowWndProc;
363     class_shadow.cbWndExtra        = 0;
364     class_shadow.hbrBackground     = (HBRUSH)(COLOR_3DDKSHADOW+1);
365     class_shadow.lpszClassName     = SHADOW_WIN_CLASS_NAME;
366
367     class_history                  = class_main;
368     class_history.lpfnWndProc      = WINHELP_HistoryWndProc;
369     class_history.lpszClassName    = HISTORY_WIN_CLASS_NAME;
370
371     return (RegisterClass(&class_main) &&
372             RegisterClass(&class_button_box) &&
373             RegisterClass(&class_shadow) &&
374             RegisterClass(&class_history));
375 }
376
377 typedef struct
378 {
379     WORD size;
380     WORD command;
381     LONG data;
382     LONG reserved;
383     WORD ofsFilename;
384     WORD ofsData;
385 } WINHELP,*LPWINHELP;
386
387 static BOOL WINHELP_HasWorkingWindow(void)
388 {
389     if (!Globals.active_win) return FALSE;
390     if (Globals.active_win->next || Globals.win_list != Globals.active_win) return TRUE;
391     return Globals.active_win->page != NULL && Globals.active_win->page->file != NULL;
392 }
393
394 /******************************************************************
395  *              WINHELP_HandleCommand
396  *
397  *
398  */
399 static LRESULT  WINHELP_HandleCommand(HWND hSrcWnd, LPARAM lParam)
400 {
401     COPYDATASTRUCT*     cds = (COPYDATASTRUCT*)lParam;
402     WINHELP*            wh;
403
404     if (cds->dwData != 0xA1DE505)
405     {
406         WINE_FIXME("Wrong magic number (%08lx)\n", cds->dwData);
407         return 0;
408     }
409
410     wh = (WINHELP*)cds->lpData;
411
412     if (wh)
413     {
414         char*   ptr = (wh->ofsFilename) ? (LPSTR)wh + wh->ofsFilename : NULL;
415
416         WINE_TRACE("Got[%u]: cmd=%u data=%08x fn=%s\n",
417                    wh->size, wh->command, wh->data, ptr);
418         switch (wh->command)
419         {
420         case HELP_CONTEXT:
421             if (ptr)
422             {
423                 MACRO_JumpContext(ptr, "main", wh->data);
424             }
425             if (!WINHELP_HasWorkingWindow()) MACRO_Exit();
426             break;
427         case HELP_QUIT:
428             MACRO_Exit();
429             break;
430         case HELP_CONTENTS:
431             if (ptr)
432             {
433                 MACRO_JumpContents(ptr, "main");
434             }
435             if (!WINHELP_HasWorkingWindow()) MACRO_Exit();
436             break;
437         case HELP_HELPONHELP:
438             MACRO_HelpOn();
439             if (!WINHELP_HasWorkingWindow()) MACRO_Exit();
440             break;
441         /* case HELP_SETINDEX: */
442         case HELP_SETCONTENTS:
443             if (ptr)
444             {
445                 MACRO_SetContents(ptr, wh->data);
446             }
447             break;
448         case HELP_CONTEXTPOPUP:
449             if (ptr)
450             {
451                 MACRO_PopupContext(ptr, wh->data);
452             }
453             break;
454         /* case HELP_FORCEFILE:*/
455         /* case HELP_CONTEXTMENU: */
456         case HELP_FINDER:
457             /* in fact, should be the topic dialog box */
458             WINE_FIXME("HELP_FINDER: stub\n");
459             if (ptr)
460             {
461                 MACRO_JumpHash(ptr, "main", 0);
462             }
463             break;
464         /* case HELP_WM_HELP: */
465         /* case HELP_SETPOPUP_POS: */
466         /* case HELP_KEY: */
467         /* case HELP_COMMAND: */
468         /* case HELP_PARTIALKEY: */
469         /* case HELP_MULTIKEY: */
470         /* case HELP_SETWINPOS: */
471         default:
472             WINE_FIXME("Unhandled command (%x) for remote winhelp control\n", wh->command);
473             break;
474         }
475     }
476     /* Always return success for now */
477     return 1;
478 }
479
480 void            WINHELP_LayoutMainWindow(WINHELP_WINDOW* win)
481 {
482     RECT        rect, button_box_rect;
483     INT         text_top = 0;
484     HWND        hButtonBoxWnd = GetDlgItem(win->hMainWnd, CTL_ID_BUTTON);
485     HWND        hTextWnd = GetDlgItem(win->hMainWnd, CTL_ID_TEXT);
486
487     GetClientRect(win->hMainWnd, &rect);
488
489     /* Update button box and text Window */
490     SetWindowPos(hButtonBoxWnd, HWND_TOP,
491                  rect.left, rect.top,
492                  rect.right - rect.left,
493                  rect.bottom - rect.top, 0);
494
495     if (GetWindowRect(hButtonBoxWnd, &button_box_rect))
496         text_top = rect.top + button_box_rect.bottom - button_box_rect.top;
497
498     SetWindowPos(hTextWnd, HWND_TOP,
499                  rect.left, text_top,
500                  rect.right - rect.left,
501                  rect.bottom - text_top, 0);
502
503 }
504
505 static void     WINHELP_RememberPage(WINHELP_WINDOW* win, WINHELP_WNDPAGE* wpage)
506 {
507     unsigned        num;
508
509     if (!Globals.history.index || Globals.history.set[0].page != wpage->page)
510     {
511         num = sizeof(Globals.history.set) / sizeof(Globals.history.set[0]);
512         /* we're full, remove latest entry */
513         if (Globals.history.index == num)
514         {
515             HLPFILE_FreeHlpFile(Globals.history.set[num - 1].page->file);
516             Globals.history.index--;
517         }
518         memmove(&Globals.history.set[1], &Globals.history.set[0],
519                 Globals.history.index * sizeof(Globals.history.set[0]));
520         Globals.history.set[0] = *wpage;
521         Globals.history.index++;
522         wpage->page->file->wRefCount++;
523     }
524     if (win->hHistoryWnd) InvalidateRect(win->hHistoryWnd, NULL, TRUE);
525
526     num = sizeof(win->back.set) / sizeof(win->back.set[0]);
527     if (win->back.index == num)
528     {
529         /* we're full, remove latest entry */
530         HLPFILE_FreeHlpFile(win->back.set[0].page->file);
531         memmove(&win->back.set[0], &win->back.set[1],
532                 (num - 1) * sizeof(win->back.set[0]));
533         win->back.index--;
534     }
535     win->back.set[win->back.index++] = *wpage;
536     wpage->page->file->wRefCount++;
537 }
538
539 /***********************************************************************
540  *
541  *           WINHELP_CreateHelpWindow
542  */
543 BOOL WINHELP_CreateHelpWindow(WINHELP_WNDPAGE* wpage, int nCmdShow, BOOL remember)
544 {
545     WINHELP_WINDOW*     win = NULL;
546     BOOL                bPrimary, bPopup, bReUsed = FALSE;
547     LPSTR               name;
548     HICON               hIcon;
549     HWND                hTextWnd = NULL;
550
551     bPrimary = !lstrcmpi(wpage->wininfo->name, "main");
552     bPopup = !bPrimary && (wpage->wininfo->win_style & WS_POPUP);
553
554     if (!bPopup)
555     {
556         for (win = Globals.win_list; win; win = win->next)
557         {
558             if (!lstrcmpi(win->lpszName, wpage->wininfo->name))
559             {
560                 POINT   pt = {0, 0};
561                 SIZE    sz = {0, 0};
562                 DWORD   flags = SWP_NOSIZE | SWP_NOMOVE;
563
564                 WINHELP_DeleteButtons(win);
565                 bReUsed = TRUE;
566                 SetWindowText(win->hMainWnd, WINHELP_GetCaption(wpage));
567                 if (wpage->wininfo->origin.x != CW_USEDEFAULT &&
568                     wpage->wininfo->origin.y != CW_USEDEFAULT)
569                 {
570                     pt = wpage->wininfo->origin;
571                     flags &= ~SWP_NOSIZE;
572                 }
573                 if (wpage->wininfo->size.cx != CW_USEDEFAULT &&
574                     wpage->wininfo->size.cy != CW_USEDEFAULT)
575                 {
576                     sz = wpage->wininfo->size;
577                     flags &= ~SWP_NOMOVE;
578                 }
579                 SetWindowPos(win->hMainWnd, HWND_TOP, pt.x, pt.y, sz.cx, sz.cy, flags);
580
581                 if (wpage->page && win->page && wpage->page->file != win->page->file)
582                     WINHELP_DeleteBackSet(win);
583                 WINHELP_InitFonts(win->hMainWnd);
584
585                 win->page = wpage->page;
586                 win->info = wpage->wininfo;
587                 hTextWnd = GetDlgItem(win->hMainWnd, CTL_ID_TEXT);
588                 WINHELP_SetupText(hTextWnd, win, wpage->relative);
589
590                 InvalidateRect(win->hMainWnd, NULL, TRUE);
591                 if (win->hHistoryWnd) InvalidateRect(win->hHistoryWnd, NULL, TRUE);
592
593                 break;
594             }
595         }
596     }
597
598     if (!win)
599     {
600         /* Initialize WINHELP_WINDOW struct */
601         win = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
602                         sizeof(WINHELP_WINDOW) + strlen(wpage->wininfo->name) + 1);
603         if (!win) return FALSE;
604         win->next = Globals.win_list;
605         Globals.win_list = win;
606
607         name = (char*)win + sizeof(WINHELP_WINDOW);
608         lstrcpy(name, wpage->wininfo->name);
609         win->lpszName = name;
610         win->hHandCur = LoadCursorW(0, (LPWSTR)IDC_HAND);
611         win->back.index = 0;
612         win->font_scale = 1;
613     }
614     win->page = wpage->page;
615     win->info = wpage->wininfo;
616
617     if (!bPopup && wpage->page && remember)
618     {
619         WINHELP_RememberPage(win, wpage);
620     }
621
622     if (bPopup)
623         Globals.active_popup = win;
624     else
625         Globals.active_win = win;
626
627     /* Initialize default pushbuttons */
628     if (bPrimary && wpage->page)
629     {
630         CHAR    buffer[MAX_STRING_LEN];
631
632         LoadString(Globals.hInstance, STID_CONTENTS, buffer, sizeof(buffer));
633         MACRO_CreateButton("BTN_CONTENTS", buffer, "Contents()");
634         LoadString(Globals.hInstance, STID_INDEX, buffer, sizeof(buffer));
635         MACRO_CreateButton("BTN_INDEX", buffer, "Finder()");
636         LoadString(Globals.hInstance, STID_BACK, buffer, sizeof(buffer));
637         MACRO_CreateButton("BTN_BACK", buffer, "Back()");
638         if (win->back.index <= 1) MACRO_DisableButton("BTN_BACK");
639     }
640
641     if (!bReUsed)
642     {
643         win->hMainWnd = CreateWindowEx((bPopup) ? WS_EX_TOOLWINDOW : 0, MAIN_WIN_CLASS_NAME,
644                                        WINHELP_GetCaption(wpage),
645                                        bPrimary ? WS_OVERLAPPEDWINDOW : wpage->wininfo->win_style,
646                                        wpage->wininfo->origin.x, wpage->wininfo->origin.y,
647                                        wpage->wininfo->size.cx, wpage->wininfo->size.cy,
648                                        bPopup ? Globals.active_win->hMainWnd : NULL,
649                                        bPrimary ? LoadMenu(Globals.hInstance, MAKEINTRESOURCE(MAIN_MENU)) : 0,
650                                        Globals.hInstance, win);
651         if (!bPopup)
652             /* Create button box and text Window */
653             CreateWindow(BUTTON_BOX_WIN_CLASS_NAME, "", WS_CHILD | WS_VISIBLE,
654                          0, 0, 0, 0, win->hMainWnd, (HMENU)CTL_ID_BUTTON, Globals.hInstance, NULL);
655
656         hTextWnd = CreateWindow(RICHEDIT_CLASS, NULL,
657                                 ES_MULTILINE | ES_READONLY | WS_CHILD | WS_HSCROLL | WS_VSCROLL | WS_VISIBLE,
658                                 0, 0, 0, 0, win->hMainWnd, (HMENU)CTL_ID_TEXT, Globals.hInstance, NULL);
659         SendMessage(hTextWnd, EM_SETEVENTMASK, 0,
660                     SendMessage(hTextWnd, EM_GETEVENTMASK, 0, 0) | ENM_MOUSEEVENTS);
661     }
662
663     hIcon = (wpage->page) ? wpage->page->file->hIcon : NULL;
664     if (!hIcon) hIcon = LoadIcon(Globals.hInstance, MAKEINTRESOURCE(IDI_WINHELP));
665     SendMessage(win->hMainWnd, WM_SETICON, ICON_SMALL, (DWORD_PTR)hIcon);
666
667     /* Initialize file specific pushbuttons */
668     if (!(wpage->wininfo->win_style & WS_POPUP) && wpage->page)
669     {
670         HLPFILE_MACRO  *macro;
671         for (macro = wpage->page->file->first_macro; macro; macro = macro->next)
672             MACRO_ExecuteMacro(macro->lpszMacro);
673
674         for (macro = wpage->page->first_macro; macro; macro = macro->next)
675             MACRO_ExecuteMacro(macro->lpszMacro);
676     }
677
678     if (bPopup)
679     {
680         DWORD   mask = SendMessage(hTextWnd, EM_GETEVENTMASK, 0, 0);
681         RECT    rect;
682
683         win->font_scale = Globals.active_win->font_scale;
684         WINHELP_SetupText(hTextWnd, win, wpage->relative);
685
686         /* we need the window to be shown for richedit to compute the size */
687         ShowWindow(win->hMainWnd, nCmdShow);
688         SendMessage(hTextWnd, EM_SETEVENTMASK, 0, mask | ENM_REQUESTRESIZE);
689         SendMessage(hTextWnd, EM_REQUESTRESIZE, 0, 0);
690         SendMessage(hTextWnd, EM_SETEVENTMASK, 0, mask);
691
692         GetWindowRect(win->hMainWnd, &rect);
693         win->hShadowWnd = CreateWindowEx(WS_EX_TOOLWINDOW, SHADOW_WIN_CLASS_NAME,
694                                          "", WS_POPUP | WS_VISIBLE,
695                                          rect.left + SHADOW_DX, rect.top + SHADOW_DY,
696                                          rect.right - rect.left,
697                                          rect.bottom - rect.top,
698                                          Globals.active_win->hMainWnd, 0,
699                                          Globals.hInstance, NULL);
700         SetWindowPos(win->hMainWnd, win->hShadowWnd, 0, 0, 0, 0,
701                      SWP_NOSIZE | SWP_NOMOVE);
702     }
703     else
704     {
705         WINHELP_SetupText(hTextWnd, win, wpage->relative);
706         WINHELP_LayoutMainWindow(win);
707         ShowWindow(win->hMainWnd, nCmdShow);
708     }
709
710     return TRUE;
711 }
712
713 /******************************************************************
714  *             WINHELP_OpenHelpWindow
715  * Main function to search for a page and display it in a window
716  */
717 BOOL WINHELP_OpenHelpWindow(HLPFILE_PAGE* (*lookup)(HLPFILE*, LONG, ULONG*),
718                             HLPFILE* hlpfile, LONG val, HLPFILE_WINDOWINFO* wi,
719                             int nCmdShow)
720 {
721     WINHELP_WNDPAGE     wpage;
722
723     wpage.page = lookup(hlpfile, val, &wpage.relative);
724     if (wpage.page) wpage.page->file->wRefCount++;
725     wpage.wininfo = wi;
726     return WINHELP_CreateHelpWindow(&wpage, nCmdShow, TRUE);
727 }
728
729 /***********************************************************************
730  *
731  *           WINHELP_FindLink
732  */
733 static HLPFILE_LINK* WINHELP_FindLink(WINHELP_WINDOW* win, LPARAM pos)
734 {
735     HLPFILE_LINK*           link;
736     POINTL                  mouse_ptl, char_ptl, char_next_ptl;
737     DWORD                   cp;
738
739     if (!win->page) return NULL;
740
741     mouse_ptl.x = (short)LOWORD(pos);
742     mouse_ptl.y = (short)HIWORD(pos);
743     cp = SendMessageW(GetDlgItem(win->hMainWnd, CTL_ID_TEXT), EM_CHARFROMPOS,
744                       0, (LPARAM)&mouse_ptl);
745
746     for (link = win->page->first_link; link; link = link->next)
747     {
748         if (link->cpMin <= cp && cp <= link->cpMax)
749         {
750             /* check whether we're at end of line */
751             SendMessageW(GetDlgItem(win->hMainWnd, CTL_ID_TEXT), EM_POSFROMCHAR,
752                          (LPARAM)&char_ptl, cp);
753             SendMessageW(GetDlgItem(win->hMainWnd, CTL_ID_TEXT), EM_POSFROMCHAR,
754                          (LPARAM)&char_next_ptl, cp + 1);
755             if (char_next_ptl.y != char_ptl.y || mouse_ptl.x >= char_next_ptl.x)
756                 link = NULL;
757             break;
758         }
759     }
760     return link;
761 }
762
763 /******************************************************************
764  *             WINHELP_HandleTextMouse
765  *
766  */
767 static BOOL WINHELP_HandleTextMouse(WINHELP_WINDOW* win, UINT msg, LPARAM lParam)
768 {
769     HLPFILE*                hlpfile;
770     HLPFILE_LINK*           link;
771     BOOL                    ret = FALSE;
772
773     switch (msg)
774     {
775     case WM_MOUSEMOVE:
776         if (WINHELP_FindLink(win, lParam))
777             SetCursor(win->hHandCur);
778         else
779             SetCursor(LoadCursor(0, IDC_ARROW));
780         break;
781
782      case WM_LBUTTONDOWN:
783          if ((win->current_link = WINHELP_FindLink(win, lParam)))
784              ret = TRUE;
785          break;
786
787     case WM_LBUTTONUP:
788         if ((link = WINHELP_FindLink(win, lParam)) && link == win->current_link)
789         {
790             HLPFILE_WINDOWINFO*     wi;
791
792             switch (link->cookie)
793             {
794             case hlp_link_link:
795                 if ((hlpfile = WINHELP_LookupHelpFile(link->string)))
796                 {
797                     if (link->window == -1)
798                         wi = win->info;
799                     else if (link->window < hlpfile->numWindows)
800                         wi = &hlpfile->windows[link->window];
801                     else
802                     {
803                         WINE_WARN("link to window %d/%d\n", link->window, hlpfile->numWindows);
804                         break;
805                     }
806                     WINHELP_OpenHelpWindow(HLPFILE_PageByHash, hlpfile, link->hash, wi, SW_NORMAL);
807                 }
808                 break;
809             case hlp_link_popup:
810                 if ((hlpfile = WINHELP_LookupHelpFile(link->string)))
811                     WINHELP_OpenHelpWindow(HLPFILE_PageByHash, hlpfile, link->hash,
812                                            WINHELP_GetPopupWindowInfo(hlpfile, win, lParam),
813                                            SW_NORMAL);
814                 break;
815             case hlp_link_macro:
816                 MACRO_ExecuteMacro(link->string);
817                 break;
818             default:
819                 WINE_FIXME("Unknown link cookie %d\n", link->cookie);
820             }
821             ret = TRUE;
822         }
823         win->current_link = NULL;
824         break;
825     }
826     return ret;
827 }
828
829 /***********************************************************************
830  *
831  *           WINHELP_MainWndProc
832  */
833 static LRESULT CALLBACK WINHELP_MainWndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
834 {
835     WINHELP_WINDOW *win;
836     WINHELP_BUTTON *button;
837     RECT rect;
838     INT  curPos, min, max, dy, keyDelta;
839     HWND hTextWnd;
840     LRESULT ret;
841
842     if (WINHELP_CheckPopup(hWnd, msg, wParam, lParam, &ret)) return ret;
843
844     switch (msg)
845     {
846     case WM_NCCREATE:
847         win = (WINHELP_WINDOW*) ((LPCREATESTRUCT) lParam)->lpCreateParams;
848         SetWindowLongPtr(hWnd, 0, (ULONG_PTR) win);
849         if (!win->page && Globals.isBook)
850             PostMessage(hWnd, WM_COMMAND, MNID_FILE_OPEN, 0);
851         win->hMainWnd = hWnd;
852         break;
853
854     case WM_WINDOWPOSCHANGED:
855         WINHELP_LayoutMainWindow((WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0));
856         break;
857
858     case WM_COMMAND:
859         win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
860         switch (wParam)
861         {
862             /* Menu FILE */
863         case MNID_FILE_OPEN:    MACRO_FileOpen();       break;
864         case MNID_FILE_PRINT:   MACRO_Print();          break;
865         case MNID_FILE_SETUP:   MACRO_PrinterSetup();   break;
866         case MNID_FILE_EXIT:    MACRO_Exit();           break;
867
868             /* Menu EDIT */
869         case MNID_EDIT_COPYDLG:
870             SendMessage(GetDlgItem(hWnd, CTL_ID_TEXT), WM_COPY, 0, 0);
871             break;
872         case MNID_EDIT_ANNOTATE:MACRO_Annotate();       break;
873
874             /* Menu Bookmark */
875         case MNID_BKMK_DEFINE:  MACRO_BookmarkDefine(); break;
876
877             /* Menu Help */
878         case MNID_HELP_HELPON:  MACRO_HelpOn();         break;
879         case MNID_HELP_HELPTOP: MACRO_HelpOnTop();      break;
880         case MNID_HELP_ABOUT:   MACRO_About();          break;
881         case MNID_HELP_WINE:    ShellAbout(hWnd, "WINE", "Help", 0); break;
882
883             /* Context help */
884         case MNID_CTXT_ANNOTATE:MACRO_Annotate();       break;
885         case MNID_CTXT_COPY:    MACRO_CopyDialog();     break;
886         case MNID_CTXT_PRINT:   MACRO_Print();          break;
887         case MNID_OPTS_HISTORY: MACRO_History();        break;
888         case MNID_OPTS_FONTS_SMALL:
889         case MNID_CTXT_FONTS_SMALL:
890             win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
891             if (win->font_scale != 0)
892             {
893                 win->font_scale = 0;
894                 WINHELP_SetupText(GetDlgItem(hWnd, CTL_ID_TEXT), win, 0 /* FIXME */);
895             }
896             break;
897         case MNID_OPTS_FONTS_NORMAL:
898         case MNID_CTXT_FONTS_NORMAL:
899             win = (WINHELP_WINDOW*) GetWindowLong(hWnd, 0);
900             if (win->font_scale != 1)
901             {
902                 win->font_scale = 1;
903                 WINHELP_SetupText(GetDlgItem(hWnd, CTL_ID_TEXT), win, 0 /* FIXME */);
904             }
905             break;
906         case MNID_OPTS_FONTS_LARGE:
907         case MNID_CTXT_FONTS_LARGE:
908             win = (WINHELP_WINDOW*) GetWindowLong(hWnd, 0);
909             if (win->font_scale != 2)
910             {
911                 win->font_scale = 2;
912                 WINHELP_SetupText(GetDlgItem(hWnd, CTL_ID_TEXT), win, 0 /* FIXME */);
913             }
914             break;
915         case MNID_OPTS_HELP_DEFAULT:
916         case MNID_OPTS_HELP_VISIBLE:
917         case MNID_OPTS_HELP_NONVISIBLE:
918         case MNID_OPTS_SYSTEM_COLORS:
919         case MNID_CTXT_HELP_DEFAULT:
920         case MNID_CTXT_HELP_VISIBLE:
921         case MNID_CTXT_HELP_NONVISIBLE:
922         case MNID_CTXT_SYSTEM_COLORS:
923             /* FIXME: NIY */
924
925         default:
926             /* Buttons */
927             for (button = win->first_button; button; button = button->next)
928                 if (wParam == button->wParam) break;
929             if (button)
930                 MACRO_ExecuteMacro(button->lpszMacro);
931             else if (!HIWORD(wParam))
932                 MessageBox(0, MAKEINTRESOURCE(STID_NOT_IMPLEMENTED),
933                            MAKEINTRESOURCE(STID_WHERROR), MB_OK);
934             break;
935         }
936         break;
937 /* EPP     case WM_DESTROY: */
938 /* EPP         if (Globals.hPopupWnd) DestroyWindow(Globals.hPopupWnd); */
939 /* EPP         break; */
940     case WM_COPYDATA:
941         return WINHELP_HandleCommand((HWND)wParam, lParam);
942
943     case WM_CHAR:
944         if (wParam == 3)
945         {
946             SendMessage(GetDlgItem(hWnd, CTL_ID_TEXT), WM_COPY, 0, 0);
947             return 0;
948         }
949         break;
950
951     case WM_KEYDOWN:
952         keyDelta = 0;
953
954         switch (wParam)
955         {
956         case VK_UP:
957         case VK_DOWN:
958             keyDelta = GetSystemMetrics(SM_CXVSCROLL);
959             if (wParam == VK_UP)
960                 keyDelta = -keyDelta;
961
962         case VK_PRIOR:
963         case VK_NEXT:
964             win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
965             hTextWnd = GetDlgItem(win->hMainWnd, CTL_ID_TEXT);
966             curPos = GetScrollPos(hTextWnd, SB_VERT);
967             GetScrollRange(hTextWnd, SB_VERT, &min, &max);
968
969             if (keyDelta == 0)
970             {            
971                 GetClientRect(hTextWnd, &rect);
972                 keyDelta = (rect.bottom - rect.top) / 2;
973                 if (wParam == VK_PRIOR)
974                     keyDelta = -keyDelta;
975             }
976
977             curPos += keyDelta;
978             if (curPos > max)
979                  curPos = max;
980             else if (curPos < min)
981                  curPos = min;
982
983             dy = GetScrollPos(hTextWnd, SB_VERT) - curPos;
984             SetScrollPos(hTextWnd, SB_VERT, curPos, TRUE);
985             ScrollWindow(hTextWnd, 0, dy, NULL, NULL);
986             UpdateWindow(hTextWnd);
987             return 0;
988
989         case VK_ESCAPE:
990             MACRO_Exit();
991             return 0;
992         }
993         break;
994
995     case WM_NOTIFY:
996         if (wParam == CTL_ID_TEXT)
997         {
998             RECT        rc;
999
1000             switch (((NMHDR*)lParam)->code)
1001             {
1002             case EN_MSGFILTER:
1003                 {
1004                     const MSGFILTER*    msgf = (const MSGFILTER*)lParam;
1005                     switch (msgf->msg)
1006                     {
1007                     case WM_KEYUP:
1008                         if (msgf->wParam == VK_ESCAPE) DestroyWindow(hWnd);
1009                         break;
1010                     case WM_RBUTTONDOWN:
1011                     {
1012                         HMENU       hMenu;
1013                         POINT       pt;
1014
1015                         win = (WINHELP_WINDOW*) GetWindowLong(hWnd, 0);
1016                         hMenu = LoadMenu(Globals.hInstance, (LPSTR)CONTEXT_MENU);
1017                         switch (win->font_scale)
1018                         {
1019                         case 0:
1020                             CheckMenuItem(hMenu, MNID_CTXT_FONTS_SMALL,
1021                                           MF_BYCOMMAND|MF_CHECKED);
1022                             break;
1023                         default:
1024                             WINE_FIXME("Unsupported %d\n", win->font_scale);
1025                         case 1:
1026                             CheckMenuItem(hMenu, MNID_CTXT_FONTS_NORMAL,
1027                                           MF_BYCOMMAND|MF_CHECKED);
1028                             break;
1029                         case 2:
1030                             CheckMenuItem(hMenu, MNID_CTXT_FONTS_LARGE,
1031                                           MF_BYCOMMAND|MF_CHECKED);
1032                             break;
1033                         }
1034                         pt.x = (int)(short)LOWORD(msgf->lParam);
1035                         pt.y = (int)(short)HIWORD(msgf->lParam);
1036                         ClientToScreen(msgf->nmhdr.hwndFrom, &pt);
1037                         TrackPopupMenu(GetSubMenu(hMenu, 0), TPM_LEFTALIGN|TPM_TOPALIGN,
1038                                        pt.x, pt.y, 0, hWnd, NULL);
1039                         DestroyMenu(hMenu);
1040                     }
1041                     break;
1042                     default:
1043                         return WINHELP_HandleTextMouse((WINHELP_WINDOW*)GetWindowLongPtr(hWnd, 0),
1044                                                        msgf->msg, msgf->lParam);
1045                     }
1046                 }
1047                 break;
1048
1049             case EN_REQUESTRESIZE:
1050                 rc = ((REQRESIZE*)lParam)->rc;
1051                 win = (WINHELP_WINDOW*) GetWindowLong(hWnd, 0);
1052                 AdjustWindowRect(&rc, GetWindowLong(win->hMainWnd, GWL_STYLE),
1053                                  FALSE);
1054                 SetWindowPos(win->hMainWnd, HWND_TOP, 0, 0,
1055                              rc.right - rc.left, rc.bottom - rc.top,
1056                              SWP_NOMOVE | SWP_NOZORDER);
1057                 WINHELP_LayoutMainWindow(win);
1058                 break;
1059             }
1060         }
1061         break;
1062
1063     case WM_INITMENUPOPUP:
1064         win = (WINHELP_WINDOW*) GetWindowLong(hWnd, 0);
1065         CheckMenuItem((HMENU)wParam, MNID_OPTS_FONTS_SMALL,
1066                       MF_BYCOMMAND | (win->font_scale == 0) ? MF_CHECKED : 0);
1067         CheckMenuItem((HMENU)wParam, MNID_OPTS_FONTS_NORMAL,
1068                       MF_BYCOMMAND | (win->font_scale == 1) ? MF_CHECKED : 0);
1069         CheckMenuItem((HMENU)wParam, MNID_OPTS_FONTS_LARGE,
1070                       MF_BYCOMMAND | (win->font_scale == 2) ? MF_CHECKED : 0);
1071         break;
1072
1073     case WM_NCDESTROY:
1074         {
1075             BOOL bExit;
1076             win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
1077             bExit = (Globals.wVersion >= 4 && !lstrcmpi(win->lpszName, "main"));
1078             WINHELP_DeleteWindow(win);
1079
1080             if (bExit) MACRO_Exit();
1081             if (!Globals.win_list)
1082                 PostQuitMessage(0);
1083         }
1084         break;
1085     }
1086     return DefWindowProc(hWnd, msg, wParam, lParam);
1087 }
1088
1089 static DWORD CALLBACK WINHELP_RtfStreamIn(DWORD_PTR cookie, BYTE* buff,
1090                                           LONG cb, LONG* pcb)
1091 {
1092     struct RtfData*     rd = (struct RtfData*)cookie;
1093
1094     if (rd->where >= rd->ptr) return 1;
1095     if (rd->where + cb > rd->ptr)
1096         cb = rd->ptr - rd->where;
1097     memcpy(buff, rd->where, cb);
1098     rd->where += cb;
1099     *pcb = cb;
1100     return 0;
1101 }
1102
1103 static void WINHELP_SetupText(HWND hTextWnd, WINHELP_WINDOW* win, ULONG relative)
1104 {
1105     /* At first clear area - needed by EM_POSFROMCHAR/EM_SETSCROLLPOS */
1106     SendMessage(hTextWnd, WM_SETTEXT, 0, (LPARAM)"");
1107     SendMessage(hTextWnd, WM_SETREDRAW, FALSE, 0);
1108     SendMessage(hTextWnd, EM_SETBKGNDCOLOR, 0, (LPARAM)win->info->sr_color);
1109     /* set word-wrap to window size (undocumented) */
1110     SendMessage(hTextWnd, EM_SETTARGETDEVICE, 0, 0);
1111     if (win->page)
1112     {
1113         struct RtfData  rd;
1114         EDITSTREAM      es;
1115         unsigned        cp = 0;
1116         POINTL          ptl;
1117         POINT           pt;
1118
1119
1120         if (HLPFILE_BrowsePage(win->page, &rd, win->font_scale, relative))
1121         {
1122             rd.where = rd.data;
1123             es.dwCookie = (DWORD_PTR)&rd;
1124             es.dwError = 0;
1125             es.pfnCallback = WINHELP_RtfStreamIn;
1126
1127             SendMessageW(hTextWnd, EM_STREAMIN, SF_RTF, (LPARAM)&es);
1128             cp = rd.char_pos_rel;
1129         }
1130         /* FIXME: else leaking potentially the rd.first_link chain */
1131         HeapFree(GetProcessHeap(), 0, rd.data);
1132         SendMessage(hTextWnd, EM_POSFROMCHAR, (WPARAM)&ptl, cp ? cp - 1 : 0);
1133         pt.x = 0; pt.y = ptl.y;
1134         SendMessage(hTextWnd, EM_SETSCROLLPOS, 0, (LPARAM)&pt);
1135     }
1136     SendMessage(hTextWnd, WM_SETREDRAW, TRUE, 0);
1137     InvalidateRect(hTextWnd, NULL, TRUE);
1138 }
1139
1140 /***********************************************************************
1141  *
1142  *           WINHELP_ButtonBoxWndProc
1143  */
1144 static LRESULT CALLBACK WINHELP_ButtonBoxWndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
1145 {
1146     WINDOWPOS      *winpos;
1147     WINHELP_WINDOW *win;
1148     WINHELP_BUTTON *button;
1149     SIZE button_size;
1150     INT  x, y;
1151
1152     if (WINHELP_CheckPopup(hWnd, msg, wParam, lParam, NULL)) return 0L;
1153
1154     switch (msg)
1155     {
1156     case WM_WINDOWPOSCHANGING:
1157         winpos = (WINDOWPOS*) lParam;
1158         win = (WINHELP_WINDOW*) GetWindowLongPtr(GetParent(hWnd), 0);
1159
1160         /* Update buttons */
1161         button_size.cx = 0;
1162         button_size.cy = 0;
1163         for (button = win->first_button; button; button = button->next)
1164         {
1165             HDC  hDc;
1166             SIZE textsize;
1167             if (!button->hWnd)
1168             {
1169                 button->hWnd = CreateWindow(STRING_BUTTON, button->lpszName,
1170                                             WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
1171                                             0, 0, 0, 0,
1172                                             hWnd, (HMENU) button->wParam,
1173                                             Globals.hInstance, 0);
1174                 if (button->hWnd)
1175                 {
1176                     if (Globals.button_proc == NULL)
1177                     {
1178                         NONCLIENTMETRICSW ncm;
1179                         Globals.button_proc = (WNDPROC) GetWindowLongPtr(button->hWnd, GWLP_WNDPROC);
1180
1181                         ncm.cbSize = sizeof(NONCLIENTMETRICSW);
1182                         SystemParametersInfoW(SPI_GETNONCLIENTMETRICS,
1183                                               sizeof(NONCLIENTMETRICSW), &ncm, 0);
1184                         Globals.hButtonFont = CreateFontIndirectW(&ncm.lfMenuFont);
1185                     }
1186                     SetWindowLongPtr(button->hWnd, GWLP_WNDPROC, (LONG_PTR) WINHELP_ButtonWndProc);
1187                     if (Globals.hButtonFont)
1188                         SendMessage(button->hWnd, WM_SETFONT, (WPARAM)Globals.hButtonFont, TRUE);
1189                 }
1190             }
1191             hDc = GetDC(button->hWnd);
1192             GetTextExtentPoint(hDc, button->lpszName,
1193                                lstrlen(button->lpszName), &textsize);
1194             ReleaseDC(button->hWnd, hDc);
1195
1196             button_size.cx = max(button_size.cx, textsize.cx + BUTTON_CX);
1197             button_size.cy = max(button_size.cy, textsize.cy + BUTTON_CY);
1198         }
1199
1200         x = 0;
1201         y = 0;
1202         for (button = win->first_button; button; button = button->next)
1203         {
1204             SetWindowPos(button->hWnd, HWND_TOP, x, y, button_size.cx, button_size.cy, 0);
1205
1206             if (x + 2 * button_size.cx <= winpos->cx)
1207                 x += button_size.cx;
1208             else
1209                 x = 0, y += button_size.cy;
1210         }
1211         winpos->cy = y + (x ? button_size.cy : 0);
1212         break;
1213
1214     case WM_COMMAND:
1215         SendMessage(GetParent(hWnd), msg, wParam, lParam);
1216         break;
1217
1218     case WM_KEYDOWN:
1219         switch (wParam)
1220         {
1221         case VK_UP:
1222         case VK_DOWN:
1223         case VK_PRIOR:
1224         case VK_NEXT:
1225         case VK_ESCAPE:
1226             return SendMessage(GetParent(hWnd), msg, wParam, lParam);
1227         }
1228         break;
1229     }
1230
1231     return DefWindowProc(hWnd, msg, wParam, lParam);
1232 }
1233
1234 /***********************************************************************
1235  *
1236  *           WINHELP_ButtonWndProc
1237  */
1238 static LRESULT CALLBACK WINHELP_ButtonWndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
1239 {
1240     if (WINHELP_CheckPopup(hWnd, msg, wParam, lParam, NULL)) return 0;
1241
1242     if (msg == WM_KEYDOWN)
1243     {
1244         switch (wParam)
1245         {
1246         case VK_UP:
1247         case VK_DOWN:
1248         case VK_PRIOR:
1249         case VK_NEXT:
1250         case VK_ESCAPE:
1251             return SendMessage(GetParent(hWnd), msg, wParam, lParam);
1252         }
1253     }
1254
1255     return CallWindowProc(Globals.button_proc, hWnd, msg, wParam, lParam);
1256 }
1257
1258 /******************************************************************
1259  *              WINHELP_HistoryWndProc
1260  *
1261  *
1262  */
1263 static LRESULT CALLBACK WINHELP_HistoryWndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
1264 {
1265     WINHELP_WINDOW*     win;
1266     PAINTSTRUCT         ps;
1267     HDC                 hDc;
1268     TEXTMETRIC          tm;
1269     unsigned int        i;
1270     RECT                r;
1271
1272     switch (msg)
1273     {
1274     case WM_NCCREATE:
1275         win = (WINHELP_WINDOW*)((LPCREATESTRUCT)lParam)->lpCreateParams;
1276         SetWindowLongPtr(hWnd, 0, (ULONG_PTR)win);
1277         win->hHistoryWnd = hWnd;
1278         break;
1279     case WM_CREATE:
1280         win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
1281         hDc = GetDC(hWnd);
1282         GetTextMetrics(hDc, &tm);
1283         GetWindowRect(hWnd, &r);
1284
1285         r.right = r.left + 30 * tm.tmAveCharWidth;
1286         r.bottom = r.top + (sizeof(Globals.history.set) / sizeof(Globals.history.set[0])) * tm.tmHeight;
1287         AdjustWindowRect(&r, GetWindowLong(hWnd, GWL_STYLE), FALSE);
1288         if (r.left < 0) {r.right -= r.left; r.left = 0;}
1289         if (r.top < 0) {r.bottom -= r.top; r.top = 0;}
1290
1291         MoveWindow(hWnd, r.left, r.top, r.right, r.bottom, TRUE);
1292         ReleaseDC(hWnd, hDc);
1293         break;
1294     case WM_LBUTTONDOWN:
1295         win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
1296         hDc = GetDC(hWnd);
1297         GetTextMetrics(hDc, &tm);
1298         i = HIWORD(lParam) / tm.tmHeight;
1299         if (i < Globals.history.index)
1300             WINHELP_CreateHelpWindow(&Globals.history.set[i], SW_SHOW, TRUE);
1301         ReleaseDC(hWnd, hDc);
1302         break;
1303     case WM_PAINT:
1304         hDc = BeginPaint(hWnd, &ps);
1305         win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
1306         GetTextMetrics(hDc, &tm);
1307
1308         for (i = 0; i < Globals.history.index; i++)
1309         {
1310             if (Globals.history.set[i].page->file == Globals.active_win->page->file)
1311             {
1312                 TextOut(hDc, 0, i * tm.tmHeight,
1313                         Globals.history.set[i].page->lpszTitle,
1314                         strlen(Globals.history.set[i].page->lpszTitle));
1315             }
1316             else
1317             {
1318                 char        buffer[1024];
1319                 const char* ptr1;
1320                 const char* ptr2;
1321                 unsigned    len;
1322
1323                 ptr1 = strrchr(Globals.history.set[i].page->file->lpszPath, '\\');
1324                 if (!ptr1) ptr1 = Globals.history.set[i].page->file->lpszPath;
1325                 else ptr1++;
1326                 ptr2 = strrchr(ptr1, '.');
1327                 len = ptr2 ? ptr2 - ptr1 : strlen(ptr1);
1328                 if (len > sizeof(buffer)) len = sizeof(buffer);
1329                 memcpy(buffer, ptr1, len);
1330                 if (len < sizeof(buffer)) buffer[len++] = ':';
1331                 strncpy(&buffer[len], Globals.history.set[i].page->lpszTitle, sizeof(buffer) - len);
1332                 buffer[sizeof(buffer) - 1] = '\0';
1333                 TextOut(hDc, 0, i * tm.tmHeight, buffer, strlen(buffer));
1334             }
1335         }
1336         EndPaint(hWnd, &ps);
1337         break;
1338     case WM_DESTROY:
1339         win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
1340         if (hWnd == win->hHistoryWnd)
1341             win->hHistoryWnd = 0;
1342         break;
1343     }
1344     return DefWindowProc(hWnd, msg, wParam, lParam);
1345 }
1346
1347 /***********************************************************************
1348  *
1349  *           WINHELP_ShadowWndProc
1350  */
1351 static LRESULT CALLBACK WINHELP_ShadowWndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
1352 {
1353     if (WINHELP_CheckPopup(hWnd, msg, wParam, lParam, NULL)) return 0;
1354     return WINHELP_CheckPopup(hWnd, msg, wParam, lParam, NULL) ? 0L : DefWindowProc(hWnd, msg, wParam, lParam);
1355 }
1356
1357 /***********************************************************************
1358  *
1359  *           WINHELP_CheckPopup
1360  */
1361 static BOOL WINHELP_CheckPopup(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam, LRESULT* lret)
1362 {
1363     HWND        hPopup;
1364
1365     if (!Globals.active_popup) return FALSE;
1366
1367     switch (msg)
1368     {
1369     case WM_NOTIFY:
1370         {
1371             MSGFILTER*  msgf = (MSGFILTER*)lParam;
1372             if (msgf->nmhdr.code == EN_MSGFILTER)
1373             {
1374                 if (!WINHELP_CheckPopup(hWnd, msgf->msg, msgf->wParam, msgf->lParam, NULL))
1375                     return FALSE;
1376                 if (lret) *lret = 1;
1377                 return TRUE;
1378             }
1379         }
1380         break;
1381     case WM_ACTIVATE:
1382         if (wParam != WA_INACTIVE || (HWND)lParam == Globals.active_win->hMainWnd ||
1383             (HWND)lParam == Globals.active_popup->hMainWnd ||
1384             GetWindow((HWND)lParam, GW_OWNER) == Globals.active_win->hMainWnd)
1385             break;
1386     case WM_LBUTTONUP:
1387     case WM_LBUTTONDOWN:
1388         if (WINHELP_HandleTextMouse(Globals.active_popup, msg, lParam) && msg == WM_LBUTTONDOWN)
1389             return FALSE;
1390         /* fall through */
1391     case WM_MBUTTONDOWN:
1392     case WM_RBUTTONDOWN:
1393     case WM_NCLBUTTONDOWN:
1394     case WM_NCMBUTTONDOWN:
1395     case WM_NCRBUTTONDOWN:
1396         hPopup = Globals.active_popup->hMainWnd;
1397         Globals.active_popup = NULL;
1398         DestroyWindow(hPopup);
1399         return TRUE;
1400     }
1401     return FALSE;
1402 }
1403
1404 /******************************************************************
1405  *              WINHELP_DeleteButtons
1406  *
1407  */
1408 static void WINHELP_DeleteButtons(WINHELP_WINDOW* win)
1409 {
1410     WINHELP_BUTTON*     b;
1411     WINHELP_BUTTON*     bp;
1412
1413     for (b = win->first_button; b; b = bp)
1414     {
1415         DestroyWindow(b->hWnd);
1416         bp = b->next;
1417         HeapFree(GetProcessHeap(), 0, b);
1418     }
1419     win->first_button = NULL;
1420 }
1421
1422 /******************************************************************
1423  *              WINHELP_DeleteBackSet
1424  *
1425  */
1426 void WINHELP_DeleteBackSet(WINHELP_WINDOW* win)
1427 {
1428     unsigned int i;
1429
1430     for (i = 0; i < win->back.index; i++)
1431     {
1432         HLPFILE_FreeHlpFile(win->back.set[i].page->file);
1433         win->back.set[i].page = NULL;
1434     }
1435     win->back.index = 0;
1436 }
1437
1438 /******************************************************************
1439  *             WINHELP_DeletePageLinks
1440  *
1441  */
1442 static void WINHELP_DeletePageLinks(HLPFILE_PAGE* page)
1443 {
1444     HLPFILE_LINK*       curr;
1445     HLPFILE_LINK*       next;
1446
1447     for (curr = page->first_link; curr; curr = next)
1448     {
1449         next = curr->next;
1450         HeapFree(GetProcessHeap(), 0, curr);
1451     }
1452 }
1453
1454 /***********************************************************************
1455  *
1456  *           WINHELP_DeleteWindow
1457  */
1458 static void WINHELP_DeleteWindow(WINHELP_WINDOW* win)
1459 {
1460     WINHELP_WINDOW**    w;
1461
1462     for (w = &Globals.win_list; *w; w = &(*w)->next)
1463     {
1464         if (*w == win)
1465         {
1466             *w = win->next;
1467             break;
1468         }
1469     }
1470
1471     if (Globals.active_win == win)
1472     {
1473         Globals.active_win = Globals.win_list;
1474         if (Globals.win_list)
1475             SetActiveWindow(Globals.win_list->hMainWnd);
1476     }
1477
1478     if (win == Globals.active_popup)
1479         Globals.active_popup = NULL;
1480
1481     WINHELP_DeleteButtons(win);
1482
1483     if (win->page) WINHELP_DeletePageLinks(win->page);
1484     if (win->hShadowWnd) DestroyWindow(win->hShadowWnd);
1485     if (win->hHistoryWnd) DestroyWindow(win->hHistoryWnd);
1486
1487     DeleteObject(win->hBrush);
1488
1489     WINHELP_DeleteBackSet(win);
1490
1491     if (win->page) HLPFILE_FreeHlpFile(win->page->file);
1492     HeapFree(GetProcessHeap(), 0, win);
1493 }
1494
1495 /***********************************************************************
1496  *
1497  *           WINHELP_InitFonts
1498  */
1499 static void WINHELP_InitFonts(HWND hWnd)
1500 {
1501     WINHELP_WINDOW *win = (WINHELP_WINDOW*) GetWindowLongPtr(hWnd, 0);
1502     LOGFONT logfontlist[] = {
1503         {-10, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"},
1504         {-12, 0, 0, 0, 700, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"},
1505         {-12, 0, 0, 0, 700, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"},
1506         {-12, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"},
1507         {-12, 0, 0, 0, 700, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"},
1508         {-10, 0, 0, 0, 700, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"},
1509         { -8, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 0, 32, "Helv"}};
1510 #define FONTS_LEN (sizeof(logfontlist)/sizeof(*logfontlist))
1511
1512     static HFONT fonts[FONTS_LEN];
1513     static BOOL init = 0;
1514
1515     win->fonts_len = FONTS_LEN;
1516     win->fonts = fonts;
1517
1518     if (!init)
1519     {
1520         UINT i;
1521
1522         for (i = 0; i < FONTS_LEN; i++)
1523         {
1524             fonts[i] = CreateFontIndirect(&logfontlist[i]);
1525         }
1526
1527         init = 1;
1528     }
1529 }
1530
1531 /***********************************************************************
1532  *
1533  *           WINHELP_MessageBoxIDS_s
1534  */
1535 INT WINHELP_MessageBoxIDS_s(UINT ids_text, LPCSTR str, UINT ids_title, WORD type)
1536 {
1537     CHAR text[MAX_STRING_LEN];
1538     CHAR newtext[MAX_STRING_LEN + MAX_PATH];
1539
1540     LoadString(Globals.hInstance, ids_text, text, sizeof(text));
1541     wsprintf(newtext, text, str);
1542
1543     return MessageBox(0, newtext, MAKEINTRESOURCE(ids_title), type);
1544 }
1545
1546 /**************************************************************************
1547  * cb_KWBTree
1548  *
1549  * HLPFILE_BPTreeCallback enumeration function for '|KWBTREE' internal file.
1550  *
1551  */
1552 static void cb_KWBTree(void *p, void **next, void *cookie)
1553 {
1554     HWND hListWnd = (HWND)cookie;
1555     int count;
1556
1557     WINE_TRACE("Adding '%s' to search list\n", (char *)p);
1558     SendMessage(hListWnd, LB_INSERTSTRING, -1, (LPARAM)p);
1559     count = SendMessage(hListWnd, LB_GETCOUNT, 0, 0);
1560     SendMessage(hListWnd, LB_SETITEMDATA, count-1, (LPARAM)p);
1561     *next = (char*)p + strlen((char*)p) + 7;
1562 }
1563
1564 struct index_data
1565 {
1566     HLPFILE*    hlpfile;
1567     BOOL        jump;
1568     ULONG       offset;
1569 };
1570
1571 /**************************************************************************
1572  * WINHELP_IndexDlgProc
1573  *
1574  */
1575 INT_PTR CALLBACK WINHELP_IndexDlgProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
1576 {
1577     static struct index_data* id;
1578     int sel;
1579
1580     switch (msg)
1581     {
1582     case WM_INITDIALOG:
1583         id = (struct index_data*)((PROPSHEETPAGE*)lParam)->lParam;
1584         HLPFILE_BPTreeEnum(id->hlpfile->kwbtree, cb_KWBTree,
1585                            GetDlgItem(hWnd, IDC_INDEXLIST));
1586         id->jump = FALSE;
1587         id->offset = 1;
1588         return TRUE;
1589     case WM_COMMAND:
1590         switch (HIWORD(wParam))
1591         {
1592         case LBN_DBLCLK:
1593             if (LOWORD(wParam) == IDC_INDEXLIST)
1594                 SendMessage(GetParent(hWnd), PSM_PRESSBUTTON, PSBTN_OK, 0);
1595             break;
1596         }
1597         break;
1598     case WM_NOTIFY:
1599         switch (((NMHDR*)lParam)->code)
1600         {
1601         case PSN_APPLY:
1602             sel = SendDlgItemMessage(hWnd, IDC_INDEXLIST, LB_GETCURSEL, 0, 0);
1603             if (sel != LB_ERR)
1604             {
1605                 BYTE *p;
1606                 int count;
1607
1608                 p = (BYTE*)SendDlgItemMessage(hWnd, IDC_INDEXLIST,
1609                                               LB_GETITEMDATA, sel, 0);
1610                 count = *(short*)((char *)p + strlen((char *)p) + 1);
1611                 if (count > 1)
1612                 {
1613                     MessageBox(hWnd, "count > 1 not supported yet", "Error", MB_OK | MB_ICONSTOP);
1614                     SetWindowLongPtr(hWnd, DWLP_MSGRESULT, PSNRET_INVALID);
1615                     return TRUE;
1616                 }
1617                 id->offset = *(ULONG*)((char *)p + strlen((char *)p) + 3);
1618                 id->offset = *(long*)(id->hlpfile->kwdata + id->offset + 9);
1619                 if (id->offset == 0xFFFFFFFF)
1620                 {
1621                     MessageBox(hWnd, "macro keywords not supported yet", "Error", MB_OK | MB_ICONSTOP);
1622                     SetWindowLongPtr(hWnd, DWLP_MSGRESULT, PSNRET_INVALID);
1623                     return TRUE;
1624                 }
1625                 id->jump = TRUE;
1626                 SetWindowLongPtr(hWnd, DWLP_MSGRESULT, PSNRET_NOERROR);
1627             }
1628             return TRUE;
1629         default:
1630             return FALSE;
1631         }
1632         break;
1633     default:
1634         break;
1635     }
1636     return FALSE;
1637 }
1638
1639 /**************************************************************************
1640  * WINHELP_SearchDlgProc
1641  *
1642  */
1643 INT_PTR CALLBACK WINHELP_SearchDlgProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
1644 {
1645     static struct index_data* id;
1646
1647     switch (msg)
1648     {
1649     case WM_INITDIALOG:
1650         id = (struct index_data*)((PROPSHEETPAGE*)lParam)->lParam;
1651         return TRUE;
1652     case WM_NOTIFY:
1653         switch (((NMHDR*)lParam)->code)
1654         {
1655         case PSN_APPLY:
1656             SetWindowLongPtr(hWnd, DWLP_MSGRESULT, PSNRET_NOERROR);
1657             return TRUE;
1658         default:
1659             return FALSE;
1660         }
1661         break;
1662     default:
1663         break;
1664     }
1665     return FALSE;
1666 }
1667
1668 /**************************************************************************
1669  * WINHELP_CreateIndexWindow
1670  *
1671  * Displays a dialog with keywords of current help file.
1672  *
1673  */
1674 BOOL WINHELP_CreateIndexWindow(BOOL is_search)
1675 {
1676     HPROPSHEETPAGE      psPage[3];
1677     PROPSHEETPAGE       psp;
1678     PROPSHEETHEADER     psHead;
1679     struct index_data   id;
1680     char                buf[256];
1681
1682     if (Globals.active_win && Globals.active_win->page && Globals.active_win->page->file)
1683         id.hlpfile = Globals.active_win->page->file;
1684     else
1685         return FALSE;
1686
1687     if (id.hlpfile->kwbtree == NULL)
1688     {
1689         WINE_TRACE("No index provided\n");
1690         return FALSE;
1691     }
1692
1693     InitCommonControls();
1694
1695     id.jump = FALSE;
1696     memset(&psp, 0, sizeof(psp));
1697     psp.dwSize = sizeof(psp);
1698     psp.dwFlags = 0;
1699     psp.hInstance = Globals.hInstance;
1700
1701     psp.u.pszTemplate = MAKEINTRESOURCE(IDD_INDEX);
1702     psp.lParam = (LPARAM)&id;
1703     psp.pfnDlgProc = WINHELP_IndexDlgProc;
1704     psPage[0] = CreatePropertySheetPage(&psp);
1705
1706     psp.u.pszTemplate = MAKEINTRESOURCE(IDD_SEARCH);
1707     psp.lParam = (LPARAM)&id;
1708     psp.pfnDlgProc = WINHELP_SearchDlgProc;
1709     psPage[1] = CreatePropertySheetPage(&psp);
1710
1711     memset(&psHead, 0, sizeof(psHead));
1712     psHead.dwSize = sizeof(psHead);
1713
1714     LoadString(Globals.hInstance, STID_PSH_INDEX, buf, sizeof(buf));
1715     strcat(buf, Globals.active_win->info->caption);
1716
1717     psHead.pszCaption = buf;
1718     psHead.nPages = 2;
1719     psHead.u2.nStartPage = is_search ? 1 : 0;
1720     psHead.hwndParent = Globals.active_win->hMainWnd;
1721     psHead.u3.phpage = psPage;
1722     psHead.dwFlags = PSH_NOAPPLYNOW;
1723
1724     PropertySheet(&psHead);
1725     if (id.jump)
1726     {
1727         WINE_TRACE("got %d as an offset\n", id.offset);
1728         WINHELP_OpenHelpWindow(HLPFILE_PageByOffset, id.hlpfile, id.offset,
1729                                Globals.active_win->info, SW_NORMAL);
1730     }
1731     return TRUE;
1732 }