Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
To clean a string
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00454334
Message ID:
00455483
Views:
39
>>>>>>>>>>>>>>
>>>>That is why you must get the hackers Guide to VFP by Granor and Roche.
>>>>It's available from www.hentzenwerke.com and Tamar Granor is frequently here in the UT!
>>>
>>>I have to admit we got it here at work and it is currently lying right next to me. Ofcoz I never had a use for that String functionality so I never really looked. But I'll drop VFP help and go with the CHM of the book.
>>>>>>>>>>>>>>
>>
>>Set up a menu entry in a program that runs when you open VFP to give you a shortcut to the Hackers Guide CHM. I use ALT-F1 so I have both (F1 for VFP's help and ALT-F1 for hackers Guide) at my fingertips.
>
>Good idea.. I had set help to point at the CHM file. But pressing F1 doesn't work to well.. Got to select the help topics from the help menu to access it. I'll go make that change right away.
>
>- Erik Niese-petersen

I've just implemented Alex idea this way:
******* Hacker's Guide by Tamar Granor ************************************
lnBarHlp = cntbar('_MSM_SYSTM') + 1
define bar lnBarHlp of _msm_systm prompt "\-"
lnBarHlp=lnBarHlp+1
define bar lnBarHlp of _msm_systm prompt "Hackers Guide" key Alt+F1
lcTemp = 'DO ' + tcUtilityPath + 'FoxToolsHelp\HackFox WITH "' + tcUtilityPath + ;
     'FoxToolsHelp\"'
on selection bar lnBarHlp of _msm_systm &lcTemp
*on key label ALT+F1 &lcTemp
lnBarHlp=lnBarHlp+1
define bar lnBarHlp of _msm_systm prompt "\-"
lnBarHlp=lnBarHlp+1
*********** George Tasker FoxTools Help ****************
define bar lnBarHlp of _msm_systm prompt "FoxTools Help" key Ctrl+F1
lcTemp = 'DO ' + tcUtilityPath + 'FoxToolsHelp\ToolHelp WITH "' + tcUtilityPath + ;
     'FoxToolsHelp\"'
on selection bar lnBarHlp of _msm_systm &lcTemp
* 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