Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Want to add menu Option to FoxPro
Message
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00560948
Message ID:
00560954
Views:
17
>Hi everyone,
>
> I was wondering if anyone could help me out with adding an option to the FoxPro help menu. I want to add the Hacker's Guide online book to FoxPro's menu and have not had much luck. Any suggestions?
>
>Thanks

Here is my startup program, which does it:
* 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
And here is the program used:
* PROGRAM: HackFox.prg
* AUTHOR: Nadya Nosonovsky 12/15/2000 11:23:08 AM
* DATE: 
* PURPOSE: Activates Hacker Guide help
lparameter tcUtilityPath, tcTopic
if vartype(tcUtilityPath)'C'
     tcUtilityPath='d:\Utilities\FoxToolsHelp\'
endif
if empty(tcTopic)
     tcTopic=_cliptext
endif
local lchelp
lchelp = set('HELP', 1)
set help to tcUtilityPath+'HackFox.CHM'
help &tcTopic
set help to (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