Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Adding Hacker's Guide to Menu
Message
 
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00578508
Message ID:
00578541
Views:
29
>Hi all. I know that I've read this before (and even tried implementing it once and managed to mess up my system instead), but...how do I go about adding an item to the main VFP menu that would open up the Hacker's Guide? I don't have a great preference as to whether to put it under the Help or as an item on its own.
>
>TIA

Hi Debra,

I don't remember, if I answered you already. Here is my startup program (in my config.fpw I have command=d:\utilities\vfpstart.prg)
* Help Menu *
******* Hacker's Guide by Tamar Granor ************************************
lnBarHlp = cntbar('_MSM_SYSTM') + 1
define bar m.lnBarHlp of _msm_systm prompt "\-"
lnBarHlp=m.lnBarHlp+1
define bar m.lnBarHlp of _msm_systm prompt "Hackers Guide" key alt+F1
lcTemp = 'DO ' + m.tcUtilityPath + 'FoxToolsHelp\HackFox WITH "' + m.tcUtilityPath + ;
	'FoxToolsHelp\"'
on selection bar m.lnBarHlp of _msm_systm &lcTemp
Bellow is a program from d:\utilities\FoxToolsHelp directory:
* PROGRAM: HackFox.prg
* AUTHOR: Nadya Nosonovsky 12/15/2000 11:23:08 AM
* DATE: 
* PURPOSE: Activates Hacker Guide help
lparameter tcUtilityPath, tcTopic
if vartype(m.tcUtilityPath)'C'
     tcUtilityPath='d:\Utilities\FoxToolsHelp\'
endif
if empty(m.tcTopic)
     tcTopic=_cliptext
endif
local lchelp
lchelp = set('HELP', 1)
set help to m.tcUtilityPath+'HackFox.CHM'
help &tcTopic
set help to (m.lchelp)
return
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform