*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_start.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cmd_optiuni AS cmd_buton OF "..\..\comun\clase\_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Caption = "Comanda"
		FontBold = .T.
		FontSize = 10
		Height = 31
		MousePointer = 15
		Name = "cmd_optiuni"
		SpecialEffect = 2
		Width = 114
	*</PropValue>

ENDDEFINE

DEFINE CLASS cw_grupfav AS _container OF "..\..\comun\clase\_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="Lb_grup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_linie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine_grup" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_deselecteaza
		*m: do_redimensioneaza
		*m: do_selecteaza
		*p: cclasa
		*p: cprocedura
		*p: cprogram
		*p: lselectat
		*p: lvcomun		&& .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
		*p: nid_grup_prog		&& Id-ul grupului din care face parte programul.
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderWidth = 0
		cclasa = 
		cprocedura = 
		cprogram = 
		Height = 26
		lselectat = .F.
		lvcomun = .T.
		MousePointer = 15
		Name = "cw_grupfav"
		nid_grup_prog = 0
		Width = 305
	*</PropValue>

	ADD OBJECT '_linie' AS _linie WITH ;
		BorderColor = 128,128,128, ;
		Height = 26, ;
		Left = 0, ;
		Name = "_linie", ;
		Top = 0, ;
		Width = 0
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />

	ADD OBJECT 'Imagine_grup' AS imagine_grup WITH ;
		Left = 4, ;
		Name = "Imagine_grup", ;
		Picture = ..\grafice\favorite.png, ;
		picturedown = d:\contafin_oracle\roastart\grafice\favorite.png, ;
		pictureup = d:\contafin_oracle\roastart\grafice\favorite2.png, ;
		Top = 5
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="image" />

	ADD OBJECT 'Lb_grup' AS lb_grup WITH ;
		Caption = "Favorite", ;
		cculoareactiv = RGB(163,146,17), ;
		cculoareinactiv = RGB(128,128,17), ;
		FontUnderline = .T., ;
		Height = 17, ;
		Left = 21, ;
		Name = "Lb_grup", ;
		Top = 4, ;
		Width = 267, ;
		WordWrap = .F.
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
	
	PROCEDURE Click
		This.Parent.Parent.Parent.afiseaza_programe(This.nid_grup_prog)
		This.do_selecteaza()
	ENDPROC

	PROCEDURE do_deselecteaza
		This.lselectat=.F.
		This.MouseLeave
	ENDPROC

	PROCEDURE do_redimensioneaza
		With This.lb_grup
			lnLungimeMax=Txtwidth(.Caption,.FontName,.FontSize,[B])*Fontmetric(6,.FontName,.FontSize,[B])
			.Height=Fontmetric(1,.FontName,.FontSize,[B])*Ceiling(lnLungimeMax/.Width)
			.WordWrap=.T.
			This.Height=.Height+.Top
		Endwith
		
	ENDPROC

	PROCEDURE do_selecteaza
		With This.Parent
			For i=1 To .Objects.Count
				If LIKE([CW_GRUP*],Upper(Alltrim(.Objects(i).Class)))
		*!*			If Upper(Alltrim(.Objects(i).Class))=[CW_GRUPPROG]
					If .Objects(i).lselectat
						.Objects(i).do_deselecteaza()
						Exit
					Endif
				Endif
			Endfor
		Endwith
		This.MouseEnter
		This.lselectat=.T.
	ENDPROC

	PROCEDURE Init
		
		
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.lselectat
			This.imAGINE_GRUP.MouseEnter
			This.lb_grup.MouseEnter
		Endif
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.lselectat
			This.imAGINE_GRUP.MouseLeave
			This.lb_grup.MouseLeave
		Endif
	ENDPROC

	PROCEDURE Imagine_grup.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE Imagine_grup.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE Lb_grup.Click
		This.Parent.Click
	ENDPROC

	PROCEDURE Lb_grup.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE Lb_grup.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE _linie.Click
		this.Parent.click
	ENDPROC

