lparameters toColumn

* toColumn - активная колонка грида
if vartype(toColumn)<>'O' or lower(toColumn.baseclass)<>'column'
	return .f.
endif
LOCAL lcPopupNameSort, llIslocked, llSetup, lnX, lnY, lnAction, llImages
if !pemstatus(toColumn,'Locked', 5 )
	toColumn.addproperty('Locked')
endif
llIslocked = toColumn.Locked
llSetup    = (pemstatus(this,'oColor_style', 5 ) and vartype(this.oColor_style)='O')

if empty(this.cPopupName)
	llImages = .t. &&this.CheckImages()
	local lcTempPath
	lcTempPath = '' &&addbs(sys( 2023 ))
	* пока поднимаем меню так (стандартное - одинаковое для всех гридов)
	* но можно поднять разные меню, зависящие от каких-то настроечных сущностей
	store 'Popup'+sys( 2015 ) to lcPopupName, this.cPopupName
	lcPopupNameSort  = lcPopupName+'_index'
	lcPopupNameSetup = lcPopupName+'_setup'
	DEFINE popup (lcPopupName) SHORTCUT RELATIVE margin shadow
	if llImages 
		Define BAR  1  of (lcPopupName) PROMPT '\<Заморозить колонку' picture lcTempPath+'pin_on.bmp' ;
												skip for llIslocked
		Define BAR  2  OF (lcPopupName) PROMPT '\<Разблокировать колонку' picture lcTempPath+'pin_off.bmp' ;
												skip for !llIslocked
	else
		Define BAR  1  of (lcPopupName) PROMPT '\<Заморозить колонку' skip for llIslocked
		Define BAR  2  OF (lcPopupName) PROMPT '\<Разблокировать колонку' skip for !llIslocked
	endif												
	Define BAR  3  OF (lcPopupName) PROMPT '\-'
	Define BAR  4  OF (lcPopupName) PROMPT '\<Формат (маска ввода)' 
											*;
											skip for empty(ARM_USER.user_adm)
											
	Define BAR  5  OF (lcPopupName) PROMPT '\-'
	Define BAR  6  OF (lcPopupName) PROMPT '\<Сортировать данные' ;
											skip for (pemstatus(toColumn,'SORT_ENABLED', 5 ) and !toColumn.SORT_ENABLED)
	Define BAR  7  OF (lcPopupName) PROMPT '\-'
	Define BAR  8  OF (lcPopupName) PROMPT '\<Изменить очередность'
	Define BAR  9  OF (lcPopupName) PROMPT '\-'
	Define BAR  10  OF (lcPopupName) PROMPT '\<Установки' 

	on bar  1  OF (lcPopupName) lnAction= 1 
	on bar  4  OF (lcPopupName) lnAction= 2 
	on bar  2  OF (lcPopupName) lnAction= 3 
	on bar  8  OF (lcPopupName) lnAction= 4 

	ON BAR  6  OF (lcPopupName) ACTIVATE popup (lcPopupNameSort)
			DEFINE popup (lcPopupNameSort) SHORTCUT relative margin shadow
			if llImages
				Define BAR  1  of (lcPopupNameSort) prompt 'По \<алфавиту' picture lcTempPath+'sort_az.bmp'
				Define BAR  2  of (lcPopupNameSort) prompt 'В \<обратном порядке' picture lcTempPath+'sort_za.bmp'
			else
				Define BAR  1  of (lcPopupNameSort) prompt 'По \<алфавиту'
				Define BAR  2  of (lcPopupNameSort) prompt 'В \<обратном порядке'
			endif
			Define BAR  3  of (lcPopupNameSort) prompt 'Отменить \<сортировку'
			on bar  1  OF (lcPopupNameSort) lnAction= 61 
			on bar  2  OF (lcPopupNameSort) lnAction= 62 
			on bar  3  OF (lcPopupNameSort) lnAction= 63 

	ON BAR  10  OF (lcPopupName) ACTIVATE popup (lcPopupNameSetup)
			DEFINE popup (lcPopupNameSetup) SHORTCUT relative margin shadow
			Define BAR  1  of (lcPopupNameSetup) prompt iif(llSetup,'\<','\')+'Внешний вид/Цвета'
			Define BAR  2  of (lcPopupNameSetup) prompt '\-'
			Define BAR  3  of (lcPopupNameSetup) prompt 'Установить \<размеры по умолчанию'
			Define BAR  4  of (lcPopupNameSetup) prompt iif(llSetup,'\<','\')+'Установить  цвета  по умолчанию'
			on bar  1  OF (lcPopupNameSetup) lnAction= 101 
			on bar  3  OF (lcPopupNameSetup) lnAction= 103 
			on bar  4  OF (lcPopupNameSetup) lnAction= 104 
endif

lnX = mrow("SCREEN")-wlrow()- 2 
lnY = mcol("SCREEN")-wlcol()- 1 
ACTIVATE POPUP (this.cPopupName) at lnX, lnY 

if !empty(lnAction) and !empty(bar())

		py= MROW()
		px= MCOL()
		define popup set_field  &&font "Arial",  10  shadow &&FROM py, px
		define bar  1  of set_field PROMPT "1"
		define bar  2  of set_field PROMPT "2"
		on selection popup set_field deact popup set_field 
		activate popup set_field at py, px
		m_value=bar()
		Release POPUPS set_field

		Local lnAction
		Release POPUPS set_field
		py= MROW()
		px= MCOL()
		define popup set_field SHORTCUT RELATIVE margin shadow
		&&font "Arial",  10  shadow &&FROM py, px
		define bar  1  of set_field PROMPT "1"
		On Selection Bar  1  of set_field lnAction= 1 
		define bar  2  of set_field PROMPT "2"
		On Selection Bar  2  of set_field lnAction= 2 
		*on selection popup set_feld deact popup set_field 
		activate popup set_field at py, px
		If !Empty(lnAction)
			Wait WINDOW NOWAIT Str(lnAction)
		EndIf 
		Release POPUPS set_field

		activate popup set_field at py, px

lnX = mrow("SCREEN")-wlrow()- 2 
lnY = mcol("SCREEN")-wlcol()- 1 
ACTIVATE POPUP (this.cPopupName) at lnX, lnY