да подойдет, я на 8-ке
тока бы при выходе
из формы как то все открепить,
потому что у меня используется класс
сохранения размера и порядка следования в гриде, которые запоминаются в таблицу
*если это завязано на ColumnOrder
про свойство то это я знаю, тока немогу прилепить
мню ко всем колонкам, вернее хедерам
Если поможите кодом, должен буду :-)
спасибо

Вот сам чего покопался, получилось
Но проблема осталась такая
код навешан на mousedown хедера
но вот в чем проблема:
Хочу сделать подсветку "закрепленного столбца", все получается,
но вот закрепляю другой столбец, а подсветка сохраняется.
как перекинуть ее в дефолтную
Спасибо

LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 2
LOCAL cBar as Integer
cBar = 0
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR 1 OF shortcut PROMPT "Закрепить столбец" &&PICTURE This.PicturesAsc
DEFINE BAR 2 OF shortcut PROMPT "Открепить столбец" &&PICTURE This.PicturesDes
DEFINE BAR 3 OF shortcut PROMPT "\-"
DEFINE BAR 4 OF shortcut PROMPT "Сортировка по возрастанию" &&PICTURE This.PicturesDes
DEFINE BAR 5 OF shortcut PROMPT "Сортировка по убыванию" &&PICTURE This.PicturesDes


ON SELECTION BAR 1 OF shortcut cBar = 1
ON SELECTION BAR 2 OF shortcut cBar = 2
ON SELECTION BAR 3 OF shortcut cBar = 4
ON SELECTION BAR 4 OF shortcut cBar = 5
ON SELECTION BAR 5 OF shortcut cBar = 6

ACTIVATE POPUP shortcut
DO CASE
CASE cBar = 1
This.Parent.Parent.LockColumns=0
This.Parent.Parent.LockColumns=This.Parent.ColumnOrder
this.parent.BackColor= 8454143
CASE cBar = 2
this.parent.BackColor = 16777215
This.Parent.Parent.LockColumns=0
CASE cBar = 4
*This.Parent.Parent.LockColumns=0
CASE cBar = 5
*This.Parent.Parent.LockColumns=0
OTHERWISE
RETURN
ENDCASE
This.parent.parent.Refresh()
This.parent.SetFocus()
ENDIF