ENDDEFINE

DEFINE CLASS cw_grupprog AS _container OF "..\..\comun\clase\_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="Lb_grup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_linie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_deselecteaza
		*m: do_redimensioneaza
		*m: do_selecteaza
		*p: cclasa
		*p: cprocedura
		*p: cprogram
		*p: lselectat
		*p: lvcomun		&& .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
		*p: nid_grup_prog		&& Id-ul grupului din care face parte programul.
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderWidth = 0
		cclasa = 
		cprocedura = 
		cprogram = 
		Height = 26
		lselectat = .F.
		lvcomun = .T.
		MousePointer = 15
		Name = "cw_grupprog"
		nid_grup_prog = 0
		Width = 305
	*</PropValue>

	ADD OBJECT '_linie' AS _linie WITH ;
		BorderColor = 128,128,128, ;
		Height = 26, ;
		Left = 0, ;
		Name = "_linie", ;
		Top = 0, ;
		Width = 0, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />

	ADD OBJECT '_shape1' AS _shape WITH ;
		BackStyle = 0, ;
		BorderColor = 128,128,128, ;
		Curvature = 25, ;
		FillStyle = 1, ;
		Height = 10, ;
		Left = 5, ;
		MousePointer = 15, ;
		Name = "_shape1", ;
		Top = 7, ;
		Width = 10, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'Lb_grup' AS lb_grup WITH ;
		cculoareactiv = RGB(0,0,128), ;
		cculoareinactiv = RGB(128,128,128), ;
		FontUnderline = .T., ;
		Height = 17, ;
		Left = 21, ;
		Name = "Lb_grup", ;
		Top = 4, ;
		Width = 271, ;
		WordWrap = .F., ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
	
	PROCEDURE Click
		If !Empty(This.nid_grup_prog)
			This.Parent.Parent.Parent.afiseaza_programe(This.nid_grup_prog)
			This.do_selecteaza()
		Endif
	ENDPROC

	PROCEDURE do_deselecteaza
		This.lselectat=.F.
		This._shape1.FillStyle= 1
		This.MouseLeave
	ENDPROC

	PROCEDURE do_redimensioneaza
		With This.lb_grup
			lnLungimeMax=Txtwidth(.Caption,.FontName,.FontSize,[B])*Fontmetric(6,.FontName,.FontSize,[B])
			.Height=Fontmetric(1,.FontName,.FontSize,[B])*Ceiling(lnLungimeMax/.Width)
			.WordWrap=.T.
			This.Height=.Height+.Top
		Endwith
		
	ENDPROC

	PROCEDURE do_selecteaza
		With This.Parent
			For i=1 To .Objects.Count
				If Like([CW_GRUP*],Upper(Alltrim(.Objects(i).Class)))
		*!*			If Upper(Alltrim(.Objects(i).Class))=[CW_GRUPPROG]
					If .Objects(i).lselectat
						.Objects(i).do_deselecteaza()
						Exit
					Endif
				Endif
			Endfor
		Endwith
		This.MouseEnter
		This.lselectat=.T.
		This._shape1.FillStyle= 0
	ENDPROC

	PROCEDURE Init
		DoDefault()
		lcCuloareFill=This.lb_grup.cculoareactiv
		This._shape1.FillColor=&lcCuloareFill
		
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.lselectat
			lcCuloareActiv=This.lb_grup.cculoareactiv
			This._shape1.BorderColor=&lcCuloareActiv
			This.lb_grup.MouseEnter
		Endif
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.lselectat
			lcCuloareInactiv=This.lb_grup.cculoareinactiv
			This._shape1.BorderColor=&lcCuloareInactiv
			This.lb_grup.MouseLeave
		Endif
	ENDPROC

	PROCEDURE RightClick
		If Type('this.parent.meniu')<>'U'
			Local laMenu[2]
			laMenu=""
			laMenu[1]=[\<Adauga grup in Favorite]
			laMenu[2]=[\<Sterge grup din Favorite]
			This.Parent.meniu.showmenu(@laMenu)
			Do Case
			Case Bar()=1
				adauga_grup_in_favorite(This.nid_grup_prog)
			Case Bar()=2
				sterge_grup_din_favorite(This.nid_grup_prog)
			Endcase
		Else
			Return
		Endif
	ENDPROC

	PROCEDURE Lb_grup.Click
		This.Parent.Click
	ENDPROC

	PROCEDURE Lb_grup.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE Lb_grup.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE Lb_grup.RightClick
		This.Parent.RightClick
	ENDPROC

	PROCEDURE _linie.Click
		this.Parent.click
	ENDPROC

	PROCEDURE _shape1.Click
		this.Parent.click
	ENDPROC

	PROCEDURE _shape1.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			This.BorderWidth=2
		Endif
		
	ENDPROC

	PROCEDURE _shape1.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lselectat
			This.BorderWidth=1
		Endif
	ENDPROC

	PROCEDURE _shape1.RightClick
		This.Parent.RightClick
	ENDPROC

ENDDEFINE

DEFINE CLASS cw_meniu AS _container OF "..\..\comun\clase\_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="_shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_linie1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_linie2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_actelemente
		*m: do_apasa
		*p: cfontapasat
		*p: lapasat
		*p: lvcomun		&&  .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackColor = 0,0,255
		BackStyle = 0
		BorderWidth = 0
		cfontapasat = RGB(0,0,90)
		Height = 26
		lapasat = .F.
		lvcomun = .F.
		MousePointer = 15
		Name = "cw_meniu"
		Width = 160
	*</PropValue>

	ADD OBJECT '_linie1' AS _linie WITH ;
		BorderColor = 255,255,255, ;
		Height = 0, ;
		Left = 0, ;
		Name = "_linie1", ;
		Top = 24, ;
		Width = 160
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />

	ADD OBJECT '_linie2' AS _linie WITH ;
		BorderColor = 255,255,255, ;
		Height = 22, ;
		Left = 0, ;
		Name = "_linie2", ;
		Top = 2, ;
		Width = 0
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />

	ADD OBJECT '_shape1' AS _shape WITH ;
		BackStyle = 0, ;
		BorderColor = 255,255,255, ;
		Curvature = 25, ;
		FillColor = 255,255,255, ;
		FillStyle = 1, ;
		Height = 10, ;
		Left = 8, ;
		MousePointer = 15, ;
		Name = "_shape1", ;
		Top = 7, ;
		Width = 10, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'Lb_meniu1' AS lb_meniu WITH ;
		ForeColor = 255,255,255, ;
		Height = 25, ;
		Left = 30, ;
		Name = "Lb_meniu1", ;
		Top = 4, ;
		Width = 91, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
	
	PROCEDURE Click
		This.lapasat=!This.lapasat
	ENDPROC

	PROCEDURE do_actelemente
		This.lb_meniu1.FontBold=This.lapasat
		This._shape1.BorderWidth=1
		If This.lapasat
			This.BackStyle=1
			lcCuloareFont=This.cfontapasat
			This.lb_meniu1.ForeColor=&lcCuloareFont
			This._shape1.BorderColor=&lcCuloareFont
			This._shape1.FillColor=&lcCuloareFont
			This._shape1.FillStyle=0
		Else
			This.BackStyle=0
			This.lb_meniu1.ForeColor=Rgb(255,255,255)
			This._shape1.BorderColor=Rgb(255,255,255)
			This._shape1.FillColor=Rgb(255,255,255)
			This._shape1.FillStyle=1
		Endif
		
	ENDPROC

	PROCEDURE do_apasa
		This.lapasat=!This.lapasat
		This.do_actelemente
		
	ENDPROC

	PROCEDURE Init
		This.BackColor=Rgb(255,255,255)
		If This.lapasat
			This.do_actelemente
		Endif
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		This._shape1.MouseEnter
		This.lb_meniu1.MouseEnter
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		This._shape1.MouseLeave
		This.lb_meniu1.MouseLeave
	ENDPROC

	PROCEDURE Lb_meniu1.Click
		This.Parent.Click
	ENDPROC

	PROCEDURE Lb_meniu1.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lapasat
			This.FontBold=.T.
		Endif
	ENDPROC

	PROCEDURE Lb_meniu1.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lapasat
			This.FontBold=.F.
		Endif
	ENDPROC

	PROCEDURE _linie1.Click
		this.Parent.click
	ENDPROC

	PROCEDURE _linie2.Click
		this.Parent.click
	ENDPROC

	PROCEDURE _shape1.Click
		this.Parent.click
	ENDPROC

	PROCEDURE _shape1.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lapasat
			This.BorderWidth=2
		Endif
		
	ENDPROC

	PROCEDURE _shape1.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If !This.Parent.lapasat
			This.BorderWidth=1
		Endif
	ENDPROC

