Import initial: surse ROASTART + text FoxBin2Prg in arbore
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:
185
Clase/ostart_obiecte.vc2
Normal file
185
Clase/ostart_obiecte.vc2
Normal file
@@ -0,0 +1,185 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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
|
||||
Reference in New Issue
Block a user