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

@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 мне показался очень удобен.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

Решение

Решение

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

	Закраска ячеек по таймеру с условием 30.10.2016, 17:34. Показов 1520. Ответов 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