ENDDEFINE

DEFINE CLASS cw_optiuni AS _container OF "..\comun\clase\_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="lb_imagine" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_program" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_explicatie" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cclasa
		*p: cprocedura
		*p: cprogram
		*p: lvcomun		&& .T. - daca optiunea este vizibila pentru toti utilizatori. .F. - doar pentru grupul de administratori.
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderWidth = 0
		cclasa = 
		cprocedura = 
		cprogram = 
		Height = 58
		lvcomun = .F.
		MousePointer = 15
		Name = "cw_optiuni"
		Width = 336
	*</PropValue>

	ADD OBJECT 'Lb_explicatie' AS lb_explicatie WITH ;
		cculoareactiv = RGB(150,128,128), ;
		cculoareinactiv = RGB(128,128,128), ;
		Height = 17, ;
		Left = 61, ;
		Name = "Lb_explicatie", ;
		Top = 31, ;
		Width = 268
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />

	ADD OBJECT 'lb_imagine' AS _image WITH ;
		Height = 48, ;
		Left = 5, ;
		MousePointer = 15, ;
		Name = "lb_imagine", ;
		Stretch = 2, ;
		Top = 5, ;
		Width = 48
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />

	ADD OBJECT 'Lb_program' AS lb_program WITH ;
		cculoareactiv = RGB(150,0,128), ;
		cculoareinactiv = RGB(0,0,128), ;
		Height = 25, ;
		Left = 61, ;
		Name = "Lb_program", ;
		Top = 9, ;
		Width = 268
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
	
	PROCEDURE Click
		Do Case
		Case !Empty(This.cprogram)
			Try
				lcComanda=This.cprogram
				&lcComanda
			Catch
				aMessagebox("Programul "+This.lb_program.Caption+" nu este instalat pe server!",0+48,"Atentie")
			Endtry
		Case !Empty(This.cclasa)
			Private loClasa
			lcClasa=This.cclasa
			loClasa=Createobject(lcClasa)
			loClasa.Show(1)
			Release loClasa
		Case !Empty(This.cprocedura)
			lcProcedura=This.cprocedura
		*!*	modificare	v 2.0.29
		*!*		Do &lcProcedura
			If At([.],lcProcedura) > 0
				&lcProcedura
			Else
				Do &lcProcedura
			Endif
		*!*	modificare	v 2.0.29	^
		Endcase
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.lb_explicatie.MouseEnter
		This.lb_program.MouseEnter
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.lb_explicatie.MouseLeave
		This.lb_program.MouseLeave
	ENDPROC

	PROCEDURE Lb_explicatie.Click
		this.Parent.click
	ENDPROC

	PROCEDURE lb_imagine.Click
		this.Parent.click
	ENDPROC

	PROCEDURE Lb_program.Click
		This.Parent.Click
	ENDPROC

ENDDEFINE

