Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Adding Hacker's Guide to Menu
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00578508
Message ID:
00578541
Vues:
30
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform