Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2015, 16:49   #1
NIKOLAYY2
Форумчанин
 
Регистрация: 23.12.2014
Сообщений: 220
По умолчанию Раскраска ячеек StringGrid

Каким способом еще можно раскрасить ячейки StringGrid-а не применяя подобного условия заполненности ячеек на событие DrawCell

Код:
  if StringGrid1.Cells[ACol, ARow] = '1' then
  begin
    StringGrid1.Canvas.Brush.Color := clLime;
    StringGrid1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 2,
      StringGrid1.Cells[ACol, ARow]);
    StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
  end;
Изображения
Тип файла: jpg 1111.jpg (14.0 Кб, 119 просмотров)
NIKOLAYY2 вне форума Ответить с цитированием
Старый 22.01.2015, 16:54   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А чем это не устроило?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.01.2015, 16:54   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Каким способом еще можно раскрасить ячейки StringGrid-а не применяя подобного условия заполненности ячеек на событие DrawCell
простите, не понял вопроса..
Как можно раскрасить ячейки БЕЗ использования события DrawCell?
Ответ: никак.

А чем Вас DrawCell не устроил?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.01.2015, 16:55   #4
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Использовать TStringGrid.Objects

P.S. Если я правильно угадал смысл вопроса.
northener вне форума Ответить с цитированием
Старый 22.01.2015, 20:38   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
Использовать TStringGrid.Objects
P.S. Если я правильно угадал смысл вопроса.
northener, а можно попросить Вас пояснить ваш ответ?
Что не устроило TC по вашему мнению?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.01.2015, 23:26   #6
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
northener, а можно попросить Вас пояснить ваш ответ?
Что не устроило TC по вашему мнению?
Я подумал, что ТС ищет способ задавать/определять цвет ячейки не по её тексту.
Но может я ошибся.
northener вне форума Ответить с цитированием
Старый 23.01.2015, 00:02   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
Я подумал, что ТС ищет способ задавать/определять цвет ячейки не по её тексту.
понял Вас. Спасибо.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 23.01.2015, 02:44   #8
NIKOLAYY2
Форумчанин
 
Регистрация: 23.12.2014
Сообщений: 220
По умолчанию

Да, не зависимо от ее текста я раскрашивать хотел.
TStringGrid.Objects, я так понял объект (его значение) в цикле прикрутить к каждой ячейке и на него условие ставить?
NIKOLAYY2 вне форума Ответить с цитированием
Старый 23.01.2015, 03:44   #9
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Можно проще - раскрашивать по координатам ячеек...
Или не подойдёт в данном случае?
Какое-то ведь условие быть должно?
kropotkina-alice вне форума Ответить с цитированием
Старый 23.01.2015, 07:46   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
не зависимо от ее текста я раскрашивать хотел.
И каковы же критерии?
Цитата:
TStringGrid.Objects, я так понял объект (его значение) в цикле прикрутить к каждой ячейке и на него условие ставить?
Ниче ты не понял )
Код:
  if integer(StringGrid1.Objects[ACol, ARow]) = 1 then
  begin
    StringGrid1.Canvas.Brush.Color := clLime;
    StringGrid1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 2,
      StringGrid1.Cells[ACol, ARow]);
    StringGrid1.Canvas.Brush.Color := StringGrid1.Color;
  end;
Он уже встроен в "каждую ячейку" грида. Его не нужно прикручивать. Если бы ты хелп хотел прочитать то этого вопроса бы не было.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Раскраска StringGrid нажатием dypel C++ Builder 2 15.05.2014 23:30
StringGrid размер ячеек РоРоРоЛоЛоЛо Помощь студентам 5 22.10.2013 21:12
и снова раскраска ячеек BrYan91 Компоненты Delphi 9 19.06.2010 11:47
(Delphi)stringgrid раскраска ячейки ошибка zoza1 Помощь студентам 1 17.02.2010 19:28