Marius Mutu
b241a639b1
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
253 lines
6.5 KiB
Plaintext
253 lines
6.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (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
|