Привет.

Проблема вкратце такова: Мною пишется клиент на VFP8 в связке с MSSQL. В клиенте разработана специальная форма для настройки внешнего вида грида (видимость колонок, подсветка,высота строк, шапки и т.д.). Т.е. я могу любой грид настроить через эту форму как мне хочется - спрятать/показать колонки и т.д. Все эти настройки гридов сохраняются соответственно на сервере и восстанавливаются при следующем запуске клиента.

Как работает форма настройки: В нее передается указатель грида (THIS) и через этот указатель в форму считывается все колонки грида, размер шапки, строк и индикатор подсветки строки. После того, как я закрываю форму настройки по кнопке OK, я через указатель на грид, прохожусь по его колонкам и применяю свойство Visible = .T. или .F. колонок в зависимости от того как я настроил эти колонки в форме. После того, как некоторые колонки скрыты, при пролистывании грида горизонтально почему-то возникают глюки, у активной записи - затираются у последних колонок названия, и все как бы смещается и возникает каша, словно явно чуствуется "нехватка" спрятанных колонок. Такое часто возникает, когда скрываются колонки в середине грида или в самом начале.

Никто не сталкивался с такой проблемой ?

Можно конечно попробовать через AddColumn DeleteColumn, но тогда придется каждый раз переопределять ControlSource для колонок грида ?

>Привет всем :)
>Я обычно VISIBLE колонки комбинирую с ENABLED и RESIZABLE.

Равиль, Ваш вариант не сработал :(

Приведу код:

SCAN && идем по курсору, в котором сидят наименования колонок грида
WITH THISFORM.oGrd && Указатель на грид, для которого идет настройка
&& был передан в форму настройки из грида через
&& THIS грида

.Columns(RECNO()).ColumnOrder = ColOrder && Индикатор положения
&& колонки в гриде

IF ColHide = 1 && Индикатор показать/скрыть колонку
.Columns(RECNO()).Visible = .F.
ELSE
.Columns(RECNO()).Visible = .T.
ENDIF

.LockColumns = THISFORM.spnLEFTLOCK.Value
.RowHeight = THISFORM.spnROWHEIGHT.Value
.HeaderHeight = THISFORM.spnHDRHEIGHT.Value
IF THISFORM.chkHIGHLIGHT.Value = 0
.HighLightStyle = 0
ELSE
.HighLightStyle = 2
ENDIF

ENDWITH
ENDSCAN

>Это баг. См. на UT. Надеюсь в сп1 поправят.

На этом всем спасибо. Будем ждать сервис пак :)

>После того, как некоторые колонки скрыты, при пролистывании грида >горизонтально почему-то возникают глюки, у активной записи - затираются >у последних колонок названия, и все как бы смещается и возникает каша, >словно явно чуствуется "нехватка" спрятанных колонок.

>Кстати , в гриде случайно не присутствуют объекты контейнеры?
>В любом случае поступаешь так:
>В методе Scrolled грида пишешь
>This.Refresh()

В гриде таких объектов нет, и при добавлении вышеприведенного кода глюки пропали. Но мне не нравится как стал работать грид при скроллировании:
создается впечатление что скрытые колонки учитываются при скроллинге, что приводит к визуальному "дерганью" грида. Например, есть 10-ть колонок, 2я,3я скрыты, находимся на самой первой колонке (она видимая,слева), за ней видна сразу 4,5 и т.д. При скроллинге вправо - первая колонка уходит влево, за пределы видимости грида, а самой левой становится 4-я. При повторном скроллинге - 4-я колонка влево не уходит, а остается на месте (листается 2-я невидимая колонка). Повторный скроллинг приводит к такому же результату (листается 3-я невидимая колонка). И лишь затем скроллирование идет нормально.

А это не есть гут.

>А вместо visible=.f.

>column.width=0
>column.Resizable=.f.
>column.enabled=.f.

>не проканает?

Те же глюки остались.
Ладно, буду ждать сп или попытаюсь сделать с переопределением числа колонок у грида (при скрытии колонок) с последующим переопределением controlsource колонок.

>Описанный баг на UT немного по-другому проявлялся, но в принципе то же >самое, т.к. там колонки конечные колонки хайдились, а не серединные, как у >Вас. Там же предложены 2 обхода бага. Смысл обхода - это на assign-методе >к Visible колонки (или на BINDEVENT событии во втором примере обхода) >сделать Width колонки равным нулю, затем восстановить прежний и >перерисовать скроллбары. Подробнее смотрите здесь: UT Visual FoxPro Bug >List
>Выберите Page2
>Ошибка: Scroll bugs with Invisible columns in grid June 2, 2003 15:21 Walter >Meester

Спасибо, буду смотреть