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

Import initial: surse ROASTART + text FoxBin2Prg in arbore

Browse Source 
Binarele VFP raman pe SVN si sunt git-ignored; COMUN e gestionat separat.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01A5okKjUKMM5Xk1egq2w81P
This commit is contained in:
Marius Mutu
2026-08-03 09:34:12 +03:00
commit b241a639b1
81 changed files with 24199 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1835
Ferestre/frm_fundal.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

252
Ferestre/frm_iniconfig.sc2 Normal file
View File

@@ -0,0 +1,252 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_iniconfig.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_iniupdate AS formtermin OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmb_Default" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txt_NetworkPath" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txt_URL" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txt_utilizator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txt_parola" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
Desktop = .T.
DoCreate = .T.
Height = 191
Name = "frm_iniupdate"
Width = 614
_shape1.Anchor = 11
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 615
_shape2.Height = 29
_shape2.Left = 553
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Anchor = 0
Lb_titlu_alb_b121.Caption = "Configurare actualiz<69>ri"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 584
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 554, ;
Name = "But_renunt1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmb_Default' AS combobox WITH ;
FontCharSet = 238, ;
Height = 24, ;
Left = 125, ;
Name = "cmb_Default", ;
Style = 2, ;
TabIndex = 3, ;
Top = 107, ;
Width = 196
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Anchor = 9, ;
BackColor = 255,255,255, ;
Caption = "...", ;
Height = 20, ;
Left = 589, ;
Name = "Command1", ;
Top = 48, ;
Width = 24
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
BackColor = 255,255,255, ;
Caption = "Re<52>ea local<61> :", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 25, ;
Name = "Label1", ;
Top = 50, ;
Width = 77
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
BackColor = 255,255,255, ;
Caption = "Internet :", ;
Height = 17, ;
Left = 25, ;
Name = "Label2", ;
Top = 82, ;
Width = 56
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Metoda implicit<69> :", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 25, ;
Name = "Label3", ;
Top = 110, ;
Width = 97
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
BackColor = 255,255,255, ;
Caption = "Utilizator :", ;
Height = 17, ;
Left = 25, ;
Name = "Label4", ;
Top = 139, ;
Width = 57
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
BackColor = 255,255,255, ;
Caption = "Parol<6F> :", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 25, ;
Name = "Label5", ;
Top = 167, ;
Width = 45
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txt_NetworkPath' AS textbox WITH ;
Anchor = 10, ;
Height = 23, ;
Left = 125, ;
Name = "txt_NetworkPath", ;
TabIndex = 1, ;
Top = 47, ;
Width = 457
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txt_parola' AS textbox WITH ;
Height = 23, ;
Left = 125, ;
Name = "txt_parola", ;
TabIndex = 5, ;
Top = 163, ;
Width = 457
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txt_URL' AS textbox WITH ;
Anchor = 10, ;
Height = 23, ;
Left = 125, ;
Name = "txt_URL", ;
TabIndex = 2, ;
Top = 77, ;
Width = 457
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txt_utilizator' AS textbox WITH ;
Height = 23, ;
Left = 125, ;
Name = "txt_utilizator", ;
TabIndex = 4, ;
Top = 136, ;
Width = 196
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Activate
ENDPROC
PROCEDURE do_termin
inihandler = Createobject("iniaccess")
inihandler.setNetworkPath(Alltrim(Thisform.txt_NetworkPath.Value))
inihandler.setURL(Alltrim(Thisform.txt_URL.Value))
inihandler.setUsername(ALLTRIM(Thisform.txt_utilizator.Value))
inihandler.setPasswordDirect(ALLTRIM(Thisform.txt_parola.Value))
If(Thisform.cmb_Default.ListIndex=1)
inihandler.SetDefault("NetworkPath")
Else
inihandler.SetDefault("URL")
Endif
Release inihandler
DoDefault()
ENDPROC
PROCEDURE Init
DoDefault()
This.cmb_Default.AddItem("Re<52>ea local<61>",1)
This.cmb_Default.AddItem("Internet",2)
inihandler = Createobject("iniaccess")
This.txt_NetworkPath.Value=inihandler.getNetworkPath()
This.txt_URL.Value=inihandler.getURL()
This.txt_utilizator.Value=inihandler.getUsername()
This.txt_parola.Value=inihandler.getPasswordDirect()
If(inihandler.getDefault()="NetworkPath")
This.cmb_Default.ListIndex=1
Else
This.cmb_Default.ListIndex=2
Endif
Release inihandler
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
IF nKeyCode=13
thisform.Do_termin()
ENDIF
ENDPROC
PROCEDURE Command1.Click
pathString=GETDIR(thisform.txt_NetworkPath.Value,"Introduceti calea din reteaua locala catre update-uri","Actualizari locale",64)
IF pathString#""
thisform.txt_NetworkPath.Value=LOWER(pathString)
ENDIF
ENDPROC
PROCEDURE txt_NetworkPath.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
ENDPROC
ENDDEFINE

