Ads

 1 
 2 import "HHCTRL.OCX"
 3 {
 4    uint HtmlHelpA( uint, uint, uint, uint ) -> HtmlHelp
 5 }
 6 
 7 define
 8 {
 9    HH_DISPLAY_TOPIC    =   0x0000
10    HH_DISPLAY_TOC      =   0x0001  
11    HH_DISPLAY_INDEX    =   0x0002   
12 }
13 
14 type htmlhelp
15 {
16    str pchmfile  
17 }
18 
19 /*func helpfile( str filename )
20 {
21    getmodulepath( chmfile, filename )   
22 }
23 */
24 property htmlhelp.chmfile( str value )
25 {
26    .pchmfile = value
27 }
28 
29 property str htmlhelp.chmfile<result>
30 {
31    result = .pchmfile
32 }
33 
34 method uint htmlhelp.topic( str topic )
35 {
36    return HtmlHelp( 0, .pchmfile.ptr(), $HH_DISPLAY_TOPIC, topic.ptr() )  
37 }
38 
39 method uint htmlhelp.index
40 {
41    return HtmlHelp( 0, .pchmfile.ptr(), $HH_DISPLAY_INDEX, 0 )  
42 }
43 
44 method uint htmlhelp.helpcontents
45 {
46   return HtmlHelp( 0, .pchmfile.ptr(), $HH_DISPLAY_TOC, 0 )
47 }