Закраска ячеек по таймеру с условием

@djelmik777 · Регистрация: 07.07.2015

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

Добрый день уважаемые форумчани. В моей программе происходит имитация поднятия и понижения температуры , на скрине вы увидите StringGrid в котором в сумме будет 18 датчиков. Значения из основного щита , передаются в StringGrid , работает все по таймерам. Заданное значение я изменяю прямо в Stringgrid , на фото видно что Текущие значение меньше Заданного, и во вкладке Состояние описывается меньше или больше , или равно.
У меня вопрос , как мне закрасить строку , в красный если у меня Тек < или > Больше Заданного. И закрасить в зеленый если они удовлетворяют моему условию , то есть Тек = Заданному.
В итоге при помощи этих цветов , оператор будет видеть , достигли ли температуры заданной точки.

Огромное спасибо за внимание , жду ваших советов.

@djelmik777 · 31.10.2016, 13:29 **[ТС]**

Ребята будьте добры подскажите как решить мой вопрос

@dstar · 31.10.2016, 13:49

Если нужна только закраска строк то опиши событие OnDrawCell
Например, следующий код

C++
1
2
3
4
5
6
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  StringGrid1->Canvas->Brush->Color=ARow&1? clRed : clBlue;
  StringGrid1->Canvas->FillRect(Rect);
}

сделает его полосатым как на рисунке

@djelmik777 · 31.10.2016, 17:57 **[ТС]**

У меня закраска по условию , PV < SV и PV > SV красным что выделяло , PV = SV зеленым чтоб выделяло.
У меня в StringGrid есть столбец состояние , по условию которое выдает там , нужно закрашивать определенным цветом.

@dstar · 31.10.2016, 18:10

Ну так в чем сложность? Пример заливки ячеек я привел. Остается добавить чтение значений из соответствующей строки и менять цвет заливки в соответствии с условием

@djelmik777 · 31.10.2016, 18:49 **[ТС]**

Спасибо за пример , но у меня с этими таблицами вечные проблемы , не могли бы вы написать пример на одно из условий , дальше я сделаю по аналогии. Заранее большое спасибо

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

@dstar · 31.10.2016, 18:53

Как вариант

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  if(State.Contains(gdFixed))
    return;
 
  int v1=StringGrid1->Cells[1][ARow].ToIntDef(0);
  int v2=StringGrid1->Cells[2][ARow].ToIntDef(0);
 
  StringGrid1->Canvas->Brush->Color=v1==v2? clGreen : clRed;
  StringGrid1->Canvas->FillRect(Rect);
  StringGrid1->Canvas->TextRect(Rect, Rect.left, Rect.top, StringGrid1->Cells[ACol][ARow]);
 
}

в первом столбце значение показателя, во втором - его нормальное значение. соответственно зеленым залиты ячейки для которых значения показателя равны допустимому значению.

@djelmik777 · 31.10.2016, 19:34 **[ТС]**

Очень хороший пример , но у меня проблемка в другом возникла , подскажите как по условию в правом столбце закрашивать строки , на данный момент не изменяет цвета почему то , полностью красит

@dstar · 31.10.2016, 19:47

Не понял вопроса. Как видно на рисунке все столбцы закрашены. Или нужно что-то сделать с белой полосой коьорая справа? Если ДА то здесь два решения, либо изменить фон объекта на другой, либо расширить последнюю колонку до границы объекта

@djelmik777 · 01.11.2016, 10:28 **[ТС]**

Вот решение моей проблемы , единственное в Timer нужно добавить StringGrid4->Refresh();

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#define XSHIFT 2
#define YSHIFT 5
  if (StringGrid4->Cells[4][ARow] == "  PV = SV " )
  {
StringGrid4->Canvas->Brush->Color=clGreen;
StringGrid4->Canvas->FillRect(Rect);
StringGrid4->Canvas->Font->Color=clWhite;
StringGrid4->Canvas->TextOut(Rect.left+XSHIFT, Rect.top + YSHIFT, StringGrid4->Cells[ACol][ARow]);
 
}
else
 if (StringGrid4->Cells[4][ARow] == "  PV < SV" )
  {
StringGrid4->Canvas->Brush->Color=clRed;
StringGrid4->Canvas->FillRect(Rect);
StringGrid4->Canvas->Font->Color=clWhite;
StringGrid4->Canvas->TextOut(Rect.left+XSHIFT, Rect.top + YSHIFT, StringGrid4->Cells[ACol][ARow]);
 
}
else
if (StringGrid4->Cells[4][ARow] == "  PV > SV" )
  {
StringGrid4->Canvas->Brush->Color=clRed;
StringGrid4->Canvas->FillRect(Rect);
StringGrid4->Canvas->Font->Color=clWhite;
StringGrid4->Canvas->TextOut(Rect.left+XSHIFT, Rect.top + YSHIFT, StringGrid4->Cells[ACol][ARow]);
 
}

