|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.02.2013, 18:17 | #1 |
Пользователь
Регистрация: 11.02.2013
Сообщений: 32
|
Delphi 7 - StringGrid - изменить цвет шрифта при выполнении условия
Добрый вечер, уважаемые программисты!
В StringGrid выводятся результаты работы программы: 5.png Как сделать так, чтобы "надёжные" поставщики выделялись зелёным цветом (вся строка-и название, и результат....), а "ненадёжные" - красным (соответственно, тоже вся строка)? Пробовала по событию OnDrawCell написать условие: если ='надёжный', то font.color:=clGreen, но ничего не происходит, шрифт всё равно остаётся чёрный |
22.02.2013, 18:32 | #2 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Где пример обработчика OnDrawCell?
|
22.02.2013, 18:36 | #3 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
22.02.2013, 19:06 | #4 |
Пользователь
Регистрация: 11.02.2013
Сообщений: 32
|
procedure TForm1.StringGrid8DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState); begin if (StringGrid8.Cells[ACol,2] = 'Ненадёжный') then StringGrid8.Canvas.Brush.Color := clRed Else StringGrid8.Canvas.Brush.Color := clGreen; StringGrid8.Canvas.FillRect(Rect); StringGrid8.Canvas.Font.Color:=clWh ite; StringGrid8.Canvas.TextOut(Rect.Lef t, Rect.Top, StringGrid8.Cells[ACol, ARow]); end; Результат: 7.png |
22.02.2013, 19:11 | #5 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
Иначе говоря: если в любой колонке во второй строке 'Ненадёжный', то...
|
22.02.2013, 19:20 | #7 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
StringGrid8.Canvas.Font.Color :=
|
22.02.2013, 19:27 | #8 |
Пользователь
Регистрация: 11.02.2013
Сообщений: 32
|
Код:
Ребятки, всем огромное спасибо за помощь! =* И с наступающим праздником! Побед вам во всём! |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возможно изменить цвет фона при редактировании ячейки StringGrid ? | PK.Kirill | Общие вопросы Delphi | 6 | 25.02.2013 17:27 |
Как скрыть строку при выполнении условия в другой ячейке | Алексей777 | Microsoft Office Excel | 4 | 09.12.2010 10:06 |
Вывести данные первой ячейки столбца при выполнении условия | kipish_lp | Microsoft Office Excel | 7 | 17.03.2010 14:44 |
Удалить строку листа Excel при выполнении условия | Gennady | Microsoft Office Excel | 14 | 18.12.2007 13:54 |
Как изменить цвет шрифта кнопки + объявление OnClick | Yury | Общие вопросы Delphi | 7 | 04.05.2007 04:55 |