Marius Mutu
b241a639b1
Binarele VFP raman pe SVN si sunt git-ignored; COMUN e gestionat separat. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01A5okKjUKMM5Xk1egq2w81P
55 lines
1.8 KiB
Plaintext
55 lines
1.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|