Marius Mutu
63f3828d5e
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
99 lines
3.2 KiB
Plaintext
99 lines
3.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="roaregistratura.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class.
|
|
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
clastcaption = Microsoft Visual FoxPro
|
|
clasticon =
|
|
Name = "capplication"
|
|
nformcount = 0
|
|
*</PropValue>
|
|
|
|
PROCEDURE doform
|
|
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
|
|
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
|
|
LOCAL lcFormName,lnFormCount
|
|
|
|
_screen.visible=.t.
|
|
|
|
lcFileName=UPPER(ALLTRIM(tcFileName))
|
|
IF EMPTY(lcFileName)
|
|
RETURN .F.
|
|
ENDIF
|
|
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
|
|
lcFileName=LOWER(FULLPATH(lcFileName))
|
|
IF NOT "."$lcFileName
|
|
lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
|
|
ENDIF
|
|
IF NOT FILE(lcFileName)
|
|
this.FileNotFoundMsgBox(lcFileName)
|
|
RETURN .F.
|
|
ENDIF
|
|
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
|
|
IF tlNoMultipleInstances
|
|
FOR lnCount = 1 TO this.nFormCount
|
|
IF this.aFormNames[lnCount]==lcFormName AND ;
|
|
TYPE("this.aForms[lnCount]")=="O" AND ;
|
|
NOT ISNULL(this.aForms[lnCount])
|
|
this.aForms[lnCount].Show
|
|
RETURN .F.
|
|
ENDIF
|
|
ENDFOR
|
|
ENDIF
|
|
this.RefreshFormsCollection
|
|
this.nFormCount=this.nFormCount+1
|
|
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
|
|
this.aFormNames[this.nFormCount]=lcFormName
|
|
IF NOT EMPTY(lcClass)
|
|
SET CLASSLIB TO (lcFileName) ADDITIVE
|
|
this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
|
|
IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
|
|
NOT ISNULL(this.aForms[this.nFormCount])
|
|
this.aForms[this.nFormCount].Show
|
|
ENDIF
|
|
ELSE
|
|
DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
|
|
ENDIF
|
|
lnFormCount=this.nFormCount
|
|
this.RefreshFormsCollection
|
|
IF this.lCascadeForms AND this.nFormCount>=lnFormCount
|
|
oForm=this.aForms[this.nFormCount]
|
|
lnTop=oForm.Top
|
|
lnLeft=oForm.Left
|
|
lcName=oForm.Name
|
|
IF WEXIST(lcName) AND oForm.WindowState#2
|
|
FOR lnCount = 1 TO (this.nFormCount-1)
|
|
oForm2=this.aForms[lnCount]
|
|
IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
|
|
LOOP
|
|
ENDIF
|
|
IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
|
|
WLCOL(lcName)=WLCOL(oForm2.Name)
|
|
lnTop=lnTop+this.nPixelOffset
|
|
lnLeft=lnLeft+this.nPixelOffset
|
|
ENDIF
|
|
ENDFOR
|
|
IF oForm.Top#lnTop
|
|
oForm.Top=lnTop
|
|
ENDIF
|
|
IF oForm.Left#lnLeft
|
|
oForm.Left=lnLeft
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
|
|
*!* modificat 14.12.2004
|
|
*!* liana
|
|
IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
|
|
this.aForms[this.nFormCount].Show
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|