_GENMENU = "C:\VFE6\TOOLS\GENMENUX\GENMENUX.PRG" RESOURCE=C:\FOXPRO\VFP8\FOXUSER8.DBF RESOURCE=ON CONFIRM=ON BELL=OFF MULTILOCKS=OFF EXCLUSIVE=OFF STATUS BAR = ON TIME=999999 LOGNAME=GETENV("LOGNAME") LOGNAME=getenv('USERNAME') HELP=ON BELL=OFF DEVELOPMENT=ON ESCAPE=ON MVCOUNT=1400 MEMLIMIT=80,1024,1024 EDITWORK=C:\FOXPRO\vfp8\TMP\ PROGWORK=C:\FOXPRO\vfp8\TMP\ SORTWORK=C:\FOXPRO\vfp8\TMP\ RESOURCE=C:\FOXPRO\vfp8\foxuser8.DBF TMPFILES=C:\FOXPRO\vfp8\TMP\ CODEPAGE=AUTO _VFP.EditorOptions = "lqKT" _screen.FontName="FOXFONT" _screen.FontSize=9 DEFAULT=\profiler\progs PATH=\profiler\data command=do \programnotes\vfpstartup.prgvfpstartup.prg:
********************************************************************** * My Screen Preferences ********************************************************************** CLOSE ALL lccaption=VERSION() WITH _SCREEN .LOCKSCREEN=.T. .BACKCOLOR = RGB(255,255,255) .BORDERSTYLE=3 .CLOSABLE=.T. .CONTROLBOX=.T. .MAXBUTTON=.T. .MINBUTTON=.T. .MOVABLE=.T. .CAPTION=lccaption .WINDOWSTATE=2 .FONTNAME="foxfont" .FONTSIZE=9 .FONTBOLD=.F. .LOCKSCREEN=.F. ENDWITH ZOOM WINDOW "command" NORMAL AT 0.1,35.8 IF WEXIST('standard') HIDE WINDOW standard ENDIF IF WEXIST('standard') ACTIVATE WINDOW standard ENDIF *********************************************************************** * My menu preferences *********************************************************************** SET SYSMENU TO DEFAULT SET SYSMENU ON SET SYSMENU AUTOMATIC DEFINE BAR 10 OF _MSYSTEM KEY F11 PROMPT "Hacker's Guide" ON SELECTION BAR 10 OF _MSYSTEM RUN /N hh.EXE c:\vfe6\HELP\hackfox.chm DEFINE BAR 11 OF _MSYSTEM KEY F12 PROMPT "Creating VFP Apps with VF\<E" ON SELECTION BAR 11 OF _MSYSTEM RUN /N hh.EXE c:\vfe6\HELP\VFE.chm DEFINE PAD _FilerPro OF _MSYSMENU PROMPT "F\<iler" KEY ALT+I ON PAD _FilerPro OF _MSYSMENU ACTIVATE POPUP Filerpop DEFINE POPUP Filerpop MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF Filerpop PROMPT "Filer" ON SELECTION BAR 1 OF Filerpop DO FORM c:\Programnotes\FILER.scx DEFINE BAR 2 OF Filerpop PROMPT "Search and Replace" ON SELECTION BAR 2 OF Filerpop RUN /N c:\tools\sr\sr32.EXE DEFINE BAR 3 OF Filerpop PROMPT "GoFish" ON SELECTION BAR 3 OF Filerpop DO c:\Programnotes\gofish.APP DEFINE PAD _Utilities OF _MSYSMENU PROMPT "\<Utilities" KEY ALT+U ON PAD _Utilities OF _MSYSMENU ACTIVATE POPUP Utilities DEFINE POPUP Utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF Utilities PROMPT "Reset Environment" ON SELECTION BAR 1 OF Utilities DO \Programnotes\vfpstartup.prg DEFINE BAR 2 OF Utilities PROMPT "Print Table to Excel" SKIP FOR EMPTY(ALIAS()) ON SELECTION BAR 2 OF Utilities DO \Programnotes\QuickReport WITH 2 DEFINE BAR 3 OF Utilities PROMPT "Copy Project to \devupdates" ON SELECTION BAR 3 OF Utilities DO \Programnotes\copyproject DEFINE BAR 4 OF Utilities PROMPT "Go to \<Universal Thread" COLOR RGB(255,128,192,0,0,0) FONT "TAHOMA" STYLE 'B' ON SELECTION BAR 4 OF Utilities DO c:\Programnotes\GETUT.prg DEFINE BAR 5 OF Utilities PROMPT "Copy File to Development Drive" ON SELECTION BAR 5 OF Utilities DO c:\Programnotes\CopyFile.prg DEFINE BAR 6 OF Utilities PROMPT "Compare Table Structures - dbfcompare" ON SELECTION BAR 6 OF Utilities DO c:\dbfcompare\dbfcompare DEFINE BAR 7 OF Utilities PROMPT "Compare Table Structure - cmcompare" ON SELECTION BAR 7 OF Utilities DO c:\Programnotes\cmcompare\cmcomp DEFINE BAR 8 OF Utilities PROMPT "Set Default to c:\programnotes" ON SELECTION BAR 8 OF Utilities SET DEFAULT TO c:\Programnotes DEFINE BAR 9 OF Utilities PROMPT "NC Profiler - Set Default to c:\Profiler\Progs" COLOR RGB(0,0,0,255,255,255),RGB(0,128,0,255,255,255) FONT "TAHOMA" ON SELECTION BAR 9 OF Utilities SET DEFAULT TO c:\Profiler\Progs DEFINE BAR 10 OF Utilities PROMPT "Strip printer info from report frx file" ON SELECTION BAR 10 OF Utilities DO c:\Programnotes\fixfrx.prg DEFINE BAR 11 OF Utilities PROMPT "Compile all Profiler projects" ON SELECTION BAR 11 OF Utilities DO c:\Programnotes\mycompall32.prg DEFINE BAR 12 OF Utilities PROMPT "Go to \<F1 Technologies" COLOR RGB(255,255,255,0,0,255) FONT "TAHOMA" STYLE 'B' PICTURE "c:\vfe6\icons\f1.ico" ON SELECTION BAR 12 OF Utilities DO c:\Programnotes\getf1 DEFINE BAR 13 OF Utilities PROMPT "Set Default to c:\policyprofiler32agentupgrade\data" ON SELECTION BAR 13 OF Utilities SET DEFAULT TO c:\policyprofiler32agentupgrade\DATA DEFINE BAR 14 OF Utilities PROMPT "Modify Ctrlset Table" ON SELECTION BAR 14 OF Utilities DO FORM c:\Programnotes\ctrlset DEFINE BAR 15 OF Utilities PROMPT "Copy All Reports to Devupdates" ON SELECTION BAR 15 OF Utilities DO c:\Programnotes\copyallreports.prg DEFINE BAR 16 OF Utilities PROMPT "SC Profiler - Set Default to S:\Profiler\Progs" COLOR RGB(0,0,0,255,255,255),RGB(167,44,703,255,255,255) FONT "TAHOMA" ON SELECTION BAR 16 OF Utilities SET DEFAULT TO S:\Profiler\Progs DEFINE BAR 17 OF Utilities PROMPT "GO to \<Bug Tracker" COLOR RGB(255,255,255,0,0,255) FONT "TAHOMA" STYLE 'B' ON SELECTION BAR 17 OF Utilities DO c:\Programnotes\getbugs DEFINE BAR 18 OF Utilities PROMPT "Go to \<Win32 API with VFP" COLOR RGB(255,128,192,0,0,0) FONT "TAHOMA" STYLE 'B' ON SELECTION BAR 18 OF Utilities DO c:\Programnotes\GETVFPAPI.prg DEFINE BAR 19 OF Utilities PROMPT "Run news2newsform - Win32 API from VFP" COLOR RGB(255,128,192,0,0,0) FONT "TAHOMA" STYLE 'B' ON SELECTION BAR 19 OF Utilities DO FORM c:\Programnotes\news2newsform DEFINE BAR 20 OF Utilities PROMPT "Go To Adobe Acrobat Forum" COLOR RGB(255,128,192,0,0,0) FONT "TAHOMA" STYLE 'B' ON SELECTION BAR 20 OF Utilities DO c:\Programnotes\GetAdobe DEFINE BAR 21 OF Utilities PROMPT "Check font used in reports" ON SELECTION BAR 21 OF Utilities DO c:\programnotes\fixfrxfont.prg SET SYSMENU SAVE #IF 'VISUAL' $ UPPER(VERSION()) _SCREEN.FONTNAME="foxfont" _SCREEN.FONTSIZE=9 _SCREEN.FONTBOLD=.F. SET DEFAULT TO \Profiler\Progs SET PRINTER FONT 'Arial', 8 _VFP.EDITOROPTIONS = "lqKT" _SCREEN.CAPTION=VERSION() #ENDIF *--Current main project SET DEFAULT TO c:\Profiler\Progs RETURN