Реклама

 1 
 2 import "HHCTRL.OCX"
 3 {
 4    uint HtmlHelpW( 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 HelpManager 
15 {
16    ustr HelpFile
17 }
18 /*
19 type htmlhelp
20 {
21    ustr pchmfile  
22 }
23 */
24 /*func helpfile( str filename )
25 {
26    getmodulepath( chmfile, filename )   
27 }
28 *//*
29 property htmlhelp.chmfile( ustr value )
30 {
31    .pchmfile = value
32 }
33 
34 property str htmlhelp.chmfile<result>
35 {
36    result = .pchmfile
37 }
38 
39 method uint htmlhelp.topic( ustr topic )
40 {
41    return HtmlHelp( 0, .pchmfile.ptr(), $HH_DISPLAY_TOPIC, topic.ptr() )  
42 }
43 
44 method uint htmlhelp.index
45 {
46    return HtmlHelp( 0, .pchmfile.ptr(), $HH_DISPLAY_INDEX, 0 )  
47 }
48 
49 method uint htmlhelp.helpcontents
50 {
51   return HtmlHelp( 0, .pchmfile.ptr(), $HH_DISPLAY_TOC, 0 )
52 }
53 */
54 
55 
56 method uint HelpManager.Topic( ustr topic )
57 {
58    return HtmlHelp( 0, .HelpFile.ptr(), $HH_DISPLAY_TOPIC, topic.ptr() )
59 }
60 
61 method uint HelpManager.Index( )
62 {
63    return HtmlHelp( 0, .HelpFile.ptr(), $HH_DISPLAY_INDEX, 0 )
64 }
65 
66 /*method uint HelpManager.Contents( ustr contents )
67 {
68    return HtmlHelp( 0, .HelpFile.ptr(), $HH_DISPLAY_TOC, contents.ptr() )
69 }*/