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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-16 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
--- a/ferestre/frm_cere_text.sc2
+++ b/ferestre/frm_cere_text.sc2
@@ -0,0 +1,93 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_cere_text.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS dataenvironment AS dataenvironment 
+ 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_termin_renunt1 AS frm_termin_renunt OF "..\clase\_frm_child.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BorderStyle = 1
+		DoCreate = .T.
+		Height = 99
+		Name = "Frm_termin_renunt1"
+		Width = 332
+		WindowType = 1
+		_SHAPE1.Name = "_SHAPE1"
+		_SHAPE2.Height = 29
+		_SHAPE2.Left = 266
+		_SHAPE2.Name = "_SHAPE2"
+		_SHAPE2.Top = 0
+		_SHAPE2.Width = 67
+		LB_TITLU_ALB_B121.Caption = ""
+		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
+		LB_TITLU_ALB_B121.TabIndex = 4
+		BUT_TERMIN1.Left = 300
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		BUT_TERMIN1.TabIndex = 2
+		BUT_TERMIN1.Top = 1
+		BUT_RENUNT1.Left = 271
+		BUT_RENUNT1.Name = "BUT_RENUNT1"
+		BUT_RENUNT1.TabIndex = 3
+		BUT_RENUNT1.Top = 1
+	*</PropValue>
+
+	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
+		Height = 29, ;
+		Left = 13, ;
+		Name = "Clb_tx_simplu1", ;
+		TabIndex = 1, ;
+		Top = 48, ;
+		Width = 306, ;
+		TEXT_SIMPLU1.Height = 23, ;
+		TEXT_SIMPLU1.Left = 144, ;
+		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
+		TEXT_SIMPLU1.TabIndex = 1, ;
+		TEXT_SIMPLU1.Top = 3, ;
+		TEXT_SIMPLU1.Width = 154, ;
+		LB_SIMPLU1.Caption = "Inroduceti numarul", ;
+		LB_SIMPLU1.FontSize = 10, ;
+		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
+		LB_SIMPLU1.TabIndex = 2
+		*< END OBJECT: ClassLib="..\clase\lb_tx.vcx" BaseClass="container" />
+	
+	PROCEDURE Destroy
+		lReturn = this.clb_tx_simplu1.tEXT_SIMPLU1.Value 
+		RETURN lReturn
+	ENDPROC
+
+	PROCEDURE Init
+		PARAMETERS tcLabel, tControlSource,tcTitlu
+		
+		IF !EMPTY(tcLabel)
+			this.clb_tx_simplu1.lB_SIMPLU1.Caption = ALLTRIM(tcLabel)
+		ENDIF 
+		IF !EMPTY(tControlSource)
+			this.clb_tx_simplu1.tEXT_SIMPLU1.ControlSource = tControlSource
+		ENDIF 
+		IF !EMPTY(tcTitlu)
+			this.lB_TITLU_ALB_B121.Caption = tcTitlu
+		ENDIF 
+		DODEFAULT()
+			
+	ENDPROC
+
+ENDDEFINE