 | |
| | | | |
Максим Игнатьев
дата публикации 19-01-2000 00:00 Дополнение по теме 'полосатый DBGrid'
Как уже отмечалось в статье "Разноцветный DBGrid", предложенный
способ оформления "полосатого" окна не годится для серверных баз
данных. Существует способ решения этой задачи вне зависимости от типа
СУБД, он основан на использовании свойства DBGgid'а TDataLink.
Это свойство находится в секции protected, поэтому для того, чтобы добраться до него,
нужно объявить такой класс:
TFriendGrid = class (TDBGrid);
В процедуре OnDrawColumnCell делаем следующую проверку:
IF TFriendGrid(Sender).DataLink.ActiveRecord and 1 <> 0
Then TDBGrid(Sender).Canvas.Brush.Color:=RGB($CC,$CC,$99);
Но только этого недостаточно. Для того, чтобы при скролировании грида перерисовка происходила
корректно, необходимо в обработчик события OnAfterScroll для набора данных
добавить строку:
DBGrid.Refresh;
[TDBGrid] [Перерисовка компонент] [Отображение списков, сеток]
 Обсуждение материала [ 16-08-2002 14:51 ] 5 сообщений |
|
| | |  | | |
| |
Время на сайте: GMT минус 5 часов
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
Функция может не работать в некоторых версиях броузеров.
©
При использовании любых материалов «Королевства Delphi»
необходимо указывать источник информации.
Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
Все используемые на сайте торговые марки являются
собственностью их производителей.