294
Ferestre/frm_update.sc2 Normal file
View File

@@ -0,0 +1,294 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_update.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _frmbase1 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Mygridimagecontainer1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdActualizeaza" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_progressbar1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: lshow
*</DefinedPropArrayMethod>
*<PropValue>
Desktop = .T.
DoCreate = .T.
Height = 393
lshow = .F.
Name = "_frmbase1"
Width = 458
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 492
_shape2.Height = 29
_shape2.Left = 427
_shape2.Name = "_shape2"
_shape2.Top = -1
_shape2.Width = 34
Lb_titlu_alb_b121.Caption = "Lista cu actualiz<69>rile disponibile"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 429
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 0
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_progressbar1' AS _progressbar WITH ;
Left = 60, ;
Name = "_progressbar1", ;
Top = 325, ;
Shape5.Name = "Shape5", ;
shpThermBar.Name = "shpThermBar", ;
lblPercentage.Name = "lblPercentage", ;
lblPercentage2.Name = "lblPercentage2", ;
Shape1.Name = "Shape1", ;
shape2.Name = "shape2", ;
Shape3.Name = "Shape3", ;
Shape4.Name = "Shape4"
*< END OBJECT: ClassLib="..\comun\clase\_therm.vcx" BaseClass="container" />
ADD OBJECT 'cmdActualizeaza' AS commandbutton WITH ;
BackColor = 255,255,255, ;
Caption = "Actualizeaz<61>", ;
FontCharSet = 238, ;
Height = 27, ;
Left = 348, ;
Name = "cmdActualizeaza", ;
Top = 360, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Edit1' AS editbox WITH ;
BackStyle = 0, ;
BorderStyle = 0, ;
FontSize = 9, ;
Height = 36, ;
Left = 12, ;
Name = "Edit1", ;
ScrollBars = 0, ;
Top = 349, ;
Visible = .T., ;
Width = 264
*< END OBJECT: BaseClass="editbox" />
ADD OBJECT 'Grid1' AS grid WITH ;
AllowAutoColumnFit = 2, ;
AllowCellSelection = .T., ;
AllowHeaderSizing = .F., ;
AllowRowSizing = .F., ;
ColumnCount = 4, ;
DeleteMark = .F., ;
Enabled = .T., ;
GridLines = 0, ;
HeaderHeight = 0, ;
Height = 264, ;
Highlight = .F., ;
HighlightForeColor = 168,177,202, ;
HighlightRow = .F., ;
HighlightRowLineWidth = 0, ;
HighlightStyle = 0, ;
Left = 12, ;
MousePointer = 15, ;
Name = "Grid1", ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "cProgrameUpdate", ;
RowHeight = 28, ;
ScrollBars = 2, ;
ToolTipText = "", ;
Top = 48, ;
Width = 432, ;
Column1.ControlSource = "ales", ;
Column1.Enabled = .T., ;
Column1.Name = "Column1", ;
Column1.Sparse = .F., ;
Column1.Width = 25, ;
Column2.ControlSource = "imagine", ;
Column2.Enabled = .T., ;
Column2.Name = "Column2", ;
Column2.Sparse = .F., ;
Column2.Width = 29, ;
Column3.Alignment = 0, ;
Column3.ControlSource = "proper(explicatie)", ;
Column3.DynamicBackColor = "255,255,255", ;
Column3.DynamicFontSize = "9", ;
Column3.Enabled = .T., ;
Column3.Name = "Column3", ;
Column3.Sparse = .F., ;
Column3.Width = 316, ;
Column4.ControlSource = "versiune", ;
Column4.Enabled = .T., ;
Column4.ForeColor = 97,87,219, ;
Column4.Name = "Column4", ;
Column4.Sparse = .F., ;
Column4.Width = 45
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.Column1.Check1' AS checkbox WITH ;
Alignment = 2, ;
BackStyle = 0, ;
Caption = "", ;
Centered = .T., ;
ControlSource = "ales", ;
Enabled = .T., ;
Height = 17, ;
Left = 35, ;
Name = "Check1", ;
SpecialEffect = 1, ;
Top = 29, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column2.Mygridimagecontainer1' AS mygridimagecontainer WITH ;
Enabled = .T., ;
Left = 43, ;
Name = "Mygridimagecontainer1", ;
Top = 29, ;
Image1.Name = "Image1"
*< END OBJECT: ClassLib="..\clase\ostart.vcx" BaseClass="container" />
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BackStyle = 0, ;
BorderStyle = 0, ;
DisabledForeColor = 0,0,0, ;
Enabled = .F., ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
Caption = "Header1", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BackStyle = 0, ;
BorderStyle = 0, ;
DisabledForeColor = 97,87,219, ;
Enabled = .F., ;
ForeColor = 97,87,219, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Init
thisform.grid1.DoScroll(2)
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
ENDPROC
PROCEDURE cmdActualizeaza.Click
#Define crlf Chr(13)+Chr(10)
Thisform.cmdActualizeaza.Enabled=.F.
iniHandler=Createobject("iniaccess")
LOCAL loUpdates
loUpdates=createobject("oUpdate",IIF(Reccount('crsserverinfo') = 0,[],Alltrim(crsserverinfo.Value)),Thisform.edit1)
IF TYPE('loUpdates') = 'O'
*!* modificare v 2.0.6
*!* If used("SERVER_INFO")
*!* Use in SERVER_INFO
*!* EndIf
*!* modificare v 2.0.6 ^
Thisform.grid1.Enabled=.F.
Select cProgrameUpdate
Calculate Cnt() For ales=1 To lntotal
lcOldAllowConfirm=iniHandler.getAllowConfirm()
iniHandler.setAllowConfirm("False")
i=0
Scan
i=i+1
If(ales=1)
loUpdates.updatecheck(Alltrim(cProgrameUpdate.nume),.F.,0)
Endif
Thisform._progressbar1.Update(i*100/lntotal)
Delete
Thisform.grid1.Refresh
ENDSCAN
RELEASE loUpdates
ENDIF
Thisform._progressbar1.Complete()
Wait " " Timeout 1
If lcOldAllowConfirm
iniHandler.setAllowConfirm("True")
Else
iniHandler.setAllowConfirm("False")
Endif
Release iniHandler
*write to Log
LogStream=""
LogStream=Thisform.edit1.Value
If LogStream<>""
lnNrOfLines = Alines(LogLines,LogStream)
LogStream=""
For contor = 1 To lnNrOfLines
LogStream=LogStream+Dtoc(Date())+" "+Time()+" > "+ LogLines(contor) + crlf
Endfor
*!* Strtofile(LogStream,gcDirMare+"updates.log",1)
polog.Log(LogStream, Program())
ENDIF
Thisform.Release
ENDPROC
PROCEDURE Grid1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
ENDPROC
ENDDEFINE
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

