EnglishРусский  

   ..

   addustr.g

   app.g

   btn.g

   btnpic.g

   comp.g

   ctrl.g

   ctrlci.g

   dialogs.g

   dlgbtns.g

   edit.g

   events.g

   fonts.g

   form.g

   gray.g

   grey.g

   header.g

   htmlhelp.g

   images.g

   label.g

   labeled.g

   locustr.g

   menu.g

   panel.g

   picture.g

   styles.g

   tab.g

   tabitem.g

   tabpage.g

   timer.g

   toolbar.g

   tray.g

   url.g

   vis.g

   viswin.g

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

source\lib\vis\htmlhelp.g
 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 }*/
Редактировать