Цвет строки в DBGrid

@nattive · Регистрация: 21.03.2013

Студворк — интернет-сервис помощи студентам

Подскажите код, добавляемый в событие DBGrid1DrawDataCell

Есть DBGrid1 - таблица заполняемая запросом ADOQuery1
в таблице есть колонка с названием Rest_Cost

Подскажите как выделить в сформированной таблице строки, допустим, зеленым цветом если значение ячейки столбца Rest_Cost больше нуля.

ПС Смотрел на разных форумах, конкретного ничего не нашел.

Скандербег · 03.04.2015, 20:26

После изменения типа поля на varchar(30) и удаления лишних пробелов в записях таблицы получилось вот что:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if DBGrid1.DataSource.DataSet['tip'] = 'Приход' then
    DBGrid1.Canvas.Brush.Color := $003535FF
  else
    DBGrid1.Canvas.Brush.Color := $00BFFFBF;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

@Albina93 · 03.04.2015, 20:30

ААААа спасибооо вам!!!!!!!! вы гений!!!!!!!!!!

@Антон Курилов · 24.01.2019, 07:15

Здравствуйте! подскажите а как можно указать несколько условий на примере этого кода?

Скандербег · 24.01.2019, 07:47

Ничто не мешает добавить любые условия в этот код.
Типа:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.DataSource.DataSet['поле'] = 'условие1' then
    DBGrid1.Canvas.Brush.Color := $003535FF;
  if DBGrid1.DataSource.DataSet['поле'] = 'условие 2' then
    DBGrid1.Canvas.Brush.Color := clMedGreay;
  //и т.д.
 
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Цвет можно подобрать в ColorDialog. Разместив этот компонент на форме, двойным щелчком открыть его окно, где и подбирать нужный цвет.

@D1973 · 24.01.2019, 07:48

Сообщение от Антон Курилов

а как можно указать несколько условий

так и указать:

Code
1
2
3
4
если <Условие 1> тогда делаем одно;
если <Условие 2> тогда делаем другое;
если <Условие 3> тогда делаем третье;
если <Условие 4> тогда делаем четвертое;

А что Вам там конкретно надо - кроме Вас никто не знает. Будет конкретный вопрос (и, желательно, в своей собственной теме!!!) - будет конкретный ответ.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@nattive 5 / 3 / 2 Регистрация: 21.03.2013 Сообщений: 113

	Цвет строки в DBGrid 31.03.2013, 00:36. Показов 18594. Ответов 24 Метки нет (Все метки) Подскажите код, добавляемый в событие DBGrid1DrawDataCell Есть DBGrid1 - таблица заполняемая запросом ADOQuery1 в таблице есть колонка с названием Rest_Cost Подскажите как выделить в сформированной таблице строки, допустим, зеленым цветом если значение ячейки столбца Rest_Cost больше нуля. ПС Смотрел на разных форумах, конкретного ничего не нашел. 0

@Albina93 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 13
	03.04.2015, 20:30
	ААААа спасибооо вам!!!!!!!! вы гений!!!!!!!!!! 0

@Антон Курилов 3 / 2 / 1 Регистрация: 19.06.2018 Сообщений: 39
	24.01.2019, 07:15
	Здравствуйте! подскажите а как можно указать несколько условий на примере этого кода? 0