DEFINE CLASS cw_programe AS _container OF "..\comun\clase\_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="Lb_program" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_imagine" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_initializeaza		&& Initializeaza proprietatile containerului.
		*p: cclasa
		*p: cdirector
		*p: cprocedura
		*p: cprogram
		*p: lvcomun		&& .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
		*p: nid_grup_prog		&& Id-ul grupului din care face parte programul.
		*p: nid_grup_prog_tata		&& Id-ul grupului din care face programul ( in caz ca e in Favorite ).
		*p: nid_prog		&& Id-ul programului.
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderWidth = 0
		cclasa = 
		cdirector = 
		cprocedura = 
		cprogram = 
		Height = 58
		lvcomun = .T.
		MousePointer = 15
		Name = "cw_programe"
		nid_grup_prog = 0
		nid_grup_prog_tata = 0
		nid_prog = 0
		Width = 307
	*</PropValue>

	ADD OBJECT 'lb_imagine' AS _image WITH ;
		Height = 48, ;
		Left = 5, ;
		MousePointer = 15, ;
		Name = "lb_imagine", ;
		Stretch = 2, ;
		Top = 5, ;
		Width = 48, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />

	ADD OBJECT 'Lb_program' AS lb_program WITH ;
		cculoareactiv = RGB(0,0,0), ;
		cculoareinactiv = RGB(0,0,0), ;
		FontBold = .F., ;
		FontSize = 10, ;
		FontUnderline = .F., ;
		Height = 43, ;
		Left = 61, ;
		Name = "Lb_program", ;
		Top = 8, ;
		Width = 227, ;
		WordWrap = .T., ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
	
	PROCEDURE Click
		Do Case
			Case !Empty(This.cprogram)
				*!* Vasile Cristian 05.09.2007
				Local loUpdate
				loUpdate = Createobject("oUpdate",IIF(Reccount('crsserverinfo') = 0,[],Alltrim(crsserverinfo.Value)),This.Parent.Parent.txt_Mesaj,This.cdirector)
				If Type('loUpdate') = 'O'
		*!*				lostart=This.Parent.Parent.txt_Mesaj
					lbrun=.T.
		*!*				lbrun=loUpdate.updatecheck(This.cdirector,@lostart,.T.)
					lbrun=loUpdate.updatecheck(This.cdirector,.T.,0)
					Release loUpdate
				Else
					lbrun=.T.
				Endif
				If lbrun
					If Like([*.htm],Lower(This.cprogram)) Or Like([*.html],Lower(This.cprogram))
						open_default_app(This.cprogram)
					Else
						Try
							lcComanda=This.cprogram
							&lcComanda
						Catch
							aMessagebox("Programul "+This.lb_program.Caption+" nu este instalat pe server!",0+48,"Atentie")
						Endtry
					Endif
				Endif
		
		
				*!*old
			Case !Empty(This.cclasa)
				Private loClasa
				lcClasa=This.cclasa
				loClasa=Createobject(lcClasa)
				loClasa.Show(1)
				Release loClasa
			Case !Empty(This.cprocedura)
				lcProcedura=This.cprocedura
				Do &lcProcedura
		Endcase
		
	ENDPROC

	PROCEDURE do_initializeaza		&& Initializeaza proprietatile containerului.
		Lparameters tcNumeProgram, tcDirector, tcImagine, tcComanda, tnIdProg, tnIdGrupProg, tnIdGrupProgTata
		
		This.lb_program.Caption = tcNumeProgram
		This.cdirector = tcDirector
		This.lb_imagine.Picture = tcImagine
		This.Visible = .T.
		This.cprogram = tcComanda
		This.nid_prog = tnIdProg
		This.nid_grup_prog = tnIdGrupProg
		This.nid_grup_prog_tata = Iif(Type('tnIdGrupProgTata')='N',tnIdGrupProgTata,tnIdGrupProg)
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.lb_program.MouseEnter
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.lb_program.MouseLeave
	ENDPROC

	PROCEDURE MouseWheel
		Lparameters nDirection, nShift, nXCoord, nYCoord
		If Upper(This.Parent.Class)=[_SCROLLCONTAINER]
			This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)
		Endif
		
	ENDPROC

	PROCEDURE RightClick
		If This.nid_grup_prog=0
			Local laMenu[1]
			laMenu=""
			laMenu[1]="\<Sterge din Favorite"
		
			Do Case
			Case Type('this.parent.meniu')<>'U'
				This.Parent.meniu.showmenu(@laMenu)
			Case Type('this.parent.parent.meniu')<>'U'
				This.Parent.Parent.meniu.showmenu(@laMenu)
			Otherwise
				Return
			Endcase
		
			Do Case
			Case Bar()=1
				sterge_din_favorite(This.nid_grup_prog_tata,This.Name,This.nid_prog)
			Endcase
		Else
			lcNumeContainerFav=[Application.Forms.Item(1).pgf_optiuni1.page1.scrollcont0.]+Alltrim(This.Name)
			Local laMenu[2]
			laMenu=""
			laMenu[1]=Iif(Type(lcNumeContainerFav)='U',[\<Adauga in Favorite],[\Adauga in Favorite])
			laMenu[2]=Iif(Type(lcNumeContainerFav)='U',[\Sterge din Favorite],[\<Sterge din Favorite])
			Do Case
			Case Type('this.parent.meniu')<>'U'
				This.Parent.meniu.showmenu(@laMenu)
			Case Type('this.parent.parent.meniu')<>'U'
				This.Parent.Parent.meniu.showmenu(@laMenu)
			Otherwise
				Return
			Endcase
		
			llArataMesaj=.T.	&&	arata mesaj daca programul exista deja in Favorite
			Do Case
			Case Bar()=1
				adauga_in_favorite(This.Parent.Name,This.Name,This.nid_prog,llArataMesaj)
			Case Bar()=2
				sterge_din_favorite(This.nid_grup_prog_tata,This.Name,This.nid_prog)
			Endcase
		Endif
		
	ENDPROC

	PROCEDURE lb_imagine.Click
		This.Parent.Click
	ENDPROC

	PROCEDURE lb_imagine.MouseWheel
		Lparameters nDirection, nShift, nXCoord, nYCoord
		This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)
	ENDPROC

	PROCEDURE lb_imagine.RightClick
		This.Parent.RightClick
	ENDPROC

	PROCEDURE Lb_program.Click
		This.Parent.Click
	ENDPROC

	PROCEDURE Lb_program.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		DODEFAULT()
		this.FontBold=.T.
		this.FontUnderline=.T.
	ENDPROC

	PROCEDURE Lb_program.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		DODEFAULT()
		this.FontBold=.F.
		this.FontUnderline=.F.
	ENDPROC

	PROCEDURE Lb_program.MouseWheel
		Lparameters nDirection, nShift, nXCoord, nYCoord
		This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)
	ENDPROC

	PROCEDURE Lb_program.RightClick
		This.Parent.RightClick
	ENDPROC

ENDDEFINE

DEFINE CLASS imagine_grup AS _image OF "..\..\comun\clase\_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: picturedown
		*p: pictureup
	*</DefinedPropArrayMethod>

	*<PropValue>
		Height = 15
		Name = "imagine_grup"
		Picture = ..\..\
		Stretch = 2
		Width = 15
	*</PropValue>
	
	PROCEDURE Click
		this.Parent.click
	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 img_stanga AS _image OF "..\..\comun\clase\_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Height = 328
		Name = "img_stanga"
		Picture = ..\grafice\f2.jpg
		Stretch = 2
		Width = 187
	*</PropValue>

ENDDEFINE

DEFINE CLASS lb_explicatie AS _lbbase OF "..\..\comun\clase\_lb_base.vcx" 
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: cculoareactiv
		*p: cculoareinactiv
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoSize = .F.
		Caption = "Explicatie"
		cculoareactiv = RGB(0,0,0)
		cculoareinactiv = RGB(0,0,0)
		MousePointer = 15
		Name = "lb_explicatie"
		Width = 250
	*</PropValue>
	
	PROCEDURE Init
		lcProp=This.cculoareinactiv
		This.ForeColor=&lcProp
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		lcProp=This.cculoareactiv
		This.ForeColor=&lcProp
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		lcProp=This.cculoareinactiv
		This.ForeColor=&lcProp
	ENDPROC

ENDDEFINE

DEFINE CLASS lb_grup AS _lbbase OF "..\..\comun\clase\_lb_base.vcx" 
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: cculoareactiv
		*p: cculoareinactiv
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoSize = .F.
		Caption = "Grup"
		cculoareactiv = RGB(0,0,0)
		cculoareinactiv = RGB(0,0,0)
		FontSize = 10
		MousePointer = 15
		Name = "lb_grup"
		Width = 250
		WordWrap = .T.
	*</PropValue>
	
	PROCEDURE Init
		lcProp=This.cculoareinactiv
		This.ForeColor=&lcProp
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		lcProp=This.cculoareactiv
		This.ForeColor=&lcProp
		This.FontBold=.T.
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		lcProp=This.cculoareinactiv
		This.ForeColor=&lcProp
		This.FontBold=.F.
	ENDPROC

ENDDEFINE

DEFINE CLASS lb_meniu AS _lbbase OF "..\..\comun\clase\_lb_base.vcx" 
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		AutoSize = .F.
		Caption = "Meniu"
		FontSize = 10
		Height = 19
		MousePointer = 15
		Name = "lb_meniu"
		Width = 44
	*</PropValue>

ENDDEFINE

DEFINE CLASS lb_program AS _lbbase OF "..\..\comun\clase\_lb_base.vcx" 
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: cculoareactiv
		*p: cculoareinactiv
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoSize = .F.
		Caption = "Program"
		cculoareactiv = RGB(0,0,0)
		cculoareinactiv = RGB(0,0,0)
		FontBold = .T.
		FontSize = 12
		FontUnderline = .T.
		Height = 25
		MousePointer = 15
		Name = "lb_program"
		Width = 250
	*</PropValue>
	
	PROCEDURE Init
		lcProp=This.cculoareinactiv
		This.ForeColor=&lcProp
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		lcProp=This.cculoareactiv
		This.ForeColor=&lcProp
		
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		lcProp=This.cculoareinactiv
		This.ForeColor=&lcProp
	ENDPROC

ENDDEFINE

DEFINE CLASS pgf_optiuni AS _pfbase OF "..\comun\clase\_pf_base.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		ColorSource = 0
		ErasePage = .T.
		Height = 399
		Name = "pgf_optiuni"
		PageCount = 3
		Tabs = .F.
		Width = 602
		Page1.BackColor = 255,255,255
		Page1.Caption = "Page1"
		Page1.Name = "Page1"
		Page2.BackColor = 255,255,255
		Page2.Caption = "Page2"
		Page2.Name = "Page2"
		Page3.BackColor = 255,255,255
		Page3.Caption = "Page3"
		Page3.Name = "Page3"
	*</PropValue>

ENDDEFINE

DEFINE CLASS txt_mesaj AS _editbox OF "..\comun\clase\_baza.vcx" 
 	*< CLASSDATA: Baseclass="editbox" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		BackStyle = 0
		BorderStyle = 0
		DisabledForeColor = 0,0,0
		Enabled = .F.
		FontName = "Verdana"
		FontSize = 7
		Height = 65
		Name = "txt_mesaj"
		ScrollBars = 0
		TabStop = .F.
		Themes = .F.
		Width = 252
	*</PropValue>
	
	PROCEDURE ProgrammaticChange
		Local lnLungime
		lnLungime = Len(This.Value)
		This.SelStart = Iif(Rat(Chr(13)+Chr(10),This.Value,1) = lnLungime - 1,lnLungime - 1,lnLungime)
		This.Refresh()
		
	ENDPROC

ENDDEFINE