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