Chapter 16 Customizing Your Development ... - dFPUG-Portal
Chapter 16 Customizing Your Development ... - dFPUG-Portal
Chapter 16 Customizing Your Development ... - dFPUG-Portal
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
450 The Fundamentals of Visual FoxPro 6.0<br />
Figure <strong>16</strong>.3. Be sure to select the Append option<br />
button to include additional menu pads on the<br />
standard VFP menu.<br />
In order to keep the code for the menu as stable as possible, each menu command runs the<br />
same program, passing the name of the menu bar as a parameter:<br />
do l_gofox in GOFOXGO with prompt()<br />
The L_GOFOX routine, contained as a procedure in GOFOXGO.PRG, looks like this, in<br />
part:<br />
**************************************************************************<br />
function l_gofox<br />
**************************************************************************<br />
lparameter m.tcNaApp<br />
m.cPathPrefix = "f:"<br />
m.cPath60LAN ;<br />
= m.cPathPrefix + "\devuti60; " + m.cPathPrefix + "\common60LAN"<br />
m.cPath60CS ;<br />
= m.cPathPrefix + "\devuti60; " + m.cPathPrefix + "\common60CS"<br />
do case<br />
case upper(m.tcNaApp) = "BC"<br />
set path to &cPath60LAN<br />
set default to m.cPathPrefix + "\bc\t12\source"<br />
case upper(m.tcNaCust) = "WEAC"<br />
set path to &cPath60CS<br />
set default to m.cPathPrefix + "\weac\mid2\source