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:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
--- a/Ferestre/fundal.sc2
+++ b/Ferestre/fundal.sc2
@@ -0,0 +1,103 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.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 = 200
+		Left = 1
+		Name = "Dataenvironment"
+		Top = 220
+		Width = 520
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS form1 AS form 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: jurnal
+		*m: statusbarclick
+		*p: ostatusbar
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 2
+		Caption = ""
+		Closable = .F.
+		ControlBox = .F.
+		DoCreate = .T.
+		Enabled = .T.
+		FillColor = 0,0,0
+		HalfHeightCaption = .F.
+		Height = 595
+		MaxButton = .F.
+		MinButton = .F.
+		Movable = .F.
+		Name = "Form1"
+		ostatusbar = .F.
+		Picture = ..\..\
+		Width = 795
+		WindowState = 2
+	*</PropValue>
+	
+	PROCEDURE jurnal
+	ENDPROC
+
+	PROCEDURE KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+		if nkeycode==-1  &&F2
+			DO IESIRE
+		endif
+	ENDPROC
+
+	PROCEDURE Show
+		Lparameters nStyle
+		DoDefault(nStyle)
+		
+		*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
+		*!* Trebuie adaugata o proprietate  OstatusBar la forma
+		*!* si o metoda statusbarclik care sa contina comanda 
+		*!* Thisform.oStatusBar.newtooltip()
+		*!*
+		If Not Pemstatus(_Screen,"StatusBar", 5) Then
+		*!* 31.01.2008 TEST FARA STATUSBAR
+		*!*	_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
+			_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)	
+		*!* 31.01.2008 TEST FARA STATUSBAR ^
+		ENDIF
+		Thisform.oStatusBar = _Screen.StatusBar
+		Thisform.oStatusBar.ctlIcon="roastartmic.ico"
+		Thisform.oStatusBar.ctlMessage = _Screen.Caption
+		BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
+		*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
+		*!*
+		
+		
+		Do start_firma In ostartfirma.prg
+		primadata = .F.
+		This.AlwaysOnBottom = .T.
+		Do lansare_toolbar In oproceduri_comune.prg
+		DO lansare_help IN oproceduri_comune.prg
+		oprinc=Createobject('princ')
+		oprinc.Show()
+		*!*	oprinc.pagefr1.p1.click()
+		
+		
+	ENDPROC
+
+	PROCEDURE statusbarclick
+		*MESSAGEBOX(_Screen.ActiveForm.name)
+		Thisform.oStatusBar.newtooltip()
+		
+	ENDPROC
+
+ENDDEFINE