*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="appwiz_start.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS wzapplication AS wzapplication OF "..\comun\clase\appwiz.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "wzapplication"
	*</PropValue>
	
	PROCEDURE onshutdown
		Lparameters tlSilent
		Local lnRaspuns
		*!*	On Shutdown
		*!*	On Error
		*!*	Clear Events
		*!*	If _vfp.StartMode <> 0
		*!*		Quit
		*!*	Endif
		If !tlSilent
			lnRaspuns = aMessagebox("Doriți să părăsiți aplicația ROA START?",0+4+32,"Confirmare")
		Else
			lnRaspuns = 6
		Endif
		If lnRaspuns==6
			deconectare()
			If Type("goApp.aforms[1]") = "O" And !Isnull(goApp.aforms[1])
				*!*	daca ma loghez, schimb utilizatorul si apas "Renunta", atunci imi da eroare daca nu am si conditia !isnull
				Unbindevents(_Screen,[Resize],goApp.aforms[1],[minimizeaza])
				goApp.aforms[1].Release()
			Endif
			Unbindevents(_vfp.HWnd,0xA123)
			On Shutdown
			On Error
			Clear Events
			If _vfp.StartMode <> 0
				Quit
			Endif
		Endif
	ENDPROC

	PROCEDURE restart
		This.SetCaption("ROA Romfast Applications")
		If Type("goApp.aforms[1]") = "O" AND !ISNULL(goApp.aforms[1])
			Unbindevents(_Screen,[Resize],goApp.aforms[1],[minimizeaza])
		Endif
		Unbindevents(_vfp.HWnd,0xA123)
		DoDefault()
	ENDPROC

ENDDEFINE