Добавлено через 52 минуты
dstar , спасибо за то что уделили мне время .

@dstar · 01.11.2016, 14:13

Вот решение моей проблемы , единственное в Timer нужно добавить StringGrid4->Refresh();

Я бы не советовал использовать Refresh, по той причине что эта функция отрабатывает перерисовку объекта сразу же в момент ее вызова и если, например, поставить ее в поток получаемых от датчиков данных могут быть тормоза и пользователь за это спасибо не скажет.
Не спорю, в Вашем случае используется событие таймера, а следовательно постоянных перерисовок не будет. Однако грамотнее использовать функцию Invalidate. Она отправляет окну сообщение о необходимости перерисовать данные и обновление объекта произойдет в порядке обработки события WM_PAINT. И даже если Вы будите вызывать ее скажем с частотой свыше 100 раз в секунду, перерисовка объекта не будет влиять на работу программы в целом. Зато Вы сможете избавиться от таймера.

@djelmik777 · 02.11.2016, 19:09 **[ТС]**

Дело в том что работа этих датчиков происходит как бы в реальном времени , имитация нагрева понижение температуры , без остановок. Поэтому в моем случае Refresh мне показался очень удобен.

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41

	Закраска ячеек по таймеру с условием 30.10.2016, 17:34. Показов 1550. Ответов 11 Метки нет (Все метки) Добрый день уважаемые форумчани. В моей программе происходит имитация поднятия и понижения температуры , на скрине вы увидите StringGrid в котором в сумме будет 18 датчиков. Значения из основного щита , передаются в StringGrid , работает все по таймерам. Заданное значение я изменяю прямо в Stringgrid , на фото видно что Текущие значение меньше Заданного, и во вкладке Состояние описывается меньше или больше , или равно. У меня вопрос , как мне закрасить строку , в красный если у меня Тек < или > Больше Заданного. И закрасить в зеленый если они удовлетворяют моему условию , то есть Тек = Заданному. В итоге при помощи этих цветов , оператор будет видеть , достигли ли температуры заданной точки. Огромное спасибо за внимание , жду ваших советов. Миниатюры 0

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41
	31.10.2016, 13:29 [ТС]
	Ребята будьте добры подскажите как решить мой вопрос 0

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41
	31.10.2016, 17:57 [ТС]
	У меня закраска по условию , PV < SV и PV > SV красным что выделяло , PV = SV зеленым чтоб выделяло. У меня в StringGrid есть столбец состояние , по условию которое выдает там , нужно закрашивать определенным цветом. 0

@dstar 188 / 41 / 12 Регистрация: 22.02.2016 Сообщений: 149
	31.10.2016, 18:10
	Сообщение было отмечено djelmik777 как решение Решение Ну так в чем сложность? Пример заливки ячеек я привел. Остается добавить чтение значений из соответствующей строки и менять цвет заливки в соответствии с условием 0

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41
	31.10.2016, 18:49 [ТС]
	Спасибо за пример , но у меня с этими таблицами вечные проблемы , не могли бы вы написать пример на одно из условий , дальше я сделаю по аналогии. Заранее большое спасибо Добавлено через 12 минут У меня закраска но текст я должен видеть , просто строка окрашивается в цвет например зеленый если условие удовлетворяет. 0

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41
	31.10.2016, 19:34 [ТС]
	Очень хороший пример , но у меня проблемка в другом возникла , подскажите как по условию в правом столбце закрашивать строки , на данный момент не изменяет цвета почему то , полностью красит Миниатюры 0

@dstar 188 / 41 / 12 Регистрация: 22.02.2016 Сообщений: 149
	31.10.2016, 19:47
	Не понял вопроса. Как видно на рисунке все столбцы закрашены. Или нужно что-то сделать с белой полосой коьорая справа? Если ДА то здесь два решения, либо изменить фон объекта на другой, либо расширить последнюю колонку до границы объекта 0

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41
	02.11.2016, 19:09 [ТС]
	Дело в том что работа этих датчиков происходит как бы в реальном времени , имитация нагрева понижение температуры , без остановок. Поэтому в моем случае Refresh мне показался очень удобен. 0

Закраска ячеек по таймеру с условием

Решение

Решение