Import initial: surse ROASTART + text FoxBin2Prg in arbore
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
This commit is contained in:
54
Clase/appwiz_start.vc2
Normal file
54
Clase/appwiz_start.vc2
Normal file
@@ -0,0 +1,54 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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<72>i s<> p<>r<EFBFBD>si<73>i aplica<63>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
|
||||
Reference in New Issue
Block a user