Бывает нужно сделать две строки в заголовке GRID: название колонки большое, а длина поля 3 знака. Вот тут-то и можно использовать класс NewHeader.
Скачайте класс NewHeader и включите его в свой проект. Затем создайте форму и поместите на нее GRID.
GRID нужно привязать к какой-нибудь таблице, но это как-бы само-собой разумеется.
В событие init формы пишем следующий код:
Set classlib to NewHeader
This.addObject('MyHeader','MyHeader',This.Grid1,50)
This.MyHeader.Visible=.T.
This.MyHeader.ScrollHeader()
Обратите внимание на строку This.addObject('MyHeader','MyHeader',This.Grid1,50). В ней число 50 указывает высоту заголовка (header) в пикселях. То есть смотрите, какой у вас самый высокий заголовок в указывайте его высоту. Естественно, что высота заголовка для всех столбцов будет одинаковая. И к тому же строк можно делать и три, и четыре.
Далее ... в события AfterRowColChange и Scrolled объекта GRID нужно вставить код: ThisForm.MyHeader.ScrollHeader() Метод ScrollHeader() следит за скроллингом и обновлением заголовка.
Заключительный шаг - это удаление объекта MyHeader из GRIDа, иначе ваша форма не закроется. Для этого вставьте в событие Destroy формы код:
ThisForm.MyHeader.GridObject = NULL
Объект удалиться и форма успешно закроется.
Автор публикации
Вложенные файлы
# |
Тип файла |
Размер |
Название |
|---|---|---|---|
| 1 | .zip | 6,79 КБ | newhead |