*--- lvroot - значения поля root
#DEFINE C_ROOT_ARCHIVES			"Archives"
#DEFINE C_ROOT_SSECTIONS		"Ssections"
#DEFINE C_ROOT_USERS			"Users"
#DEFINE C_ROOT_PARAM			"Params"

#DEFINE FLDROOT						"root"				&&имя поля иаблицы
#DEFINE C_TOOLBAR_S4				"tlb_s4"				&&тулбар
#DEFINE C_TOOLBAR_ARCHIVES		"Tlb_Archives"		&&тулбар
#DEFINE C_PREFIXTOOLBAR			"Tlb_"

DEFINE CLASS MyTreeView AS TreeView
	PROCEDURE NodeClick
		LPARAMETERS node

		IF TYPE('This.Parent') = 'O' AND !ISNULL(This.Parent) AND LOWER(This.Parent.BaseClass) = "form"
			RETURN This.Parent.OnNodeClick(node)
		ENDIF
	ENDPROC
ENDDEFINE

DEFINE CLASS MyForm AS Form
	PROCEDURE OnNodeClick
		LPARAMETERS node

		LOCAL lcKey
		lcKey = node.Tag

		WITH This
			IF !.OpenView(C_VIEW_LVROOT,FLDROOTKYE,lcKey)       &&достаю информацию из курсора по даному node
				RETURN .F.
			ENDIF

			This.cPad=ALLTRIM(EVALUATE(FLDROOT))+C_PREFIXPAD
			PadRelease(This.cPad, C_MENU_ADMIN)
			.FormPad(This.cPad,ALLTRIM(EVALUATE(FLDROOTNAME)))
	
			.ToolbarRelease(EVALUATE([_Screen.]+C_TOOLBAR_S4))
			IF PEMSTATUS(_Screen,This.cToolbar, 5 )
				.ToolbarRelease(EVALUATE([_Screen.]+This.cToolbar))
			ENDIF

			This.cToolbar=C_PREFIXTOOLBAR+ALLTRIM(EVALUATE(FLDROOT))
			.Formtoolbar(C_TOOLBAR_S4)
			.Formtoolbar(This.cToolbar)
		ENDWITH
	ENDPROC

	PROCEDURE Formtoolbar
		LPARAMETERS tcTlb

		WITH _Screen
			.AddProperty(tcTlb)
			.&tcTlb=CREATEOBJECT(tcTlb)
			.&tcTlb..Show()
			.&tcTlb..Dock( 0 )
		ENDWITH
	ENDPROC

	PROCEDURE ToolbarRelease
		LPARAMETERS oTlb
	
		IF VARTYPE(oTlb) # [O] OR ISNULL(oTlb)
			RETURN .F.
		ENDIF
	
		oTlb.Release
	ENDPROC
ENDDEFINE

PROCEDURE ToolbarRelease
	LPARAMETERS oTlb
	
	IF VARTYPE(oTlb) # [O] OR ISNULL(oTlb)
		RETURN .F.
	ENDIF
	
	oTlb.Dock(- 1 )
	oTlb.Release
ENDPROC