79
Ferestre/waitwindow.sc2 Normal file
View File

@@ -0,0 +1,79 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="waitwindow.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 frmwaitwindow AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_progressbar1" UniqueID="" Timestamp="" />
*<PropValue>
AlwaysOnTop = .T.
AutoCenter = .T.
BackColor = 255,255,255
BorderStyle = 0
Caption = "Asteptati"
ControlBox = .F.
DoCreate = .T.
Height = 60
Name = "frmWaitWindow"
TitleBar = 0
Width = 348
*</PropValue>
ADD OBJECT '_progressbar1' AS _progressbar WITH ;
Left = 7, ;
Name = "_progressbar1", ;
Top = 36, ;
Shape5.Name = "Shape5", ;
shpThermBar.Name = "shpThermBar", ;
lblPercentage.Name = "lblPercentage", ;
lblPercentage2.Name = "lblPercentage2", ;
Shape1.Name = "Shape1", ;
shape2.Name = "shape2", ;
Shape3.Name = "Shape3", ;
Shape4.Name = "Shape4"
*< END OBJECT: ClassLib="..\comun\clase\_therm.vcx" BaseClass="container" />
ADD OBJECT 'Label1' AS label WITH ;
BackColor = 255,255,255, ;
Caption = "Label1", ;
FontCharSet = 238, ;
FontSize = 12, ;
ForeColor = 0,0,255, ;
Height = 17, ;
Left = 7, ;
Name = "Label1", ;
Top = 12, ;
Width = 334
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackStyle = 0, ;
Height = 60, ;
Left = 0, ;
Name = "Shape1", ;
Top = 0, ;
Width = 348
*< END OBJECT: BaseClass="shape" />
ENDDEFINE