Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: ноябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



DBGrid с цветными ячейками

Один кибернетик создал машину для предсказания будущего. Задал ей простой вопрос:
- Что я буду делать через час?
Машина работала трое суток и выдала:
- Будешь сидеть у монитора и ждать моего ответа.

Не знаю, помогу ли я Вам, но я расскажу как можно изменить цвет отдельных ячеек GBGrid без необходимости создания нового компонента. Я только что протестировал этот код....

Я создал форму, поместил на ней компонент TTable и указал ему на таблицу EMPLOYEE.DB в базе данных DBDEMOS. Затем я разместил на форме Datasource и DBGrid, "соединил" их и получил живые данные.

Для демонстрации данной технологии я выбрал поле "номер служащего" в таблице EMPLOYEE.DB и "покрасил" ячейки с нечетными числами. То есть, если число нечетное, красим ячейку в зеленый цвет.

Единственный код расположился в обработчике события OnDrawColumnCell компонента DBGrid и выглядел он так:


 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
   TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
 var
   holdColor: TColor;
 begin
   holdColor := DBGrid1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
   {"раскрашиваем" ячейки только для поля EmpNo}
   if Column.FieldName = 'EmpNo' then
     if (Column.Field.AsInteger mod 2 <> 0) then
     begin
       DBGrid1.Canvas.Brush.Color := clGreen;
       DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
       DBGrid1.Canvas.Brush.Color := holdColor;
     end;
 end;
 

В данном случае мы использовали метод DefaultDrawColumnCell компонента TCustomDBGrid, являющегося родителем для TDBGrid. Он раскрасил зеленым цветом нечетные ячейки поля EmpNo.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS