Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
2026-07-23 17:08:56 +03:00
commit 63f3828d5e
141 changed files with 77057 additions and 0 deletions
--- a/Clase/roaregistratura.vc2
+++ b/Clase/roaregistratura.vc2
@@ -0,0 +1,98 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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