romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

494
clase/ofundal.vc2 Normal file
View File

@@ -0,0 +1,494 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cw AS _container OF "_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: activeaza
*m: dezactiveaza
*m: do_actiune
*p: alb
*p: bleumarin
*p: ccheie && Cheia corespunzatoare din crsdrepturi ( se completeaza la citirea drepturilor din bd ).
*p: cmeniu && Numele meniului pe care il lanseaza.
*p: coptiuni_active && Optiunile active
*p: linactiv && .T. daca containerul este inactiv indiferent de drepturi.
*p: nid_cw
*p: ntip && 0 - introducere\vizualizare simpla\raport simplu ; 1 - raport + excel ; 2 - registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
*</DefinedPropArrayMethod>
*<PropValue>
alb = 16777215
BackColor = 192,192,192
BackStyle = 1
bleumarin = 7274496
BorderColor = 192,192,192
BorderWidth = 0
ccheie =
cmeniu =
coptiuni_active =
ForeColor = 0,64,128
Height = 20
linactiv = .F.
Name = "cw"
nid_cw = 0
ntip = 0
Width = 180
*</PropValue>
ADD OBJECT 'Label_item1' AS _lbbase WITH ;
Caption = "Introducere", ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 255,255,255, ;
Left = 5, ;
Name = "Label_item1", ;
Top = 1
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
PROCEDURE activeaza
If This.linactiv
This.dezactiveaza()
Else
This.Enabled=.T.
This.laBEL_ITEM1.ForeColor=Rgb(255,255,255)
Endif
ENDPROC
PROCEDURE Click
If !This.Enabled
Return
Endif
gcAcces=This.coptiuni_active
This.do_actiune
ENDPROC
PROCEDURE dezactiveaza
This.Enabled=.F.
This.laBEL_ITEM1.ForeColor=Rgb(128,128,128)
ENDPROC
PROCEDURE do_actiune
ENDPROC
PROCEDURE Init
COL_MENU=RGB(255,255,255)
This.BackColor= COL_MENU
This.BackStyle=0
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If This.Enabled
This.BackStyle=1
*!* this.BackColor=THIS.BLEUMARIN&&8404992
*!* this.label_item1.ForeColor=THIS.ALB&&16777215
This.BackColor=This.ALB&&8404992
This.label_item1.ForeColor=This.BLEUMARIN&&16777215
*this.CLICK
This.label_item1.MousePointer = 15
This.MousePointer = 15
Endif
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If This.Enabled
*!* this.BackColor=THIS.Parent.BACKCOLOR
*!* *!* this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
*!* this.label_item1.ForeColor=THIS.ALB
This.BackColor=This.Parent.BackColor
*!* this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
This.label_item1.ForeColor=This.ALB
This.BackStyle= 0
This.label_item1.MousePointer = 1
This.MousePointer= 1
Endif
ENDPROC
PROCEDURE Label_item1.Click
this.Parent.click
ENDPROC
ENDDEFINE
DEFINE CLASS cw_2019 AS _container OF "_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: activeaza
*m: dezactiveaza
*m: do_actiune
*p: alb
*p: bleumarin
*p: ccheie && Cheia corespunzatoare din crsdrepturi ( se completeaza la citirea drepturilor din bd ).
*p: cmeniu && Numele meniului pe care il lanseaza.
*p: coptiuni_active && Optiunile active
*p: linactiv && .T. daca containerul este inactiv indiferent de drepturi.
*p: nid_cw
*p: ntip && 0 - introducere\vizualizare simpla\raport simplu ; 1 - raport + excel ; 2 - registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
*</DefinedPropArrayMethod>
*<PropValue>
alb = 16777215
BackColor = 192,192,192
BackStyle = 1
bleumarin = 7274496
BorderColor = 192,192,192
BorderWidth = 0
ccheie =
cmeniu =
coptiuni_active =
ForeColor = 0,64,128
Height = 20
linactiv = .F.
Name = "cw_2019"
nid_cw = 0
ntip = 0
Width = 180
*</PropValue>
ADD OBJECT 'Label_item1' AS _lbbase WITH ;
Caption = "Introducere", ;
FontCharSet = 1, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 255,255,255, ;
Left = 5, ;
Name = "Label_item1", ;
Top = 1
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
PROCEDURE activeaza
If This.linactiv
This.dezactiveaza()
Else
This.Enabled=.T.
This.laBEL_ITEM1.ForeColor=Rgb(255,255,255)
Endif
ENDPROC
PROCEDURE Click
If !This.Enabled
Return
Endif
gcAcces=This.coptiuni_active
This.do_actiune
ENDPROC
PROCEDURE dezactiveaza
This.Enabled=.F.
This.laBEL_ITEM1.ForeColor=Rgb(128,128,128)
ENDPROC
PROCEDURE do_actiune
ENDPROC
PROCEDURE Init
COL_MENU=RGB(255,255,255)
This.BackColor= COL_MENU
This.BackStyle=0
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If This.Enabled
This.BackStyle=1
*!* this.BackColor=THIS.BLEUMARIN&&8404992
*!* this.label_item1.ForeColor=THIS.ALB&&16777215
This.BackColor=This.ALB&&8404992
This.label_item1.ForeColor=This.BLEUMARIN&&16777215
*this.CLICK
This.label_item1.MousePointer = 15
This.MousePointer = 15
Endif
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If This.Enabled
*!* this.BackColor=THIS.Parent.BACKCOLOR
*!* *!* this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
*!* this.label_item1.ForeColor=THIS.ALB
This.BackColor=This.Parent.BackColor
*!* this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
This.label_item1.ForeColor=This.ALB
This.BackStyle= 0
This.label_item1.MousePointer = 1
This.MousePointer= 1
Endif
ENDPROC
PROCEDURE Label_item1.Click
this.Parent.click
ENDPROC
ENDDEFINE
DEFINE CLASS cw_nou AS _commandbutton OF "_baza.vcx"
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cw"
*</PropValue>
ENDDEFINE
DEFINE CLASS cw_original AS _container OF "_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: activeaza
*m: dezactiveaza
*m: do_actiune
*p: alb
*p: bleumarin
*p: ccheie && Cheia corespunzatoare din crsdrepturi ( se completeaza la citirea drepturilor din bd ).
*p: cmeniu && Numele meniului pe care il lanseaza.
*p: coptiuni_active && Optiunile active
*p: linactiv && .T. daca containerul este inactiv indiferent de drepturi.
*p: nid_cw
*p: ntip && 0 - introducere\vizualizare simpla\raport simplu ; 1 - raport + excel ; 2 - registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
*</DefinedPropArrayMethod>
*<PropValue>
alb = 16777215
BackColor = 192,192,192
BackStyle = 1
bleumarin = 7274496
BorderColor = 192,192,192
BorderWidth = 0
ccheie =
cmeniu =
coptiuni_active =
ForeColor = 0,64,128
Height = 20
linactiv = .F.
Name = "cw"
nid_cw = 0
ntip = 0
Width = 117
*</PropValue>
ADD OBJECT 'Label_item1' AS _lbbase WITH ;
Caption = "Introducere", ;
FontCharSet = 238, ;
FontSize = 8, ;
ForeColor = 255,255,255, ;
Left = 5, ;
Name = "Label_item1", ;
Top = 3
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
PROCEDURE activeaza
If This.linactiv
This.dezactiveaza()
Else
This.Enabled=.T.
This.laBEL_ITEM1.ForeColor=Rgb(255,255,255)
Endif
ENDPROC
PROCEDURE Click
If !This.Enabled
Return
Endif
gcAcces=This.coptiuni_active
This.do_actiune
ENDPROC
PROCEDURE dezactiveaza
This.Enabled=.F.
This.laBEL_ITEM1.ForeColor=Rgb(128,128,128)
ENDPROC
PROCEDURE do_actiune
ENDPROC
PROCEDURE Init
COL_MENU=RGB(255,255,255)
This.BackColor= COL_MENU
This.BackStyle=0
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If This.Enabled
This.BackStyle=1
*!* this.BackColor=THIS.BLEUMARIN&&8404992
*!* this.label_item1.ForeColor=THIS.ALB&&16777215
This.BackColor=This.ALB&&8404992
This.label_item1.ForeColor=This.BLEUMARIN&&16777215
*this.CLICK
This.label_item1.MousePointer = 15
This.MousePointer = 15
Endif
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If This.Enabled
*!* this.BackColor=THIS.Parent.BACKCOLOR
*!* *!* this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
*!* this.label_item1.ForeColor=THIS.ALB
This.BackColor=This.Parent.BackColor
*!* this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
This.label_item1.ForeColor=This.ALB
This.BackStyle= 0
This.label_item1.MousePointer = 1
This.MousePointer= 1
Endif
ENDPROC
PROCEDURE Label_item1.Click
this.Parent.click
ENDPROC
ENDDEFINE
DEFINE CLASS imagine AS _image OF "_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: do_actiune
*p: ccod && Codul container-ului din pageframe corespunzator imaginii.
*p: coptiuni_active && Optiunile active din forma.
*p: nid_img
*p: ntip && 0 - introducere\vizualizare simpla ; 1 - raport; 2 - registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
*p: picturedown
*p: pictureup
*</DefinedPropArrayMethod>
*<PropValue>
ccod =
coptiuni_active =
Height = 59
Name = "imagine"
nid_img = 0
ntip = 0
picturedown =
pictureup =
Width = 71
*</PropValue>
PROCEDURE Click
gcAcces=This.coptiuni_active
This.do_actiune()
ENDPROC
PROCEDURE do_actiune
ENDPROC
PROCEDURE Init
This.Picture=This.pictureup
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
This.MousePointer= 15
This.Picture=This.pictureDown
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
This.MousePointer= 1
This.Picture=This.pictureUp
ENDPROC
ENDDEFINE
DEFINE CLASS pg_meniu AS _pageframe OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
ErasePage = .T.
Height = 173
Name = "pg_meniu"
TabStyle = 1
Page1.BackColor = 255,255,255
Page1.Name = "Page1"
Page2.BackColor = 255,255,255
Page2.Name = "Page2"
*</PropValue>
ENDDEFINE
DEFINE CLASS pg_meniu_princ AS pg_meniu OF "ofundal.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
*<PropValue>
ErasePage = .T.
Height = 422
Name = "pg_meniu_princ"
PageCount = 2
Width = 401
_memberdata = <VFPData>
</VFPData>
Page1.Caption = "Pagina 1"
Page1.Name = "Page1"
Page2.Caption = "-"
Page2.Enabled = .F.
Page2.Name = "Page2"
*</PropValue>
ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
Height = 362, ;
Left = 0, ;
Name = "Pict_meniu1", ;
Picture = ..\..\grafice\f2.jpg, ;
Top = 0, ;
Width = 158
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
ENDDEFINE
DEFINE CLASS pict_liniuta AS _image OF "_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 10
Name = "pict_liniuta"
Picture = ..\grafice\f3.jpg
Stretch = 2
Width = 180
*</PropValue>
ENDDEFINE
DEFINE CLASS pict_meniu AS _image OF "_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 362
Name = "pict_meniu"
Picture = ..\grafice\f2.jpg
Stretch = 2
Width = 200
*</PropValue>
ENDDEFINE