Делаем две строки в заголовке GRID
Бывает нужно сделать две строки в заголовке 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
Объект удалиться и форма успешно закроется.
Скачать класс ...
|