Subject Re: Help File
From Charlie <tm@tc.com>
Date Sun, 28 Jul 2024 16:48:17 -0400
Newsgroups dbase.getting-started

Hi Mervyn...  Thanks very much!

Mervyn Bick Wrote:

> On 2024/07/27 15:32, Charlie wrote:
 > > Is there a way of eliminating the cmd screen when running?  I have used:
 > >
> > cmd help.chm
 > > cmd(false,"help.chm")
 > > Function doesn't work when true?
 > >
> > Function key F1 works without the cmd screen.
 > >
> > Is there an ascii number you can use for the F1 key?  I have tried several like this..
 > >
> > keyboard chr(xxx)   but none worked.
 > >
> > Thanks for any help.
 >
> I assume that you have created help.chm for your program and it's this
> file you want to display.
 >
> One way to display a .chm file is to use ShellExecuteA() from
> Shell32.dll in the Win32 API.  As this is the function behind openURL()
> in miscapi.prg in the duFLP, all the heavy lifting has already been
> done.  :-)
 >
> A little example form is attached.  I've used the BDE API help file as
> it happen to be available.  Replace this with your own .chm file.
 >
> The menu is "quick and dirty" as I've left the default values (which are
> completely meaningless) for the various objects.  The shortcut for the
> help file has been set to F1.
 >
> Mervyn.
 >
>
>
>
>
> ** END HEADER -- do not remove this line
 > //
 > // Generated on 2024-07-28
 > //
 > parameter bModal
 > local f
 > f = new run_chmForm()
 > if (bModal)
 >    f.mdi = false // ensure not MDI
 >    f.readModal()
 > else
 >    f.open()
 > endif
 >
> class run_chmForm of FORM
 >    with (this)
 >       onOpen = class::FORM_ONOPEN
 >       onClose = class::FORM_ONCLOSE
 >       height = 16.0
 >       left = 31.4286
 >       top = 2.2727
 >       width = 40.0
 >       text = ""
 >       mdi = false
 >       menuFile = "run_chm.mnu"
 >    endwith
 >
>    this.PUSHBUTTON1 = new PUSHBUTTON(this)
 >    with (this.PUSHBUTTON1)
 >       onClick = class::PUSHBUTTON1_ONCLICK
 >       height = 1.0909
 >       left = 11.2857
 >       top = 6.8182
 >       width = 15.2857
 >       text = "Show Help File"
 >    endwith
 >
>
>    function PUSHBUTTON1_onClick()
 >      class::show_chm()
 >       return
 >
>    function show_chm
 >       openUrl("C:\Program Files (x86)\Common Files\Borland\BDE\bde32.hlp")
 >       return
>
>    function form_onClose()
 >       close procedure :duflp:miscapi.prg
 >       return
 >
>    function form_onOpen()
 >       set procedure to :duflp:miscapi.prg
 >       return
 >
> endclass
 >
> ** END HEADER -- do not remove this line
 > //
 > // Generated on 2024-07-28
 > //
 > parameter formObj
 > new RUN_CHMMENU(formObj, "root")
 >
> class RUN_CHMMENU(formObj, name) of MENUBAR(formObj, name)
 >    this.MENU26 = new MENU(this)
 >    with (this.MENU26)
 >       text = "File"
 >    endwith
 >
>    this.MENU26.MENU27 = new MENU(this.MENU26)
 >    with (this.MENU26.MENU27)
 >       onClick = class::MENU27_ONCLICK
 >       text = "Close"
 >    endwith
 >
>    this.MENU34 = new MENU(this)
 >    with (this.MENU34)
 >       text = "Help"
 >    endwith
 >
>    this.MENU34.MENU35 = new MENU(this.MENU34)
 >    with (this.MENU34.MENU35)
 >       onClick = class::MENU35_ONCLICK
 >       text = "Show Help File"
 >       shortCut = "F1"
 >    endwith
 >
>
>    function MENU27_onClick()
 >       form.close()
 >       return
 >
>    function MENU35_onClick()
 >       form.show_chm()
 >       return
 >
> endclass
 >