Интерфейс

Бывает нужно сделать две строки в заголовке 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   

Объект удалиться и форма успешно закроется.

Автор публикации

не в сети 4 месяца

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000