Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP Startup program
Message
From
26/09/2003 09:11:56
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00832571
Message ID:
00832635
Views:
19
Hi Nadya,

Mine is not quite as robust as yours. I have different ones for VFP6, VFP7, and VFP8. Here is one of them:

My config.fpw:
_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.prg
vfpstartup.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
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform