roastart/Clase/ostart_obiecte.vc2

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ostart_obiecte.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS oleacces AS _olecontrol OF "..\comun\clase\_baza.vcx" 
 	*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="oleacces" Parent="" ObjName="oleacces" OLEObject="C:\WINDOWS\system32\MSCOMCTL.OCX" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBTyQaXk8YBAwAAAMACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAagAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAKIBAAAAAAAABAAAAAIAAAD+////BQAAAP7///8GAAAABwAAAAgAAAAJAAAACgAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAABIIQAAZhIAALE8wWoBAAYAIgAAABkAAADtAwAACQAAAJmrHQAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTFmAHQAIABXAGkAbgBkAG8AdwBzACAAUgBlAHAAbwByAHQAIAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAFAGitHQADAAAAAAAAAAUAAIC46xIAAQAAAFwAH97svQEABQD86xIATgBUAFwAUwB5AHMAdABlAG0AMwAyAAAAQ0AKAAAATGFiZWxFZGl0AAkAAABJCgAAAAAAAAAKAAAATGluZVN0eWxlAAkAAABJCgAAAAEAAAANAAAATW91c2VQb2ludGVyAAkAAABJCgAAAAAAAAAOAAAAUGF0aFNlcGFyYXRvcgAKAAAASAAAAAABAAAAXAcAAABTb3J0ZWQABQAAAEwAAAAABgAAAFN0eWxlAAkAAABJCgAAAAYAAAAMAAAAT0xFRHJhZ01vZGUACQAAAEkKAAAAAAAAAAwAAABPTEVEcm9wTW9kZQAJAAAASQoAAAAAAAAACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAACwAAAENoZWNrYm94ZXMABQAAAEwBAAAADgAAAEZ1bGxSb3dTZWxlY3QABQAAAEwAAAAADAAAAEhvdFRyYWNraW5nAAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />

	*<DefinedPropArrayMethod>
		*m: actualizeaza_tree
		*m: adauga_frunze
		*m: bifeaza_nod
		*m: citeste_meniu
		*m: citeste_noduri
		*m: citeste_pageframe
		*m: curata_tree
		*m: initializeaza_tree
		*p: cmeniu		&& Numele meniului
		*p: cpageframe
	*</DefinedPropArrayMethod>

	*<PropValue>
		cmeniu = 
		cpageframe = 
		Height = 178
		Name = "oleacces"
		Width = 322
	*</PropValue>
	
	PROCEDURE actualizeaza_tree
		Select v_obiectegrup
		Scan
			lcCheie=Alltrim(cheie)
			loNode=This.Object.Nodes.Item(lcCheie)
			loNode.Checked= .T.
			This.nodeCheck(loNode)
		Endscan
		
	ENDPROC

	PROCEDURE adauga_frunze
	ENDPROC

	PROCEDURE bifeaza_nod
		Lparameters Node,llChecked
		Local loChild,i
		
		*!*	If Isnull(Node.Parent)
		*!*		loProp='this.cnt'+Node.Key
		*!*		If Node.checked
		*!*			&loProp=Node.children
		*!*		Else
		*!*			&loProp=0
		*!*		Endif
		*!*		Node.bold=Node.checked
		*!*		loChild=Node.Child.FirstSibling
		*!*		For i=1 To Node.children
		*!*			loChild.checked=Node.checked
		*!*			loChild=loChild.Next
		*!*		Endfor
		*!*	Else
		*!*		loProp='this.cnt'+Node.Parent.Key
		*!*		If Node.checked
		*!*			&loProp=&loProp+1
		*!*			Node.Parent.bold=Node.checked
		*!*			If &loProp=Node.Parent.children
		*!*				Node.Parent.checked=.T.
		*!*			Endif
		*!*		Else
		*!*			&loProp=&loProp-1
		*!*			If Node.Parent.checked
		*!*				Node.Parent.checked=.F.
		*!*			Endif
		*!*			If &loProp=0
		*!*				Node.Parent.bold=.F.
		*!*			Endif
		*!*		Endif
		*!*	Endif
		loChild=Node.Child.FirstSibling
		For i=1 To Node.children
			If loChild.children>0
				loChild.Bold=llChecked
				This.bifeaza_nod(loChild,llChecked)
			Endif
			loChild.checked=llChecked
			loChild=loChild.Next
			loProp="this.cnt"+Node.Key
			&loProp=&loProp+Iif(llChecked,1,-1)
		Endfor
	ENDPROC

	PROCEDURE citeste_meniu
	ENDPROC

	PROCEDURE citeste_noduri
		Local lcAcces
		lcAcces=[]
		For i=1 To This.Nodes.Count
			If This.Nodes.Item(i).Checked And This.Nodes.Item(i).Children=0
				lcAcces=lcAcces+This.Nodes.Item(i).Key
			Endif
		Endfor
		Return lcAcces
	ENDPROC

	PROCEDURE citeste_pageframe
	ENDPROC

	PROCEDURE curata_tree
		This.Nodes.Clear
		This.Refresh()
	ENDPROC

	PROCEDURE initializeaza_tree
		This.curata_tree()
		Select v_obiecte
		Scan
			lcCheie=Alltrim(cale)
			lcText=Alltrim(descriere)
			lnNivel=nivel
			If nivel=1
				lcCheie=Strtran(lcCheie,[/],[])
				This.Nodes.Add(,,lcCheie,lcText)
			Else
				lcTata=Strtran(Substr(lcCheie,1,At([/],lcCheie,lnNivel)),[/],[])
				lcCheie=Strtran(lcCheie,[/],[])
				This.Nodes.Add(lcTata,4,lcCheie,lcText)
			Endif
			lcProp="cnt"+lcCheie
			This.AddProperty(lcProp,0)
		Endscan
	ENDPROC

	PROCEDURE NodeCheck
		*** ActiveX Control Event ***
		Lparameters Node
		Local loNode
		*!*	If aMessagebox("Doriti sa suspendati?",4,"")==6
		*!*		Debug
		*!*		Suspend
		*!*	Endif
		DoDefault()
		llChecked=Node.checked
		If Node.children<>0
			Node.bold=llChecked
		Endif
		loProp="this.cnt"+Node.Key
		If Isnull(Node.Parent)
			If Node.children<>0
				This.bifeaza_nod(Node,llChecked)
				&loProp=Iif(llChecked,Node.children,0)
			Endif
		Else
			If Node.children<>0
				This.bifeaza_nod(Node,llChecked)
				&loProp=Iif(llChecked,Node.children,0)
			Else
				&loProp=Iif(llChecked,1,0)
			Endif
			loNode=Node
			lnProp=Iif(llChecked,1,-1)
			Do While !Isnull(loNode.Parent)
				loNode=loNode.Parent
				loProp="this.cnt"+loNode.Key
				&loProp=&loProp+lnProp
				Do Case
				Case &loProp=0
					loNode.bold=.F.
					lnProp=Iif(loNode.checked,-1,0)
					loNode.checked=.F.
				Case &loProp=loNode.children
					loNode.checked=.T.
					loNode.bold=.T.
					lnProp=1
				Otherwise
					lnProp=Iif(loNode.checked,-1,0)
					loNode.checked=.F.
					loNode.bold=.T.
				Endcase
			Enddo
		Endif
	ENDPROC

ENDDEFINE