I wanted to share mine with you. I'm sure it's stuff I've collected from here from Ted and others over the years. After debugging and clicking "Fix", I often would encounter some bizarro VFP bug whereby my IDE would freeze. I added code into my cleanup routine to close out the debugger window and that saved me so much frustration over the years.
ON ERROR ON SHUTDOWN
SQLDISCONNECT(0) SET SYSMENU TO DEFAULT CLEAR ALL CLEAR RESOURCES _screen.Caption = VERSION(4) + " Development (" + CURDIR() + ")" _screen.Picture = ""
DEFINE BAR 8 OF _MTOOLS PROMPT "-" DEFINE BAR 9 OF _MTOOLS PROMPT "Force quit" ON SELECTION BAR 9 OF _MTOOLS do c:\dev\progs\quitfox.prg
REMOVEPROPERTY(_screen,'oTables') && mjb 02-21-15 SET PROCEDURE TO MODIFY PROJECT c:\dev\YourProject.pjx NOWAIT CLEAR IF WVISIBLE("Visual Foxpro Debugger") THEN RELEASE WINDOWS "Visual Foxpro Debugger" ENDIF
and my QuitFox.prg is simply this: Declare ExitProcess in Win32API Long ExitProcess(1)
Happy New Year! Still rocking the Fox after all these years yet! --Mike
Hi,
I have this routine:
1) in my vfpstart.prg
On Key Label Alt+F5 Do "D:\VFP9\RESETTEN.PRG"
and resetten.prg has following line:
Keyboard('cancel{enter}clear all{enter}release all{enter}')
Regards, Koen
2017-12-29 17:31 GMT+01:00 mbsoftwaresolutions@mbsoftwaresolutions.com:
I wanted to share mine with you. I'm sure it's stuff I've collected from here from Ted and others over the years. After debugging and clicking "Fix", I often would encounter some bizarro VFP bug whereby my IDE would freeze. I added code into my cleanup routine to close out the debugger window and that saved me so much frustration over the years.
ON ERROR ON SHUTDOWN
SQLDISCONNECT(0) SET SYSMENU TO DEFAULT CLEAR ALL CLEAR RESOURCES _screen.Caption = VERSION(4) + " Development (" + CURDIR() + ")" _screen.Picture = ""
DEFINE BAR 8 OF _MTOOLS PROMPT "-" DEFINE BAR 9 OF _MTOOLS PROMPT "Force quit" ON SELECTION BAR 9 OF _MTOOLS do c:\dev\progs\quitfox.prg
REMOVEPROPERTY(_screen,'oTables') && mjb 02-21-15 SET PROCEDURE TO MODIFY PROJECT c:\dev\YourProject.pjx NOWAIT CLEAR IF WVISIBLE("Visual Foxpro Debugger") THEN RELEASE WINDOWS "Visual Foxpro Debugger" ENDIF
and my QuitFox.prg is simply this: Declare ExitProcess in Win32API Long ExitProcess(1)
Happy New Year! Still rocking the Fox after all these years yet! --Mike
[excessive quoting removed by server]