Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
DO cleaner
Clear EVENTS
Quit
PROCEDURE PropShutdown()
* --- Release/Close All Open Forms ---
*!*Any other clean up code you may want goes here
DO WHILE _SCREEN.FORMCOUNT > 0
_SCREEN.FORMS(1).RELEASE
ENDDO
DO Mycleaner
Release WINDOW ALL
CLOSE DATABASES ALL
Release ALL
Clear ALL
CLOSE ALL
Clear PROGRAM
Clear EVENTS
QUIT
END PROC
[DO WHILE _SCREEN.FORMCOUNT > 0
_SCREEN.FORMS(1).RELEASE
ENDDO
nCount = _Screen.FormCount
For nForm = 1 To nCount
If Alltrim(Upper(_Screen.Forms(nForm).BaseClass)) = "FORM"
_screen.forms(nForm).release
Endif
Endfor
nCount = _Screen.FormCount
For nForm = 1 To nCount
If Alltrim(Upper(_Screen.Forms(nForm).BaseClass)) = "FORM"
_screen.forms(nForm).release
Endif
Endfor
nForm = 1
DO WHILE nForm <= _Screens.FormCount
If Alltrim(Upper(_Screen.Forms(nForm).BaseClass)) = "FORM"
_screen.forms(nForm).release
Endif
nForm = nForm + 1
ENDDO
I hate like hell to disagree with you ...
nCount = _Screen.FormCount
For [b]nForm = nCount TO 1 STEP -1[/b]
If Alltrim(Upper(_Screen.Forms(nForm).BaseClass)) = "FORM"
_screen.forms(nForm).release
Endif
Endfor
lFormFound = .F.
nCount = _Screen.FormCount
For cForm = 1 To nCount
If Alltrim(Upper(_Screen.Forms(cForm).BaseClass)) = "FORM"
lFormFound = .T.
Exit
Endif
Endfor
If lFormFound
= Messagebox(mAppName+" has determined there are some screens that are still open."+Chr(13)+;
"Shutting down now may cause problems in "+mAppName+Chr(13)+;
"Close all open screens first,then shut down.",16,its_logo)
Return
Endif
I thought I was asking a 'simple' question.