Grid

Вопрос

Как в дизайнере формы я могу вставить нужный мне объект (ComboBox, CheckBox, Image, CommandButton, свой класс и т.п.) в столбец Grid?

Ответ

• Добавляете на форму объект Grid
• Устанавливаете у него свойство ColumnCount больше нуля
• Правой клавишей мыши щелкаете на Grid и выбираете пункт Edit. В старших версиях FoxPro в этот режим можно перейти, нажав и удерживая клавишу Ctrl щелкнув по Grid левой клавишей мыши
• В ToolBar с именем Form Controls щелкните левой клавишей мыши по нужному объекту
• Левой клавишей мыши щелкаете на нужном столбце в любом месте под заголовком

Все, нужный объект вставлен. Убедится в это можно в окне Poperties. В раскрывающемся списке в соответствующем столбце Grid кроме объекта Text1 появиться и имя вставленного Вами объекта с добавлением окончания 1.

Чтобы именно вставленный объект отображался в столбце, необходимо убедится, что свойство CurrentControl этого столбца содержит имя вставленного объекта.

А чтобы вставленный Вами объект отображался не только в текущей строке Grid, но и во всех остальных строках необходимо для того же столбца сделать дополнительную настройку

Sparse = .F.

Можно также использовать другой метод вставки

• Добавляете на форму объект Grid
• Устанавливаете у него свойство ColumnCount больше нуля
• Добавьте экземпляр любого нужного Вам класса, который Вы хотите вставить в столбец Grid непосредственно на форму вне Grid
• Выделите добавленный объект (щелкнув по нему левой клавишей мыши) и скопируйте его в буфер обмена (комбинация клавиш Ctrl+C или пункт системного меню Edit, подпункт Copy)
• Правой клавишей мыши щелкаете на Grid и выбираете пункт Edit. В старших версиях FoxPro в этот режим можно перейти, нажав и удерживая клавишу Ctrl щелкнув по Grid левой клавишей мыши
• Левой клавишей мыши щелкаете на нужном столбце в любом месте под заголовком
• Сделайте вставку из буфера обмена (комбинация клавиш Ctrl+V или пункт системного меню Edit, подпункт Paste)

Можно удалить уже не нужный объект Text1 из столбца Grid следующим образом:

• В окне Properties в раскрывающемся списке выберите объект, который хотите удалить
• Один раз щелкните левой клавишей мыши по любому месту формы. Лучше щелкнуть по заголовку формы, хотя это не принципиально.
• Нажмите клавишу Delete на клавиатуре

Проблема
В дизайнере формы были сделаны настройки Grid, написана собственная обработка события Header.Click() или Column.Text1.Click(). Однако при выполнении программы все эти настройки пропадают.

Причина
Это происходит после переоткрытия источника данных для Grid. Того, что указано в качестве Grid.RecordSource. Т.е. эта таблица была закрыта и открыта заново. Как правило, это является следствием использования команды PACK, но могут быть и более сложные варианты.

Решение
Прежде всего, следует заметить, что использование команды PACK в активной форме - это порочная практика. Физическое удаление записей следует вынести в отдельную служебную процедуру, периодически запускаемую администратором.

Тем не менее, если подобная задача все-таки необходима, то перед переоткрытием (или заменой) источника данных для Grid его следует сбросить.

* Сброс источника данных Grid
ThisForm.Grid1.RecordSource = ""
* Выполнение переоткрытия таблицы, модификация данных, выбор другой таблицы
...
* Восстановление источника данных Grid
ThisForm.Grid1.RecordSource = "Table"
ThisForm.Grid1.Column1.ControlSource = "Table.Field1"
ThisForm.Grid1.Column2.ControlSource = "Table.Field2"
ThisForm.Grid1.Column3.ControlSource = "Table.Field3"

В случае необходимости, можно автоматизировать процесс сохранения и восстановления настроек источника данных столбцов Grid. Подробнее об этом способе читайте в статье

VFP грид, часть I

Вопрос
Я сделал настройки ячейки Grid (объекта Text1 в столбце): формат, выравнивание, отображение NULL и т.п. Однако эти настройки действуют только на текущую (активную) ячейку Grid. Как мне распространить действие этих настроек на все ячейки того же столбца?

Я вставили в Grid вместо стандартного объекта Text1 какой-либо свой объект (например, ComboBox или свой TextBox). Однако мой объект виден только в текущей (активной) ячейке Grid. Как мне заставить отобразиться мой объект во всех ячейках того же столбца?

ThisForm.Grid1.Column1.Sparce = .F.

Вопрос
При перемещении по Grid выделяется только активная ячейка. Как выделить цветом все ячейки активной строки Grid ?

1. Необходимо создать дополнительное свойство формы ThisForm.nRecno. Можно сделать собственный класс Grid и создать этой свойство у собственно класса. И присвоить этому свойству числовое значение, например nRecno=1
   
   Новое свойство можно добавить через пункт меню Form (для класса Class), подпункт New Property или Edit Property/Method.
   
   
2. В событии Grid.Init пишем следующий код

IF RECNO(This.RecordSource)#0 
    THIS.SetAll("DynamicBackColor",;
        "IIF(RECNO(This.RecordSource)=ThisForm.nRecno,RGB(255,255,0),RGB(255,255,255))",;
        "COLUMN") 
ENDIF

Если свойство nRecno создано непосредственно в классе Grid, то, разумеется, следует вместо ThisForm.nRecno писать This.nRecno

3. В событии Grid.AfterRowColChange пишем следующий код

LPARAMETERS nColIndex
ThisForm.nRecno = RECNO(This.RecordSource) 
This.Refresh()
***Если свойство nRecno создано непосредственно в классе Grid, то, разумеется, следует вместо ThisForm.nRecno писать This.nRecno

Вопрос
Можно ли в качестве источника данных для Grid указать массив?

APPEND FROM ARRAY ...
***или
INSERT INTO ... FROM ARRAY ...