StringGrid закраска ячейки и добавление bmp

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

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

Здравствуйте уважаемые форумчани , возникла проблема со StringGrid , суть проблемы в том что у меня программа в процессе работы записывает предупреждения или угрозы в Журнал событий , мне нужно Предупреждение например зарисовывать оранжевым , Тревоги - Красным. И вместо записи Предупреждение хотелось бы видеть стандартную картинку восклицательного знака.

Код записи одной из ошибок у меня такой

C++
1
2
3
4
5
6
7
8
9
10
int num=0, ro = 0;
     for(int i=1;i<StringGrid3->RowCount;i++)
       if( StringGrid3->Cells[0][i].ToIntDef(0) !=0)
         num = StringGrid3->Cells[0][i].ToInt();
       else { ro = i; break; }
     if(ro==0 || ro==StringGrid3->RowCount-1) StringGrid3->RowCount +=1;
     StringGrid3->Cells[0][ro] = num+1;
     StringGrid3->Cells[1][ro] = "Тревога";
     StringGrid3->Cells[2][ro] = Date()+Time();
     StringGrid3->Cells[3][ro] = "Длина сырьевой пленки выше заданной > "+ sCalcEdit3->Text;

Помогите пожалуйста с моим вопросом

@D1973 · 15.10.2016, 08:03

Сообщение от djelmik777

вместо записи Предупреждение хотелось бы видеть стандартную картинку восклицательного знака

вместо СтрингГрида используй DrawGrid

@Программист 90 · 15.10.2016, 12:51

djelmik777, труженичек.
Можно и StringGrid использовать
Выбираешь событие OnDrawCell и пишешь типа такого:

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
void __fastcall TForm1::StringGrid3DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State)
{
    #define XSHIFT 2 // Смещение текста в ячейке
    #define YSHIFT 5
    if( StringGrid3->Cells[1][ARow] == "Тревога" )
    {
        // Белый цвет шрифта на красном фоне
        StringGrid3->Canvas->Brush->Color = clRed;
        StringGrid3->Canvas->FillRect(Rect);
        StringGrid3->Canvas->Font->Color = clWhite;
        StringGrid3->Canvas->TextOut(Rect.Left + XSHIFT, Rect.Top + YSHIFT, StringGrid3->Cells[ACol][ARow]);
    }
    else if( StringGrid3->Cells[1][ARow] == "Предупреждение" )
    {
        if( ACol == 1 )
        {
            StringGrid3->Canvas->FillRect(Rect);
            ImageList1->Draw( StringGrid3->Canvas, Rect.Left, Rect.Top, 0 );
        }
        else
        {
            // Оранжевый цвет шрифта на фоне по уммолчанию
            StringGrid3->Canvas->FillRect(Rect);
            StringGrid3->Canvas->Font->Color = (TColor)0x7FFF;  // Оранжевый
            StringGrid3->Canvas->TextOut(Rect.Left + XSHIFT, Rect.Top + YSHIFT, StringGrid3->Cells[ACol][ARow]);
        }
    }
}

А в твоём коде StringGrid3->Repaint();
Можно, конечно, и по-другому определять Тревога там или ещё что. Через массив, или StringGrid3->Objects[...][...]

Добавлено через 15 минут

C++
1
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State)

Параметры ACol и ARow указывают индексы столбца и строки (отсчитываются от 0).
Параметр Rect - это прямоугольная область канвы, соответствующая перерисовываемой ячейке.
Параметр State указывает состояние ячейки: gdSelected - выделена, gdFocused - находится в фокусе, gdFixed - расположена в фиксированной области таблицы.

@djelmik777 · 16.10.2016, 00:43 **[ТС]**

Большое спасибо за помощь , очень вам благодарен

Новые блоги и статьи Все статьи Все блоги /
Использование пакета Context в Golang bytestream 03.03.2025 Управление параллельными процессами в современных приложениях - сложная задача, особенно когда речь идет о микросервисной архитектуре и распределенных системах. Пакет context в Go - это гибкое. . .	WebAssembly и Go: Работа с DOM и обработка ошибок bytestream 03.03.2025 WebAssembly представляет собой технологию, позволяющую запускать низкоуровневый код в браузере практически на нативной скорости. Особенно интересные возможности открываются при использовании. . .	WebAssembly и Go: Создание высокопроизводительных веб-приложений bytestream 03.03.2025 WebAssembly - это технология, изменившая подход к созданию высокопроизводительных веб-приложений. До появления WebAssembly JavaScript оставался единственным языком программирования, который понимали. . .	Контексты в Go: отмена, тайм-ауты и распространение bytestream 03.03.2025 В многопоточном программировании существует множество ситуаций, когда необходимо прерывать выполнение горутин или ограничивать время их работы. Отсутствие грамотного управления параллельными. . .	WebSocket в Go: создание масштабируемых real-time приложений bytestream 03.03.2025 Веб-приложения все чаще требуют обработки данных в режиме реального времени. Традиционный подход с использованием HTTP-запросов имеет существенные ограничения для таких сценариев. При каждом запросе. . .
Как дебажить в Go: Руководство по отладке bytestream 03.03.2025 Отладка в Go имеет свои особенности, связаные с строгой типизацией, моделью конкурентности и управлением памятью. Go предоставляет богатый набор встроеных средств для отладки, которые дополняются. . .	Быстрый map в Go со Swiss Table bytestream 03.03.2025 Swiss Table - это не просто очередная оптимизация существующего решения, а принципиально новый подход к организации данных в памяти. В основе лежит идея группового зондирования с использованием. . .	Пакет Context в Go и управление потоками bytestream 03.03.2025 Context - один из наиболее важных и часто используемых пакетов в Go, предоставляющий возможности для управления жизненным циклом операций, отмены запросов и передачи значений между горутинами. Этот. . .	Суммирование октав синего шума, как шум Перлина в C++ bytestream 03.03.2025 Создание реалистичных процедурных текстур, ландшафтов и эффектов требует понимания различных типов шума и их характеристик. Синий шум, в отличии от более распространенного белого шума, обладает. . .	Двумерный итератор перемешивания с низким расхождением в C++ bytestream 03.03.2025 В компьютерной графике и вычислительной математике часто возникает потребность в эффективном перемешивании двумерных данных с сохранением определенных статистических свойств. Особую значимость. . .

@D1973 Модератор 9691 / 6293 / 2435 Регистрация: 21.01.2014 Сообщений: 26,844 Записей в блоге: 3
	15.10.2016, 08:03	2
	Сообщение от djelmik777 вместо записи Предупреждение хотелось бы видеть стандартную картинку восклицательного знака вместо СтрингГрида используй DrawGrid 0

@djelmik777 0 / 0 / 0 Регистрация: 07.07.2015 Сообщений: 41
	16.10.2016, 00:43 [ТС]	4
	Большое спасибо за помощь , очень вам благодарен 0

StringGrid закраска ячейки и добавление bmp

Решение